實現浮動按鈕 (轉)
裡面使用了浮動按鈕,可以使程式看起來更美觀和更容易使用。實現的方法是首先建立四條Line。和一個Image的,在程式根目錄下把圖示先改成macos.ico或者把程式相應更改一下圖示的名字。然後程式碼如下:
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "macos.ico")
'使Line控制元件不可見
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
'調整Line1控制元件在Image1的左邊,並調整大小
Line1.X1 = Image1.Left - 1
Line1.Y1 = Image1.Top - 1
Line1.X2 = Line1.X1
Line1.Y2 = Image1.Top + Image1.Height + 1
'調整Line2控制元件在Image1的上面,並調整大小
Line2.X1 = Image1.Left - 1
Line2.Y1 = Image1.Top - 1
Line2.X2 = Image1.Top + Image1.Height + 1
Line2.Y2 = Line1.Y1
'調整Line3控制元件在Image1的右邊,並調整大小
Line3.X1 = Line2.X2
Line3.Y1 = Line2.Y1
Line3.X2 = Line2.X2
Line3.Y2 = Line1.Y2
'調整Line4控制元件在Image1的下面,並調整大小
Line4.X1 = Line1.X1
Line4.Y1 = Line1.Y2
Line4.X2 = Line2.X2
Line4.Y2 = Line1.Y2
'按鈕凸起效果
Line1.BorderColor = QBColor(15) '白色
Line2.BorderColor = QBColor(15) '白色
Line3.BorderColor = QBColor(0) '黑色
Line4.BorderColor = QBColor(0) '黑色
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Line1.Visible = True Then
'防止無意義下列語句
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Image1.Picture = LoadPicture(App.Path & "macos.ico")
End If
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'左鍵
If Button = 1 Then
Line1.BorderColor = QBColor(0)
Line2.BorderColor = QBColor(0)
Line3.BorderColor = QBColor(15)
Line4.BorderColor = QBColor(15)
End If
MsgBox "Jason guo提醒你!要好好學習VB哦!!!"
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Line1.Visible = False Then
'防止無意義呼叫下面語句
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
Image1.Picture = LoadPicture(App.Path & "macos.ico")
End If
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'右鍵
If Button = 1 Then
Line1.BorderColor = QBColor(15)
Line2.BorderColor = QBColor(15)
Line3.BorderColor = QBColor(0)
Line4.BorderColor = QBColor(0)
End If
End Sub
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10748419/viewspace-976325/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 利用css變數實現按鈕懸浮效果CSS變數
- css3實現的滑鼠懸浮立體動態按鈕效果CSSS3
- Vue實現浮動按鈕元件 - 頁面滾動時自動隱藏 - 可拖拽Vue元件
- css3實現的滑鼠懸浮按鈕動畫效果CSSS3動畫
- 專案需要實現按鈕懸浮的功能, 實現後的記錄
- FloatingDragButton:炫酷的拖拽浮動按鈕
- 按鈕上面的按鈕 (轉)
- 用VC++實現自繪按鈕控制 (轉)
- jQuery實現動態設定按鈕是否可用jQuery
- JavaFx 實現按鈕防抖Java
- CSS_導航欄+固定浮動的回到頂部按鈕CSS
- unity 實現輪盤方式的按鈕滾動效果Unity
- css3程式碼實現的滑鼠懸浮按鈕效果程式碼例項CSSS3
- CSS3滑鼠懸浮動畫按鈕效果CSSS3動畫
- CSS實現帶箭頭按鈕CSS
- css實現圓角按鈕效果CSS
- 一個簡單的選單按鈕的實現 (轉)
- 【Oculus Interaction SDK】(六)實體按鈕 && 按壓互動
- CSS3滑鼠懸浮交叉線效果按鈕CSSS3
- 陪玩平臺原始碼實現類似手機懸浮按鈕,需要如何做?原始碼
- 如何使用angularjs實現按鈕事件AngularJS事件
- 按鈕拖拽移動
- 直播帶貨app原始碼,實現移動端的按鈕拖動APP原始碼
- 乾貨分享!懸浮按鈕設計規範和經典實踐
- (原創)【MAUI】一步一步實現“懸浮操作按鈕”(FAB,Floating Action Button)UI
- Flutter總結之懸浮按鈕FloatingActionButton使用Flutter
- css滑鼠浮劃過切換按鈕背景圖片CSS
- 懸浮按鈕點選回到頂部FloatingActionButton
- LayoutTransiton實現簡單的錄製按鈕
- ReactiveCocoa 實現 按鈕倒數計時React
- 如何點選一個按鈕實現列印
- 點選按鈕實現數字增加效果
- 新浪微博加號按鈕動畫實現方案動畫
- 自繪實現半透明水晶按鈕
- 實現前端點選按鈕自動複製剪貼簿功能前端
- 用VB製作即時動態按鈕 (轉)
- 按鈕滾動條效果
- iOS UITableView上下滑動控制底部按鈕出現iOSUIView