Ako do centra okno so správou , v jazyku Visual Basic

Microsoft Visual Basic ovládacie prvky umožňujú zobraziť správy programu v dialógovom okne používateľského formulára . Môžete použiť správou , ak chcete požiadať užívateľa otázku alebo zobraziť chybovú správu a informovať používateľov o možných riešení tohto problému . Súradníc parametre formulára vám možnosť zistiť svoju pozíciu v otvorenom okne . Umiestnením správou v centre formulári jazyka Visual Basic , môžete text lepšie viditeľný pre užívateľa . Pokyny dovolená 1

Kliknite na tlačidlo Štart v systéme Windows a potom kliknite na tlačidlo " Microsoft Visual Studio . "
2

Kliknite na " Súbor " a potom kliknite na tlačidlo " Nový" pre vytvorenie východiskovej " Form1 " forma
3

Pridajte nasledujúci kód v otvorenom okne : .

Typ obdĺžnika

Ľavá As Long

Top As dlhé

práve tak dlho ,

Spodná ako dlho

End Type

Public Declare Function SetWindowPos Lib " user32 " ( )

verejné declare Function GetWindowRect Lib " user32 " ( byval hwnd _As Long , lpRect Ako RECT ) As Long

funkcie WinProc2 ( byVal lMsg As Long , byVal wParam As Long , _ByVal lParam As Long ) As Long

Dim rectForm Ako RECT , rectMsg Ako RECT

Dim x As Long , y As Long

" na HCBT_ACTIVATE , zobrazí MsgBox sa sústredil na Form1

Ak lMsg = HCBT_ACTIVATE Potom

" Získať súradnice forme a okne so správou

" na určenie stredu lokality formulára

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 )

' Umiestnite MsgBox

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

SWP_NOSIZE Alebo SWP_NOZORDER Alebo SWP_NOACTIVATE

End Function

Private Sub Command2_Click ( )

Dim Hinšt As Long Dim

tému As Long

" Zobraziť v okne správy

" MsgBox " Táto správa box je umiestnený na ( 0,0 ) . "

End Sub
4

Stlačte " F5 " pre spustenie programu .
5

Kliknite tlačidlo " Command2 " na formulári zobrazí správu v stredu formy . Kliknite na tlačidlo " OK " zatvorte okno so správou .

• Predchádzajúca strana: Ako poslať funkcie správ v C 
• Ďalšia strana: Ako prispôsobiť MonthCalendar vo VB.NET