caixas de mensagens são usados ​​principalmente em programas de VB6 para indicar ao usuário que algo requer sua atenção. Uma caixa de mensagem pode ser exibida uma mensagem de erro ou pode estar se perguntando ao usuário uma pergunta , proporcionando uma e um botão "Sim" "Não" no formulário. A caixa de mensagem também pode ser informando ao usuário que algo está prestes a acontecer dentro do programa, perguntando se eles gostariam de continuar. Pode beneficiar o usuário a deixar que a mensagem exibida durante cinco segundos e depois passar apenas automaticamente para a próxima atividade dentro do programa. Este ajuste pode ser feito em apenas alguns passos. Instruções
1

Abra um novo projeto Visual Basic Standard EXE. Um formulário com o nome " Form1 " será criado por padrão. Adicionar um novo módulo para o projeto clicando com o botão direito do mouse no nome do projeto e clicar em "Adicionar " e depois " módulo ". O nome padrão para o novo módulo será " Module1 ".
2

Renomeie a forma e o módulo como algo significativo , como " frmMain " para o formulário e " modTimer " para o módulo. No " (Geral) ( declarações )" Área de " modTimer " , declaram as seguintes funções do Windows: KillTimer , FindWindow , SetForegroundWindow . Cada uma destas funções é referenciado no Windows " user32 " biblioteca.

Private Declare Function KillTimer Lib " user32 " ( ByVal hWnd As Long , ByVal nIDEvent As Long ) As Long

Private Declare Function FindWindow Lib " user32 " Alias ​​" FindWindowA " (ByVal lpClassName As String , ByVal lpWindowName As String ) As Long

Declare Function privada SetForegroundWindow Lib " user32 " (ByVal hWnd As Long ) As Long

3

Declare uma constante que será recebida para fechar a caixa de mensagem . A declaração constante é "Public Const NV_CLOSEMSGBOX As Long = & H5000 & ". Definem também uma sub-rotina de chamada " TimerSub " em " modTimer . " A declaração de " TimerSub " parece :

Public Sub TimerSub (ByVal hWnd As Long , ByVal uMsg As Long , ByVal idEvent As Long , ByVal dwTime As Long )
4

Morte qualquer outro temporizador pela primeira vez no " TimerSub " para se certificar de que o novo temporizador é o único ativo. A função é " KillTimer ". Em seguida, verifique o valor de " idEvent " para ver se é igual a " NV_CLOSEMSGBOX ". Se assim for, encontrar a caixa de mensagem com " FindWindow " e envie a tecla " Enter" para a caixa de mensagem usando " SendKeys ". Isto irá forçar o botão padrão clique para executar e, assim, fechar a caixa de mensagem.
5

Teste a funcionalidade definida em " TimerSub " , adicionando um botão para " frmMain . " No código de evento de clique de botão , ajustar o timer :

SetTimer hWnd, NV_CLOSEMSGBOX , 5000, AddressOf TimerProc

Isto irá forçar a caixa de mensagem para fechar em 5000 milissegundos ou 5 segundos. Selecione "Run" e "Start " no menu em VB para executar o programa .