vb用代码按按钮（vb按钮可用代码）

今天给各位分享vb用代码按按钮的知识，其中也会对vb按钮可用代码进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、怎么用VB语言去触发按钮
• 2、如何用VB实现自动按键
• 3、vb代码如何用一个按钮实现暂停与继续
• 4、VB编写添加按钮的代码
• 5、vb点击一个按钮就相当于按下了键盘上的某个键，这段代码是什么？
• 6、求个VB按键代码

怎么用VB语言去触发按钮

每个按钮都有一个sub过程作为它的功能代码。 在其它位置的代码可以调用该过程，跟调用函数一样。举例：

Private Sub Command1_Click()

 msgbox "按钮被点击了"

End Sub

Private Sub Form_Load()

 if 1+1=2 then Call Command1_Click '调用点击事件的代码，等同于点击了按钮。

End Sub

如何用VB实现自动按键

写了一个简易代码，基本上能满足你的需求~~

在Form上添加两个Timer控件，然后在代码窗口中复制粘贴以下代码：

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Private Sub Form_Load()

Timer1.Interval = 100

Timer2.Interval = 500

Timer1.Enabled = False

End Sub

Private Function MyHotKey(vKeyCode) As Boolean

MyHotKey = GetAsyncKeyState(vKeyCode) 0

End Function

Private Sub Timer1_Timer()

SendKeys "{5}"

SendKeys "{3}"

SendKeys "{2}"

SendKeys "{4}"

SendKeys "{7}"

SendKeys "{8}"

SendKeys "{9}"

End Sub

Private Sub Timer2_Timer()

If MyHotKey(vbKey6) Then

If Timer1.Enabled = False Then

Timer1.Enabled = True

Else

Timer1.Enabled = False

End If

End If

End Sub

程序运行后，按下键盘字符6键后开始不停按键操作，再次按下字符6键即停止。这段代码只适用于目标程序处于前台窗口激活状态下使用！

vb代码如何用一个按钮实现暂停与继续

1、首先我们在工具箱中的复选按钮控件。

2、接下来双击直接在窗体上绘制。

3、或者我们可以点击一下复选按钮控件，然后在页面上拖曳绘制。

4、如果觉得外观不满意，我们可以在属性窗口中更改。

5、同样可以直接双击进入代码窗口。

6、直到编写完毕后我们点击运行。

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按键代码

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用代码按按钮的信息别忘了在本站进行查找喔。