sexta-feira, 18 de agosto de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #49
Função que valida a Inscrição Estadual
Publicado: 29/05/2005

Dicas

Tela de Splash
Autor:  Odeilson Alves ()
Publicado:  18/12/2004
Visitas: 8514
 
1. Crie um formulário com a apresentação do programa;
2. Verifique o formulário "Inicial os comando nos eventos: "AO CARREGAR" e "NO CRONÔMETRO";
3. Digite estes comandos nos mesmo eventos do seu formulário.
4. Crie um módulo e salve com qualquer nome
5. Copie o código abaixo no módulo;

Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long


6. Clique no menu dupurar, escolha a opção: "Compilar e salvar todos os módulos.
7. Faça um teste

OBS: Isso foi testado no Access 8.0 (OFFICE 97).
http://www.mundoaccess.hpg.com.br
Odeilson Alves

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco