用户控件，画图，坐标尺，三点定圆心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