Πώς να εγκαταστήσετε ένα Μεγάλο Φόρμα Μέγεθος Με VB6

Windows Forms είναι η έξυπνη τεχνολογία client για το NET Framework . . Είναι μια επιλογή των διαχειριζόμενων βιβλιοθήκες οι οποίες απλοποιούν γενικές εργασίες εφαρμογής , όπως η ανάγνωση και τη γραφή στο σύστημα αρχείων . Στο Visual Studio , μπορείτε να δημιουργήσετε τα Windows Forms εφαρμογές που βασίζονται που δείχνουν πληροφορίες , δέχεται είσοδο και να επικοινωνούν με απομακρυσμένους υπολογιστές . Η φόρμα των Windows είναι μια οπτική διεπαφή όπου μπορείτε να δείτε πληροφορίες για τους χρήστες . Μπορείτε να προσθέσετε στοιχεία ελέγχου όπως κουμπιά ή πεδία κειμένου ή πλέγμα δεδομένων στη φόρμα . Δημιουργία φόρμας των Windows ή την προσθήκη μιας νέας μορφής παράθυρα σε ένα έργο είναι αρκετά απλή . Σε ορισμένες περιπτώσεις , ίσως χρειαστεί να αλλάξετε το μέγεθος ενός φόρμα για να χωρέσει μια μεγάλη οθόνη . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα " και " Visual Studio " για να εισάγετε το ολοκληρωμένο περιβάλλον ανάπτυξης . Επιλέξτε " Visual Basic" ως γλώσσα προγραμματισμού και το Έντυπο Αίτησης Windows, όπως τον τρόπο εφαρμογής . 2

Κάντε διπλό κλικ στο Form1.vb να εισάγετε τον κωδικό interface . Δημιουργήστε μια νέα λειτουργική μονάδα που ονομάζεται GetFormSize .
Εικόνων 3

Εισάγετε τον κωδικό στο νεοσύστατο ενότητα . Ορίστε hDC , IngRetVal , ScreenX , screeny , PixX και pixy που θα χρησιμοποιήσετε στον προγραμματισμό :

Dim hDc Όπως Long , lngRetVal Όπως LongDim ScreenX Όπως Variant , screeny Όπως VariantDim PixX Όπως Variant , pixy Όπως Variant
Φτηνές 4

Χρησιμοποιήστε GetDeviceCaps functon να αποκτήσει το μέγεθος της οθόνης σε pixels για X και Y :

ScreenX = GetDeviceCaps ( hDc , HORZRES ) screeny = GetDeviceCaps ( hDc , VERTRES )

Η λειτουργία GetDeviceCaps ανακτά πληροφορίες σχετίζονται με τη συσκευή για συγκεκριμένη συσκευή , όπως οθόνη . Έχει δύο επιχειρήματα HDC και HORZSIZE που αντιπροσωπεύει το πλάτος της φυσικής οθόνης
5

Εισάγετε GetDeviceCaps λειτουργία για να υπολογίσετε τη μετατροπή των pixels για X και Y : .

PixX = GetDeviceCaps ( hDc , LOGPIXELSX ) pixy = GetDeviceCaps ( hDc , LOGPIXELSY ) Μετατρέψτε τα pixels με τα σημεία μέσω του κωδικού : x = ( ScreenX /PixX ) * 72y = ( screeny /Pixy ) * 72
Η 6

Εισάγετε τον κωδικό μεταξύ μεταξύ Sub και End Sub για να αλλάξετε το μέγεθος του μορφή με βάση τα υπολογισμένα pixels για X και Y :

Dim x As Variant , y Όπως VariantGetFormSize x , yLoad Form1With Form1.Top = 0.Left = 0.Width = x.Height = yEnd WithForm1.Show
Η
εικόνων