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

w_wbinf 2005-11-03 09:01:02

各位大侠

...全文

258 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

feiyun0112 2005-11-04

打赏
举报

只有自己做控件，或用第三方控件

northwolves 2005-11-04

打赏
举报

我以前也是用LABEL+4 LINES 模拟的:

Private Sub Form_Load()
Label1.BackStyle = 1
Label1.Move 1000, 1000, 1000, 400
Label1.FontSize = 12
Label1.Caption = "按钮效果"
End Sub

Private 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

luoyiming 2005-11-04