Delen via

RaiseEvent-instructie

Hiermee wordt een gebeurtenis geactiveerd die is gedeclareerd op moduleniveau binnen een klasse, formulier of document.

Syntaxis

RaiseEvent eventname[( argumentlist )]

Onderdelen

eventname
Verplicht. Naam van de gebeurtenis die moet worden geactiveerd.

argumentlist
Facultatief. Door komma's gescheiden lijst met variabelen, matrices of expressies. Het argumentlist argument moet tussen haakjes staan. Als er geen argumenten zijn, moeten de haakjes worden weggelaten.

Opmerkingen

De vereiste eventname is de naam van een gebeurtenis die in de module is gedeclareerd. Het volgt naamconventies voor Visual Basic-variabelen.

Als de gebeurtenis niet is gedeclareerd in de module waarin deze wordt gegenereerd, treedt er een fout op. Het volgende codefragment illustreert een gebeurtenisdeclaratie en een procedure waarin de gebeurtenis wordt gegenereerd.

' Declare an event at module level.
Event LogonCompleted(ByVal UserName As String)

Sub Logon(ByVal UserName As String)
    ' Raise the event.
    RaiseEvent LogonCompleted(UserName)
End Sub

U kunt niet gebruiken RaiseEvent om gebeurtenissen te genereren die niet expliciet zijn gedeclareerd in de module. Alle formulieren nemen bijvoorbeeld een Click gebeurtenis over van System.Windows.Forms.Form, deze kan niet worden gegenereerd met behulp van RaiseEvent een afgeleide vorm. Als u een Click gebeurtenis declareert in de formuliermodule, wordt de eigen Click gebeurtenis van het formulier geschaduwd. U kunt de gebeurtenis van Click het formulier nog steeds aanroepen door de methode aan te OnClick roepen.

Standaard genereert een gebeurtenis die is gedefinieerd in Visual Basic de gebeurtenis-handlers in de volgorde waarin de verbindingen tot stand worden gebracht. Omdat gebeurtenissen parameters kunnen hebben ByRef , kan een proces dat te laat is verbonden parameters ontvangen die zijn gewijzigd door een eerdere gebeurtenis-handler. Nadat de gebeurtenis-handlers zijn uitgevoerd, wordt het besturingselement teruggezet naar de subroutine die de gebeurtenis heeft gegenereerd.

Opmerking

Niet-gedeelde gebeurtenissen mogen niet worden gegenereerd binnen de constructor van de klasse waarin ze worden gedeclareerd. Hoewel dergelijke gebeurtenissen geen runtimefouten veroorzaken, kunnen ze mogelijk niet worden onderschept door gekoppelde gebeurtenis-handlers. Gebruik de Shared wijzigingsfunctie om een gedeelde gebeurtenis te maken als u een gebeurtenis van een constructor moet genereren.

Opmerking

U kunt het standaardgedrag van gebeurtenissen wijzigen door een aangepaste gebeurtenis te definiëren. Voor aangepaste gebeurtenissen roept de RaiseEvent instructie de accessor van RaiseEvent de gebeurtenis aan. Zie Gebeurtenisinstructie voor meer informatie over aangepaste gebeurtenissen.

Voorbeeld 1

In het volgende voorbeeld worden gebeurtenissen gebruikt om seconden van 10 tot en met 0 af te tellen. De code illustreert verschillende gebeurtenismethoden, eigenschappen en instructies, waaronder de RaiseEvent instructie.

De klasse die een gebeurtenis genereert, is de gebeurtenisbron en de methoden die de gebeurtenis verwerken, zijn de gebeurtenis-handlers. Een gebeurtenisbron kan meerdere handlers hebben voor de gebeurtenissen die worden gegenereerd. Wanneer de klasse de gebeurtenis genereert, wordt deze gebeurtenis gegenereerd voor elke klasse die ervoor heeft gekozen gebeurtenissen voor dat exemplaar van het object af te handelen.

In het voorbeeld ziet u een timer die aftelt van 10 tot 0 seconden en de voortgang naar de console weergeeft. Wanneer het aftellen is voltooid, wordt 'Gereed' weergegeven.

Declareer een WithEvents variabele in uw klasse om gebeurtenissen van de timer te verwerken:

Public Class TimerExample
    Private WithEvents mTimer As TimerState

Voorbeeld 2

Voeg de volgende code toe om de gebeurtenis-handlers en timerlogica te implementeren. In dit voorbeeld ziet u hoe u de instructie gebruikt om gebeurtenis-handlers op de RaiseEvent hoogte te stellen wanneer de timer wordt bijgewerkt of voltooid.

    Public Sub StartCountdownExample()
        mTimer = New TimerState()
        mTimer.StartCountdown(10.0, 1.0)
    End Sub

    Private Sub mTimer_UpdateTime(ByVal Countdown As Double) Handles mTimer.UpdateTime
        Console.WriteLine("Time remaining: " & Format(Countdown, "##0.0") & " seconds")
    End Sub

    Private Sub mTimer_Finished() Handles mTimer.Finished
        Console.WriteLine("Done")
    End Sub
End Class

Public Class TimerState
    Public Event UpdateTime(ByVal Countdown As Double)
    Public Event Finished()
    Public Sub StartCountdown(ByVal Duration As Double,
                              ByVal Increment As Double)
        Dim SoFar As Double = 0
        Do While SoFar < Duration
            System.Threading.Thread.Sleep(CInt(Increment * 1000))
            SoFar += Increment
            RaiseEvent UpdateTime(Duration - SoFar)
        Loop
        RaiseEvent Finished()
    End Sub
End Class

Wanneer u het vorige voorbeeld uitvoert, wordt de seconden van 10 tot en met 0 geteld, waarbij de voortgang naar de console wordt weergegeven. Wanneer de volledige tijd (10 seconden) is verstreken, wordt 'Gereed' weergegeven.

Zie ook

  • Last updated on