文件名称:
用户控件，画图，坐标尺，三点定圆心VB6.0
开发工具:
文件大小: 27kb
下载次数: 1
上传时间: 2011-03-25
详细说明： 花了很多时间搞的，主要是用户控件定义及事件定义，列举了很多方法，对初学者帮助很大。 用户控件直接作为画图板，与PICTURE相比还是有很多优点的 如像素可以自己定义，坐标可以自己定义，哪里是零点自己说了算。 还有就是三点确认圆心的算法，写了两种，都可以直接调用， 直接画圆弧和圆心。第一种算法不完善 TYPE定义也很有用，直接定义类型。 程序是从主程序截取的，能很好运行。 由于花了很多时间搞，所以分较高。先附上简单函数供参考 '============================已知三点确定圆心及半径================================一种简单函数，无法判断平行线及垂直线 Public Function CirCleCenter1(p1 As Point, p2 As Point, p3 As Point) As CirCle_CR Dim k1 As Single Dim k2 As Single Dim A1 As Single Dim A2 As Single Dim p12 As Point Dim p23 As Point p12.X = (p1.X + p2.X) / 2 p12.Y = (p1.Y + p2 .Y) / 2 p23.X = (p2.X + p3.X) / 2 p23.Y = (p2.Y + p3.Y) / 2 k1 = -(p2.X - p1.X) / (p2.Y - p1.Y) A1 = p12.Y - k1 * p12.X k2 = -(p3.X - p2.X) / (p3.Y - p2.Y) A2 = p23.Y - k2 * p23.X CirCleCenter1.X = (A2 - A1) / (k1 - k2) CirCleCenter1.Y = k1 * CirCleCenter1.X + A1 CirCleCenter1.R = Sqr((CirCleCenter1.X - p1.X) * (CirCleCenter1.X - p1.X) + (CirCleCenter1.Y - p1.Y) * (CirCleCenter1.Y - p1.Y)) End Function ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
