Az események működése

A kísérlet bemutatja az események működési mechanizmusát.
A kísérlet előfeltétele, hogy a számítógépre legyen telepítve a Visual Basic program.
Programozzon egy adott űrlap elemeihez különböző eseménykezelőket, majd a program futtatása során figyelje meg ezek működését!

Megvalósítás:
Az űrlapra kiteszünk három vezérlőelemet: Label1 (címke), Command1 (Parancsgomb), Text1 (Beviteli mező).
Felirataik segítségével felszólítjuk a felhasználót, hogy mit csináljon. Ha a címkére duplán kattint és a parancsgombra kattint, akkor azok saját magukra kiírják hogy OK, a beviteli mezőbe írás pedig az űrlap címsorában jelenik meg. Ha az egérrel elhagyjuk bármelyik vezérlőelemet, akkor egyrészt az eredeti feliratok jelennek meg rajtuk, másrészt az űrlap címsorában megjelennek az egér helyzetének koordinátái. Figyeljük meg, hogy ha az egér bármelyik vezérlőelemre kerül, akkor a koordinátáinak változását nem követi a program a címsorban.
Felhasznált események és a hozzá tartozó feladat:
Label1: DblClick (dupla kattintás), Önmagára ráírja hogy „OK”
Command1: Click (kattintás) , Önmagára ráírja hogy „OK”
Text1: Click (kattintás), kiüríti önmagát, Change (tartalmának változása): Az űrlap címsorába írja a tartalmát.
Form (űrlap): MouseMove (egér mozgás az űrlap felett): Az összes vezérlőelemre visszaírja az eredeti feliratot, illetve az űrlap címsorába kiírja az egér koordinátáit.
Forráskód:
Private Sub Command1_Click()
Me.Command1.Caption = "OK"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.Caption = "Duplán kattints"
Me.Command1.Caption = "Kattints ide"
Me.Text1.Text = "Írj ide"
Me.Caption = CStr(X) & ", " & CStr(Y)
End Sub

Private Sub Label1_DblClick()
Me.Label1.Caption = "OK"
End Sub

Private Sub Text1_Change()
Me.Caption = Me.Text1.Text
End Sub

Private Sub Text1_Click()
Me.Text1.Text = ""
End Sub