討論區快速選單
知識庫快速選單
網路投保旅行平安險 政府補助!學嵌入式+物聯網 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
請問如何秀出移動滑鼠動態座標
更改我的閱讀文章字型大小
作者 : hpymaker(hpymaker)
[ 貼文 21 | 人氣 2878 | 評價 0 | 評價/貼文 0 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/8/30 下午 07:21:13
請問如何秀出移動滑鼠動態座標


 timer1.enabled=true
 
 text1.text=currentX
Text2.text=CurrentY

作者 : qazujm(joe) Visual Basic卓越專家C#優秀好手貼文超過1000則
[ 貼文 1521 | 人氣 2524 | 評價 9070 | 評價/貼文 5.96 | 送出評價 90 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2016/8/31 上午 10:11:55
取得或設定資料指標位置的 Visual Basic 事件程序
https://support.microsoft.com/zh-tw/kb/152969

' Access the GetCursorPos function in user32.dll
Private Declare Function GetCursorPos Lib "user32" _
     (lpPoint As POINTAPI) As Long
     ' Access the GetCursorPos function in user32.dll
Private Declare Function SetCursorPos Lib "user32" _
     (ByVal x As Long, ByVal y As Long) As Long

     ' GetCursorPos requires a variable declared as a custom data type
     ' that will hold two integers, one for x value and one for y value
Private Type POINTAPI
     X_Pos As Long
     Y_Pos As Long
     End Type

     ' Main routine to dimension variables, retrieve cursor position,
     ' and display coordinates
     Sub Get_Cursor_Pos()

     ' Dimension the variable that will hold the x and y cursor positions
     Dim Hold As POINTAPI

     ' Place the cursor positions in variable Hold
     GetCursorPos Hold

     ' Display the cursor position coordinates
' MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
     "Y Position is : " & Hold.Y_Pos
     Text1.Text = Hold.X_Pos
     Text2.Text = Hold.Y_Pos
     End Sub

     ' Routine to set cursor position
     Sub Set_Cursor_Pos()

     ' Looping routine that positions the cursor
     For x = 1 To 480 Step 20
     SetCursorPos x, x
     For y = 1 To 40000: Next
     Next x
     End Sub

Private Sub Timer1_Timer()
     Get_Cursor_Pos

End Sub
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.125