|
|
|
fungusman
from Monster Island on 2005-11-24 11:43 [#01786647]
Points: 381 Status: Lurker
|
|
#If Win32 Then Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
#ElseIf Win16 Then
Private Declare Function mciSendString Lib "mmsystem" (ByVal _
lpstrCommand As String, ByVal lpstrReturnStr As Any, ByVal _
wReturnLen As Integer, ByVal hCallBack As Integer) As Long
#End If Private Sub Command1_Click() Dim ret As Integer ret = mciSendString("open C:\beatles.mid _ type sequencer alias beatles", 0&, 0, 0)
ret = mciSendString("play beatles wait", 0&, 0, 0) ret = mciSendString("close beatles", 0&, 0, 0) End Sub
WHY THE FUCK ISN`T THIS WORKING? Anyone good with VB?
(beatles.mis was the first midi I found on google for this example, though the beatles are pretty cool)
|
|
Drunken Mastah
from OPPERKLASSESVIN!!! (Norway) on 2005-11-24 19:37 [#01786904]
Points: 35867 Status: Lurker | Show recordbag
|
|
:B
|
|
flea
from depths of your mind (New Zealand) on 2005-11-24 20:15 [#01786949]
Points: 9083 Status: Regular
|
|
Babel Fish just died and spat that?
|
|
Messageboard index
|
|
|
|