当前位置:编程学习 > VB >>

Public Type POINTAPI 为什么都不能编译通过??

Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long '参数缺省为byref指针传递
'调用: 先声明一个自定义类型变量:
Dim z As POINTAPI
Private Sub Timer1_Timer()
GetCursorPos z '注:这里z是引用地址传递,其值改变,就象"返回值"
Label1.Caption = z.x
Label2.Caption = z.y
End Sub

为什么我建立POTINTAPI数据结构后,编译的时候,编译器提示“在私有对象模块中不能定义Public的用户定义类型”??
请大家帮我解答下!!
3Q!! --------------------编程问答-------------------- 改为private
--------------------编程问答-------------------- Public的用户定义类型只能在公共模块(标准模块)中定义,窗体模块\类模块只能使用private关键字.
解决方法有:(1) 改为private(2)移到标准模块中.
--------------------编程问答-------------------- 新建一个标准模块。
把api声明放进去。 --------------------编程问答-------------------- 都已经有了... --------------------编程问答-------------------- --------------------编程问答-------------------- 围观老马…………
--------------------编程问答-------------------- “在私有对象模块中不能定义Public的用户定义类型” --------------------编程问答-------------------- 楼主,不能在窗体模块中定义Public类型的结构

要不你把它放到公共模块中,要不你把Public改成Private
补充:VB ,  API
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,