Cómo centrar un cuadro de mensaje en Visual Basic

Microsoft Visual Basic controles le permiten mostrar mensajes de programa en un cuadro de diálogo formulario de usuario. Se utiliza 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 coordenadas de una forma 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 en "Nuevo" para crear el formulario predeterminado "Form1".

3 Agregue el código siguiente en la ventana abierta:

tipo RECT

Left As Long

Top As Long

Derecho siempre

Como parte inferior larga

Tipo fin

Public Declare Function SetWindowPos Lib "user32" ()

Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd _Como largo, lpRect Como RECT) As Long

Función WinProc2 (ByVal LMSG As Long, ByVal wParam como de largo, _ByVal IParam As Long) As Long

Dim rectform Como RECT, rectMsg Como RECT

Dim x As Long, y como de largo

'En HCBT_ACTIVATE, mostrar el MsgBox centrado sobre Form1

If lMsg = HCBT_ACTIVATE Then

'Obtener las coordenadas de la forma y el cuadro de mensaje

'Para determinar el centro de la ubicación forma

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)

'Coloque el MsgBox

SetWindowPos wParam, 0, x, y, 0, 0, _

SWP_NOSIZE O SWP_NOZORDER O SWP_NOACTIVATE

End Function

Private Sub Comando2_Click ()

Dim hInst As Long

Tema Dim As Long

'Muestra el cuadro de mensaje

'MsgBox "Este cuadro de mensaje se coloca en (0,0)."

End Sub

4 Pulse la tecla "F5" para ejecutar el programa.

5 Haga clic en el botón "Comando2" en el formulario para mostrar el mensaje en el centro de la forma. Haga clic en "Aceptar" para cerrar el cuadro de mensaje.