0
0

Hi.
I have one problem. For example – I run my project in VB6.0 and when i want click on button which do LoadSong… window show error.
Look on screen.
[img:1ho18g3b]http://img213.imageshack.us/img213/8876/erroreu5.jpg[/img:1ho18g3b]
And source…
[code:1ho18g3b]Private Sub Exit_Click()
FSOUND_Close
End Sub

Private Sub Initialize_Click()
Dim result As Boolean
result = FSOUND_Init(44100, 32, 0)
If Not result Then
‘Chyba !!!
MsgBox "vyskytla se chyba při inicializaci zvuku!" & vbCrLf & FSOUND_GetErrorString(FSOUND_GetError), vbOKOnly
End If
End Sub

Private Sub LoadSong_Click()
Dim songHandle As Long
songHandle = FMUSIC_LoadSong(CLng("tada.XM"))
End Sub

Private Sub PlaySong_Click()
result = FMUSIC_PlaySong(songHandle)
End Sub[/code:1ho18g3b]

Thanks…

  • You must to post comments
0
0

what is CLng("tada.XM") supposed to do? you should pass the string without converting to a long (which would be 0?)

  • You must to post comments
Showing 1 result
Your Answer

Please first to submit.