Come Centro di una finestra di messaggio in Visual Basic

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

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

'Posizione del msgbox

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

SWP_NOSIZE O SWP_NOZORDER O SWP_NOACTIVATE

End Function

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 .

• Come inviare un messaggio di funzione in C 
• Come personalizzare un MonthCalendar in VB.NET