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

80酷酷网    80kuku.com

  控件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-B1
A1=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/2
B1=Extender.Top+MinHeight/2
A2=Extender.Left+Extender.Width-MinWidth/2
B2=Extender.Top+Extender.Height-MinHeight/2

A2=A1+Extender.Width-MinWidth
B2=B1+Extender.Height-MinHeight

Extender.Left=A1-MinWidth/2
Extender.Top=B1-MinHeigth/2
Extender.Width=A2-A1+MinWidth
Extender.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在四个角的位置)

'客户区位置X1
Public Property Get X1() As Single
If PosX1 = LS_LEFT Then
X1 = Extender.Left + MinWidth / 2
Else
X1 = Extender.Left + Extender.Width - MinWidth / 2
End If
End 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的变化了。

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: