. Visual Basic NET , eller VB.NET , er et programmeringsspråk implementert på NET Framework . . Du kan bruke VB.NET å lage komplekse former. Men, et skjema som er opprettet for standard VGA-oppløsning ( 640 x 480 ) tar bare en del av skjermen på en høyere oppløsning . Selv om dette er normalt , kan du vil at skjemaet skal ha en størrelse og posisjon proporsjonal med oppløsning . Disse formene kalles oppløsning - uavhengig rammer og er relativt enkelt å lage. Du trenger
Visual Basic, noen versjon
Vis flere instruksjoner
en
Høyreklikk hvor som helst på skrivebordet og velg " Properties". Gå til "Innstillinger "-fanen og endre skjermoppløsningen til " 800 x 600 ". Du vil bruke denne lille vedtak om å opprette oppløsning-uavhengig ramme .
2
Åpen Visual Studio og starte et nytt prosjekt . Den " Form1 " form opprettes automatisk
3
Gå til skjemaets modulen og lim inn koden for å gjøre skjemaet oppløsning-uavhengig : .
Option Explicit
Dim MyForm Som FRMSIZE
Dim DesignX As Integer
Dim designy As Integer
Private Sub Form_Load ( )
Dim ScaleFactorX Som Single, ScaleFactorY som single ' Skaleringsfaktorer
' Størrelse Form i piksler på utforming oppløsning
DesignX = 800
designy = 600
RePosForm = Sant 'Flag for posisjonering Form
DoResize = False 'Flag for Resize begivenhet
' Sett opp skjermen verdsetter
Xtwips = Screen.TwipsPerPixelX
Ytwips = Screen.TwipsPerPixelY
Ypixels = Screen.Height /Ytwips ' Y pikslers oppløsning
Xpixels = Screen.Width /Xtwips ' X Pixel Resolution
' Bestem skaleringsfaktorene
ScaleFactorX = ( Xpixels /DesignX )
ScaleFactorY = ( Ypixels /designy )
ScaleMode = 1 ' twips
' Exit Sub ' uncomment å se hvordan Form1 ser ut uten å endre størrelse
Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me
Label1.Caption = "Gjeldende vedtak er " & Str $ ( Xpixels ) + _
"av " + Str $ ( Ypixels )
MyForm.Height = Me.Height ' Husk gjeldende størrelse
MyForm.Width = Me.Width
End Sub
Private Sub Form_Resize ( )
Dim ScaleFactorX Som Single, ScaleFactorY Som Enkel
p Hvis ikke DoResize Then ' For å unngå uendelig løkke
DoResize = sant
Exit Sub
< p > End If
RePosForm = False
ScaleFactorX = Me.Width /MyForm.Width ' Hvor mye endring ?
ScaleFactorY = Me.Height /MyForm.Height
Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me
MyForm.Height = Me.Height ' Husk gjeldende størrelse
MyForm.Width = Me.Width
End Sub
Private Sub Command1_Click ( )
Dim ScaleFactorX Som Single, ScaleFactorY Som Enkel
DesignX = Xpixels
designy = Ypixels
RePosForm = sant
DoResize = False
' Sett opp skjermen verdsetter
Xtwips = Screen.TwipsPerPixelX
Ytwips = Screen.TwipsPerPixelY
Ypixels = Screen.Height /Ytwips ' Y pikslers oppløsning
Xpixels = Screen.Width /Xtwips ' X Pixel Resolution
' Bestem skaleringsfaktorene
ScaleFactorX = ( Xpixels /DesignX )
ScaleFactorY = ( Ypixels /designy )
Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me
Label1.Caption = "Gjeldende vedtak er " & Str $ ( Xpixels ) + _
"av " + Str $ ( Ypixels )
MyForm.Height = Me.Height ' Husk gjeldende størrelse
MyForm.Width = Me.Width
End Sub
4
Legg alle kontrollene du ønsker å teste til skjemaet . Du kan legge til etiketter , kommando knapper og bilde bokser . Du må gjøre dette for å teste om alle elementer på skjemaet justere størrelsen riktig .
5
Gå til "Project "-menyen og velg " Legg Module ...." Klikk på " Add" for å legge den nye modulen i prosjektet
6
Gå til den nye modulen og lim inn koden for å automatisk justere proporsjonene av skjemaet i forhold til skjermoppløsning: .
< p > Offentlige Xtwips As Integer , Ytwips som heltall
offentlige Xpixels As Integer , Ypixels As Integer
Type FRMSIZE
Høyde As Long
Bredde As Long
End Type
