Snivel
28-09-2007, 15:05
ciao a tutti raga mi sto cimentado nella realizzazione di un riprodutore di filmati molto scarno.
L'interfaccia e' la seguente:
Menu file con sotto menu apri ed esci
picturbox per visualizzare il filmato
controllo MMControl per la gestione del filmato e Controllo CommonDialog per caricare i filmati.
Il codice invece e' il seguente:
Private Sub mnuFileItem_Click(Index As Integer)
If Index = 0 Then
dlgVideo.Filter = "Filter (*.avi)|*.avi|"
dlgVideo.ShowOpen
mciVideo.FileName = dlgVideo.FileName
mciVideo.Command = "Open"
mciVideo.hWndDisplay = picVideo.hWnd
Else
End
End If
End Sub
Il problema e' che i film nn si vedono!!!
Manca qualcosa? Dove ho sbagliato? aiutatemi voi pls:cry: :cry:
L'interfaccia e' la seguente:
Menu file con sotto menu apri ed esci
picturbox per visualizzare il filmato
controllo MMControl per la gestione del filmato e Controllo CommonDialog per caricare i filmati.
Il codice invece e' il seguente:
Private Sub mnuFileItem_Click(Index As Integer)
If Index = 0 Then
dlgVideo.Filter = "Filter (*.avi)|*.avi|"
dlgVideo.ShowOpen
mciVideo.FileName = dlgVideo.FileName
mciVideo.Command = "Open"
mciVideo.hWndDisplay = picVideo.hWnd
Else
End
End If
End Sub
Il problema e' che i film nn si vedono!!!
Manca qualcosa? Dove ho sbagliato? aiutatemi voi pls:cry: :cry: