vb & DX & NET
Private Sub OpenFile()
OFile.Filter = "Видео файлы|*.avi; *.mpg"
With OFile
If .ShowDialog(Me) = DialogResult.OK Then
If CBool(mobjVideo Is Nothing) = False Then
mobjVideo.Dispose()
mobjVideo = Nothing
End If
Try
mobjVideo = New AudioVideoPlayback.Video(.FileName)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End If
End With
End Sub
после этого:
Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPlay.Click
Try
mobjVideo.SeekCurrentPosition(0, AudioVideoPlayback.SeekPositionFlags.AbsolutePositioning)
mobjVideo.Play()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
работает но в непонятном окне, а хотелось бы, чтоб в Form1
полагаю, что нужно както указать хэндл окна но как?
может быть там что найдешь. Я его использовал для запуска консольных приложений без отображения черного окна.