我要做一个VB凸出显示按钮

来源：百度知道 编辑：UC知道 时间：2024/05/16 11:13:07
我要做一个VB按钮,效果呢就是当鼠标移到上就凸出显示,例如你现在把鼠标移动到IE浏览器上的文件(F)按钮上一样它会高出来显示一样,请问我该怎么做呢?

利用视觉差做的效果 一个按钮 一个label标签
按钮和标签大小一样 标签在按钮下面 然后设置标签的背景色backcolor为黑色
代码如下（也可以交换这2个事件中的代码）

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = Label1.Left - 45
Command1.Top = Label1.Top - 45
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = Label1.Left
Command1.Top = Label1.Top
End Sub

自己做两个图片

一个是平的，一个是凸的，

做得什么样得看你ps功底了

从网上下也可以

实现的时候，鼠标放上去和按下去时加载不同的图片

就会实现不同的效果

最简单的方法，捕捉到鼠标移入时，把按钮的字体加粗或者斜体就可以了。
当然，在移入的时候更改按钮的背景颜色也可以。