Win2000Pro下API函数的问题

xpwang 2001-12-13 09:21:08
.
.
.
Type POINTAPI
x As Long
y As Long
End Type
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
.
.
.
Dim polyhandle, phandle As Long
Dim npoint As Integer
Dim point() As POINTAPI
.
.
.
polyhandle = CreatePolygonRgn(point(1), npoint, WINDING)'创建一个由一系列点围成的区域。
.
.
.
.
这样的一段程序我在Win98下执行完全正常但我在Win2kPro下却出错,我的意图是由用户选择的点构成一个多边形,然后判断另一些点是否在此区域内。
...全文
66 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xpwang 2001-12-14
  • 打赏
  • 举报
回复
谢谢楼上的朋友哈!!!!
enmity 2001-12-13
  • 打赏
  • 举报
回复
这个例子还可以判断多边形是否闭合、面积,还可以保存与载入自定义的形状

该例子在vb+win2k的情况下测试并编译通过。
enmity 2001-12-13
  • 打赏
  • 举报
回复
如果要判断“一些点是否在此区域内”,请到:

http://caotang.myetang.com/temp/pointsinployon.zip
三杯倒 2001-12-13
  • 打赏
  • 举报
回复
1111

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧