Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte Visual Basic a začať nový projekt formy aplikácie . Dvakrát kliknite na ovládací prvok " tlačidlo " pridať do formulára . Dvakrát kliknite na ovládací prvok " Label " a pridajte ju do formulára , taky .
2
Stlačte tlačidlo " F7 " sa otvorí okno kód . Zadajte nasledujúce vyhlásiť novú triedu a vytvoriť položky na úrovni triedy : Spojené
Public Class MyEvent
súkromné kliknutie čo najkratšie = 0
súkromné WithEvents trik ako MyEvent
Public AddClick akcie ( )
Akákoľvek udalosť nazýva " RaiseEvent " vyhlásenie musí byť deklarovaná na úrovni triedy a akýkoľvek objekt , ktorý spracováva udalosť musí použiť " WithEvents " vyhlásenie .
Sims 3
zadajte nasledujúce v " Form1_Load " sub : .
MyObject = New MyEvent
To vytvorí objekt " MyEvent " triedy
4
Zadajte nasledujúci vytvoriť nový sub :
Public sub klikli ( )
RaiseEvent AddClick ( )
End sub
keď zavolal , táto funkcia vyvolá udalosť AddClick ste deklarovanú na úrovni triedy
5
Zadajte nasledujúce vytvoriť sub , ktorý spracováva udalosť : .
Private sub Display ( ) Madlá myObject.AddClick
Label1.Text = " Times ste klikli " a kliknutí
End sub
Keď je " AddClick " udalosť je aktivovaná , kód sub aktualizuje text na TextLabel1
6
Zadajte nasledujúce zvládnuť tlačidlo udalosť click : .
Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) rukoväte Button1.Click
kliknutie + = 1
myObject.Clicked ( )
End Sub
Keď používateľ klikne na tlačidlo , ďalej len " kliknutie " variabilný v krokoch po druhom a objekt volá funkciu " klikli " , ktorý vyvolá udalosť .