你试试新建一个CheckBox控件，然后把它的Style属性改成
[1 - Graphical]（默认为[0 - Standard]），然后按调试一下，
看看这是不是你所要的效果。
另外，要判断这个控件是不是被按下，可以让程序检查它的Checked属性
0为松开，1为按下
'下面是一个小例子,添加3个Commandbutton就可看到效果
Private Sub Command1_Click()
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
If Command1.Enabled Then
MsgBox "Command1没有被按下"
Else
MsgBox "Command1被按下"
End If
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End Sub
如果是这样的话.在点击后..代码更改按钮的外观就可以了!
vb如何实现按下某个键一直不放手
VB提倡的是用定时器控件（Timer）的方法。首先在窗体放入一个Timer1和Command1，然后输入以下代码：Private Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()MsgBox "这个对话框是点击按钮1秒...
用VB编程,我想让程序点击按钮后暂停,再点一下继续执行,有谁知道该怎...
在你的程序你面设置一个参数ZANTING，如果按钮1点击，则ZANTING=1，程序进入死循环，如果按钮2点击，则ZANTING=0，程序跳出死循环 代码如下：在你的程序里面写如下代码：waitdone2:If ZANTING = 1 Then System.Threading.Thread.Sleep(100)GoTo waitdone2 End If If ZANTING = 0 Then GoTo NEXT...
VB中如何让commandButton按钮程序运行时默认为选中状态?
Command1.Default = True 是设按钮为默认按钮，按Enter键就相当于按了command1
怎样用VB设计在计时器启动后不停点击command
1、command1 默认 enter 在属性里可以设置，然后计时器触发后就不停的自动按回车就行了 2、使用鼠标自动点击固定的坐标位置的按钮。也就是 模拟鼠标双击 3、模拟键盘的回车按键，API监控回车键的消息， 如果判断在按回车键，那就点command1的按钮就行 了 你想要那种？说下，我给你写代码哈 ...
vb模拟鼠标 左键一直按下 和鼠标右键一直按下
窗体 Private Sub Command1_Click()Script.AddItem ("坐标：" & MouseX.Text & "-" & MouseY.Text)End SubPrivate Sub Command2_Click()Script.AddItem ("鼠标：左键")End SubPrivate Sub Command3_Click()Script.AddItem ("鼠标：右键")End SubPrivate Sub Command4_Click()If KeyText.Text ...
vb中command控件怎样实现:鼠标点击后跟着鼠标移动?
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then '1就是鼠标左键 bMove = Not bMove oldX = X oldY = Y End If End Sub 版本二***左键按下时可以拖动：Dim oldX!, oldY! '!是Single的缩写 Private Sub Command...
vb中如何实现按下按键持续输出,再按下又停止的程序
Private Sub Form_Load()Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If Shift = 4 And KeyCode = 80 Then 'ALT+P Timer1.Enabled = Not Timer1.Enabled End If End Sub Private Sub Timer1_Timer()Caption = ...
VB里怎么让鼠标循环运行一个单击的指令,而且每次运行都相隔几秒?_百度...
要实现自动循环，需要用到timer控件，这个想必你会，至于单击指令，可以调用按钮的Command1_Click()事件，这样：call Command1_Click 要实现相隔几秒，可以用延时函数，API函数声明（在模块中声明）：Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)调用可以这样：Call Sleep(40000)这样...
VB怎样编辑一个exe只要点击command1就自动按上下左右上下左右上下左右无 ...
你的意思是说按钮后,启动键盘输入上下左右吧? 命令是 sendkeys.sendwait"{UP}"{DOWN}等等
请问题在vb中我如何才能够做到点一下command按钮发生一个事件,再点一...
Private Sub timer1_Click()timer1.enable=not timer1.enable If timer1.enable=true then ...Else timer1.enable=false End If End Sub 这样点击一次go，再点stop，再点go...哥们，记得给分阿。
