Hi,
I have picpreview which is visiable and dimension set to more than 0. it is in pixels. When trying this code, nothing shows up. Not in the picpreview (the video i mean) nor in its own window. What could be the problem?
filep does exist just fine.
What could be the problem?
I have picpreview which is visiable and dimension set to more than 0. it is in pixels. When trying this code, nothing shows up. Not in the picpreview (the video i mean) nor in its own window. What could be the problem?
Code:
'public
Private 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
Dim Alias As String
private sub playvid()
SendString = "open " + Chr(34) + filep + Chr(34)
SendString = SendString + " type " + "AVIVideo"
SendString = SendString + " alias asciivideofile"
SendString = SendString + " Parent " + Str(Picpreview.hwnd)
lRet = mciSendString("put asciivideofile window at 0 0 " + Str(Picpreview.Width) + " " + Str(Picpreview.Height), 0&, 0, 0)
lRet = mciSendString(SendString, 0&, 0, 0)
lRet = mciSendString("play asciivideofile", 0&, 0, 0)
End Sub
What could be the problem?