vb按键代码（vb中命令按钮是哪个）

本篇文章给大家谈谈vb按键代码，以及vb中命令按钮是哪个对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB中工具栏的按钮代码名称是什么
• 2、VB编写添加按钮的代码
• 3、vb点击一个按钮就相当于按下了键盘上的某个键，这段代码是什么？
• 4、VB如何用代码创建一个按钮
• 5、在vb中那些按钮的代码怎么写啊
• 6、求个VB按键代码

VB中工具栏的按钮代码名称是什么

VB中工具栏的按钮代码名称是：

字体，字号，加粗，倾斜，下划线，删除线，上标，下标，拼音指南，字符底纹，字体颜色。

VB编写添加按钮的代码

⒃谙允景磁サ氖录?刑砑尹br

/me.backgroundimage=system.drawing.bitmap.fromfile("你的图片文件路径")

命令按钮1.visable=false'或者命令按钮1.hide

命令按钮2.visable=false'或者命令按钮2.hide

在窗体的click事件中添加

命令按钮1.visable=true'或者命令按钮1.show

命令按钮2.visable=true'或者命令按钮2.show

me.backgroundimage=nothing

在退出按钮的事件中添加

end

2、这里应该还有两个timer,timer1和timer2

在开始按钮的事件中添加

timer1.interval=1000

timer1.enable=true

timer2.interval=500

timer2.enable=true

在timer1的tick事件中添加

label1.text=timeofday

在timer2的tick事件中添加

label2.left=label2.left

10

if

label2.left

vb点击一个按钮就相当于按下了键盘上的某个键，这段代码是什么？

这段代码是：模拟键盘按键

'函数申明

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_KEYUP = H2 '释放按键常数

'回车键例子

Private Sub Command1_Click()

Text1.SetFocus

Call keybd_event(13, 0, 0, 0) '按下

Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0) '释放

End Sub

键码

常数 值 描述

vbKeyLButton 1 鼠标左键

vbKeyRButton 2 鼠标右键

vbKeyCancel 3 CANCEL 键

vbKeyMButton 4 鼠标中键

vbKeyBack 8 BACKSPACE 键

vbKeyTab 9 TAB 键

vbKeyClear 12 CLEAR 键

vbKeyReturn 13 ENTER 键

vbKeyShift 16 SHIFT 键

vbKeyControl 17 CTRL 键

vbKeyMenu 18 菜单键

vbKeyPause 19 PAUSE 键

vbKeyCapital 20 CAPS LOCK 键

vbKeyEscape 27 ESC 键

vbKeySpace 32 SPACEBAR 键

vbKeyPageUp 33 PAGEUP 键

vbKeyPageDown 34 PAGEDOWN 键

vbKeyEnd 35 END 键

vbKeyHome 36 HOME 键

vbKeyLeft 37 LEFT ARROW 键

vbKeyUp 38 UP ARROW 键

vbKeyRight 39 RIGHT ARROW 键

vbKeyDown 40 DOWN ARROW 键

vbKeySelect 41 SELECT 键

vbKeyPrint 42 PRINT SCREEN 键

vbKeyExecute 43 EXECUTE 键

vbKeySnapshot 44 SNAP SHOT 键

vbKeyInser 45 INS 键

vbKeyDelete 46 DEL 键

vbKeyHelp 47 HELP 键

vbKeyNumlock 144 NUM LOCK 键

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 键

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 键

vbKeyF1 112 F1 键

vbKeyF2 113 F2 键

vbKeyF3 114 F3 键

vbKeyF4 115 F4 键

vbKeyF5 116 F5 键

vbKeyF6 117 F6 键

vbKeyF7 118 F7 键

vbKeyF8 119 F8 键

vbKeyF9 120 F9 键

vbKeyF10 121 F10 键

vbKeyF11 122 F11 键

vbKeyF12 123 F12 键

vbKeyF13 124 F13 键

vbKeyF14 125 F14 键

vbKeyF15 126 F15 键

vbKeyF16 127 F16 键

VB如何用代码创建一个按钮

思路

两种方式：

1、通过动态按钮方式创建，

2：通过控件数组方式创建。

个人倾向于通过控件数组的方式。一般应用都是有规律的创建的，所以用控件数组合适些。

举例

' 先在窗体上添加一个标准按钮

' 在属性窗口中，把它的 Index属性设置成 0

'        名称改为 cmdDynCmd （其它的名称也行，注意后面的说明）

'        Visible 可以设置成 False

Option Explicit

Private lCmdIndex As Long

Private Sub LoadCmdButton()

'这儿就是加载动态按钮的

   Dim i

   For i = 0 To NNN   '这儿NNN等于你需要的按钮数减1，可以用变量的

   '你应该能通过你的“数据库中"a"表中"名称"字段”项目数 来确定值为多少

   ' *** 注意这儿的 cmdDynCmd 就是设计时确定的按键名称 ***

      If (lCmdIndex  0) Then Load cmdDynCmd(i)

      cmdDynCmd(i).Visible = True

      '这儿的 Caption 属性，你自己用代码跟你的 数据库中"a"表中"名称"字段内容关联

      cmdDynCmd(i).Caption = "动态按钮"  i + 1

      '这儿的 x 、y 你可以根据 i 的值来进行计算

      cmdDynCmd(i).Top = X

      cmdDynCmd(i).Left = Y

      '直接 cmdDynCmd(i).move x, y也行

   next

End Sub

' 这儿就是动态按钮的事件代码

' 根据 Index 判断是哪个按钮触发了事件

' 跟你事先设计好的控件数组完全是相同的用法

' ***** 注意！！！注意这儿的 cmdDynCmd 就是设计时确定的按键名称

Private Sub cmdDynCmd_Click(Index As Integer)

   MsgBox "你点击的是第 "  Index + 1  " 个动态按钮。", 64

   '具体事件代码只能你自己写

End Sub

在vb中那些按钮的代码怎么写啊

在你选择的按钮上"双击",记住是双击噢!会弹出按钮的代码编辑位置,在里面就可以写按钮代码了,如下是退出的按钮代码.其他代码要根据的需要的功能,作相应的修改

Private

Sub

Command1_Click()

MsgBox

"我是退出的按钮代码!"

End

End

Sub

求个VB按键代码

v

按Q执行↑↓←→键每个按一下

按F5开始F8停止Y键的按下

如果是我说这样，那代码如下：

Private

Declare

Function

GetAsyncKeyState

Lib

"user32"

(ByVal

vKey

As

Long)

As

Integer

Private

Declare

Sub

keybd_event

Lib

"user32"

(ByVal

bVk

As

Byte,

ByVal

Scan

As

Byte,

ByVal

dwFlags

As

Long,

ByVal

dwExtraInfo

As

Long)

Private

Sub

Timer3_Timer()

If

GetAsyncKeyState(vbKeyQ)

Then

'按下Q执行上下左右各按一次

Timer1.Enabled

=

True

End

If

If

GetAsyncKeyState(vbKeyF5)

Then

'按下F5执行每900毫秒按一下Y键

Timer2.Enabled

=

True

End

If

If

GetAsyncKeyState(vbKeyF8)

Then

'按下F8执行停止按Y键

Timer2.Enabled

=

False

End

If

End

Sub

Private

Sub

Form_Load()

Timer1.Interval

=

1000

'1000大约为一秒，最大60000(1分钟)，最小1

Timer2.Interval

=

900

'900毫秒

Timer3.Interval

=

10

'此处最好不要修改,是检测你是否按下快捷键

Timer1.Enabled

=

False

Timer2.Enabled

=

False

Timer3.Enabled

=

True

End

Sub

Private

Sub

Timer2_Timer()

Call

keybd_event(89,

0,

0,

0)

Call

keybd_event(89,

0,

KEYEVENTF_KEYUP,

0)

End

Sub

Private

Sub

Timer1_Timer()

Call

keybd_event(38,

0,

0,

0)

Call

keybd_event(38,

0,

KEYEVENTF_KEYUP,

0)

Call

keybd_event(40,

0,

0,

0)

Call

keybd_event(40,

0,

KEYEVENTF_KEYUP,

0)

Call

keybd_event(37,

0,

0,

0)

Call

keybd_event(37,

0,

KEYEVENTF_KEYUP,

0)

Call

keybd_event(39,

0,

0,

0)

Call

keybd_event(39,

0,

KEYEVENTF_KEYUP,

0)

End

Sub

vb按键代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中命令按钮是哪个、vb按键代码的信息别忘了在本站进行查找喔。