VB lineto 、 MoveToEx 、 桌面画线。 - VB / API

我想实现在桌面画两条线横竖两条。

为什么我用lineto 画出来的起始点是0，0 。？

能不能自己设置。？





如果是画的虚线就更好了。

如果能再设置下透明度。。。。。

---

要实现的效果。

在屏幕中央画出一个十字的图案出来。

不管是什么API 。

只要能实现这个效果就成。

---

用MoveToEx移画笔位置
The MoveToEx function updates the current position to the specified point and optionally returns the previous position. 

BOOL MoveToEx(
  HDC hdc, // handle to device context
  int X, // x-coordinate of new current position
  int Y, // y-coordinate of new current position
  LPPOINT lpPoint // pointer to old current position
);

---

自己标题上不是写了movetoex么, 难道没用?

---

GDI+

---

我用了movetoex。

不过还是在0，0那里开始画啊。

---

何不贴代码呢，这种情况，谁知道你代码怎么写的啊：）

---

VB code:
Option Explicit
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 Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As