Microsoft Visual Basic -besturingselementen kunt u programmeren berichten in een gebruikers formulier dialoogvenster weer te geven . U gebruikt berichtvakjes wanneer u wilt de gebruiker een vraag stellen aan of een foutbericht weergegeven en de gebruiker informeren over mogelijke oplossingen voor het probleem . De coördinaat parameters van een formulier geeft u de mogelijkheid om haar positie in het open raam te bepalen . Door het plaatsen van een bericht in het centrum van een Visual Basic- formulier , kunt u de tekst beter zichtbaar voor de gebruiker te maken . Instructies
1 Klik op Start in Windows en klik vervolgens op " Microsoft Visual Studio . " Kopen van 2 Klik op " File " en vervolgens op " Nieuw " om de standaard " Form1 maken . " vorm
3 Voeg de volgende code in het open raam : Type RECT
Links As Long Top of als lange Rechts
As Long Bottom
As Long End Type Public
Declare Function SetWindowPos Lib " user32 " ( ) Public
Declare Function GetWindowRect Lib " user32 " ( ByVal hwnd _As Long , lpRect Als RECT ) zoals lang Functie WinProc2 ( ByVal lMsg zoals lang, ByVal wParam zoals lang, _ByVal lParam As Long ) op As Long
Dim rectForm Zoals RECT , rectMsg Zoals RECT Dim x
As Long , y As Long
' On HCBT_ACTIVATE , tonen de MsgBox gecentreerd over Form1
Als lMsg = HCBT_ACTIVATE dan
' de coördinaten van het formulier en de message box
Get' naar het midden van het formulier locatie
GetWindowRect Form1.hwnd , rectForm
bepalen 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 ) op ' Positie van de msgbox
SetWindowPos wParam , 0 , x , y , 0 , 0 , _ SWP_NOSIZE Of SWP_NOZORDER
Of SWP_NOACTIVATE End Function
Private Sub Command2_Click ( ) Dim hInst
zoals lang Dim Thread
zoals lang
' Geef het bericht doos
' MsgBox "Dit bericht doos is gepositioneerd op (0,0 ) . " End Sub
Press Goedkope 4 de " F5 " toets om het programma uit te voeren .
5 Klik op de " Command2 " knop op het formulier om het bericht weer in het midden van het formulier . Klik op " OK " om het berichtvenster te sluiten .
|
