VB.Net Tutorial/Event/WithEvents — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 12:54, 26 мая 2010
WithEvents
imports System
imports System.Drawing
imports System.Windows.Forms
public class AddressOfWithEvents : inherits System.Windows.Forms.Form
Dim WithEvents btn as Button
public sub New()
btn = new Button()
btn.Location = new Point(50,50)
btn.Text = "Test"
Controls.Add(btn)
AddHandler btn.Click, AddressOf btn_Click
end sub
public shared sub Main()
Application.Run(new AddressOfWithEvents())
end sub
private sub btn_Click(ByVal sender as object, _
ByVal e as EventArgs)
MessageBox.Show("btn_Click method","Events Demonstration")
end sub
private sub btn_ClickHandles(ByVal sender as object, _
ByVal e as EventArgs) _
Handles btn.Click
MessageBox.Show("btn_ClickHandles method","Events Demonstration")
end sub
end class