Πώς να δημιουργήσετε μια φόρμα σε Διάρκεια σε VB6

Visual Basic 6 ( VB6 ) μπορεί να χρησιμοποιηθεί για να αναπτυχθούν πολλές και διαφορετικές εφαρμογές για τα Microsoft Windows που βασίζονται σε υπολογιστικές πλατφόρμες . Δημιουργώντας μια νέα μορφή για την εφαρμογή χρήστη κατά τη στιγμή που η εφαρμογή αρχίζει να τρέχει , ή « εκτέλεσης », είναι μια άσκηση ορθής πρακτικής για τους αρχάριους προγραμματιστές VB6 που πρέπει να μάθουν να παρουσιάσει στους χρήστες τους με τις επιλογές εφαρμογής κατά το χρόνο της αίτησης ξεκινά στις επιφάνεια εργασίας του χρήστη . Οδηγίες
Η 1

Δημιουργήστε μια λίστα των global μεταβλητών για τη λίστα που ακολουθεί, για παράδειγμα :

Option Explicit Private

allowNumericOnly Όπως Boolean

Ιδιωτική frm Όπως Φόρμα

Private lblDisplay Όπως Button

ιδιωτικούς WithEvents cmdOK Όπως CommandButton

Private WithEvents cmdCancel Όπως CommandButton

Private WithEvents textInput Όπως TextBox
Φτηνές 2

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

Private Sub GenerateRuntimeForm ( )

Dim ctrl Όπως Ελέγχου

Set frm = Νέο Έντυπο 1

Set cmdOK = Τίποτα

Set cmdCancel = Τίποτα

Set textInput = Τίποτα

Set lblDisplay = Τίποτα

For Each ctrl Σε frm

ctrl.Visible = False

Επόμενο
εικόνων 3

Ρυθμίστε τις διαφορετικές εντολές για τα κουμπιά , χρησιμοποιώντας τον ακόλουθο κώδικα ως βάση για το έργο σας :

Set cmdOK =

frm.Controls.Add ( " VB.CommandButton " , " cmdOK " )

Σετ cmdCancel =

frm.Controls.Add ( " VB.CommandButton " , " cmdCancel " )

Σετ txtInput =

frm.Controls.Add ( " VB.TextBox " , " txtInput " )
Η 4

Συμπληρώστε τον κωδικό μορφή με την προσθήκη των παρακάτω συνθήκες εμφάνισης και τελειώνει την υπορουτίνα με το " End Sub ", ως εξής :

cmdOK.Visible = True

cmdCancel.Visible = True

lblDisplay.Visible = True

txtIput.Visible = True

form.sow vbModal

End Sub
Η
εικόνων