Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - .NetNinja -

Visual Basic .NET - Видео

Все примеры / Мультимедиа / Видео

Проигрывание выидео-файла в контроле

Автор: .NetNinja | добавлено: 06.03.2010, 18:01 | просмотров: 2814 (2+) | комментариев: 0 | рейтинг: *x10
Пример показывает, как можно проиграть видео-файл в PictureBox. Используется API.

Код

'*******************************************************************
'Проигрывание выидео-файла в контроле
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Const WS_CHILD As Integer = &H40000000
 
Private Sub PlayMedia(ByRef FileName As String, ByVal Window As Control)
  FileName = Chr(34) & FileName & Chr(34)
  mciSendString("Open " & FileName & " alias MediaFile parent " & CStr(Window.Handle.ToInt32) & " style " & CStr(WS_CHILD), Nothing, 0, 0)
  mciSendString("put MediaFile window at 0 0 " & CStr(PixelToTwip(Window.ClientRectangle.Width) / 15) & " " & CStr(PixelToTwip(Window.ClientRectangle.Height) / 15), Nothing, 0, 0)
  mciSendString("Play MediaFile", Nothing, 0, 0)
End Sub
 
Private Function PixelToTwip(ByVal Pixel As Integer) As Double
  Return Pixel * 15
End Function
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim myPic As New PictureBox()
  myPic.Dock = DockStyle.Fill
  Me.Controls.Add(myPic)
  PlayMedia("N:\10 000 лет до н.э.2008.DVDRip.avi", myPic)
End Sub
Об авторе

.NetNinja

Нет информации об авторе...
.NetNinja
Другие примеры этого автора (всего: 2)
Похожие примеры (всего: 3)
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики