In diesem Abschnitt üben wir es. Erstellen Sie zuerst ein COM-Objekt, verwenden Sie es dann und denken Sie schließlich über Verbesserungen nach.
Führen Sie zunächst die folgenden zwei Schritte aus:
Führen Sie Visual Basic aus; wählen Sie den Projekttyp „StandardEXE“. Da COM-Objekte auf Klassen basieren, sind Klassen genau wie der Code im Modul. Also:
Wählen Sie „PRoject“ -> „AddClassModule“. Wenn das entsprechende Dialogfeld angezeigt wird, wählen Sie „ClassModule“ und klicken Sie dann auf die Schaltfläche „Öffnen“.
Auf diese Weise wird ein Formular auf dem Desktop angezeigt, ebenso wie die in Projekt1 enthaltene Klasse1.
Als nächstes ändern Sie den Klassennamen der leeren Klasse:
Ändern Sie im Eigenschaftenfenster der Klasse die Name-Eigenschaft der Klasse in CDog.
Es ist zu beachten, dass zur Unterscheidung jeder Objektname ein entsprechendes Präfix hat. Beispielsweise steht vor dem TextBox-Objekt „txt“, vor dem Formular „frm“ und vor der Klasse kann ein Großbuchstabe stehen Der Buchstabe „C“ oder der Kleinbuchstabe „cls“ wird hier verwendet.
Fügen wir etwas Code hinzu, um es zu testen:
Fügen Sie im Abschnitt „Allgemeine Deklaration der CDog-Klasse“ die Deklaration der Variablen hinzu:
Öffnen Sie dann Form1;
Fügen Sie dem Formular eine Befehlsschaltfläche hinzu.
Öffnen Sie das Codefenster und fügen Sie der Befehlsschaltfläche den folgenden Code hinzu:
Lassen Sie uns die Bedeutung des obigen Codes erklären:
Diese Anweisungszeile wird verwendet, um Visual Basic anzuweisen, einen Bitraum für das CDog-Objekt festzulegen. Das Objekt kann jedoch zu diesem Zeitpunkt nicht verwendet werden und muss bis zur nächsten Anweisung warten:
Es wird zum Erstellen von Instanzen von CDog verwendet. Das bedeutet, dass aus der zuvor leeren MyDog-Vorlage ein CDog-Objekt wird, das nun verwendet werden kann.
Die erste Zeile des obigen Codes wird verwendet, um die Name-Variable von MyDog festzulegen, und die zweite Anweisungszeile wird verwendet, um den Inhalt der Variablen im Nachrichtendialogfeld anzuzeigen. endlich:
Wird verwendet, um einfach das MyDog-Objekt zu leeren.
Drücken Sie F5 zum Ausführen und Testen.
Wie wäre es damit? Aber gleichzeitig müssen wir uns vielleicht fragen: Was ist der Unterschied zwischen Standardmodulen und Kursmodulen? Schauen wir uns noch einmal das folgende Beispiel an:
Ändern Sie den Code der Befehlsschaltfläche in:
Im Gegensatz zum vorherigen Code definiert der Code hier tatsächlich zwei Objekte, MyDog und MyDog2, bei denen es sich um zwei unabhängige Objekte handelt, die auf CDog basieren.
Drücken Sie F5 zum Ausführen und Testen.
Was war das Ergebnis? Erscheinen dieses Mal zwei Dialogfelder? Einer sagt „BillyMoore“ und der andere sagt „SadieMoore“.
Mit Ausnahme des Namens verfügt jedes der oben definierten Objekte über keine tatsächlichen Attribute, sodass der folgende Prozess hinzugefügt wird:
Öffnen Sie die vorherige Klasse1;
Deklarieren Sie die folgenden öffentlichen Variablen:
Öffnen Sie das vorherige Form1;
Ändern Sie den Code der Befehlsschaltfläche in:
Der Code ähnelt dem vorherigen, außer dass hier die Variable Age verwendet wird.
Drücken Sie F5 zum Ausführen und Testen.
Es sollten zwei Meldungsdialogfelder mit den Inhalten von Name und Alter angezeigt werden.
Versuchen Sie nun, den Alterswert eines der Objekte auf 1.000 oder 30.000 festzulegen. Sehen Sie, wie es ausgeht? Das Programm läuft weiterhin normal, da der Maximalwert der definierten Ganzzahlvariablen 32.767 erreichen kann, der tatsächliche Hund (Dog) jedoch nicht 30.000 Jahre alt ist.
Wie soll also mit dieser Situation umgegangen werden?
->