Δήλωση μεταβλητών σας . Εκτός από μια μεταβλητή συμβολοσειράς ( εδώ ονομάζεται sValue ) και με τη μορφή μεταβλητής ( εδώ ονομάζεται objForm ) , θα πρέπει να έχετε ένα άλλο string για να κρατήσει ολόκληρο το όνομα της φόρμας , και μια άλλη μεταβλητή που αντιπροσωπεύει τον τύπο της φόρμας . Παράδειγμα κώδικα :
Dim objForm Όπως FormDim sValue Όπως StringDim FullTypeName Όπως StringDim FormInstanceType ως τύπου 2
Δώστε sValue μια τιμή συμβολοσειράς . Δημιουργήστε το πλήρες όνομα τύπου της μορφής προσαρτώντας την εφαρμογή και την ονομασία του προϊόντος σε ένα χρονικό διάστημα και sValue . Παράδειγμα κώδικα : " . " & SValue
sValue = " Φόρμα2 " FullTypeName = Application.ProductName υποδήματα
3
Αποκτήστε τον τύπο της συγκεκριμένης μορφής χρησιμοποιώντας τη μέθοδο Type.GetType . Ορισμός FormInstanceType σε αυτήν την τιμή . Δημιουργήστε ένα νέο παράδειγμα αυτού του τύπου της μορφής και να objForm σε αυτό το νέο παράδειγμα . Παράδειγμα κώδικα :
FormInstanceType = Type.GetType ( FullTypeName , True , True ) objForm = ctype ( Activator.CreateInstance ( FormInstanceType ) , Μορφή )
Η 4
Βεβαιωθείτε ότι ήταν επιτυχημένη από την χρησιμοποιώντας το έντυπο . Εμφάνιση μέθοδο με objForm . Παράδειγμα κώδικα :
objForm.Show ( )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα