Question

vb的按钮如何设计

这样子按钮vb要怎么样才能设计出来。。。。。。。。
就是按钮不会影响界面，，，，鼠标靠近时按钮会变化（比如变颜色之类的）
按钮怎么样设计成其他形状的

Answer 1

声明：首先VB并不是外界通用的编程语言，VC++要比它通用，你不清楚他的本源语言是什么是很难模仿的
其次，酷我2013至2014一直无法做出这种界面，证明别人很难才能做出来

方法：
因为Image本身是透明效果的，因此只需加载一幅漂亮的按钮图片即可了，这样一个漂亮的按钮就做成了
然后再找另一幅和这个按钮不一样的图片，然后
用Image_Mousemove事件，当鼠标移到它上边的时候让它显示另一幅图片
再用form_mousemove事件，当鼠标移到窗体上的时候让它显示原来图片，
这样就完成动感按钮的制作了。
也就是说你要完成这个界面的制作，必须修改图片亮度
假设你在D盘根目录下有两个图片1.jpg,2.jpg，这个两个图片大小一样只是颜色不一样，1.jpg是灰色的，2.jpg是亮色的，当鼠标没有移动到Image1上的时候让他是灰色，也就是1.jpg，当移动到Image1上的时候让他是亮色的,也就是2.jpg，添加代码如下
Private Sub Form_Load()
Image1.Picture = LoadPicture("D:\1.jpg")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("D:\1.jpg")
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("D:\2.jpg")
End Sub

追问

那个图标怎么弄成背景透明的

追答

您可以使用PhotoShop选中白色区域然后按Delete，再另存为。

追问

有个问题，就是我的关闭符号，如果放在图片上面，mousemove事件发生但是不会恢复原来的状态，当鼠标停留在图片上任意位置都不还原，但是当鼠标移到右边无图片区域又可以还原，mousemove正常发生和还原，这个问题要怎么解决

追答

能发源文件给我吗？或者你拍个视频给我，我实在看不明白，麻烦了

Answer 2

不是用按钮，用Label
变颜色用MouseMove事件

追问

怎么用，，能示范一下吗

追答

仅供参考
Private Sub LB_history_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
LB_history.ForeColor = vbYellow

LB_home.ForeColor = vbWhite
LB_system.ForeColor = vbWhite
LB_about.ForeColor = vbWhite
LB_exit.ForeColor = vbWhite
If LB_Debug.ForeColor = vbYellow Then LB_Debug.ForeColor = vbWhite

End Sub

追问

 有个问题，就是我的关闭符号，如果放在图片上面，mousemove事件发生但是不会恢复原来的状态，当鼠标停留在图片上任意位置都不还原，但是当鼠标移到右边无图片区域又可以还原，mousemove正常发生和还原，这个问题要怎么解决

追答

最好把源码传到网盘，这要没源码不大好分析！