vb方向键代码（vb键盘按键代码）

本篇文章给大家谈谈vb方向键代码，以及vb键盘按键代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB里怎么用键盘的方向键来控制图片的移动啊??
• 2、vb 用按键（方向键）让COMBO1显示下拉框 求代码
• 3、VB常用键盘代码一览表
• 4、vb有没有 方向键的ascii码？如果没有，那要怎样才能得到是否按下方向键？
• 5、谁能写个VB程序每一秒钟自动按空格键然后再按方向键上下键的代码？？？急。高分悬赏=+++++
• 6、vb中如何获得键盘方向键的键值

VB里怎么用键盘的方向键来控制图片的移动啊??

1）在窗体上布置一个Image控件并载入图片

2）窗体代码

Option Explicit

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

    ' 按下箭头键，改变图片的位置

    Select Case KeyCode

        Case vbKeyUp    '上箭头键

            Image1.Top = Image1.Top - 1

        Case vbKeyDown  '下箭头键

            Image1.Top = Image1.Top + 1

        Case vbKeyLeft  '左箭头键

            Image1.Left = Image1.Left - 1

        Case vbKeyRight '右箭头键

            Image1.Left = Image1.Left + 1

    End Select

End Sub

Private Sub Form_Load()

    '允许窗体截获键盘

    Me.KeyPreview = True

    '将窗体的度量单位从默认的Twips改为Pixels（像素）

    Me.ScaleMode = vbPixels

End Sub

vb 用按键（方向键）让COMBO1显示下拉框 求代码

一、枚举进程和其ID时：

Combo1.AddItem 进程名称

Combo1.ItemData(Combo1.NewIndex) = 进程ID

二、选择Combo1中的进程名称的时候，另外一个控件取得该进程所对应的PID：

Private Sub Combo1_Click()

Form2.label1.Caption = Combo1.ItemData(Combo1.ListIndex)

End Sub

VB常用键盘代码一览表

Keycode 常数

可在代码中的任何地方用下列常数代替实际值：

常数 值 描述

vbKeyLButton 0x1 鼠标左键

vbKeyRButton 0x2 鼠标右键

vbKeyCancel 0x3 CANCEL 键

vbKeyMButton 0x4 鼠标中键

vbKeyBack 0x8 BACKSPACE 键

vbKeyTab 0x9 TAB 键

vbKeyClear 0xC CLEAR 键

vbKeyReturn 0xD ENTER 键

vbKeyShift 0x10 SHIFT 键

vbKeyControl 0x11 CTRL 键

vbKeyMenu 0x12 MENU 键

vbKeyPause 0x13 PAUSE 键

vbKeyCapital 0x14 CAPS LOCK 键

vbKeyEscape 0x1B ESC 键

vbKeySpace 0x20 SPACEBAR 键

vbKeyPageUp 0x21 PAGE UP 键

vbKeyPageDown 0x22 PAGE DOWN 键

vbKeyEnd 0x23 END 键

vbKeyHome 0x24 HOME 键

vbKeyLeft 0x25 LEFT ARROW 键

vbKeyUp 0x26 UP ARROW 键

vbKeyRight 0x27 RIGHT ARROW 键

vbKeyDown 0x28 DOWN ARROW 键

vbKeySelect 0x29 SELECT 键

vbKeyPrint 0x2A PRINT SCREEN 键

vbKeyExecute 0x2B EXECUTE 键

vbKeySnapshot 0x2C SNAPSHOT 键

vbKeyInsert 0x2D INSERT 键

vbKeyDelete 0x2E DELETE 键

vbKeyHelp 0x2F HELP 键

vbKeyNumlock 0x90 NUM LOCK 键

A 至 Z 键与 A – Z 字母的 ASCII 码相同：

常数 值 描述

vbKeyA 65 A 键

vbKeyB 66 B 键

vbKeyC 67 C 键

vbKeyD 68 D 键

vbKeyE 69 E 键

vbKeyF 70 F 键

vbKeyG 71 G 键

vbKeyH 72 H 键

vbKeyI 73 I 键

vbKeyJ 74 J 键

vbKeyK 75 K 键

vbKeyL 76 L 键

vbKeyM 77 M 键

vbKeyN 78 N 键

vbKeyO 79 O 键

vbKeyP 80 P 键

vbKeyQ 81 Q 键

vbKeyR 82 R 键

vbKeyS 83 S 键

vbKeyT 84 T 键

vbKeyU 85 U 键

vbKeyV 86 V 键

vbKeyW 87 W 键

vbKeyX 88 X 键

vbKeyY 89 Y 键

vbKeyZ 90 Z 键

0 至 9 键与数字 0 – 9 的 ASCII 码相同：

常数 值 描述

vbKey0 48 0 键

vbKey1 49 1 键

vbKey2 50 2 键

vbKey3 51 3 键

vbKey4 52 4 键

vbKey5 53 5 键

vbKey6 54 6 键

vbKey7 55 7 键

vbKey8 56 8 键

vbKey9 57 9 键

下列常数代表数字键盘上的键：

常数 值 描述

vbKeyNumpad0 0x60 0 键

vbKeyNumpad1 0x61 1 键

vbKeyNumpad2 0x62 2 键

vbKeyNumpad3 0x63 3 键

vbKeyNumpad4 0x64 4 键

vbKeyNumpad5 0x65 5 键

vbKeyNumpad6 0x66 6 键

vbKeyNumpad7 0x67 7 键

vbKeyNumpad8 0x68 8 键

vbKeyNumpad9 0x69 9 键

vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) 键

vbKeyAdd 0x6B PLUS SIGN (+) 键

vbKeySeparator 0x6C ENTER 键

vbKeySubtract 0x6D MINUS SIGN (–) 键

vbKeyDecimal 0x6E DECIMAL POINT (.) 键

vbKeyDivide 0x6F DIVISION SIGN (/) 键

下列常数代表功能键：

常数 值 描述

vbKeyF1 0x70 F1 键

vbKeyF2 0x71 F2 键

vbKeyF3 0x72 F3 键

vbKeyF4 0x73 F4 键

vbKeyF5 0x74 F5 键

vbKeyF6 0x75 F6 键

vbKeyF7 0x76 F7 键

vbKeyF8 0x77 F8 键

vbKeyF9 0x78 F9 键

vbKeyF10 0x79 F10 键

vbKeyF11 0x7A F11 键

vbKeyF12 0x7B F12 键

vbKeyF13 0x7C F13 键

vbKeyF14 0x7D F14 键

vbKeyF15 0x7E F15 键

vbKeyF16 0x7F F16 键

vb有没有 方向键的ascii码？如果没有，那要怎样才能得到是否按下方向键？

方向键没有ascii，只有keyCode。可以在TextBox等控件的KeyDown和KeyUp事件中加入msgbox keycode然后，运行工程，按下键盘上的任何键即可弹出窗口告知你该键位的KeyCode值

谁能写个VB程序每一秒钟自动按空格键然后再按方向键上下键的代码？？？急。高分悬赏=+++++

比如每隔200毫秒按一次空格键，同时每隔1000毫秒按一下数字1键，再每隔2000毫秒按一下数字2键

我做游戏的辅助工具用！

最佳答案

'在窗体上加入控件timer1，command1,command2，然后复制下面代码，运行，按提示按“开始”键即可

Option

Explicit

Private

Declare

Sub

keybd_event

Lib

"user32"

(ByVal

bVk

As

Byte,

ByVal

bScan

As

Byte,

ByVal

dwFlags

As

Long,

ByVal

dwExtraInfo

As

Long)

Private

Declare

Sub

Sleep

Lib

"kernel32"

(ByVal

dwMilliseconds

As

Long)

Private

Const

KEYEVENTF_EXTENDEDKEY

=

H1

Private

Const

KEYEVENTF_KEYUP

=

H2

Dim

k1,

k2,

k3

Sub

SendKeyToWnd(vbkey

As

KeyCodeConstants)

keybd_event

vbkey,

0,

KEYEVENTF_EXTENDEDKEY,

Sleep

100

keybd_event

vbkey,

0,

KEYEVENTF_EXTENDEDKEY

Or

KEYEVENTF_KEYUP,

End

Sub

Private

Sub

Command1_Click()

k1

=

Timer

k2

=

Timer

k3

=

Timer

Timer1.Enabled

=

True

End

Sub

Private

Sub

Command2_Click()

Timer1.Enabled

=

False

End

Sub

Private

Sub

Form_Load()

Command1.Caption

=

"开始"

Command2.Caption

=

"停止"

Timer1.Interval

=

200

Timer1.Enabled

=

False

End

Sub

Private

Sub

Timer1_Timer()

If

Timer

-

k1

=

0.2

Then

'每隔200毫秒按一次空格键

SendKeyToWnd

vbKeySpace

k1

=

Timer

End

If

If

Timer

-

k2

=

1

Then

'每隔1000毫秒按一次数字1

SendKeyToWnd

vbKey1

k2

=

Timer

End

If

If

Timer

-

k3

=

2

Then

'每隔2000毫秒按一次数字2

SendKeyToWnd

vbKey2

k3

=

Timer

End

If

End

Sub

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方向键代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb键盘按键代码、vb方向键代码的信息别忘了在本站进行查找喔。