VB功能扩展

【 tulaoshi.com - 编程语言 】

　　我们在设计一个VB窗体时，常常放上许多控件，为了使这些控件看上去整整齐齐，我们不得不设置一大堆Left、Top、Height、Width属性，您是否已经感到厌烦并想转向Powerbuilder或Delphi等别急，让我们现在就来扩展一下VB的功能。

　　VB4.0提供了一个新功能:Add-Ins，利用这一功能我们就可以把自己的程序加到VB4的系统菜单Add-Ins里去，作为VB的扩展功能。我们设计的程序将具有以下功能：选取窗体上某些控件后，通过菜单选取，使它们大小相同、间距相同、边缘对齐等等。有了这些功能,我们设计界面时就能节省大量时间,大大提高工作效率。限于篇幅,这里只介绍其中一个功能:使所选取控件从左到右大小相同。理解了这段程序,其它功能就很容易实现了。首先建一个新项目:alignment.mark,不需要任何窗体,在Tools菜单里选Project Options， 将 Project Name设为Exam,将Start Mode设为Object Application后退出。然后在菜单Ins ert里选取ClassModule,建立一个新类,属性设置如下:

　　Name=HSizeAlign;Creatable=False;Public=True 输入以下程序:

Public VBInstance As Object ’当前所运行的VBPrivate TheseControls As ObjectPrivate Control As Onject ’控件对象变量Private AllHeight As LongPrivate AllWidth As LongPrivate MinLeft As Long ’标记最左边界值Public Sub AfterClick()MinLeft=99999 ’设一极大初值Set ThereControls = VBInstance.ActiveProject.Ac - tiveForm.SelectedControlTemplatesFor Each Control In TheseControlsIf Control.Properties(Left)＜MinLeft ThenAllHeight=Control.Properties(Height)AllWidth=Control.Properties(Width)MinLeft=Control.Properties(Left)End IfNextFor Each Control In TheseControlsControl.Properties(Height)=AllHeightControl.Properties(Width)=AllWidthNextEnd Sub

　　再定义一个新类,属性设置如下:

Name=Alignment;Creatable=True;Public=TrueDim ThisInstance As ObjectDim HSizeAlignMenu As ObjectDim HSizeAlignHandler As New HSizeAlignDim HSizeConnectCookie As LongSub ConnectA n(VBInstance As Object)’加入菜单项,进行连接Set ThisInstance=VBInstanceSet HSizeAlignMenu=ThisInstance.AddinMenu.MenuItems.Add(HSize Alignment)Set HSizeAlignHandler.VBInstance=ThisInstanceHSizeConnectCookie=HSizeAlignMenu.ConnectEvents(HSizeAlignHandler)End SubSub DisconnectAddIn(Mode As Integer)’解除连接,删除菜单项HSizeAlignMenu.DisconnectEvents HSizeConnect-CookieThisInstance.AddinMenu.MenuItems.Remove HSizeAlignMenuEnd Sub再加入一个Module,输入以下程序:Declare Function WritePrivateProfileString LibKERNEL(ByVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal FileName$)Declare Function GetPrivateProfileString LibKERNEL(ByVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal ReturnString$,ByVal NumBytes As Integer,ByVal FileName$)’以上说明可用API Text Viewer拷贝Sub Main()Dim ReturnString As StringSection$=Add-Ins16ReturnString=String$(255,Chr$(0))ErrCode=GetPrivateProfileString(Section$,Exam.Alignment,NotFound,ReturnString,Len(ReturnString)+1,VB.INI)If Left(ReturnString,InStr(ReturnString,Chr(0))-1)=NotFoundThenErrCode=WritePrivateProfileString%(Section$,Exam.Alignment,0,VB.INI)End IfEnd Sub

　　Exam.Alignment里,Exam为项目名,Alignment为与Add-In菜单连接的类名。以上程序编译运行后,在VB菜单Add-Ins里选取Add-In Manager,将弹出一对话框,选取Exam. Alignment后退出,Add-Ins菜单里就多了一项HSize Alignment;使用时先选取所需排列控件,然后选此菜单项即可。本程序的运行环境为:VB4.0,Windows3.1;486 DX2/66 8M。