I`m trying to seek song to a certain position (using it with pause ,progress bar controls)
code:
'MMObject Class
-----------------------------------
Public Sub TrackSeek(ByVal position As Single) 'seek position
If opened = False Then Exit Sub
mciReturnLong = mciSendString("Seek song to position " & position, "", 0, 0)
If mciReturnLong > 0 Then 'if error seeking display it
MsgBox ("mci seek return value = " & mciReturnLong)
End If
End Sub
Public Sub trackPause() 'pause play
If opened = False Then Exit Sub 'if not opened exit
mciReturnLong = mciSendString("Pause song", "", 0, 0)
If mciReturnLong > 0 Then 'if error pausing
MsgBox ("mci pause return value = " & mciReturnLong)
End If
End Sub
------------------------------------------------------
Form
Public Sub pause_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)
If opened = False Then
Exit Sub
End If
'MMObject.trackPause 'member of a Multimidia class (works fine)
MMObject.TrackSeek 20000 'seek to paused position
'and I get error 270 (Bad integer) ???
end sub
'what`s wrong ??? what does that error mean ??
(the file opens and plays no problem so what the heck...)
thanks
