【Access文章】一个简单的按钮浮动效果制作

时　间:2013-04-06 09:57:51
作　者:缪炜   ID：24010  城市：江阴
摘　要:不借住其他工具，自己做一个浮动按钮
正　文:

4条Line围住Label的边缘，调入窗体时，置显示属性为False，并将左、上直线的颜色设为白色，右、下直线的颜色设为黑色。当鼠标移到Label上时，4条Line的显示属性置True；当鼠标离开按钮时，将4条Line的显示属性设置为False。这样在视觉上就完全得到立体浮动的效果。另外，VB的Line控件还支持直线倾斜，以此类推，完全可以做出更加美观的倾斜按钮。下面仅给出一个按钮实现浮动效果的源代码。
Option Explicit
Private Sub Form_Load()
'初始Form与Label
me.Caption = “浮动按钮"
me.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 = True
End Sub

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店