. Visual Basic NET oder VB.NET, ist ein Computer- Programmiersprache auf der NET Framework implementiert. . Sie können bis zu komplexen Formen VB.NET erstellen. Allerdings, ein Formular für die Standard-VGA- Auflösung (640 x 480) erstellt nimmt nur einen Teil des Bildschirms mit einer höheren Auflösung . Dies ist zwar normal, möchten Sie vielleicht die Form , die Größe und die Position proportional mit der Auflösung haben . Diese Formen werden als unabhängig von der Auflösung Frames und sind relativ einfach zu erstellen . Things You
Visual Basic brauchen , jede Version
anzeigen Weitere Anweisungen
1
überall rechten Maustaste auf Ihrem Desktop und wählen Sie " Eigenschaften". Gehen Sie in das Register "Einstellungen" und ändern Sie die Bildschirmauflösung auf "800 x 600 ". Sie werden diese kleine Auflösung , um die Auflösung unabhängig Frame erstellen.
2
Öffnen Sie Visual Studio und starten ein neues Projekt. . Die " Form1 " Form wird automatisch erstellt
3
um das Modul des Formulars gehen und fügen Sie den Code, um die Form unabhängig von der Auflösung :
Option Explicit
Dim MyForm Wie FRMSIZE
Dim DesignX As Integer Dim
Designy As Integer
private Sub Form_Load () Dim
ScaleFactorX As Single , ScaleFactorY als Single ' Scaling Faktoren
' Grösse des Formulars in Pixel an Auflösung
Design
DesignX = 800
Designy = 600
RePosForm = True ' Flag für Positionierung Formular
DoResize = False ' Flag für Resize Ereignis
' Einrichten der Bildschirm schätzt
Xtwips = Screen.TwipsPerPixelX
Ytwips = Screen.TwipsPerPixelY
Ypixels = Screen.Height /Ytwips 'Y Pixel Auflösung
Xpixels = screen.width /Xtwips ' X Pixel Auflösung
'Bestimmen Skalierungsfaktoren
ScaleFactorX = ( Xpixels /DesignX )
ScaleFactorY = ( Ypixels /Designy )
ScaleMode = 1 ' twips
' Exit Sub ' kommentieren zu sehen, wie Form1 ohne Größenänderung aussieht
Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me
Label1.Caption = " Aktuelle Auflösung ist" & Str $ ( Xpixels ) + _
"durch" + Str $ ( Ypixels )
MyForm.Height = Me.Height " Denken Sie an die aktuelle Größe
MyForm.Width = Me.Width
End Sub private Sub
Form_Resize ()
Dim ScaleFactorX As Single , ScaleFactorY As Single
Wenn nicht, dann DoResize 'To Endlosschleife
DoResize vermeiden = True Exit Sub
< p > End If
RePosForm = False
ScaleFactorX = Me.Width /MyForm.Width " Wie viel Veränderung?
ScaleFactorY = Me.Height /MyForm.Height
Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me
MyForm.Height = Me.Height " Denken Sie an die aktuelle Größe
MyForm.Width = Me.Width
End Sub
private Sub Command1_Click () Dim
ScaleFactorX As Single , ScaleFactorY As Single
DesignX = Xpixels
Designy = Ypixels
RePosForm = True
DoResize = False
'Einrichten der Bildschirm schätzt
Xtwips = Screen.TwipsPerPixelX
Ytwips = Screen.TwipsPerPixelY
Ypixels = Screen.Height /Ytwips 'Y Pixel Auflösung
Xpixels = screen.width /Xtwips ' X Pixel Auflösung
'Bestimmen Skalierungsfaktoren
ScaleFactorX = ( Xpixels /DesignX )
ScaleFactorY = ( Ypixels /Designy )
Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me
Label1.Caption = " Aktuelle Auflösung ist" & Str $ ( Xpixels ) + _
"durch" + Str $ ( Ypixels )
MyForm.Height = Me.Height 'Remember die aktuelle Größe
MyForm.Width = Me.Width
End Sub
4
Fügen Sie alle Steuerelemente, die Sie wollen, um die Form zu testen. Sie können Etiketten, Schaltflächen und Bildrahmen . Sie müssen dies tun , um zu testen , ob alle Elemente auf dem Formular passen ihre Größe richtig .
5
dem Menü "Projekt" und wählen Sie " Modul hinzufügen .... " Klicken Sie auf " Hinzufügen", um das neue Modul zu Ihrem Projekt hinzuzufügen
6
Zum neues Modul und fügen Sie den Code zur automatischen Anpassung der Proportionen der Form in Bezug auf Bildschirmauflösung : .
< p > Public Xtwips As Integer , Ytwips As Integer
Öffentliche Xpixels As Integer , FRMSIZE Ypixels As Integer
Typ
