計(jì)算機(jī)等級(jí)考試二級(jí)VB：VB實(shí)現(xiàn)按鈕浮動(dòng)效果

　　關(guān)于浮動(dòng)按鈕的實(shí)現(xiàn)思路不少，多是采取多圖片重疊顯示來(lái)實(shí)現(xiàn)。這種方法代碼量多，實(shí)現(xiàn)起來(lái)較繁瑣。因?yàn)�，一個(gè)按鈕還好，如果有十個(gè)按鈕呢?一個(gè)按鈕三個(gè)圖片，十個(gè)就要三十個(gè)圖片，可不是鬧著玩的。

　　我的思路是：

　　舍棄CommandButton控件，每個(gè)按鈕用4條Line控件和一個(gè)Label控件替代。4條Line圍住Label的邊緣，調(diào)入窗體時(shí)，置顯示屬性為False，并將左、上直線(xiàn)的顏色設(shè)為白色，右、下直線(xiàn)的顏色設(shè)為黑色。當(dāng)鼠標(biāo)移到Label上時(shí)，4條Line的顯示屬性置True;當(dāng)鼠標(biāo)離開(kāi)按鈕時(shí)，將4條Line的顯示屬性設(shè)置為False。這樣在視覺(jué)上就完全得到立體浮動(dòng)的效果。另外，VB的Line控件還支持直線(xiàn)傾斜，以此類(lèi)推，完全可以做出更加美觀的傾斜按鈕。篇幅所限，下面僅給出一個(gè)按鈕實(shí)現(xiàn)浮動(dòng)效果的源代碼。

　　Option Explicit

　　Private Sub Form_Load()

　　初始Form與Label

　　Form1.Caption = “浮動(dòng)按鈕"

　　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)

　　鼠標(biāo)指針在窗體上(不在按鈕上)時(shí)，置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)

　　鼠標(biāo)指針在按鈕上時(shí)，置4條Line的顯示屬性為T(mén)rue

　　Line1.Visible = True

　　Line2.Visible = True

　　Line3.Visible = True

　　Line4.Visible rue

　　End Sub