Версия для печати темы

Автор: WishMaster 21.06.2006 0:16

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

Автор: volvo 21.06.2006 0:27

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

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

Автор: WishMaster 21.06.2006 0:40

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

Автор: volvo 21.06.2006 1:08

Можно так:

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

Автор: WishMaster 21.06.2006 14:20

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

Автор: volvo 21.06.2006 21:34

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

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

Автор: WishMaster 22.06.2006 19:16

Спасибо ,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