Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

vb & DX & NET

8.2K
09 августа 2004 года
amer
2 / / 09.08.2004
вопрос такой:

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

полагаю, что нужно както указать хэндл окна но как?
1.3K
10 августа 2004 года
view
148 / / 14.10.2003
Посмотри System.Diagnostics.Process
может быть там что найдешь. Я его использовал для запуска консольных приложений без отображения черного окна.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог