Gewusst wie: Auslösen eines Ereignisses in Visual Basic

Computer Programmierung, Anhebung bedeutet ein Ereignis aufrufen eine Funktion, um mitzuteilen, dass etwas geschehen ist. Sie lösen Ereignisse in Visual Basic mit der Anweisung "RaiseEvent". Um ein Ereignis auszulösen, müssen Sie zuerst deklarieren, seine Quelle auf Modulebene der Klasse, Modul oder Struktur, in dem Sie es verwenden möchten. Von dort können Sie lösen das Ereignis von überall innerhalb der gleichen Quelle seiner Deklaration. Außerdem verwenden Sie eine Variable "WithEvents" oder ein Objekt ausgelöste Ereignisse behandeln.

Anweisungen

1 Öffnen Sie Visual Basic, und starten Sie ein neue Forms-Anwendungsprojekt. Doppelklicken Sie auf den "Button"-Steuerelement, um es zu Ihrem Formular hinzufügen. Doppelklicken Sie auf das "Label"-Steuerelement, um es zu dem Formular hinzufügen.

2 Presse "F7", um das Codefenster zu öffnen. Geben Sie Folgendes ein, um eine neue Klasse zu deklarieren und Erstellen von Elementen auf der Klassenebene:

Public Class MyEvent

Private klickt As Short = 0

Private WithEvents Spielerei als MyEvent

Öffentliche Veranstaltung-AddClick()

Jedes Ereignis wird von der "RaiseEvent"-Anweisung auf Klassenebene deklariert werden muss und alle Gegenstände, die ein Ereignis behandelt muss die "WithEvents"-Anweisung verwenden.

3 Geben Sie Folgendes in die "Form1_Load" Sub:

MyObject = neue MyEvent

Dies erstellt ein Objekt der Klasse "MyEvent".

4 Geben Sie Folgendes ein, um eine neue Sub zu erstellen:

Public Sub Clicked()

RaiseEvent AddClick()

EndSub

Wenn aufgerufen, löst diese Funktion das AddClick-Ereignis, die, das Sie auf Klassenebene deklariert.

5 Geben Sie Folgendes ein, um eine Sub zu erstellen, die das Ereignis behandelt:

Private Sub Display() behandelt myObject.AddClick

Label1.Text = "Zeiten, die Sie geklickt haben:" & klickt

EndSub

Wenn das "AddClick"-Ereignis ausgelöst wird, aktualisiert der Code in der Sub den Text auf Label1.

6 Geben Sie Folgendes behandeln die Schaltfläche click-Ereignis:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

klickt += 1

myObject.Clicked()

EndSub

Klickt der Benutzer auf die Schaltfläche, die "Klicks" Variable erhöht sich um eins, und das Objekt ruft die "Clicked"-Funktion, die ein Ereignis auslöst.