vb.net字符的键值 vbnet substring

vb.net 如何吧字符穿转换成键盘码

（1）在Form1上布置一个Label，用来显示键盘码

（2）窗体代码如下

Imports System.Windows.Forms

Imports System.IO

Imports System.Net

Imports System.Windows.Forms

Imports System.IO

Imports System.Net

Public Class Form1

    Private Sub Form1_Load(sender As Object,

                           e As EventArgs) Handles MyBase.Load

        KeyPreview = True

    End Sub

    Private Sub Form1_KeyDown(sender As Object,

                              e As KeyEventArgs) Handles MyBase.KeyDown

        Label1.Text = e.KeyValue

    End Sub

End Class

按键盘上的键，Label1将显示对应键的键盘码

相关问答

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

左键是1

右键是2

中键是4

可以组合相加

左右同时就是3，也可以写做：vbleftbutton+vbrightbutton

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

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

/定义变量

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.");

}

Q3: vb.net怎样读取并更改指定注册表目录下的REG_SZ键值

VB.NET 参考代码：

Imports Microsoft.Win32

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Windows", False)

        For Each strSubKeyName In regKey.GetValueNames()

            If regKey.GetValueKind(strSubKeyName) = RegistryValueKind.String Then

                MessageBox.Show(regKey.GetValue(strSubKeyName))

                ' regKey.SetValue(strSubKeyName, "修改后的值")

            End If

        Next

    End Sub

End Class

Q4: VB.NET中chr(8)是什么意思

表示ASCII码为8vb.net字符的键值的字符

ASCII值为 8、9、10 和 13 分别转换为退格、制表、换行和回车字符。

关于vb.net字符的键值和vbnet substring的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。