100 求一图片按钮控件，不够分另外发贴给

支持gif透明的图片按钮控件
可以设置默认的图片，鼠标悬停时显示的图片，鼠标按下时显示的图片。能实现像网页上图片按钮那样的功能就可以了。急求啊！各位大侠帮帮忙啊

解决方案 »

  1.   

    自己写一个吧.不是很复杂的.
    用WebBrowser1来播放GIF
      

  2.   

    建个Image1控件数组(0-3)，放个4个不同状态的按钮图片（0-正常、1-按下、2-加亮、3、禁止）
    均隐藏起来用个可见ImgCmd做按钮Private Sub ImgCmd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImgCmd=Image1(1)
    End SubPrivate Sub ImgCmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImgCmd=Image1(2)
    End SubPrivate Sub ImgCmd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImgCmd=Image1(0)
    End SubPrivate Sub ImgCmd_Click()
    '与CommandButton的Click事件一样去写
    End Sub'在需要禁止时就写
    ImgCmd=Image1(3)
    ImgCmd.Enabled = False'在需要可用时就写
    ImgCmd=Image1(0)
    ImgCmd.Enabled = True
      

  3.   

    同意用Image控件自己做，但不能做成ActiveX控件，那样不会透明
      

  4.   

    嘿嘿！只是为了举例简单而已。
    其实，我并不喜欢用Image控件做按钮，绘图时它会闪烁，很烦人！高级一点，最好还是用纯绘图方法。
      

  5.   

    http://www.vb99.com/product/gifbutton/register.asp