Visual controlli di base, consentono di visualizzare messaggi di programma in una finestra di dialogo modulo utente . Si utilizza finestre di messaggio quando si vuole chiedere all'utente una domanda o per visualizzare un messaggio di errore e informare l'utente su possibili soluzioni per il problema . I parametri delle coordinate di un modulo ti danno la capacità di determinare la propria posizione nella finestra aperta . Posizionando una finestra di messaggio al centro di un modulo di Visual Basic, è possibile rendere il testo più visibili per l'utente . Istruzioni
1
Fare clic su Start in Windows e quindi fare clic su "Microsoft Visual Studio ".
2
Fare clic su " File" e quindi fare clic su "Nuovo" per creare il valore predefinito " Form1 . " forma
3
Aggiungere il seguente codice nella finestra aperta :
Tipo RETT
Sinistra As Long
Top Come lungo
giusto il tempo
inferiore As Long
End Type
Public Declare Function SetWindowPos Lib " user32" ( ) per
pubblico Declare Function GetWindowRect Lib " user32" ( ByVal hwnd _AS lungo, lpRect Come RETT ) As Long
Funzione WinProc2 ( lMsg ByVal come lungamente, wParam ByVal come lungamente, lParam _ByVal As Long ) As Long
< p > Dim rectForm Come RETT , rectMsg Come RECT
Dim x As Long , y As Long
'On HCBT_ACTIVATE , mostrare il MsgBox centrato sul Form1
lMsg = HCBT_ACTIVATE Poi
'Ottieni le coordinate della forma e il messaggio di dialogo
' per determinare il centro del modulo posizione
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 ) per < p > 'Posizione del msgbox
SetWindowPos wParam , 0 , x , y , 0 , 0 , _
SWP_NOSIZE O SWP_NOZORDER O SWP_NOACTIVATE
End Function
< p > private Sub Command2_Click ( ) per
Dim hInst As Long
Dim filetto As Long
' visualizzare il messaggio di dialogo
' MsgBox " Questa finestra di messaggio è coordinate (0,0 ) . tasto "
End Sub
4 Premere il tasto" F5 " per eseguire il programma .
5
Fare clic sul pulsante " Command2 " sulla forma per visualizzare il messaggio al centro della forma . Fare clic su " OK" per chiudere la finestra di messaggio .
