Hi,
I am trying to create LogIN screen with avi file in the background
I've run AVI on form with this code
VB Code:
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 Private Sub Form1_Load() Last$ = Form1.hWnd & " Style " & &H40000000 ToDo$ = "open C:\Myavi.avi Type avivideo Alias video parent " & Last$ x% = mciSendString(ToDo$, 0&, 0, 0) x% = mciSendString("put video window at 0 0 210 210", 0&, 0, 0) x% = mciSendString("play video", 0&, 0, 0) ) End Sub Private Sub Form_Unload(Cancel As Integer) x% = mciSendString("close video", 0&, 0, 0) End Sub
but when AVI starts VB doesn't fire form1_onMouseMove event
On Form1_onMouseMove I have this code
frmMain.Show
Without AVI in the back this code works fine




Reply With Quote