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-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的變化了。