[VBA程序]：如何让任意窗口中的鼠标光标都带有十字线，就像acad中的一样。

god

如何让任意窗口中的鼠标光标都带有十字线，鼠标移动的时候十字线也跟着移动，就像acad中的一样。

我只知道用api函数GetCursorPos获取鼠标指针的当前位置，如何在光标上带根线就不知道了。

雪山飞狐(lzh)

窗体上画两条线
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line2.X1 = X
Line2.X2 = X
Line1.Y1 = Y
Line1.Y2 = Y
DoEvents
End Sub

god

高手，我不是这个意思。
因为我的显示器有点大，经常找不到鼠标的位置，所以想做个辅助软件，鼠标带个十字线，就显眼多了。
你的方法只是是软件的窗体带上十字线，只能在自编的软件上显示，还不满足要求。
我见过一些软件，一只小猫小狗跟着鼠标到处跑，我不要那么复杂，只要跟两根线就行了。




只好自己编一个了。