I use this code to try to sort my desktop icons, but noway...
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
LPARAM As Any) As Long
Public Const LVS_SORTASCENDING = &H10
Public Const LVM_SORTITEMS = (LVM_FIRST + 48)
'and others declarations...
'code in sub procedure
Public Sub sortIconsByNameAsc()
h = GetDesktopWindow() 'hwnd for desktop
Call SendMessage(h, LVM_SORTITEMS, LVS_SORTASCENDING, h)
So you want to create a kind of Music-Keyboard ?
Why do you want to use a Combobox for that ?
What is exactly the goal ?
English is also not my first language ... but if I have a question and want an answer it is necessary to explain what I want or need. So it is up to you again ...
OK ... I wouldn't do it like this ... but it is your 'game' and you decide how to go ...
Actually I don't understand where your problem is.
You decided via the ComboBox-Selection which Keys from your Keyboard should work with which drums OK ... So ... where do you stuck now ?
Are you generally able to play different sounds with different Keys ?
All right man..well i changed the code a bit the NoteNum and bPlayDrum are not needed..
Now it looks like this:
PrivateSub Form1_KeyDown(sender AsObject, e As KeyEventArgs) HandlesMe.KeyDown
Dim SDrum1 AsString = ComboBox2.Text
Dim keyPressed AsString = e.KeyData.ToString
Dim vol = volu.Value
MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
i was thinking..do you know which code is needed to create a master pan for sound?
I could insert variou values for the master pan..but well...i do not know what happens if the user presses 2 keys at same time?!! : S
I need to know how to get continuous bill numbers, I have a query which gives Bill numbers Continuously for a month but once the month get ends the bill number will start from one again which is not required it should continue with the last bill numbers which was generated in last month...
The Query is...
stQuery = "SELECT MAX(substring(st_bill_no from 9 for 15)) FROM sc_bill WHERE dt_bill_date BETWEEN '" & _
Format(FirstDayOfMonth, "yyyy-MM-dd") & "' AND '" & _
Format(LastDayOfMonth.AddDays(1), "yyyy-MM-dd") & "'"
Thanks In Advance
Last Visit: 31-Dec-99 18:00 Last Update: 4-Oct-23 6:29