^{<noscript id="v18gr"></noscript>}

VB實現按鈕浮動效果

2019-11-18 17:26:35

字體：大中小

來源：轉載

供稿：網友

微軟的VisualBasic確實是個好東西，編寫應用程序快捷高效。但是入門容易，想玩轉它可不簡單。我個人學VB就深有體會：一個人在VB的殿堂里摸索是何等的辛苦??！有時為了一個特技、一句代碼甚至一個變量要反復調試運行幾十遍，也未必能通過，真恨不得一槍崩了VB。所以，我連這一點點小技巧都不敢獨品，拿出來與大家共享，也算拋磚引玉，引出更多、更精彩的奇思妙文，以“饗”讀者。
關于浮動按鈕的實現思路不少，多是采取多圖片重疊顯示來實現。這種方法代碼量多，實現起來較繁瑣。因為，一個按鈕還好，如果有十個按鈕呢？一個按鈕三個圖片，十個就要三十個圖片，可不是鬧著玩的。
我的思路是：
舍棄CommandButton控件，每個按鈕用4條Line控件和一個Label控件替代。4條Line圍住Label的邊緣，調入窗體時，置顯示屬性為False，并將左、上直線的顏色設為白色，右、下直線的顏色設為黑色。當鼠標移到Label上時，4條Line的顯示屬性置True；當鼠標離開按鈕時，將4條Line的顯示屬性設置為False。這樣在視覺上就完全得到立體浮動的效果。另外，VB的Line控件還支持直線傾斜，以此類推，完全可以做出更加美觀的傾斜按鈕。篇幅所限，下面僅給出一個按鈕實現浮動效果的源代碼。
OptionExplicit
Line1.Visible=True
Line2.Visible=True
Line3.Visible=True
Line4.Visible=True
EndSub->