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 .
