主题：求助
ymhoe
[专家分：0] 发布于 2010-01-25 11:19:00
VB中想让Button控件在鼠标放在上面时能亮显并有立体感,有办法弄吗
回复列表 （共1个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2010-01-25 15:50:00
最简单的办法就是用两幅图片，都放在窗体文件所在的文件夹里。
'Command1.Style设置为1。
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture(App.Path & "\按钮亮.jpg")
End Sub
Private Sub Form_Load()
Command1.Picture = LoadPicture(App.Path & "\按钮暗.jpg")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture(App.Path & "\按钮暗.jpg")
End Sub
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 求助