有些API声明成 Byval pt as POINTAPI，不会用了，请教

2004-04-30 09:28:34 179 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb6.0中声明Windows的Win32API时用到的结构体声明（vb.net c#中也可用） *********************************************作者：秋水长天（精品源于毅杨）邮件：zyliaoyang@yahoo.com.cn********************************************最近在维护一个10年前的系统，是vb6.0做的。里面要用到了很多Win32的API。与之关联的阅读详情

例如：DragDetect
Private Declare Function DragDetect Lib "user32.dll" (ByVal hWnd As Long, ByVal pt As POINTAPI) As Long

还有：
Private Declare Function ChildWindowFromPoint Lib "user32.dll" (ByVal hWndParent As Long, ByVal pt As POINTAPI) As Long

Private Declare Function ChildWindowFromPointEx Lib "user32.dll" (ByVal hWnd As Long, ByVal pt As POINTAPI, ByVal un As Long) As Long

使用时会出现用户定义类型不能这么用的错误，我想提示是对的，自定义类型不能按值传递，难道是声明错了？！

不解，还请指教.

...全文

手把手教你用ROS2 Humble给PX4无人机写个“画圆”程序：从C++代码到Gazebo仿真全流程本文详细介绍了如何使用ROS2 Humble和PX4飞控实现无人机圆形轨迹控制，涵盖从环境配置、Gazebo仿真到C++代码实现的完整流程。通过实战教程，读者将掌握轨迹跟踪仿真的核心技术，包括ROS2与PX4的通信接口、圆形轨迹算法设计及Gazebo仿真调试技巧。阅读详情

cyb1017

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

pigpag 2004-05-10

打赏
举报

我已经试验过了

pigpag 2004-05-10

打赏
举报

肯定是声名错误

参考了一下，MSDN对WindowFromPoint的声明是：
HWND WindowFromPoint(
POINT Point
);
在VB中的声明是
Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

显然是根据数据在内存中的安排，将一个参数拆成了两个。这样的做法在其他Byval pt As POINTAPI的地方一样好用。

所以，这些函数中的pt要拆开来声明
Private Declare Function ChildWindowFromPoint Lib "user32.dll" (ByVal hWndParent As Long, ByVal ptX As Long, ByVal ptY As Long) As Long

Private Declare Function DragDetect Lib "user32.dll" (ByVal hWnd As Long, ByVal ptX as Long, ByVal ptY As Long) As Long

sakurako 2004-05-06

打赏
举报

首先声明POINTAPI结构体
然后定义
dim mypoint as POINTAPI
在相应的位置用该变量即可
DragDetect hwnd,mypoint

BitBlt 2004-05-06

打赏
举报

拜托N楼，N+N楼，你们回复时先看一看帖好吗？

lsftest 2004-04-30

打赏
举报

一个例子：
模块中：
Option Explicit

Type POINTAPI
x As Long
y As Long
End Type

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

程序中：
Option Explicit

Private Sub Command1_Click()
Dim point As POINTAPI
GetCursorPos point
MsgBox "(x,y)=(" & point.x & "," & point.y & ")", , "鼠标位置"
End Sub

程序的功能是显示当前鼠标的坐标。。。。

BitBlt 2004-04-30

打赏
举报

ByVal pt as double
dim pd as double
din pt as pointapi
pt.x=1
pt.y=2
copymemory pd,pt,8
调用时用pd.千万不要对pd进行操作!

cyb1017 2004-04-30

打赏
举报

声明了。我没有敲上。抱歉！

我想问的是这句：ByVal pt As POINTAPI

好像不大对啊！出现错误提示和这句有关的，不知道怎么解决。

lsftest 2004-04-30

打赏
举报

你要先在模块里对POINTAPI类型进行声名：
Public Type POINTAPI
x As Long
y As Long
End Type

BitBlt 2004-04-30

打赏
举报

//楼上说得对，对于结构体不能用 byval 传递参数。

理论上是这样的。但API不是专为VB做的。碰到这种问题还得自己解决。

方法就是找个同样大小的基本类型，用copymemory复制过去。
如果找不到同样大小的基本类型，那就只能用string了。

参见http://www.csdn.net/Develop/read_article.asp?id=6350

铁拳 2004-04-30

打赏
举报

楼上说得对，对于结构体不能用 byval 传递参数。

有些API声明成 Byval pt as POINTAPI，不会用了，请教

相关推荐