Question

vb的按钮点击问题

我想采用指定按钮的MOUSEDOWN和MOUSEUP控件:
具体的要求如下:
未按动左键时,按钮的图片是迭的状态;
第一次按下鼠标左键,按钮的图片凹了进去.
松开左键,图片保持凹的状态;
第二次按动鼠标左键,按钮的图片成了迭的状态.
松开左键,图片保持凹的状态;
想用MouseUp和MouseDown事件编写下列程序.
请大侠帮忙解决下.
大家的回答我看了,不过都不太符合要求.
按左键一次为凹,再按一次为迭

这个问题是我编VB上位机数控系统碰到的问题,我VB水平一般,
我是搞电气的,实际上想将VB的按钮做成触摸屏上的按钮的效果,
由一个键控制一个设备,点击一次为开启,上位机效果为凹
第二次点击为关闭,上位机效果为跌
再点为开启,再点为关闭 ........
使用了第三方空间AresButtonPro后,按钮的效果很不错,可是
无法作出符合条件的VB程序,望大侠们帮下忙!现在急用!

Answer 1

原来你是这个意思,那么就更简单一些了,代码如下:

按钮的style为graphic

Dim OnOff As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If OnOff Then
Command1.Picture = LoadPicture("f:\凹.ico")
OnOff = Not OnOff
Else
Command1.Picture = LoadPicture("f:\凸.ico")
OnOff = Not OnOff
End If
End Sub

Private Sub Form_Load()
Command1.Picture = LoadPicture("f:\凸.ico")
OnOff = True
End Sub

Answer 2

按钮好像做不到这个，至少我不太会。不过你可以用PICTURE控件当按钮用，代码：
Private Sub Picture1_Click()
If Picture1.BorderStyle = 1 Then
Picture1.BorderStyle = 0
Else
Picture1.BorderStyle = 1
End If
End Sub