作者kinggto (静静的蓝天)
看板Visual_Basic
标题Re: [.NET] 滑鼠事件
时间Tue Nov 17 22:04:42 2009
自己想出来罗..
很简单...只是自己掉进死胡同..
Public Class Form1
Dim count As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
count = count + 1
TextBox1.Text = count
End Sub
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Timer1.Enabled = True
End If
End Sub
Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
Timer1.Enabled = False
End Sub
End Class
※ 引述《kinggto (静静的蓝天)》之铭言：
: 各位大大好...
: 目前新学VB.net,先前对VB6有一定程度的摸索..
: 最近想要写一个小功能...
: 无奈测试了很多次..
: 都是失败作厂
: 希望大大们可以给小弟一些建议..
: 想法:滑鼠去按一个button 但是试点住不放的情况之下..
: button里面有一个计数器,会不断的加上...
: 直到滑鼠放开停止..
: 目前有试过用time来控制..失败
: 用button_mousedown + Windows.Forms.MouseButtons.Left ...失败
: 希望大大们可以提一些看法与意见..
: 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.117.186.138