如何制作立体按钮

[freebird_china]

各位大虾：
如何做动态立体按钮，比如我一个IMAGE作为按钮功能，当鼠标移动到它上面，它就呈现浮动突起效果，按下执行命令，鼠标离开恢复平面效果
应该不难，用VB6实现，快！！！谢谢各位50分

[bamyl]

给你个代码最少的例子
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 Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = Image2.Picture
End Sub

[0xFFCD]

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

[prefix]

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

[BluePenguin]

改用VC6吧

[fxRen]

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