关于vb点虐 事件定义的信息

在VB点虐 里定义的控件数组怎么定义事件

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"

……

vb点虐 自定义事件

变量值的改变本身就是你程序控制的，也就是说它的变化完全是在你掌控中的，做变量值改变的触发事件实在没有价值。

通常编程者关心的应该是用户操作的控件值发生变化，但这些控件的事件通常都是定义好的，且已经定义的非常全了。

猜测搂主其实是想学习自己制作控件，那就高深了，很多底层的事件通常都是从基本控件中获得的！

vb点虐 定义动态控件事件

给你个例子就知道了

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

VB.NET 事件的含义

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() '当窗体焦点并键盘有按键放开时发生