Visual Basic

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

    Dim SDrum1 = ComboBox1.Text
    Dim SDrum2 = ComboBox2.Text
    Select Case e.KeyCode

        Case Keys.SDrum1
            NoteNum = GeneralMidiPercussion.HiBongo
            bPlayDrum = True
        Case Keys.SDrum2
            NoteNum = GeneralMidiPercussion.Vibraslap
            bPlayDrum = True
    End Select


End Sub

Dim SDrum1 as string = ComboBox1.Text
Dim SDrum2 as string = ComboBox2.Text

Dim keyPressed As String = e.KeyData.ToString

 Select Case keyPressed 
 
            Case SDrum1
                NoteNum = GeneralMidiPercussion.HiBongo
                bPlayDrum = True
            Case SDrum2
                NoteNum = GeneralMidiPercussion.Vibraslap
                bPlayDrum = True
        End Select

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    Dim SDrum1 As String = ComboBox2.Text
    Dim keyPressed As String = e.KeyData.ToString

    Select Case keyPressed

        Case SDrum1
            Dim vol = volu.Value
            MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
    End Select

End Sub

Imports Toub.Sound.Midi
Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MidiPlayer.OpenMidi()
    End Sub

    Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        MidiPlayer.CloseMidi()
    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        Dim SDrum1 As String = ComboBox2.Text
        Dim SDrum2 As String = ComboBox3.Text
        Dim keyPressed As String = e.KeyData.ToString

        Select Case keyPressed

            Case SDrum1
                Dim vol = volu.Value
                MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))

            Case SDrum2
                Dim vol = volu2.Value
                MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.BassDrum, vol))
        End Select

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim vol = volu.Value
        MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ComboBox3.Enabled = True
        ComboBox2.Enabled = True
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        ComboBox2.Enabled = False
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        ComboBox3.Enabled = False
    End Sub
End Class

Annapurna anu wrote:

WHERE dt_bill_date BETWEEN '" & _
Format(FirstDayOfMonth, "yyyy-MM-dd") & "' AND '" & _
Format(LastDayOfMonth.AddDays(1), "yyyy-MM-dd") & "'"

Annapurna anu wrote:

stQuery = "SELECT MAX(substring(st_bill_no from 9 for 15)) FROM sc_bill"