Visual_Basic 板


LINE

※ 引述《cool21540125 (cool21540125)》之銘言: : 請輸入專案類型(網站專案或者應用程式專案): : 在公司常要開啟某些財務報表,而有些數字都是密密麻麻的 : 因此,希望自寫一款有「滑鼠輔助線」功能的程式 : 當程式啟動時,螢幕上會出現一橫一豎的直線,以滑鼠的箭頭為交叉點(有點像狙擊鏡) : 滑鼠移到哪,輔助線就會以滑鼠指標為中心跟著移動 : 想請教各位前輩們,我想利用VB2010來撰寫 : 需要先從哪個方向作開始? : 自己寫程式都只會寫一些資料處理方面的應用... : 所以像是移動滑鼠,繪圖...自己幾乎是個新手 : 麻煩給個方向,感謝! 最簡單的做法,幾個API而己,沒有那麼難(VB6) Option Explicit Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Any) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Type POINTAPI x As Long y As Long End Type Dim Dc As Long Dim P0 As POINTAPI, P As POINTAPI Private Sub Form_Load() Dc = GetDC(0) Me.WindowState = 2 Timer1.Interval = 10 Me.Hide End Sub Private Sub Form_Unload(Cancel As Integer) ReleaseDC 0, Dc End Sub Private Sub Timer1_Timer() GetCursorPos P If Abs(P0.x - P.x) > 1 Or Abs(P0.y - P.y) > 1 Then P0 = P 'Form1.Caption = "mouse Cursor at " + CStr(P.x) + "," + CStr(P.y) Me.Show DoEvents Me.Hide MoveToEx Dc, 0, P.y, 0 LineTo Dc, GetSystemMetrics(0&), P.y MoveToEx Dc, P.x, 0, 0 LineTo Dc, P.x, GetSystemMetrics(1&) End If End Sub -- ████ █ ★ ████ █ █ █ █ █ █ █ █ █ 超 級 熱 烈 歡 迎 █ ████ █ █ █ ████ █ █ █ █ █ ███★ █ █ 歡迎到嘉義版! ★███ █ █ █ █ █ █ █ 訊馳電腦-路徑嘉義市林森西路496號(05)2244-526順發斜對面 --



※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 218.166.150.180
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1431797874.A.6FC.html ※ 編輯: chinoyan (218.166.150.180), 05/17/2015 01:40:39
1F:→ MOONRAKER: 對新手而言一點教學意義都沒有 05/17 11:25
2F:→ chinoyan: 我都沒用hook了,幾個api應用,google一下就懂了, 05/18 04:12
3F:→ chinoyan: 範例都給了,只要肯GOOGLE,API的用途,怎麼會沒意義 05/18 04:12







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:iOS站內搜尋

TOP