Crie um módulo e insira o código abaixo nele:
Public
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
Insira um botão com o caption Abrir, insira o seguinte código nele:
'Este código abre
o vídeo AVI
Dim FileName As String
returnstring = Space(127)
'Arquivo AVI a ser tocado.
FileName = Text1.Text
erg = mciSendString("open " & Chr$(34) & _
FileName & Chr$(34) & _
" type avivideo alias video", _
returnstring, 127, 0)
erg = mciSendString("set video time format ms", _
returnstring, 127, 0)
erg = mciSendString("play video from 0", _
returnstring, 127, 0)
Insira outro botão com o caption Fechar e insira esse código nele:
'Este
código fecha o vídeo AVI
erg = mciSendString("close video", _
returnstring, 127, 0)
Agora insira um textbox, com o nome text1.text
veja como irá ficar o formulário:
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco
