controles do Microsoft Visual Basic permitem exibir mensagens do programa em uma caixa de diálogo formulário de utilizador. Você pode usar caixas de mensagem quando você quer perguntar ao usuário uma pergunta ou para exibir uma mensagem de erro e informar o usuário sobre possíveis soluções para o problema. Os parâmetros de coordenadas de uma forma dar-lhe a capacidade de determinar a sua posição na janela aberta. Ao posicionar uma caixa de mensagem no centro de um formulário do Visual Basic, você pode tornar o texto mais visível para o usuário . Instruções
1
Clique em Iniciar no Windows e , em seguida, clique em " Microsoft Visual Studio. "
2
Clique em "Arquivo " e clique em "Novo" para criar o padrão " Form1 " formulário
3
Adicione o seguinte código na janela aberta : .
Tipo RECT
Esquerda as Long
Top Como longa
direito As Long inferior
As Long
Tipo End
SetWindowPos Public Declare Function Lib " user32 " ()
Pública Declare Function GetWindowRect Lib " user32 " (ByVal hwnd _AS longo, lpRect Como RECT ) As Long
Função WinProc2 (ByVal lMsg As Long , ByVal wParam As Long , lParam _ByVal As Long ) As Long
Dim rectform Como RECT , rectMsg Como RECT
Dim x as Long , y as Long
'On HCBT_ACTIVATE , mostram a MsgBox centrado sobre Form1
Se lMsg = HCBT_ACTIVATE seguida
'Get as coordenadas do formulário ea caixa de mensagem
' para determinar o centro do local formulário
GetWindowRect Form1.hWnd , rectform
GetWindowRect wParam , rectMsg
x = ( rectForm.Left + ( rectForm.Right - rectForm.Left ) /2) - _
( ( rectMsg.Right - rectMsg.Left ) /2)
y = ( rectForm.Top + ( rectForm.Bottom - rectForm.Top ) /2) - _
( ( rectMsg.Bottom - rectMsg.Top ) /2)
" Posicione o msgbox
SetWindowPos wParam , 0, x , y, 0, 0, _
SWP_NOSIZE Ou SWP_NOZORDER Ou SWP_NOACTIVATE
End Function
Private Sub Command2_Click ()
Dim hInst as Long
Dim linha as Long
' exibir a caixa de mensagem
' MsgBox " Esta caixa de mensagem é posicionada em (0,0). "
End Sub
4
Pressione a tecla" F5 " para executar o programa .
5
Clique na botão " Command2 " em forma para exibir a mensagem no centro da forma . Clique em "OK " para fechar a caixa de mensagem .
