中央論壇 - CENTER BBS

標題: 當滑鼠指向按鈕鍵時,按鈕鍵會逃跑 [打印本頁]

作者: f66666602 時間: 2007-9-4 09:14
標題: 當滑鼠指向按鈕鍵時,按鈕鍵會逃跑
先在表單上拉一個 command 以下是程式碼
研究看看吧
希望對妳有幫助 xd
------------------以下為程式碼------------------
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'當滑鼠在按鍵Command1 裡面移動時會執行下列程式碼
'X 是存放滑鼠的 x 軸作標
'Y 是存放滑鼠的 y 軸作標
'Command1.Top 存放按鍵Command1 左緣與表單Form1 左緣之間的距離
'Command1.Left  存放按鍵Command1 上緣與表單Form1 上緣之間的距離

Command1.Top = Command1.Top + X + X + X

      '如果當按鍵Command1 高度位置超過表單Form1
      If Command1.Top + Command1.Height > Form1.Height Then

         Command1.Top = 0

      End If

Command1.Left = Command1.Left + Y + Y + Y

      '如果當按鍵Command1 距離左邊位置超過表單Form1
      If Command1.Left + Command1.Width > Form1.Width Then

         Command1.Left = 0

      End If
End Sub

Private Sub Form_Load()

Command1.Caption = "嫩鬼妳點不到我"

End Sub

歡迎光臨中央論壇 - CENTER BBS (https://centerbbs.com/)