关于vb.net控件事件的信息

VB.net中怎么调用控件的事件

软糖

创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于网站设计、成都网站设计、偏关网络推广、成都小程序开发、偏关网络营销、偏关企业策划、偏关品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供偏关建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

来回答罗。

“调用事件”有歧义，你的意思是不是下面两种：

调用事件处理方法

直接调用对象名.方法名

'例如有这样一个按钮点击事件处理程序

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

秒表.Start()

End Sub

'调用它直接用

Button1_Click(me, new EventArgs())引发事件

Button1.Click.Invoke(me, new EventArgs())另外 RaiseEvent

也可以引发事件，但不能使用

RaiseEvent 来引发派生窗体的控件事件，只有自己定义的类的事件才能用它引发。

如满意，请采纳，谢谢。

如何在VB.Net中触发一个控件的事件

比如你单击按钮，就触发了按钮的单击事件

你双击按钮，就触发了按钮的双击事件

VB.NET控件的一些事件的触发顺序是什么

一个一个回答吧。

1、CheckBox 的 MouseDown 事件发生在 CheckedChange 事件之前，但这是指在单步调试的状态下，事实上在编译好的程序中，这两个事件是分别处在两个不同的线程中，单纯的考虑时间上的前后没有意义。

2、MouseDown 在先。Scroll 事件发生在滚动条移动的过程中，而 ValueChange 事件发生在滚动条的 Value 属性发生改变的时候，两者没有必然联系。举例，当你用鼠标拖动滚动条移动的时候，这时发生的是 Scroll 事件；松开鼠标键后，Value 属性值改变，这时候触发 ValueChange 事件。另外，如果滚动条的 Value 是通过代码改变的而非鼠标拖动的，是不触发 Scroll 事件只触发 ValueChange 事件。

3、ClientSize 是指控件的工作区的高度和宽度。比如说 form，它的 Size 值是包括标题栏、边框等，而 ClientSize 是工作区，不包括标题栏、边框等。

4、一般是 Load→Paint→Shown。

vb.net给控件加事件

两种方法：

1. 用WithEvents声明变量，这样你就可以像对待拖上去的控件一样操作：

Public Class Form3

WithEvents btn As New Button

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load

Controls.Add(btn)

End Sub

Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click

MsgBox(Now)

End Sub

End Class

2. 使用AddHandler 语句：

Public Class Form3

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load

Dim btn As New Button

AddHandler btn.Click, AddressOf btn_Click

Controls.Add(btn)

End Sub

Private Sub btn_Click(sender As Object, e As EventArgs)

MsgBox(Now)

End Sub

End Class

WithEvents (Visual Basic)：

AddHandler 语句：

在VB.net里定义的控件数组怎么定义事件

Imports System.Text

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.components = New ComponentModel.Container()

Dim resources As ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(bjt))

Me.TextBox1 = New TextBox(Me.components)

Me.Button1 = New Button(Me.components)

'For … Next  

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button1)

Me.m = New ContextMenuStrip(Me.components)

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"

……