有关Command控件的问题，困扰我很久了……

Question

就是想让鼠标点击一次command控件，控件不会弹起来，而第二次按已经被“陷下”的按键，它就弹起来了。在线等待～～～

Answer 1

Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const BM_SETSTATE = &HF3
Dim flag As BooleanPrivate Sub Command1_Click()
    flag = Not flag
    SendMessage Command1.hwnd, BM_SETSTATE, flag, ByVal 0&
End Sub

Answer 2

其它的方法还有几种，最简单的就是用checkbox（设置其style属性为1）代替按钮

Answer 3

完全定制COMMAND控件，可以用随想命令按钮SP1控件，即美观也基本上没错误,界面也很好看。如果仅仅要实现你的如题要求:最简单的就是用复选框控件CheckBox（设置其style属性为1）即可

Answer 4

Check1.Style = 1 
  这个需要在属性里面设置，不能写在代码里面！