怎样使按钮按下不弹起?

forever_chang(大混蛋蛋)　 根本不起作用.

解决方案 »

  1.   

    在MOUSEDOWN或MOUSEUP事件中编辑一个过程
      

  2.   

    TOOLBAR的BUTTON可以设置为这种效果，
    在属性页中，把该按钮的样式设为tbrCheck就行了。
      

  3.   

    我说的是普通按钮,用API应该可以做到.
      

  4.   

     将checkbox改为图形方式显示能达到你的要求
      

  5.   

    有两个image按钮,分别在按下与不按下之间切换两个image按钮即可实现这样的效果
      

  6.   

    最简单的办法是用CheckBox,把它的style设为1，则可以保持上下状态。在它的click事件中写代码，并用value 0 和1 来表示上下状态
      

  7.   

    没想到 dbcontrols(aa)　也有这种底级问题，sunkylix(delphi)说得很清楚了，在设计时将CheckBox控件的style改为1
      

  8.   

    那只是改为图形显示.按钮跟CheckBox有什么关系!
      

  9.   

    用CheckBox控件 代替按钮啊，
      

  10.   

    To dbcontrols:
        你要的是什么? 我认为你应该仔细想这个问题!
        你要的是"如显示器电源按钮那样"的一个东西,但不一定就是按钮!用CheckBox完全可以实现. 
        你想吃饱,但不一定要吃馒头!
        你这种思想在你的编程事业中是非常有害的.你要注意!!!
      

  11.   

    微软的form2.0 控件组中有一个togglebutton 控件完全满足你的要求
      

  12.   

    itmouse(Anti猫)　不会就是不会,我知道CheckBox可以指示两个状态,那是两回事,我就想让一个按钮保持按下的状态,一个普通的CommandButton.我早吃饱了,就想下一顿怎么吃的好一点.我想API肯定能够实现这个功能,以前见过,找不到了,我不想用form2.0 控件组中的togglebutton.尽管没有解决这个问题,我仍然谢谢你们的回答.
      

  13.   

    这个问题你开始没有明确说明，大家以为你只是要实现上下按钮的功能。你是想用API 的方式在COMMAND 上实现这个功能。这确实能可以解决。我以前也用过，现在记不清了当时的做法了。好像用的是API 的图形函数。
      

  14.   

    你用delphi好了，delphi的speedbutton有down这个属性的
      

  15.   

    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Const GWL_STYLE = (-16)
    Private Const BS_AUTOCHECKBOX = &H3&
    Private Const BS_PUSHLIKE = &H1000&Private Sub Form_Load()
     Dim style As Long
        style = GetWindowLong(Command1.hwnd, GWL_STYLE)
        style = style Or BS_AUTOCHECKBOX Or BS_PUSHLIKE
        SetWindowLong Command1.hwnd, GWL_STYLE, style
    End Sub
    满足你，试试这个吧
      

  16.   

    VCVCVC(VC爱好者)　这是我要的效果.我还想问,按下去后怎么用另外一个按钮把它弹起?分不成问题,我以后还有好东西送你.
      

  17.   

    建议使用VB隐藏的Option Button常规控件
      

  18.   

    http://www.freevbcode.com/code/options.zip
      

  19.   

    dbcontrols, 你这个人还真是有点奇怪。前面大家跟你说了那么多次用CHECKBOX，你就是不听，好
    你非要用VCVCVC告诉你的这个办法，那么你看，把他的
        style = style Or BS_AUTOCHECKBOX Or BS_PUSHLIKE
    去掉半截，改成
        style = style Or BS_AUTOCHECKBOX你看看这究竟是个什么东东？？？？？好比你是导演，在那里选演员，过来一个人应聘，你说，
    “你太老了，不要”
    完了还是这个人把胡子刮了又过来了，你就说
    “好啊好啊，就是你了”
      

  20.   

    用api可以做到，我原来做过的，好象是给button发一个消息就 ok了，可惜我现在在长沙，没有资料，如果你有windows 程序设计一书的话可以看看，那里面有提到
      

  21.   

    SHIT，光谢有个屁用，给分啦，CSDN就被你们这些人搞坏了！
      

  22.   

    用VB我就没有办法了，如果是Delphi/BCB就好办多了
      

  23.   

    chinahfj(酷酷)　我会给VCVCVC(VC爱好者)分的,这不用阁下操心,关你屁事!我有那么大本事把这里搞坏?你高看我了!
      

  24.   

    checkbox呀，radio也可以呀，设设style就可以了，确省得是小园点，
    可是也可以变成方块按钮形状的，在它里面些onmouseclick事件函数
    不就可以了？习习
    一组radio肯定可以一个按下，其他的弹起来，太简单来
      

  25.   

    你不喜欢CheckBox自己用API画一个自己的Button吧！
    不过好麻烦的
      

  26.   

    mhorse(火狮)　说得对 哈哈