13518219792
Imports System.Text
成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都做网站、成都网站制作、黄浦网络推广、成都小程序开发、黄浦网络营销、黄浦企业策划、黄浦品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供黄浦建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com
Imports System.Windows
Imports System.Windows.Forms
Public Class Netin '类 名
'Inherits Forms.Form
Public Shared Netin As New Form
Public components As ComponentModel.IContainer
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
DebuggerStepThrough()
Public Sub InitializeComponent()
Me点抗 ponents = New ComponentModel.Container()
Dim resources As ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(bjt))
Me.TextBox1 = New TextBox(Me点抗 ponents)
Me.Button1 = New Button(Me点抗 ponents)
'For … Next
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button1)
Me.m = New ContextMenuStrip(Me点抗 ponents)
Me.m1.Text = "菜单项1"
'设置并添加相关控件，(窗体)Netin 初始化。
End Sub
Private Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
'加载后显示窗体Netin。
End Sub
Public Sub ObjClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click,Button2.Click,Button3.Click,TextBox1.Click
MessageBox.Show("你按了鼠标")
End Sub
Public WithEvents TextBox1 As TextBox
Public WithEvents Button1 As Button
Public WithEvents Button2 As Button
Public WithEvents Button3 As Button
Friend WithEvents m As ContextMenuStrip
Friend WithEvents m1 As ToolStripMenuItem
End Class
Class MainWindow
Netin.Show()
Netin.Button2.Text = "Main"
……
变量值的改变本身就是你程序控制的，也就是说它的变化完全是在你掌控中的，做变量值改变的触发事件实在没有价值。
通常编程者关心的应该是用户操作的控件值发生变化，但这些控件的事件通常都是定义好的，且已经定义的非常全了。
猜测搂主其实是想学习自己制作控件，那就高深了，很多底层的事件通常都是从基本控件中获得的！
给你个例子就知道了
Public Class Form1
'演示为动态添加的控件添加事件
Private WithEvents Tb As New TextBox '方法2必须这样写
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Dim Tb As New TextBox
Tb.Name = "Textbox1"
Tb.Text = "文本框1"
Controls.Add(Tb)
AddHandler Tb.KeyPress, AddressOf XX '方法1，移动鼠标触发
End Sub
Private Sub XX()
MsgBox("AddHandler方法")
End Sub
Private Sub ShowClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb.Click '方法2，单击触发
MsgBox("Handles方法，你点击了" sender.name)
End Sub
End Class
TextBox1_TextChanged() 'TextBox1.text属性改变时发生
Label1_Click() 'Label1被鼠标点击时发生
MenuItem1_Click() 'MenuItem1被鼠标点击时发生
Label1_MouseDown() '鼠标左键在Label1上按下时发生
Label1_DoubleClick() '有点难我也不太清楚，在MSDN上查了下：
双击操作由用户操作系统的鼠标设置确定。用户可以设置两次单击鼠标按钮之间的时间以便将这两次单击认为是双击而不是两次单击。每当双击控件时，就会引发 Click 事件。例如，如果您有 Form 的 Click 和 DoubleClick 事件的事件处理程序，则当双击该窗体并同时调用这两个方法时，会引发 Click 和 DoubleClick 事件。如果双击一个控件并且该控件不支持 DoubleClick 事件，则 Click 事件可能被引发两次。
Label1_MouseUp() '鼠标左键在Label1上放开时发生，一般与Label1_MouseDown()搭配使用
TextBox2_MouseMove() '鼠标停留在TextBox2上时发生
Form1_load() '加载窗体时发生
Form1_click() '点击窗体时发生
Form1_Resize() '窗体调整大小后发生
Form1_KeyPress() '当窗体有焦点键盘有操作时发生
Form1_KeyDown() '当窗体具有焦点并键盘有按键按下时发生
Form1_KeyUp() '当窗体焦点并键盘有按键放开时发生
