Hvordan Sentrer en meldingsboks i Visual Basic

Microsoft Visual Basic-kontroller kan du vise program meldinger i en bruker skjema dialogboksen. Du bruker meldingsbokser når du ønsker å spørre brukeren et spørsmål eller for å vise en feilmelding og informere brukeren om mulige løsninger på problemet. De koordinere parametrene for en form gir deg muligheten til å bestemme sin posisjon i det åpne vinduet. Ved å plassere en meldingsboks i sentrum av en Visual Basic-skjema, kan du gjøre teksten mer synlig for brukeren.

Bruksanvisning

1 Klikk på Start i Windows, og klikk deretter på "Microsoft Visual Studio."

2 Klikk "Fil" og deretter "Ny" for å opprette standard "Form1" form.

3 Legg til følgende kode i det åpne vinduet:

Type RECT

Left As Long

Top As Long

Høyre As Long

Bottom As Long

End Type

Public Declare Function SetWindowPos Lib "User32" ()

Public Declare Function GetWindowRect Lib "User32" (ByVal hwnd Slik situasjonen Long, lpRect As RECT) As Long

Funksjon WinProc2 (ByVal lMsg As Long, ByVal wParam As Long, _ByVal lParam As Long) As Long

Dim rectForm Som RECT, rectMsg Som RECT

Dim x As Long, og As Long

'On HCBT_ACTIVATE, viser MsgBox sentrert over Form1

If lMsg = HCBT_ACTIVATE Then

"Få koordinatene til skjemaet og meldingsboksen

'For å bestemme senteret av formen plassering

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)

'Plasser MsgBox

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

SWP_NOSIZE Eller SWP_NOZORDER Eller SWP_NOACTIVATE

End Function

Private Sub Command2_Click ()

Dim hInst As Long

Dim Tråd As Long

'Vis meldingsboksen

"MsgBox" Denne meldingsboksen er plassert på (0,0). "

End Sub

4 Trykk på "F5" tasten for å kjøre programmet.

5 Klikk på "Command2" -knappen på skjemaet for å vise meldingen i sentrum av skjemaet. Klikk "OK" for å lukke meldingsboksen.