我的思路是： 舍弃CommandButton控件，每个按钮用4条Line控件和一个Label控件替代。4条Line围住Label的边缘，调入窗体时，置显示属性为False，并将左、上直线的颜色设为白色，右、下直线的颜色设为黑色。当鼠标移到Label上时，4条Line的显示属性置True；当鼠标离开按钮时，将4条Line的显示属性设置为False。这样在视觉上就完全得到立体浮动的效果。另外，VB的Line控件还支持直线倾斜，以此类推，完全可以做出更加美观的倾斜按钮。篇幅所限，下面仅给出一个按钮实现浮动效果的源代码。 Option
Explicit Private Sub Form_Load() 初始Form与Label Form1.Caption =
“浮动按钮" Form1.KeyPreview = False label1.Caption =
“确定" 初始4条Line的显示属性为False Line1.Visible = False Line2.Visible =
False Line3.Visible = False Line4.Visible =
False 初始4条Line的颜色 Line1.BorderColor = ＆HE0E0E0 Line2.BorderColor =
＆HE0E0E0 Line3.BorderColor = ＆H808080 Line4.BorderColor = ＆H808080 End
Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single) 鼠标指针在窗体上(不在按钮上)时，置4条Line的显示属性为False Line1.Visible =
False Line2.Visible = False Line3.Visible = False Line4.Visible =
False End Sub Private Sub label1_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As
Single) 鼠标指针在按钮上时，置4条Line的显示属性为True Line1.Visible = True Line2.Visible
= True Line3.Visible = True Line4.Visible rue End
Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
