In het programmeren van computers , het verhogen van een gebeurtenis betekent om een functie aan te roepen om aan te kondigen iets is gebeurd . Je verhoogt gebeurtenissen in Visual Basic met behulp van de " RaiseEvent " statement . Voor elk evenement te verhogen , moet u eerst aangeven haar bron bij de module niveau van de klas , module of structuur waarin je het wilt gebruiken . Van daaruit kunt u de gebeurtenis van overal te verhogen binnen dezelfde gebeurtenis bron van zijn verklaring . Gebruik ook een " WithEvents " variabele of object om verhoogde gebeurtenissen af te handelen . Instructies
Open Visual Basic 1 en start een nieuwe applicatie project . Dubbelklik op de " knop " control toe te voegen aan uw formulier . Dubbelklik op het "Label" controle met betrekking tot het te voegen aan het formulier , .
Druk op " F7 " 2 om het venster code te openen . Typ het volgende om een nieuwe klasse declareren en maken items op de klasse -niveau : Public Class myEvent
Prive klikken
Zoals Korte = 0 Prive WithEvents gimmick
Zoals myEvent < br > Public event AddClick ( ) op elke gebeurtenis genoemd door de " RaiseEvent " verklaring moet bij de klasse -niveau worden aangegeven en elk voorwerp dat een gebeurtenis omgaat moet de " WithEvents " statement .
< gebruiken br >
Type 3 het volgende in het " Form1_Load " sub : . myObject = Nieuwe myEvent
Dit creëert een object van de " myEvent " class
< br type> 4 de volgende opties om een nieuwe sub maken: Public Sub
geklikt ( ) RaiseEvent AddClick ( ) op End sub
als ze worden opgeroepen , deze functie verhoogt de AddClick evenement u gedeclareerd bij de klasse niveau
Type 5 het volgende om een sub die de gebeurtenis afhandelt : . Private Sub display
( ) handvatten myObject.AddClick Label1.Text =
" Times u hebt geklikt : " & clicks End sub
Wanneer de " AddClick " evenement wordt verhoogd , wordt de code in de sub updates de tekst op Label1
Type 6 de volgende om de druk op de knop gebeurtenis af te handelen : . Private Sub Button1_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter handvatten Button1.Click klikken + = 1
myObject.Clicked ( ) End Sub
Wanneer de gebruiker op de knop , de " clicks " klikt variabele stappen door een en het object roept de functie " geklikt " , die een gebeurtenis oproept.
|
