1
Haga clic en Inicio en Windows y después haga clic en " Microsoft Visual Studio ".
2 Haga clic en " Archivo" y luego haga clic en " Nuevo" para crear el valor por defecto " Form1 . "forma
3
Agregue el código siguiente en la ventana abierta :
Tipo RECT
Izquierda As Long
Top Como largo
derecho siempre
Bottom As Long
Tipo de terminación de
Public Declare Function SetWindowPos Lib " user32 " ()
Pública Declare Function GetWindowRect Lib " user32 " ( ByVal hwnd _Como largo, lpRect Como RECT ) As Long
Función WinProc2 ( LMSG ByVal As Long , ByVal As Long wParam , lParam _ByVal As Long ) As Long
< p > Dim rectform Como RECT , rectMsg Como RECT
Dim x As Long , y As Long
'On HCBT_ACTIVATE , muestran el MsgBox centrado sobre Form1
Si LMSG = HCBT_ACTIVATE Entonces
'Obtener las coordenadas de la forma y el cuadro de mensaje
' para determinar el centro de la forma de ubicación y
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 )
< p > ' Posición del msgbox
SetWindowPos wParam , 0 , x, y, 0 , 0, _
SWP_NOSIZE O SWP_NOZORDER O SWP_NOACTIVATE
End Function
< p > Private Sub Command2_Click ()
hInst Dim As Long
Tema Dim As Long
' Muestra el cuadro de mensaje
' MsgBox " Este buzón de mensajes se colocado en (0,0 ) . tecla "
End Sub
4
Pulse la tecla" F5 "para ejecutar el programa.
5
Haga clic en el botón " Command2 " en la forma de mostrar el mensaje en el centro de la forma . Haga clic en " Aceptar " para cerrar el cuadro de mensaje .