请教 怎么设置能让commandbutton 平时是平的 鼠标放上凸起

Question

各位大侠

Answer 1

或者用delphi的speedbutton
哈

Answer 2

哈哈，bbhere(阿忠) 好有创意啊

Answer 3

我以前也是用LABEL+4 LINES 模拟的:Private Sub Form_Load()
Label1.BackStyle = 1
Label1.Move 1000, 1000, 1000, 400
Label1.FontSize = 12
Label1.Caption = "按钮效果"
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Line (Label1.Left, Label1.Top)-(Label1.Left + Label1.Width, Label1.Top), Me.BackColor
Me.Line (Label1.Left, Label1.Top)-(Label1.Left, Label1.Top + Label1.Height), Me.BackColor
Me.Line (Label1.Left, Label1.Top + Label1.Height)-(Label1.Left + Label1.Width, Label1.Top + Label1.Height), Me.BackColor
Me.Line (Label1.Left + Label1.Width, Label1.Top)-(Label1.Left + Label1.Width, Label1.Top + Label1.Height), Me.BackColor
End Sub
Private Sub LABEL1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Line (Label1.Left, Label1.Top)-(Label1.Left + Label1.Width, Label1.Top), &HE0E0E0
Me.Line (Label1.Left, Label1.Top)-(Label1.Left, Label1.Top + Label1.Height), &HE0E0E0
Me.Line (Label1.Left, Label1.Top + Label1.Height)-(Label1.Left + Label1.Width, Label1.Top + Label1.Height), &H808080
Me.Line (Label1.Left + Label1.Width, Label1.Top)-(Label1.Left + Label1.Width, Label1.Top + Label1.Height), &H808080
End Sub