VB中KeyPress如何定义快捷键

F10无法用keypress事件捕获，用Keydown事件即可！

Private

Sub

XXX_KeyDown(KeyCode

As

Integer,

Shift

As

Integer)

If

keycode

=

vbkeyF10

Then

'

在这里写入你动作的代码！

End

if

End

Sub

另外，一定要在该form属性内的keypreview，把其默认的“false”改为“true”

你是说cs还是bs啊，

bs结构的话 比较简单， 一楼说的就

cs结构的话 需要调用系统API

[SystemRuntimeInteropServicesDllImport("shell32dll")]

static extern IntPtr ShellExecute(

IntPtr hwnd,

string lpOperation,

string lpFile,

string lpParameters,

string lpDirectory,

int nShowCmd);

使用方法：

string url = thistextBox1TextTrim();

try

{

// 调用默认浏览器打开网址

ShellExecute(IntPtrZero, "open", url, "", "", 4);

}

catch(){}

KeyPress 事件、KeyUp事件、KeyDown事件 这三个事件 楼上已经讲明了，我就不重复了。 你把下面的代码放到程序里运行试试看就知道了， Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Cls Print "你按下的键是"; Chr(KeyCode); " ASCII码为"; KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) '这个区分大小写'但只能接受ANSI键 Print "你输入的键是"; Chr(KeyAscii); " ASCII码为"; KeyAscii End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print "d起的键是"; Chr(KeyCode); " ASCII码为"; KeyCode End Sub ANSI码转换为 普通字符可以用 Chr函数 来实现，如 Msgbox Chr(65)，就d出内容为“A”的信息框， 在上面的代码中我也写有了

以上就是关于VB中KeyPress如何定义快捷键全部的内容，包括:VB中KeyPress如何定义快捷键、c# keypress怎么用例如浏览器的转到按钮、VB中有关KeyPress及其他的问题。高手进！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！