189 8069 5689
我前面说的只是编程的技巧，如果你单纯是为了让代码好看，那么像我那么做即可，如果你是非要转换键码的键名，用下面的代码：
在成都做网站、网站设计过程中，需要针对客户的行业特点、产品特性、目标受众和市场情况进行定位分析，以确定网站的风格、色彩、版式、交互等方面的设计方向。创新互联公司还需要根据客户的需求进行功能模块的开发和设计，包括内容管理、前台展示、用户权限管理、数据统计和安全保护等功能。
Private
Declare
Function
GetKeyNameText
Lib
"user32"
Alias
"GetKeyNameTextA"
(ByVal
lParam
As
Long,
ByVal
lpBuffer
As
String,
ByVal
nSize
As
Long)
As
Long
Private
Declare
Function
MapVirtualKey
Lib
"user32"
Alias
"MapVirtualKeyA"
(ByVal
wCode
As
Long,
ByVal
wMapType
As
Long)
As
Long
Private
Sub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
Dim
s
As
String
s
=
String(100,
Chr(0))
GetKeyNameText
MapVirtualKey(KeyCode,
0)
*
65536,
s,
100
s
=
Left(s,
InStr(s,
Chr(0)))
Me.Cls
s
End
Sub
===================================
VB中有预先定义好的键码的常量
你添加这样的定义类型
Dim
k
As
KeyCodeConstants
然后你键入
k
=就可以看到很多常量的选项，就包括所有的虚拟键码
不明白的百度HI我，楼上说的那些方法都不对
===================================
用API函数，以下代码Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = H2
Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMosT = -1
Private Const SWP_NOMOVE = H2
Private Const SWP_NosIZE = H1
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_KEYDOWN = H100
Const WM_KEYUP = H101
Const WM_CHAR = H102
Const VK_F1 = H70
Private Sub SendF1(hwnd) '调用这个过程即可对目标窗体发送F1键
Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)
Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)
End Sub这里是发送F1的实例，各个按键对应的虚拟键码，要到网上查
第三句。在类级别的变量声明语句中必须显式指定类型名称，省略AS语句只可以用在局部变量声明语句中。
Private Const c As String = "ok"
常量，是指程序在运行过程中其值可以改变的量；在VB中值常量就是一个固定不变的值，不能修改，变量可以修改内存空间对其进行修改不发生变化的叫常量 。
用Const定义的 在VB中不能参加赋值 比如 Const a as integer=30；隐式声明，只是变量，不经声明，直接使用；显示声明，变量声明后再使用的方式成为显式声明。
扩展资料：
VB变量类型转换规则：
数据型变量之间可以相互赋值。
浮点数转换为整型数时，小数部分“四舍五入”为整数（其中0.5要向最近的偶数靠拢）。
当给一个变量赋予超出它表示范围的值时，会导致“溢出”错误。
例如：
(1) intN1=45631234 '(超出整型变量范围，系统提示溢出错误)。
(2) bytN1=-12 '(超出表示范围，报溢出错误)。
参考资料来源：
百度百科-常量