如何制作立体按钮

给你个代码最少的例子
1 准备工作
在窗体上放3个IMAGE，image1是你显示的按钮，image2是你用来放鼠标移动到上面时候的图片的，image3和image1一样
2 代码
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = Image3.Picture
End SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = Image2.Picture
End Sub

解决方案 »

  1.   

    我建议你到http://lovevb.2699.com去看看。里面有很多不错的源码
      

  2.   

    我想你还应该使用SetCapture和ReleaseCapture。如果有时间，我写个例子给你。
      

  3.   

    bamyl说的方法可以,可是当窗提上的控建比较密集时,Form_MouseMove事件就不够灵敏,有可能出现光标已经离开,但按钮的状态没有改变的bug,不如把该事件改成一个timer事件,时间间隔设置的短一点即可