Ako zmeniť veľkosť Visual Basic formulár , aby sa vošli na obrazovku

Pri navrhovaní formulára v jazyku Visual Basic , môžete rozhodnúť o ideálnej veľkosti a podľa toho vytvoriť formulár . Ak ste obmedziť prístup užívateľov z veľkosti formulára , mali by ste vysvetliť , čo sa s ním stane , ak užívateľ re- veľkosti obrazovky alebo ako sa váš formulár pre užívateľov s rôznym rozlíšením obrazovky , než svoje vlastné . Môžete napísať sub , ktorý re- veľkosti formulára a jeho ovládacie prvky a volať sub , kedykoľvek budete potrebovať . Pokyny dovolená 1

Otvorte okno kód vášho projektu . Vyhlásiť nové Private Sub a vytvoriť dve premenné držať hodnoty X a Y pre re- veľkosti :

Private Sub ResizeForm ( byval formulár )

Dim XSize As Integer

Dim YSize As Integer
2

Zadajte nasledujúce riadky , prvý, aby sa zabránilo zrúteniu programu pre ovládacie prvky , ktoré nemôžu byť re - veľkosti a druhý , aby sa zabránilo opätovnému veľkosti od vyskytujúce sa v prípade , že formulár je už minimalizácia alebo maximalizácia :

On Error Resume Next

Ak Form.WindowState < > 0 Then Exit Sub
3

Zadajte nasledujúce riadky pre nastavenie pôvod re- veľkosti formulára ( ľavý horný roh formulára ) na ľavom hornom rohu obrazovky , a zväčšiť formulár sám :

Me.Top = 0

Me.Left = 0

Me.Height = Me.Height * YSize

Me.Width = Me.Width * XSize
4

Enter nasledujúce riadky prechádzať ovládacích prvkov prítomných na formulári k re - size im , a nakoniec ponorku . To bude re - veľkosť šírky a výšky niekoľkých ovládacích prvkov a pritom udržať ich zarovnanie bezo zmeny : klipart

i = 0 Me.Controls.Count - 1

Me.Controls ( i ) . ľavé = Me.Controls ( i ) . Ľavá * XSize

Me.Controls ( i ) . Top = Me.Controls ( i ) . Top * YSize

Me.Controls ( i ) . výška = Me.Controls ( i ) . výška * YSize

Me.Controls ( i ) . šírka = Me.Controls ( i ) . Šírka * XSize

Next i

End Sub

• Predchádzajúca strana: Ako pracovať s Políčka v jazyku Visual Basic 
• Ďalšia strana: Aké sú WordPerfect makrá ?