Private Sub Command1_LongPress()
Timer1.Enabled = False '此句为了防止本过程被重复执行
'要在这里打上Command1长按时要执行的代码
End Sub
完成后，就可以用Command1原有的MouseDown、MouseUp事件配合这个Timer1来定时触发Command1_LongPress过程了。在Command1的MouseDown中打
Timer1.Enabled = True '按下按钮即开始计时
在Command1的MouseUp中打
Timer1.Enabled = False '松手即停止计时
在Timer1的Timer中打
Command1_LongPress
大功告成了。如果有什么问题或没达到效果可以追问。
End Sub
用这个，上面的事件是表示，在命令按钮按下鼠标，
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
再配合上面的那个鼠标松开事件，就可以达到你要的长按功能了本回答被网友采纳
VB.net如何用代码实现长按Ctrl键呢?
可以用sendkeys啊。先定义：dim sdstr as system.winforms.sendkeys 然后循环调用：sdstr.send("^") 发送Ctrl
...下,怎么实现单击命令按钮,如果CHECK为选中状态,则长按CTRL_百度知...
以下代码为按下Ctrl键的代码，按下间隔时间由Text1.Text 的值决定。满意望采纳，有问题请追问，希望可以帮到你！Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Command1_Click()Timer...
100分!vb模拟键盘全局钩子,要求当我按住W键的时候,等于每秒按下W键5...
我再来回答下吧。我的想法就是 递归。也就是说，当产生按键这一事件时，让程序重复模拟5次此按钮，即重复执行这一事件5次。这是我在VB.NET中的代码：Private i As Integer = 0 Private j As String Private k As Object Private t As KeyPressEventArgs Private Sub Form1_KeyPress(ByVal sende...
图片一为隐藏状态,长按一个按钮把图片一显示出来,松开按钮图片仍属于...
Private Sub Form_Load()Picture1.Visible=False Timer1.Enabled=False Timer1.Interval=3000 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode=(键盘Keycode名) Then Timer1.Enabled=True End Sub Private Sub Timer1_Timer()Picture1.Visible=True End Sub 弄个...
易语言快捷键按钮(易语言键代码怎么使用)
在 “属性” 里面选择 按钮，找到 “类型”，它的设置是 “通常”，把它改成 “默认”就行了，或者用命令按钮. 类型 = 1，运行的时候，按回车就相当于按了按钮。 参考实例如下： .版本 2 .子程序 _登录按钮_被单击 信息框 (“恭喜，登录成功！”, 0, ) .子程序 _编辑框5_按下某键, ...
MOTO手机的隐藏命令
平时在没有充电时,也可以根据vb 值换算成电池电压。*789 长按#进入手机的工程模式,按数字键14 是进入主屏的对比度调节模式,按数字键15 是进入小屏的对比度调节模式,主屏的对比度最佳为20,小屏的对比度最佳为40。*789 长按#进入手机的工程模式,按数字键16 是开关主板键盘灯功能,进入213 也是开关主板键盘灯...
WPS表格如何添加自定义函数?
打开WPS表格，切换至“开发工具”选项卡，点击“VB编辑器”按钮进入VBA环境。右击“WPS表格”对像，选择“插入”->“模块”项。在新创建的模块窗口中，输入自定义函数代码：Function 求平均数(a As Integer, b As Integer)求平均数 = (a + b) \/ 2 End Function 然后返回WPS表格界面，输入公式“...
PDA下应用EVB开发的几点问题
2.与PC的通讯：在PDA上可以对文件进行修改、删除、粘贴、拷贝等操作，但是不能把文件转移到PC上。要将数据备份到PC上，就得了解PDA如何与PC通讯，完成二者的通讯需要先安装一个名为ActiveSync同步（synchronization）。在PDA上可以对文件进行修改、删除、粘贴、拷贝等操作，但是不能把文件转移到PC上。同步...
安吉尔净水器换完滤芯后如何复位?
更换滤芯之后需要进行复位，如果机器是换芯灯闪烁红色。复位方式：长按换芯键6秒，就可复位成原始寿命。如果是每个滤芯单独提醒更换，先长按选择键3-6秒，之后进入选择模式，选中更换的滤芯之后长按选择键即可。
CAD中怎么快速切换图层?
39、以前用3D鼠标,滚轮键按下是平移命令,现在变成了捕捉设置,怎样改回去?直接在命令提示下输入MBUTTONPAN,系统将提示输入新值。设置系统变量MBUTTONPAN=1。40、在AUTOCAD2000中如何量出某条圆孤的长度,如果在长度为125厘米要如何画圆孤?用lengthen命令,可以知道弧长,也可改变弧长。T1EshTB4hv1RCvBVdK.jpg41、...
