Cómo centrar un cuadro de mensaje en Visual Basic

controles de Microsoft Visual Basic permite visualizar los mensajes del programa en un cuadro de diálogo de formulario de usuario. Utilice los cuadros de mensaje cuando se quiere pedir al usuario una pregunta o para mostrar un mensaje de error e informar al usuario acerca de las posibles soluciones para el problema. Los parámetros de las coordenadas de un formulario que le dan la capacidad de determinar su posición en la ventana abierta. Mediante la colocación de un cuadro de mensaje en el centro de un formulario de Visual Basic, puede hacer que el texto sea más visible para el usuario . Instrucciones
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 .