大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net键盘键值,vb中数字键

vb.net 获取键盘输入的字符

参考方法如下,具体解释已经注解在代码中;

创新互联主要从事网站设计制作、做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务双清,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

/定义变量

public delegate int HookProc(int nCode, Int32 wParam, IntPtr lParam);

static int hKeyboardHook = 0;

HookProc KeyboardHookProcedure;

/*************************

* 声明API函数

* ***********************/

// 安装钩子 (using System.Runtime.InteropServices;)

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern int SetWindowsHookEx(int idHook,HookProc lpfn, IntPtr hInstance, int threadId);

// 卸载钩子

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern bool UnhookWindowsHookEx(int idHook);

// 继续下一个钩子

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingC.StdCall)]

public static extern int CallNextHookEx(int idHook, int nCode, Int32 wParam, IntPtr lParam);

// 取得当前线程编号(线程钩子需要用到)

[DllImport("kernel32.dll")]

static extern int GetCurrentThreadId();

//钩子子程:就是钩子所要做的事情

private int KeyboardHookProc(int nCode, Int32 wParam, IntPtr lParam)

{

if (nCode = 0)

{

/****************

//线程键盘钩子判断是否按下键

Keys keyData = (Keys)wParam;

if(lParam.ToInt32() 0)

{

// 键盘按下

}

if(lParam.ToInt32() 0)

{

// 键盘抬起

}

****************/

/****************

//全局键盘钩子判断是否按下键

wParam = = 0x100 // 键盘按下

wParam = = 0x101 // 键盘抬起

****************/

KeyMSG m = (KeyMSG) Marshal.PtrToStructure(lParam, typeof(KeyMSG));//键盘

// 在这里添加你想要做是事情(比如把键盘nCode记录下来,搞个邮件发送程序发到自己的邮箱去)

return 0;//如果返回1,则结束消息,这个消息到此为止,不再传递。如果返回0或调用CallNextHookEx函数则消息出了这个钩子继续往下传递,也就是传给消息真正的接受者

}

return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);

}

//键盘结构

public struct KeyMSG

{

public int vkCode; //键值

public int scanCode;

public int flags;

public int time;

public int dwExtraInfo;

}

// 安装钩子

public void HookStart()

{

if(hKeyboardHook == 0)

{

// 创建HookProc实例

KeyboardHookProcedure = new HookProc(KeyboardHookProc);

// 设置线程钩子

hKeyboardHook = SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);

//************************************

//键盘线程钩子

//SetWindowsHookEx( 2,KeyboardHookProcedure, IntPtr.Zero, GetCurrentThreadId()); //GetCurrentThreadId()为要监视的线程ID,你完全可以自己写个方法获取QQ的线程哦

//键盘全局钩子,需要引用空间(using System.Reflection;)

//SetWindowsHookEx( 13,KeyboardHookProcedure,Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules()[0]),0);

//

//关于SetWindowsHookEx (int idHook, HookProc lpfn, IntPtr hInstance, int threadId)函数将钩子加入到钩子链表中,说明一下四个参数:

//idHook 钩子类型,即确定钩子监听何种消息,上面的代码中设为2,即监听键盘消息并且是线程钩子,如果是全局钩子监听键盘消息应设为13,

//线程钩子监听鼠标消息设为7,全局钩子监听鼠标消息设为14。

//

//lpfn 钩子子程的地址指针。如果dwThreadId参数为0 或是一个由别的进程创建的线程的标识,lpfn必须指向DLL中的钩子子程。 除此以外,lpfn可

//以指向当前进程的一段钩子子程代码。钩子函数的入口地址,当钩子钩到任何消息后便调用这个函数。

//

//hInstance应用程序实例的句柄。标识包含lpfn所指的子程的DLL。如果threadId 标识当前进程创建的一个线程,而且子程代码位于当前

//进程,hInstance必须为NULL。可以很简单的设定其为本应用程序的实例句柄。

//

//threadedId 与安装的钩子子程相关联的线程的标识符。如果为0,钩子子程与所有的线程关联,即为全局钩子。

//************************************

// 如果设置钩子失败

if(hKeyboardHook == 0 )

{

HookStop();

throw new Exception("SetWindowsHookEx failed.");

}

}

}

// 卸载钩子

public void HookStop()

{

bool retKeyboard = true;

if(hKeyboardHook != 0)

{

retKeyboard = UnhookWindowsHookEx(hKeyboardHook);

hKeyboardHook = 0;

}

if (!( retKeyboard))

throw new Exception("UnhookWindowsHookEx failed.");

}

扫雷中左右键一起按的按键键值是什么(VB.NET)

左键是1

右键是2

中键是4

可以组合相加

左右同时就是3,也可以写做:vbleftbutton+vbrightbutton

vb.net中如何执行键盘事件?

执行键盘事件方法如下:

第一步,点击VS工具。

第二步,打开后,新建一个Windows窗体应用程序。

第三步,请看右下方Form的属性栏。

第四步,双击KeyDown。

第五步,输入提示按键代码,如图所示。

第六步,再次输入代码,设置属性KeyPreview为true。

第七步,运行程序,按下举例F5,则会弹出提示,表明已经成功获。

vb中如何获得键盘方向键的键值

将窗体KeyPreview属性设置为True并对Form_KeyDown事件编程,可以获取键盘箭头键的键值。实现方法如下:

Option Explicit

Private Sub Form_Load()

'允许窗体拦截键盘按键

Me.KeyPreview = True

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

' KeyCode 键盘码是键盘上每个按键的唯一编码

' 在VB中,符号常数表示键盘码,例如 vbKeyF1 表示F1键,

' vbKeyHome 表示HOME键…… 

Select Case KeyCode

Case vbKeyLeft:     Print "左箭头键值:" + CStr(KeyCode)

Case vbKeyRight:    Print "右箭头键值:" + CStr(KeyCode)

Case vbKeyUp:       Print "上箭头键值:" + CStr(KeyCode)

Case vbKeyDown:     Print "下箭头键值:" + CStr(KeyCode)

End Select

End Sub

VB.NET添加快捷键

你要添加窗口的keydown事件,判断e.keycode=keys.q如果满足条件则调用button1的click事件,调用的话你要这样写call button1_click(sender,e)

VB中键盘每个按键所对应的具体数值是?例如:enter是对应13.

VB键盘代码数值表可在代码中的任何地方用下列VB键盘代码常数代替实际值:VB键盘代码常量值

(0x为16进制,其他为10进制)键盘说明vbKeyLButton0x1鼠标左键vbKeyRButton0x2鼠标右键vbKeyCancel0x3CANCEL键vbKeyMButton0x4鼠标中键vbKeyBack0x8退格键vbKeyTab0x9TAB键vbKeyClear0xCCLEAR健vbKeyReturn0xD回车键vbKeyShift0x10SHIFT键vbKeyControl0x11CTRL键vbKeyMenu0x12MENU键vbKeyPause0x13PAUSE键vbKeyCapital0x14CAPS LOCK 键vbKeyEscape0x1BESC键vbKeySpace0x20空格键vbKeyPageUp0x21Page Up 键vbKeyPageDown0x22Page Down 键vbKeyEnd0x23END键vbKeyHome0x24HOME键vbKeyLeft0x25光标左键vbKeyUp0x26光标上键vbKeyRight0x27光标右键vbKeyDown0x28光标下键vbKeySelect0x29SELECT键vbKeyPrint0x2APrint Screen 键vbKeyExecute0x2BEXECUTE键vbKeySnapshot0x2CSnapShot键vbKeyInsert0x2DINSERT键vbKeyDelete0x2EDELETE键vbKeyHelp0x2FHELP键vbKeyNumlock0x90NUM LOCK 键vbKeyA65字母A键vbKeyB66字母B键vbKeyC67字母C键vbKeyD68字母D键vbKeyE69字母E键vbKeyF70字母F键vbKeyG71字母G键vbKeyH72字母H键vbKeyI73字母I键vbKeyJ74字母J键vbKeyK75字母K键vbKeyL76字母L键vbKeyM77字母M键vbKeyN78字母N键vbKeyO79字母O键vbKeyP80字母P键vbKeyQ81字母Q键vbKeyR82字母R键vbKeyS83字母S键vbKeyT84字母T键vbKeyU85字母U键vbKeyV86字母V键vbKeyW87字母W键vbKeyX88字母X键vbKeyY89字母Y键vbKeyZ90字母Z键vbKey048数字0键vbKey149数字1键vbKey250数字2键vbKey351数字3键vbKey452数字4键vbKey553数字5键vbKey654数字6键vbKey755数字7键vbKey856数字8键vbKey957数字9键vbKeyF10x70F1功能键vbKeyF20x71F2功能键vbKeyF30x72F3功能键vbKeyF40x73F4功能键vbKeyF50x74F5功能键vbKeyF60x75F6功能键vbKeyF70x76F7功能键vbKeyF80x77F8功能键vbKeyF90x78F9功能键vbKeyF100x79F10功能键vbKeyF110x7AF11功能键vbKeyF120x7BF12功能键vbKeyF130x7CF13功能键vbKeyF140x7DF14功能键vbKeyF150x7EF15功能键vbKeyF160x7FF16功能键vbKeyNumpad00x60小键盘0键vbKeyNumpad10x61小键盘1键vbKeyNumpad20x62小键盘2键vbKeyNumpad30x63小键盘3键vbKeyNumpad40x64小键盘4键vbKeyNumpad50x65小键盘5键vbKeyNumpad60x66小键盘6键vbKeyNumpad70x67小键盘7键vbKeyNumpad80x68小键盘8键vbKeyNumpad90x69小键盘9键vbKeyMultiply0x6A小键盘*键vbKeyAdd0x6B小键盘+键vbKeySeparator0x6C小键盘回车键vbKeySubtract0x6D小键盘-键vbKeyDecimal0x6E小键盘.键vbKeyDivide0x6F小键盘/键


分享标题:vb.net键盘键值,vb中数字键
文章路径:http://dzwzjz.com/article/dseoohc.html
在线咨询
服务热线
服务热线:028-86922220
TOP