Microsoft Visual Basic kontroller tillader dig at vise programmet meddelelser i en bruger formular dialogboks. Du bruger besked bokse , når du vil bede brugeren et spørgsmål eller for at få vist en fejlmeddelelse, og informerer brugeren om mulige løsninger på problemet . De koordinat parametre for en formular giver dig mulighed for at bestemme sin position i det åbne vindue . Ved at placere en besked boks i midten af en Visual Basic formular, kan du gøre teksten mere synlig for brugeren . Instruktioner
1
Klik på Start i Windows , og klik derefter på "Microsoft Visual Studio ".
2
Klik på " File" og derefter klikke på "Ny " for at oprette et standard " Form1 . " formular
3
Føj følgende kode i det åbne vindue : Hej
Type RECT
Venstre As Long
Top Som lang
Right As Long
Bottom As Long
End Type
Public Erklær Funktion SetWindowPos Lib " User32 " ( )
Public Erklær Funktion GetWindowRect Lib " User32 " ( ByVal HWND _As Lang, lpRect Som RECT ) As Long
Function WinProc2 ( ByVal lMsg As Long , ByVal wParam As Long , _ByVal lParam As Long ) As Long
< p > Dim rectForm Som RECT , rectMsg Som RECT
Dim x As Long , y As Long
'On HCBT_ACTIVATE , viser MsgBox centreret over Form1
p Hvis lMsg = HCBT_ACTIVATE Derefter
'get koordinaterne for formen og besked boks
' at bestemme centrum af formen location in
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 > ' Placer MsgBox
SetWindowPos wParam , 0, x , y, 0, 0, _
SWP_NOSIZE Eller SWP_NOZORDER Eller SWP_NOACTIVATE
End Function
< p > Private Sub Command2_Click ()
Dim hInst As Long
Dim tråd As Long
'Vis meddelelsesfeltet
' MsgBox "Denne meddelelse boks er positioneret på ( 0,0) . "
End Sub
4
Tryk på" F5 "for at køre programmet.
5.
Klik " Command2 "-knappen på formularen for at vise beskeden i midten af formen. Klik på " OK" for at lukke meddelelsen kassen.