vb.net的，按键连续触发事件，比如，按着键不放，音量增大。

1.定义变量记录键是否被按下，按下的累计时间

创新互联专注于企业成都全网营销推广、网站重做改版、嘉定网站定制设计、自适应品牌网站建设、成都h5网站建设、商城网站制作、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为嘉定等各大城市提供网站开发制作服务。

Dim 按下A键  As Boolean

Dim 按下A键时间 As Integer

2.添加一个TextBox1用于接收键盘事件，或者直接用窗体的键盘事件(确保KeyPreview为True)

在KeyDown事件中添加如下代码：

If e.Keycode = keys.A Then 按下A键 = True

在KeyUp事件中添加如下代码：

If e.Keycode = keys.A Then 按下A键 = False

3.添加一个Timer1控件，调整Timer1的Interval来决定按键频率，记得要把Timer1.Enable开启

在Tick事件中添加如下代码：

If 按下A键 = True

按下A键时间+=1

Call 音量设置(按下A键时间 * 10)

End If

PS: 按下的秒数 = 按下A键时间*Timer1.Interval / 1000

vb.net如何触发excel内的一个按钮的单击事件

一定要先在VB中添加excel引用。

在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。

调用excel的工作表中的命令按钮，代码如下：

Private Sub Command1_Click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

Dim FileName, SheetName As String

FileName = "e:\data.xls" '打开的工作簿路径名称

SheetName = "sheet1" '命令按钮所在的工作表名

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件

……

xlBook.Close (True) '保存并关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

end sub

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

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写一个按钮倒数5秒后自动执行button事件

Dim so As Integer

Dim A As Integer

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1000

A = 1

End Sub

Private Sub Timer1_Timer()

so = so + 1

If A = 0 Then

so = 0

Me.Caption = "正常运行"

Exit Sub

Else

Me.Caption = so

If so = 6 Then

so = 0

' 触发button事件

End If

End If

End Sub

vb.net 自定义事件

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

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

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

当前标题：包含vb.net自触发事件的词条
文章地址：http://scyanting.com/article/hjccpe.html