包含vb.net事件与方法的词条

vb.net MenuStrip单击事件的响应方法

注意到所有vb.net事件与方法的事件绑定vb.net事件与方法的方法都有一个参数 sender 没？那个就是判断究竟是哪个控件被事件响应vb.net事件与方法了vb.net事件与方法的。

Dim item As MenuStripItem = CType(sender, MenuStripItem) ' 先把 sender 这个 Object 类型转换成 MenuStripItem（菜单项是这个类型吧？手打的vb.net事件与方法，没开VS）

Select Case item.Name

    Case "MenuStripItem1"

    Case "MenuStripItem2"

    ...

End Select

相关问答

Q1: vb.net定义动态控件事件

给你个例子就知道了

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

Q2: 紧急求救！ VB.NET 2010 如何在类Class1中调用timer事件 触发 的方法又是怎样的？ 谢谢

vb.net事件与方法你是想在类中加一个时间控件吧vb.net事件与方法，用时间操作什么东西吧。

Public Class Class1

Private WithEvents MyTimer As New Timer

Private intSum As Integer

Public Sub New(ByVal intInterval As Integer)

MyTimer.Interval = intInterval 'intInterval设置为1000 就是间隔1秒

MyTimer.Enabled = True '启动Timer

End Sub

Private Sub MyTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyTimer.Tick

'***********在此处加上你要操作vb.net事件与方法的代码************Start

intSum = intSum + 1 '如累加intSum的值

'***********在此处加上你要操作的代码************End

End Sub

Q3: vb.net 怎么用事件触发的方式读取串口数据

首先：

textbox里没有显示，是因为SerialPort1和TextBox2不是同一线程创建的，需要跨线程操作。需要用到委托，这样才能显示出来。

其次：

我觉得用串口的接收数据事件更好一些。

下面代码供参考：

'----------------------

'串口接收数据事件，其实比用定时器更好，

'触发事件的条件可以自己在form_load中设置ReceivedBytesThreshold属性数值，默认为ReceivedBytesThreshold=1

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim strRecvData As String = ""

strRecvData = SerialPort1.ReadExisting

Call disPlayComData(strRecvData)

End Sub

Delegate Sub callback(ByVal strT As String) '定义委托

Sub showString(ByVal comdata As String) '显示结果

Me.TextBox1.Text = "结果：" comdata

End Sub

Sub disPlayComData(ByVal strTmp As String) '判定是否为跨线程

If Me.TextBox1.InvokeRequired Then

Dim d As New callback(AddressOf showString)

Me.Invoke(d, New Object() {strTmp})

Else

Me.TextBox1.Text = strTmp

End If

End Sub

Q4: vb.net如何用线程池实现多线程事件响应

这个没法做到。原因

1）当你将方法排入线程池队列后，此方法在有线程池线程变得可用时执行。

2）线程池中某个线程的可用与不可用，是由.net 后台决定，用户程序无法控制的

3）正如你观察到的：线程启动的时间不同，有快有慢，这恰恰说明线程池起作用了：线程池的调度试图让程序响应达到最佳。

Q5: VB.net 关于窗体事件的问题

你不要用Form1做为启动窗口就不会这样了

告诉你解决方法:

1.添加新项-"模块"

2.在新建的模块文件里建立一个函数,及其代码如下:

Sub Main()

Application.EnableVisualStyles()

Dim frm1 As New Form1

frm1.Show()

frm1.Refresh()

Dim frm2 As New Form2

frm2.Show()

frm2.Refresh()

frm1.Hide()

Application.Run()

End Sub

3.在项目属性-应用程序-启动窗体 那里选择"Sub Main"

4.在你需要程序退出的地方加一句:

Application.Exit()

搞定!

vb.net事件与方法的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net事件与方法的信息别忘了在本站进行查找喔。