是否在区域内

dwcq

捡来一个子程序玩了半天，右键定位顶点，自动画出形状，每一个形状都可以点击 判断  弄完分享一下 小小改动更新了一下贴子



捡来的

  

子程序名	返回值类型	公开	备 注
判断是否在多边形内	逻辑型
参数名	类 型	参考	可空	数组	备 注
坐标组	坐标
点	坐标

变量名	类 型	静态	数组	备 注
hRgn	整数型
ret	逻辑型

hRgn ＝ CreatePolygonRgn (坐标组, 取数组成员数 (坐标组), 2)  ' 创建一个多边形区域
如果 (PtInRegion (hRgn, 点.x, 点.y) ≠ 0)  ' 判断某个点是否在这个区域内
ret ＝ 真
ret ＝ 假
DeleteObject (hRgn)  ' 删除区域句柄
返回 (ret)

.版本 2<br /> <br /> .子程序 判断是否在多边形内, 逻辑型<br /> .参数 坐标组, 坐标, 数组<br /> .参数 点, 坐标<br /> .局部变量 hRgn, 整数型<br /> .局部变量 ret, 逻辑型<br /> <br /> hRgn ＝ CreatePolygonRgn (坐标组, 取数组成员数 (坐标组), 2)  ' 创建一个多边形区域<br /> .如果 (PtInRegion (hRgn, 点.x, 点.y) ≠ 0)  ' 判断某个点是否在这个区域内<br />     ret ＝ 真<br /> .否则<br />     ret ＝ 假<br /> .如果结束<br /> DeleteObject (hRgn)  ' 删除区域句柄<br /> 返回 (ret)

熊不熊

感谢分享，很给力！~

再次入坑

66666666666666666

胖子葛格

感谢大神分享~！

zifeiyu

6666666666666666666

wuxinglong71

        感谢分享，很给力！~

please

感谢分享，支持开源！！！

豆豆灰常开心

感谢分享，很给力！~

查过

感谢发布原创作品，精易因你更精彩！6666666666666

year1970

感谢分享