Πώς να δημιουργήσετε ένα ψήφισμα Independent Frame σε VB.NET

. Visual Basic NET , ή VB.NET , είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που εφαρμόζονται στο NET Framework . . Μπορείτε να χρησιμοποιήσετε το VB.NET για να δημιουργήσετε σύνθετες μορφές . Ωστόσο? Μια μορφή που δημιουργήθηκε για την τυπική ανάλυση VGA ( 640 x 480) παίρνει μόνο ένα μέρος της οθόνης σε υψηλότερη ανάλυση . Αν και αυτό είναι φυσιολογικό , μπορεί να θέλετε η φόρμα να έχει ένα μέγεθος και τη θέση ανάλογη με το ψήφισμα . Αυτές οι μορφές που καλούνται πλαίσια ψήφισμα - ανεξάρτητες και είναι σχετικά εύκολο να δημιουργηθούν . Τα πράγματα που θα χρειαστείτε
Visual Basic , οποιαδήποτε έκδοση
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Κάντε δεξί κλικ οπουδήποτε στην επιφάνεια εργασίας σας και επιλέξτε " Ιδιότητες". Πηγαίνετε το την καρτέλα " Ρυθμίσεις" και να αλλάξετε την ανάλυση της οθόνης σε " 800 x 600 . " Θα χρησιμοποιήσετε αυτήν τη μικρή ανάλυση για να δημιουργήσετε το ψήφισμα - ανεξάρτητο πλαίσιο . 2

Ανοίξτε το Visual Studio και να ξεκινήσετε ένα νέο έργο . Το έντυπο " Φόρμα1 " δημιουργείται αυτόματα
εικόνων 3

Μετάβαση στην μονάδα της φόρμας και να επικολλήσετε τον κώδικα για να κάνουν τη φόρμα ψήφισμα - ανεξάρτητες : .

Option Explicit

Dim MyForm Όπως FRMSIZE

Dim DesignX As Integer

Dim designy As Integer

Private Sub Form_Load ( )

Dim ScaleFactorX As Single , ScaleFactorY Όπως Single ' παράγοντες κλιμάκωσης

«Μέγεθος Μορφή στην Pixels σε ανάλυση σχεδιασμού

DesignX = 800

designy = 600

RePosForm = True' Σημαία για Μορφή θέσης

DoResize = False ' Σημαία για Resize Event

« Ρύθμιση των τιμών οθόνης

Xtwips = Screen.TwipsPerPixelX

Ytwips = Screen.TwipsPerPixelY

Ypixels = Screen.Height /Ytwips « Y Pixel ψήφισμα

Xpixels = Screen.Width /Xtwips « Pixel ψήφισμα X

« Καθορισμός των συντελεστών κλίμακας

ScaleFactorX = ( Xpixels /DesignX )

ScaleFactorY = ( Ypixels /designy )

ScaleMode = 1 ' twips

« Exit Sub ' uncomment να δείτε πώς φαίνεται Form1 χωρίς αλλαγή μεγέθους

Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me

Label1.Caption = " Η τρέχουσα ανάλυση είναι " & Str $ ( Xpixels ) + _

" από " + Str $ ( Ypixels )

MyForm.Height = Me.Height « Θυμηθείτε το τρέχον μέγεθος

MyForm.Width = Me.Width

End Sub

Private Sub Form_Resize ( )

Dim ScaleFactorX As Single , ScaleFactorY As Single

Αν όχι DoResize συνέχεια «Για να αποφευχθεί άπειρο βρόχο

DoResize = True

Exit Sub

End If

RePosForm = False

ScaleFactorX = Me.Width /MyForm.Width « Πόσο αλλαγή;

ScaleFactorY = Me.Height /MyForm.Height

Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me

MyForm.Height = Me.Height « Θυμηθείτε το τρέχον μέγεθος

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

« Ρύθμιση των τιμών οθόνης

Xtwips = Screen.TwipsPerPixelX

Ytwips = Screen.TwipsPerPixelY

Ypixels = Screen.Height /Ytwips « Y Pixel Ανάλυση

Xpixels = Screen.Width /Xtwips « Pixel ψήφισμα X

« Καθορισμός των συντελεστών κλίμακας

ScaleFactorX = ( Xpixels /DesignX )

ScaleFactorY = ( Ypixels /designy )

Resize_For_Resolution ScaleFactorX , ScaleFactorY , Me

Label1.Caption = " Η τρέχουσα ανάλυση είναι " & Str $ ( Xpixels ) + _

" από " + Str $ ( Ypixels )

MyForm.Height = Me.Height « Θυμηθείτε το τρέχον μέγεθος

MyForm.Width = Me.Width

End Sub
Η 4

Προσθέστε όλα τα στοιχεία ελέγχου που θέλετε να δοκιμάσετε στη φόρμα . Μπορείτε να προσθέσετε ετικέτες , κουμπιά εντολών και πλαίσια εικόνας . Θα πρέπει να το κάνετε για να ελέγξετε αν όλα τα στοιχεία στη φόρμα σας να προσαρμοστεί το μέγεθός τους σωστά.
5

Πηγαίνετε στο μενού "Έργο" και επιλέξτε "Προσθήκη Module .... " Κάντε κλικ στην επιλογή " Προσθήκη " για να προσθέσετε τη νέα μονάδα στο έργο σας
Η 6

Μεταβείτε στη νέα λειτουργική μονάδα και να επικολλήσετε τον κώδικα για να ρυθμίζει αυτόματα τις αναλογίες της φόρμας σας σε σχέση με την ανάλυση της οθόνης : .

Δημόσιες Xtwips As Integer , Ytwips As Integer

Δημόσια Xpixels As Integer , Ypixels As Integer

Τύπος FRMSIZE

Ύψος Όπως Long

Πλάτος Όπως Long

End Type

Δημόσια RePosForm Όπως Boolean

Δημόσια DoResize Όπως Boolean

Sub Resize_For_Resolution ( ByVal SFX As Single , _

ByVal SFY As Single , MyForm Όπως Μορφή )

Dim I As Integer

Dim SFFont As Single

SFFont = ( SFX + SFY ) /2 «μέση κλίμακα

' Μέγεθος οι έλεγχοι για το νέο ψήφισμα

On Error Resume Next ' για read-only ή ανύπαρκτες ιδιότητες

Με MyForm

για I = 0 να μετρήσετε . - 1

Αν Έλεγχοι typeof . ( Ι) Είναι σύνθετο πλαίσιο Στη συνέχεια, « δεν μπορεί να αλλάξει Ύψος

. Controls (Ι ) . Αριστερά = Controls . (Ι ) . Αριστερά * SFX

. Controls (Ι ) . Top = Controls . (Ι ) . Top * SFY

. Controls (Ι ) . Πλάτος = Controls . (Ι ) . Πλάτος * SFX

Else
Έλεγχοι

. Controls ( Ι) . Μετακινήστε . Controls (Ι ) . Αριστερά * SFX , _

. (Ι ) . Top * SFY , Έλεγχοι _

. ( Ι) . Έλεγχοι Έλεγχοι πλάτος * SFX , _

. (Ι ) . Ύψος * SFY

End If

' αλλαγή μεγέθους και να επανατοποθετηθεί πριν από την αλλαγή του fontsize

. (Ι ) . fontsize = Controls . (Ι ) . fontsize * SFFont

Επόμενος

Αν RePosForm τότε

« τώρα το μέγεθος της φόρμας

. Μετακίνηση . Αριστερά * SFX , . Top * SFY , . Πλάτος * SFX , . Ύψος * SFY

End If End

Με

End Sub
Η 7

Δοκιμάστε νέα φόρμα σας με το τρέξιμο κάτω από διαφορετικές αναλύσεις οθόνης . Θα πρέπει να αναλάβουν την ίδια περιοχή της επιφάνειας εργασίας και να διατηρήσει τη θέση του .
Η
εικόνων