Teamz said:it's not complicated to add images :
Dim btnX As Button
imagelistname.ListImages.Add 1, "name", LoadPicture("image.bmp")
toolbar.ImageList = imagelistname
Set btnX = imagelistname.Buttons.Add(, "name", , tbrDefault, 1)
SculleatR said:but with PictureBox´s or Images or Command button you can
make a toolbar, easier .
Lol, oh so you want? I've done one already, lol.SculleatR said:i have found a lot tutorals about dinput & dsound & mp3,
i am trying to code a mp3 player
i have watched, its not advanced (or *.wav)
i dont like WinAMP much![]()
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
mciSendString "play " & strFileToPlay & " from 0", 0&, 0&, 0&
Doomulation said:Technically, all you need to do to play an mp3 file (or wma for that matter), do this
Dll declaration:
PHP:Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Play a file:
PHP:mciSendString "play " & strFileToPlay & " from 0", 0&, 0&, 0&
To stop or pause, just switch "play" to "stop" or "pause" and remove " from 0".
...
Sub WAVStop()
Call WAVPlay(" ")
End Sub
Sub WAVLoop(File)
Dim SoundName As String
SoundName$ = File
wFlags% = SND_ASYNC Or SND_LOOP
X = sndPlaySound(SoundName$, wFlags%)
End Sub
Sub WAVPlay(File)
Dim SoundName As String
SoundName$ = File
wFlags% = SND_ASYNC Or SND_NODEFAULT
X = sndPlaySound(SoundName$, wFlags%)
End Sub
i know.Doomulation said:That code above is crap. Trust me.