VB6.0自制Line控件时实现X1,Y1,X2,Y2属性

Line控件本来是最简单的一个控件，但它太简单了，以至于不提供我们想要的一些事件，为了增强它的功能，我自己制作了一个Line控件，还
给她取名叫作MLine控件。
制作控件的方法请参看"MSDN - Visual Basic 文档 - 使用Visual Basic -部件工具指南 - 创建ActiveX部件"中的"创建一个ActiveX控件"和"
建立ActiveX控件"部分。
VB自带的Line控件有X1,X2,Y1,Y2四个属性，没有Left,Top,Width,Height这四个属性，通过调整X1-Y2四个属性的值，来改变线条的位置和形状
。但，我们的MLine控件中只有LTWH这四个属性，所以MLine控件的关键在于如何把LTWH四个属性跟X1-Y2四个属性联系起来。
很显然，如果MLine控件中的线条是从左上角到右下角的话，那么：A1=Left : B1=Top : A2=Left+Width : B2=Top+Height这里我用(A1,B1)表示左上角的坐标，(A2,B2)表示右上角的坐标，这样我就可以通过A1-B2来确定控件的区域了，但并不能确定直线的形状，也
就是说直线是撇倾斜还是捺倾斜，通过A1-B2无法确定，我们需要一个标志变量来记录这个倾斜值，下面会说到。
好了，A1-B2显然和LTWH是一一对应的，我们可以写出：Left=A1 : Top=B1 : Wdith=A2-A1 : Height=B2-B1A1=Min(X1,X2) : B1=Min(Y1,Y2) : A2=Max(X1,X2) : B2=Max(Y1,Y2)通过上面的关系，我们把X1-Y2和LTWH联系起来了。那么你去做吧，基本上这个线条可以画出来，但不会太精确，在线条接近水平或垂直的时候就会有误差了，出现误差的原因是，控件有一个最
小宽度和最小高度！你可以随便建立一个EXE工程观察一下常用的控件，他们的Height/Width最小只能设置到15或者更大一些，而UserControl
，也就是我们的控件，其Height/Width最小只能设置到30，所以如果没有考虑到这个因素，做出来的MLine控件总会出现误差的，如果你把做出
来的MLine控件，以(X1,Y1)为圆心，让(X2,Y2)绕着它画圆，你会发现线条的一些细微变化，这种变化是不能容忍的。
所以MLine控件的重点是要理解这个控件的真实形状，它不仅仅是一个长方形的区域内做一条对角线，而是这样的一个样子：在它的区域当中，有一片冗余区域，我们不能在这里画线，理由是这个冗余区域正是这个控件的最小区域。这个冗余区域我设置它为一个空心
矩形，它和MLine控件的整个区域是重合的，它中间的空心区域才是我们画线的地方。空心区域应该是由最小宽度和最小高度决定的，让MinWid
th表示最小宽度，MinHeight表示最小高度，那么空心区域和控件区域的左边界=MinWidth/2，右边界=MinWidth/2，上边界=MinHeight/2，下边
界=MinHeight/2，你应该可以想象出来这个样子。
好了，这就是MLine控件的重点所在，我们再来调整一下X1-Y2和LTWH之间的关系，当然我还是先用A1-B2来解释，这样清楚一点：A1=Extender.Left+MinWidth/2B1=Extender.Top+MinHeight/2A2=Extender.Left+Extender.Width-MinWidth/2B2=Extender.Top+Extender.Height-MinHeight/2
A2=A1+Extender.Width-MinWidthB2=B1+Extender.Height-MinHeight
Extender.Left=A1-MinWidth/2Extender.Top=B1-MinHeigth/2Extender.Width=A2-A1+MinWidthExtender.Height=B2-B1+MinHeight
其中A1=Min(X1,X2) B1=Min(Y1,Y2) A2=Max(X1,X2) B2=Max(Y1,Y2)看到了吗？A1-B2和LTWH建立了一一对应的关系，而通过Min/Max方法的计算，我们也可以使X1-Y2和LTWH建立对应的关系，但不是一一对应的。为什么呢？这里我们需要一个标志变量blnK，它表示直线的倾斜方向，也就是说撇倾斜或者捺倾斜，通过blnK，我们才可以使X1-Y2和LTWH建立
一一对应的关系，也就是说，我们既可以改变LTWH来引起X1-Y2的变化，也可以通过改变X1-Y2来改变LTWH，这样我们就得到了属性X1-Y2的Get/
Let方法如下：（实际应用中，我没有采用blnK来记录倾斜方向，而是用PosX1和PosY1来记录X1,Y1在四个角的位置）
'客户区位置X1Public Property Get X1() As Single If PosX1 = LS_LEFT Then X1 = Extender.Left + MinWidth / 2 Else X1 = Extender.Left + Extender.Width - MinWidth / 2 End IfEnd Property
Public Property Let X1(ByVal NewX1 As Single) Dim OldX2 As Single OldX2 = X2 If NewX1 > OldX2 Then '新的X1在X2右边 PosX1 = LS_RIGHT Extender.Left = OldX2 - MinWidth / 2 Extender.Width = NewX1 - OldX2 + MinWidth Else '新的X1在X2左边 PosX1 = LS_LEFT Extender.Left = NewX1 - MinWidth / 2 Extender.Width = OldX2 - NewX1 + MinWidth End If PropertyChanged "X1"End Property
X2,Y1,Y2的属性方法与此类似，不再赘述。
在Paint事件中我们使用Line方法来画线，但要记住不是从X1,Y1画到X2,Y2，而是从X1-Extener.Left,Y-Extender.Top到X2-Extender.Left,Y2-
Extender.Top画线。
值得注意的是，有人可能会不明白属性和属性方法Get/Let之间的关系，因此而造成许多的误会，应该明白X1-Y2的值是保存在Get方法中的，每
次读取X1-Y2都会调用Get方法来求得其值，注意！是求得！所以你也可以认为并没有X1-Y2这四个变量。而每次设置X1-Y2，其实就是在设置LTW
H和PosX1、PosY1，希望你能对此明了，有的人会在Resize/Paint事件中去设置X1-Y2，然后在X1-Y2中又设置LTWH，这样就又会引起Resize/Pai
nt事件，中间出现递归调用，虽然通过设置标志变量的方法可以防止无限递归，但那样就复杂多了，很遗憾地说，我一开始就是这样做的。
对于X1-Y2的Let方法的调用，只有三种情况，第一种情况是ReadProperties，这时会用Form中保存的X1-Y2来设置X1-Y2的值；第二种情况就是
开发者，第三种情况可能会是使用者。
要明白，每次LTWH的变化都会直接引起X1-Y2的变化，知道了这一点，就不会再去Resize/Paint事件中跟踪LTWH的变化了。
作者名称：夏克
作者信箱：sequh@126.com
作者论坛：moer.net/bbs