Microsoft Visual Basic -kontroller kan du visa programmets meddelanden i ett användarvänligt formulär dialogruta . Du använder meddelanderutor när du vill be användaren en fråga eller att visa ett felmeddelande och informera användaren om möjliga lösningar på problemet . De koordinerade parametrarna för ett formulär ger dig möjlighet att bestämma sin position i det öppna fönstret . Genom att placera ett meddelande rutan i mitten av ett Visual Basic formulär , kan du göra texten mer synliga för användaren . Instruktioner
1
Klicka på Start i Windows och klicka sedan på " Microsoft Visual Studio . "
2
Klicka på " File " och klicka sedan på " Ny " för att skapa standard " Form1 . " formen
3
Lägg till följande kod i det öppna fönstret :
Typ RECT
Vänster As Long
Top Som lång
Right As Long
Botten As Long
End Typ
Public Declare Function SetWindowPos Lib " User32 " ( ) katalog
Public deklarera Funktion GetWindowRect Lib " User32 " ( ByVal HWND _As Long , lpRect Som RECT ) As Long
Funktion 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 , y As Long
'On HCBT_ACTIVATE , visar MsgBox centrerad över Form1
p Om lMsg = HCBT_ACTIVATE sedan
"få koordinaterna för formen och meddelanderutan
" för att avgöra i mitten av formuläret plats
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 ) katalog
' Placera MsgBox
SetWindowPos wParam , 0 , x, y , 0 , 0 , _
SWP_NOSIZE Eller SWP_NOZORDER Eller SWP_NOACTIVATE
Funktion
End
Private Sub Command2_Click ( ) katalog
Dim hInst As Long
Dim Thread As Long
'Visa meddelanderutan
" MsgBox " Detta meddelande rutan är placerad vid ( 0,0 ) . "
End Sub
4
Tryck på " F5 "för att köra programmet .
5
Klicka på " Kommando2 " knappen på formuläret för att visa meddelandet i mitten av formen . Klicka på " OK " för att stänga meddelanderutan .
