Assistindo vídeo pelo Access
É fácil configurar o Access 2007/2010 para exibir vídeos, bastando para isso utilizar o controle ActiveX do Windows Media player.
Abra um formulário no modo estrutura e clique no botão ActiveX na guia design da ribbon.
Selecione da lista a opção Windows Media Player e clique em OK.
O quadro do Windows Media Player é carregado no formulário.
Dê dois cliques rápidos no quadro para alterar algumas das propriedades do ActiveX, se o desejar.
Carregar o vídeo pelo VBA é muito simples, basta informar o caminho da URL ao Activex. Você pode carregar vídeos locais ou de um site.
Observe o código abaixo, utilizado no exemplo que disponibilizo. No evento "Ao abrir" do formulário, defino o tamanho do quadro e chamo pela função que carrega o vídeo.
Private Sub Form_Open(Cancel As Integer)
'Definindo o tamanho do quadro 13 x 14cm
Me!wmp.Height = 567 * 13 Me!wmp.Width = 567 * 14
'carregando o vídeo Call fncCarregaVideo
'Foco no botão 1 Me!bt1.SetFocus End Sub
---------------------------------------------------------------------------
Private Sub fncCarregaVideo(Optional j As Byte = 0) On Error Resume Next Dim origem As String
'definindo o caminho da pasta local dos vídeos origem = CurrentProject.Path & "\videos\" Select Case j Case 0 '----------------------------------------------------- 'carregando vídeo de um arquivo local '----------------------------------------------------- 'objwmp.URL = origem & "Nome do vídeo com a extensão" '----------------------------------------------------- 'você pode abrir direto no player, se o desejar '-----------------------------------------------------
'abertura vídeo local 'Me!wmp.openPlayer (origem & "Nome do vídeo com a extensão")
'abertura vídeo web
'Me!wmp.openPlayer ("http://www.usandoaccess.com.br/videoaulas/dica13.wmv")
'----------------------------------------------------------
'Carregando na tela do access um vídeo do site usandoaccess
'----------------------------------------------------------
Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv"
Case 1
'objwmp.URL = origem & "Nome do vídeo com a extensão"
Case 2
'objwmp.URL = origem & "Nome do vídeo com a extensão"
End Select
End Sub
Veja um dos vídeos, do meu site, sendo carregado no formulário:
Os dez artigos mais visitados
MontaRibbons v3.1 - Assistente completo para criar ribbons no Access
Utilizando Classe no Access - Introdução
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
Vídeo - Segurança máxima, usando o OPEN
DVD - Coletânea de artigos, vídeos e exemplos do site
Vídeo - Manutenção e Sistema de Backup com Barra de Progresso
Vinculando tabelas com barra de progresso ( front-end x back-end )
Vídeo - Criando Ribbons parte 4 - Imagens externas em pasta local
Gerar relatórios em pdf e enviar por email
| Não há comentário |