vb调用MoveToEx的bug,该如何处理
vb调用MoveToEx的bug
MoveToEx 这个函数竟然会修改参数的值，百思不得其解
代码如下
打印的结果：
1593906163
1
1
1
10
0
可以看到drawhdc已经从 1593906163被修改为10，导致最后一次LineTo函数的调用失败。
如果 一直用Me.hdc做参数的话，有时会导致vb的崩溃，无法捕捉任何错误信息。
更加奇怪的事情是，如果在Dim drawhdc As Long 后面再声明一个变量Dim ret As Long，那就完全正确了。
崩溃啊
------解决方案--------------------
这是你的函数声明不正确引起的好不！
造成了API“误修改堆栈数据”。
如果你每次调用时，第4个参数都不使用，
就把声明改成: Byval lpPoint as long
你试试，这样还会“改”到你的参数、还会造成VB崩溃吗！
MoveToEx 这个函数竟然会修改参数的值，百思不得其解
代码如下
Option Explicit
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 LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Dim drawhdc As Long
'Dim ret As Long
drawhdc = Me.hdc
Debug.Print drawhdc
Debug.Print MoveToEx(Me.hdc, 10, 10, 0&)
Debug.Print LineTo(Me.hdc, 100, 10)
Debug.Print MoveToEx(drawhdc, 10, 10, 0&)
Debug.Print drawhdc
Debug.Print LineTo(drawhdc, 10, 100)
Me.Refresh
End Sub
打印的结果：
1593906163
1
1
1
10
0
可以看到drawhdc已经从 1593906163被修改为10，导致最后一次LineTo函数的调用失败。
如果 一直用Me.hdc做参数的话，有时会导致vb的崩溃，无法捕捉任何错误信息。
更加奇怪的事情是，如果在Dim drawhdc As Long 后面再声明一个变量Dim ret As Long，那就完全正确了。
崩溃啊
------解决方案--------------------
这是你的函数声明不正确引起的好不！
造成了API“误修改堆栈数据”。
如果你每次调用时，第4个参数都不使用，
就把声明改成: Byval lpPoint as long
你试试，这样还会“改”到你的参数、还会造成VB崩溃吗！