|
|
请教下各位高手，之前我在CAD2007，32位版本做了一个从剪贴板获得坐标，然后在CAD里导入变成对应坐标的圆的VBA程序，可等我把它移至64位的CAD2020版本后 原来代码中获得剪贴板数据长度lstrlen 却总是返回0值，这里请教下是怎么回事 或者有什么其它方法吗？相关代码如下
Public Const CF_TEXT = 1
Public Declare PtrSafe Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare PtrSafe Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Public Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long)Public Sub location_clipboard()
Dim hStrPtr As Long, lLength As Long, sBuffer As String, str1() As String, str2() As String, Stext As String
Dim nc As Integer
CloseClipboard
On Error Resume Next
OpenClipboard 0&
hStrPtr = GetClipboardData(CF_TEXT)
lLength = lstrlen(hStrPtr) '就是这里 总是返回0 导致我无法赋值给其它变量
If lLength > 0 Then
sBuffer = Space$(lLength)
CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength
end if
End Sub |
|
置顶卡
