Como executar um arquivo .avi vídeo em tela inteira no Visual Basic

Traduções deste artigo Traduções deste artigo
ID do artigo: 142389 - Exibir os produtos aos quais esse artigo se aplica.
Este artigo mostra por exemplo como reproduzir um arquivo de .AVI (vídeo) em tela inteira do Visual Basic para Windows. Quando você reproduzir um arquivo .avi usando a tela inteira, o foco da paleta de cores é definido para o arquivo .avi somente. Sem pontilhado de cores ocorre porque não há nenhum outras janelas no plano de fundo para capturar a paleta de cores.
Expandir tudo | Recolher tudo

Neste artigo

Mais Informações

O exemplo usa o mciSendString application programming interface (API) do Microsoft Windows versão 3.1 ou o Microsoft Windows versão 3.0 com extensões de multimídia.

Para que o exemplo funcione, seu computador deve ser capaz de reproduzir arquivos .avi e você precisa de Microsoft Windows versão 3.1 ou Microsoft Windows versão 3.0 com extensões de multimídia.

O arquivo .avi incluído no exemplo (WNDSURF1.AVI) é a partir do Microsoft Video para Windows.

Informações na seção Visual Basic 4.0 se aplica somente para o Visual Basic 4.0 e informações da seção de Visual Basic 3.0 se aplicam somente a Visual Basic 3.0.

SEÇÃO VB 4.0

Exemplo passo a passo

  1. Inicie o Visual Basic ou no menu File, escolha New Project (ALT, F, N) se o Visual Basic já estiver sendo executado. O Form1 é criado por padrão.
  2. Adicione um botão de comando (Command1) para Form1 e defina sua propriedade legenda como: executar vídeo.
  3. Adicione a seguinte linha de código à seção (Geral) (declarações) do Form1:
       #If Win32 Then
    
       Private Declare Function mciSendString Lib "winmm.dll" Alias _
       "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
       lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
       hwndCallback As Long) As Long
       #Else
       Private Declare Function mciSendString Lib "mmsystem" (ByVal _
       lpstrCommand As String, ByVal lpstrReturnStr As Any, ByVal _
       wReturnLen As Integer, ByVal hCallBack As Integer) As Long
       #End If
    
    						
  4. Adicione as seguintes linhas de código ao procedimento de evento Click de Command1:
       Sub Command1_Click ()
       CmdStr$ = "play c:\winvideo\wndsurf1.avi fullscreen "
       ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
       End Sub
    
    						
  5. A partir do menu Executar, escolha Start (ALT, R, S) para executar o programa.
Clique no botão Executar vídeo para assistir a vídeo em tela inteira. O vídeo será último por alguns segundos e retorne volta ao ambiente do Visual Basic.

SEÇÃO VB 3.0

Exemplo passo a passo

  1. Inicie o Visual Basic ou no menu File, escolha New Project (ALT, F, N) se o Visual Basic já estiver sendo executado. O Form1 é criado por padrão.
  2. Adicione um botão de comando (Command1) para Form1 e defina sua propriedade legenda como: executar vídeo.
  3. Adicione a seguinte linha de código à seção (Geral) (declarações) do Form1:
       ' Enter the following Declare statement on one, single line:
    
       Declare Function mciSendString Lib "mmsystem" (ByVal lpstrCommand$,
       ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%) As
       Long
    
    						
  4. Adicione as seguintes linhas de código ao procedimento de evento Click de Command1:
       Sub Command1_Click ()
       CmdStr$ = "play c:\winvideo\wndsurf1.avi fullscreen "
       ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
       End Sub
    
    						
  5. A partir do menu Executar, escolha Start (ALT, R, S) para executar o programa.
Clique no botão Executar vídeo para assistir a vídeo em tela inteira. O vídeo será último por alguns segundos e retorne volta ao ambiente do Visual Basic.

Propriedades

ID do artigo: 142389 - Última revisão: quarta-feira, 8 de janeiro de 2003 - Revisão: 1.1
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 de 16 bits Enterprise Edition
  • Microsoft Visual Basic 4.0 de 32 Bits Enterprise Edition
  • Microsoft Visual Basic 2.0 Standard Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
Palavras-chave: 
kbmt kbcode KB142389 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 142389
Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com