我們?cè)谠O(shè)計(jì)一個(gè)VB窗體時(shí)， 常常放上許多控件， 為了使這些控件看上去整整齊齊，我們不得不設(shè)置一大堆Left、 Top、 Height、 Width屬性， 您是否已經(jīng)感到厭煩并想轉(zhuǎn)向Powerbuilder或 Delphi等別急， 讓我們現(xiàn)在就來(lái)擴(kuò)展一下VB的功能。  

VB4.0提供了一個(gè)新功能:Add-Ins， 利用這一功能我們就可以把自己的程序加到VB4的系統(tǒng)菜單Add-Ins里去， 作為VB的擴(kuò)展功能。 我們?cè)O(shè)計(jì)的程序?qū)⒕哂幸韵鹿δ埽?選取窗體上某些控件后， 通過(guò)菜單選取， 使它們大小相同、間距相同、邊緣對(duì)齊等等。有了這些功能,我們?cè)O(shè)計(jì)界面時(shí)就能節(jié)省大量時(shí)間,大大提高工作效率。限于篇幅,這里只介紹其中一個(gè)功能:使所選取控件從左到右大小相同。理解了這段程序,其它功能就很容易實(shí)現(xiàn)了。 首先建一個(gè)新項(xiàng)目:alignment.mark,不需要任何窗體,在Tools菜單里選Project Options， 將 Project Name設(shè)為\Exam”,將Start Mode設(shè)為Object Application后退出。然后在菜單Ins ert里選取ClassModule,建立一個(gè)新類,屬性設(shè)置如下:  

Name="HSizeAlign";Creatable=False;Public=True 輸入以下程序:  
Public VBInstance As Object ’當(dāng)前所運(yùn)行的VB
Private TheseControls As Object
Private Control As Onject ’控件對(duì)象變量
Private AllHeight As Long
Private AllWidth As Long
Private MinLeft As Long ’標(biāo)記最左邊界值
Public Sub AfterClick()
MinLeft=99999 ’設(shè)一極大初值
Set ThereControls = VBInstance.ActiveProject.Ac - tiveForm.SelectedControlTemplates
For Each Control In TheseControls
If Control.Properties("Left")＜MinLeft Then
AllHeight=Control.Properties("Height")
AllWidth=Control.Properties("Width")
MinLeft=Control.Properties("Left")
End If
Next
For Each Control In TheseControls
Control.Properties("Height")=AllHeight
Control.Properties("Width")=AllWidth
Next
End Sub

再定義一個(gè)新類,屬性設(shè)置如下:
Name="Alignment";Creatable=True;Public=True
Dim ThisInstance As Object
Dim HSizeAlignMenu As Object
Dim HSizeAlignHandler As New HSizeAlign
Dim HSizeConnectCookie As Long
Sub ConnectAddIn(VBInstance As Object)
’加入菜單項(xiàng),進(jìn)行連接
Set ThisInstance=VBInstance
Set HSizeAlignMenu=ThisInstance.AddinMenu.
MenuItems.Add("HSize Alignment")
Set HSizeAlignHandler.VBInstance=ThisInstance
HSizeConnectCookie=HSizeAlignMenu.ConnectEvents
(HSizeAlignHandler)
End Sub
Sub DisconnectAddIn(Mode As Integer)
’解除連接,刪除菜單項(xiàng)
HSizeAlignMenu.DisconnectEvents HSizeConnect-Cookie
ThisInstance.AddinMenu.MenuItems.Remove HSizeAlignMenu
End Sub
再加入一個(gè)Module,輸入以下程序:
Declare Function WritePrivateProfileString Lib
"KERNEL"(ByVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal FileName$)
Declare Function GetPrivateProfileString Lib
"KERNEL"(ByVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal ReturnString$,By
Val NumBytes As Integer,ByVal FileName$)
’以上說(shuō)明可用API Text Viewer拷貝
Sub Main()
Dim ReturnString As String
Section$="Add-Ins16"
ReturnString=String$(255,Chr$(0))
ErrCode=GetPrivateProfileString(Section$,
"Exam.Alignment","NotFound",ReturnString,Len(ReturnString)+1,"VB.INI")
If Left(ReturnString,InStr(ReturnString,Chr(0))-1)="NotFound"Then
ErrCode=WritePrivateProfileString%(Section$,"Exam.Alignment","0","VB.INI")
End If
End Sub

’Exam.Alignment里,\Exam”為項(xiàng)目名,\Alignment”為與Add-In菜單連接的類名。以上程序編譯運(yùn)行后,在VB菜單Add-Ins里選取Add-In Manager,將彈出一對(duì)話框,選取Exam. Alignment后退出,Add-Ins菜單里就多了一項(xiàng)HSize Alignment;使用時(shí)先選取所需排列控件 ,然后選此菜單項(xiàng)即可。