Private Sub Button1_Click(Byval sender As System.Object,
ByVal e As System.EventArgs)Handles Buttin1.Click
End Sub
-----------------------------------------------------------------------------
1つ目はイベントとプロシージャを結びつけるHandlesキーワードがある
2つ目は引数
イベントプロシージャには必ず2つの引数があり、
第1引数はObject型、第2引数はEventArgs型
この2つの要件を満たしいるものはすべてイベントプロシージャです。
第1引数はイベントを発生させたクラスが渡されています。上記の
Clickイベントプロシージャの場合、第1引数のsenderには
Button1がセットされています。
第2引数はイベントの追加情報が渡されてきます
*イベントプロシージャの使い方
-------------------------------------------------------------------------------
①MouseEnterイベント(マウスがコントロールの上に入ったときに発生)
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button1.MouseEnter
Button1.BackColor = Color.Pink
End Sub
--------------------------------------------------------------------------------
②MouseLeaveイベント(マウスカーソルがコントロール外に離れていったときに発生)
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button1.MouseLeave
Button1.BackColor = Color.FromKnownColor(KnownColor.Control)
End Sub
--------------------------------------------------------------------------------
0 件のコメント:
コメントを投稿