※ 引述《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