VBNet - Форум

Вопрос: AVI Добавлено: 02.03.06 04:46

Автор вопроса: Dron | ICQ: 331667224

Не магу зациклить видеофайл. Как определить что видеофайл проиграл до конца? В принципе если знать продолжительность видео файла и текущего воспроизведения можно было написать условие. Может кто знает подскажите.

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Load()
mciSendString "open " & App.Path & "\VIDEO.AVI" & " type MPEGVideo style child alias mpeg parent " & picVideo.hWnd, vbNullString, 0, 0
mciSendString "put mpeg window at 0 0 300 220", 0&, 0, 0
mciSendString "play mpeg", vbNullString, 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
mciSendString "close all", vbNullString, 0, 0
End Sub
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: avdey ICQ: 219571279 Вопросов: 34 Ответов: 486	Профиль \| \| #1	Добавлено: 02.03.06 11:52
	Нафиг те эти API, ложишь на форму Animation и... Private Sub Form_Load() Animation1.AutoPlay = True 'Бесконечно воспроизводит пока Animation1.Stop не сделаешь Animation1.Open ("c:\Video.AVI" Dim Count As Integer 'Ск-ко раз повторять Animation1.Play Count End Sub Ответить

Номер ответа: 2 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304	Web-сайт: sur.hotbox.ru/ Профиль \| \| #2	Добавлено: 02.03.06 18:53
	Продолжительность: Dim temp As String * 128 mciSendString "status mpeg length", temp, 128, 0& Debug.Print "всего в секундах = " & Val(temp) Текущее (в таймер): Dim temp As String * 128 mciSendString "status mpeg position", temp, 128, 0& Debug.Print "позиция = " & Val(temp) Ответить

Номер ответа: 3 Автор ответа: SerJ Вопросов: 24 Ответов: 332	Профиль \| \| #3	Добавлено: 03.03.06 23:17
	2Sur: У тебя может ещё есть инфа по командах mciSendString ? Если есть, выложи или кинь ссылку. Ответить

Номер ответа: 4 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304	Web-сайт: sur.hotbox.ru/ Профиль \| \| #4	Добавлено: 04.03.06 12:37
	вообще-то гугл. Но раз лень искать: http://www.geocities.com/smigman.geo/mci/home.html Ответить

Страница: 1 |