文件名称：用户控件，画图，坐标尺，三点定圆心VB6.0
文件大小：27KB
文件格式：RAR
更新时间：2014-04-14 13:02:42
用户控件，画图，坐标尺，三点定圆心 VB6.0
花了很多时间搞的，主要是用户控件定义及事件定义，列举了很多方法，对初学者帮助很大。 用户控件直接作为画图板，与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
【文件预览】：
三点定位画圆
----PictureLineXY.log(48B)
----点位线测TEST.vbw(110B)
----FrmPicXY.frm(5KB)
----MSSCCPRJ.SCC(197B)
----三点定位画圆()
--------PictureLineXY.log(48B)
--------点位线测TEST.vbw(139B)
--------FrmPicXY.frm(6KB)
--------MSSCCPRJ.SCC(197B)
--------12.JPG(24KB)
--------FrmMain.frm(477B)
--------CirCle.bas(6KB)
--------PictureLineXY.ctl(13KB)
--------点位线测TEST.vbp(2KB)
--------PictureLineXY.ctx(24KB)
----12.JPG(24KB)
----FrmMain.frm(477B)
----CirCle.bas(6KB)
----PictureLineXY.ctl(13KB)
----点位线测TEST.vbp(2KB)
----PictureLineXY.ctx(24KB)