Добрый день, всех с прошедшими праздниками!
Имеется User форма с проигрывателем WMP и кнопкой "загрузить видео". Необходимы макросы для перемотки видео.
Основной критерий один - интервал перемотки. Желательно, чтобы его значение устанавливалось вручную (через число в Text Box). Если такой возможности нет, то можно указать фиксированный: 5 секунд вперед и назад.
Надеюсь на помощь.
P.S. Как ни тужусь, файл в 100 Кб вмещаться не хочет, поэтому кидаю код сюда и прикрепляю скрин
Имеется User форма с проигрывателем WMP и кнопкой "загрузить видео". Необходимы макросы для перемотки видео.
Основной критерий один - интервал перемотки. Желательно, чтобы его значение устанавливалось вручную (через число в Text Box). Если такой возможности нет, то можно указать фиксированный: 5 секунд вперед и назад.
Надеюсь на помощь.
| Код |
|---|
Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal _ lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _ nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _ nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_SYSMENU As Long = &H80000 Private Const WS_MINIMIZEBOX As Long = &H20000 |
P.S. Как ни тужусь, файл в 100 Кб вмещаться не хочет, поэтому кидаю код сюда и прикрепляю скрин
