Vb 6.0, работа с видео файлами Опции

[WishMaster]

Пожалуйста помогите:нужно создать (в VB 6.0) кнопку ,при нажатии на которую открывался бы видео файл в новом окне.Пробовал использовать ActiveX не выходит.Заранее благодарен.

[volvo]

Погоди, какой ActiveX?

Нельзя просто через ShellExecute запустить проигрыватель и передать ему имя видео-файла?

[WishMaster]

ActiveX - фвйл управления ,расширение ******.осх ,он обычно подключается к проекту,для выполнения чего-либо( обычно это ссылка на какуюто программу),мне нужно открыть видео-файл,для этого подключаем файл mpi32.ocx (вроде так это файл отвечающий за стандартный проигрыватель ),и все хорошо пока файл меньше 1.5 мб.Что дальше делать не знаю!Уже 2 месяца бьюсь!Да а как сделать по Вашему??? Вообше использование ActiveX это хороший стиль программирования(так кто-то умный написал в книге которую я прочел)

[volvo]

Можно так:

Код

ShellExecute 0, "open", "test.avi", vbNullString, "c:\my_dir", 1

можно - через mciSendString...
Но в любом случае я бы не стал это делать через ActiveX

[WishMaster]

Ладно попробую так.Как я понял в этом методе создается ссылка на какуюто программу (типа WinAmp),но если ее не будет (не у меня на машине , а у другова юзера),то программу можнго будет выкидывать в корзину.A с ActiveX создается ссылка на стандартный элемент управления ,поэтому файл должен открыться в любом случае.

[volvo]

WishMaster, так открывай с помощью стандартной программы - Windows Media Player... Если ее нет у кого-то на машине (при условии что на машине - Windows), то он сам виноват...

У меня, например, может быть запрещено использование ActiveX. И что? Программа так же полетит в корзину...

[WishMaster]

Спасибо ,volvo,но то меня тоже дошло ( часа через 2),что WMP входит в статдарт ну я так и сделал , в целом вышло даже хорошо(после 2-х то месяцев,я и этому был ужасно рад),вообщем если вдруг гоуто дадо то вот
Private Sub Form_Load()
Dim v As Variant
On Error GoTo err5
v = CurDir
Form3.Visible = True
Call WindowsMediaPlayer1_load
'WindowsMediaPlayer1.openPlayer (v + "1.mp3")
Exit Sub
err5: Exit Sub
End Sub

Private Sub WindowsMediaPlayer1_load()
WindowsMediaPlayer1.Width = Form3.Width
WindowsMediaPlayer1.Height = Form3.Height
WindowsMediaPlayer1.URL = (v + "1.avi")
End Sub