在VB.NET中如何实现键盘上两个键长按!在线等~~

如题所述

长按你可以用计时器来实现啊,写个例子:
Private blCtrl As Boolean = False
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.LControlKey Then blCtrl = True
End Sub

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.LControlKey Then blCtrl = False
End Sub
然后你可以在计时器里检测blCtrl的状态来确定,不知道你的具体情况是什么样的
总之是用一个布尔变量来记录按键状态,配合计时器来达到你想要的功能
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-06-01
keybd_event
是API追问

能不能具体点,代码?比如长按“shift”和“Ctrl”

追答

VB.NET不太熟悉,但是是这样用的:
keybd_event((byte)Keys.Z, 0, 0, 0);//按下Z
keybd_event((byte)Keys.Oem5, 0, 0, 0);//按下“\”
System.Threading.Thread.Sleep(300);//按久一点
keybd_event((byte)Keys.Oem5, 0, 2, 0);//第三个参数,0为按下,2为放开;松开Z
keybd_event((byte)Keys.Z, 0, 2, 0);//松开“\”

VB中如何实现连续点击两个控件后在文本框中输出
private sub 张三_click()text1="张三"end sub private sub 犯规_click()text1=text1 & "犯规"end sub

VB中如何实现按下键盘上Ctrl+alt+end重启或注销或关机
-i 显示 GUI 界面,必须是第一个选项 -l 注销(不能与选项 -m 一起使用)-s 关闭此计算机 -r 关闭并重启动此计算机 -a 放弃系统关机 -m \\\\computername 远程计算机关机\/重启动\/放弃 -t xx 设置关闭的超时为 xx 秒 -c "comment" 关闭注释(最大 127 个字符)-f 强制...

vb中如何实现按下按键持续输出,再按下又停止的程序
Private Sub Form_Load()Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If Shift = 4 And KeyCode = 80 Then 'ALT+P Timer1.Enabled = Not Timer1.Enabled End If End Sub Private Sub Timer1_Timer()Caption = ...

VB中如何实现单击一个按钮同时触发两个事件?
1,在第一个按钮的过程中,调用第二个按钮 Private Sub Command1_Click()Call Command2_Click()'调用command2的过程 ...'完成自己的事件 End Sub 2,做成一个单独的外部过程 Private Sub Command1_Click()Call mySub()'调用外部过程 ...'完成自己的事件 End Sub Private Sub mySub()'这是外部...

vb中的程序难题,拜求高手帮忙解决!
但在Excel操作过程中关闭Excel对象时,VB无法知道,如果此时使用Excel对象,则VB程序会出现自动化错误,形成VB程序无法完全控制Excel状况,使得VB与Excel脱节。 二、Excel的宏功能 Excel 提供了一个Visual Basic编辑器,打开Visual Basic编辑器,其中有一工程属性窗口,点击右键菜单的“插入模块”,则增加一个“模块1”,在此...

在VB中如何实现屏蔽键盘上一些功能键
楼主说“一切”,只要下载热键生成器。就可以成自己的功能键。所以说楼主想屏蔽一切功能键,就必须屏蔽所有的键盘输入。这个你要吗?XP下ctrl+alt+del呼出进程管理器,这个用open environ$("WinDir") & "\\system32\\taskmgr.ex" for binary as #1就可以锁住(持久占用)其余的想要的话,Q我497233721 ...

在vb.net 程序计设中当在一个窗体上右击然后出现一个菜单是如何实现这一...
首先在工具箱添加一个叫contextmenu的控件 然后在需要右键菜单的窗体上,找到contextmenu这个属性,把它设置为你刚才添加的菜单

请教VB 如何实现按键精灵的功能?
As Long)键盘操作用Sendkeys "{(功能键)}"、Sendkeys "文字" 完成,转移焦点可以用AppActivate完成。例如:按下Command1,打开记事本,在记事本中输入一段字符:Private Sub Command1_Click()Shell "notepad.exe", vbNormalFocus AppActivate "无标题 - 记事本"SendKeys "这是一个示例。"End Sub ...

VB中如何实现在另外的窗口中点击或者按下快捷键的问题
If S = "你要查找的窗口标题" Then '开始模拟按crtl+s键 SetForegroundWindow lngHand Sleep 200 SendMessage MainWnd, WM_SETFOCUS, 0&, 0& keybd_event vbKeyControl, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event vbKeyS, 0, KEYEVENTF_EXTENDEDKEY, 0 Sleep 100 keybd_event vbKeyControl, 0...

vb.net 如何制作图标按钮 ?急急急!!在线等!
MOD_ALT:按下的可以是任一Alt键。MOD_CONTROL:按下的可以是任一Ctrl键。MOD_SHIFT:按下的可以是任一Shift键。MOD_WIN:按下的可以是任一Windows按键。vk:定义热键的虚拟键码。返回值:若函数调用成功,返回一个非O值。若函数调用失败,则返回值为0。若要获得更多的错误信息,可以调用GetLastError...

相似回答