● VB功能扩展 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: VB功能扩展
发信站: BBS 荔园晨风站 (Wed Jan 27 17:41:46 1999), 转信

我们在设计一个VB窗体时,常常放上许多控件,为了使这些控件看上
去整整齐齐,我们不得不设置一大堆Left、Top、Height、Width属性,
您是否已经感到厌烦并想转向Powerbuild er或Delphi等别急,让我们
现在就来扩展一下VB的功能。
    VB4.0提供了一个新功能:Add-Ins,利用这一功能我们就可以把自
己的程序加到VB4的系统菜单Add-Ins里去,作为VB的扩展功能。我们
设计的程序将具有以下功能:选取窗体上某些控件后,通过菜单选取,
使它们大小相同、间距相同、边缘对齐等等。有了这些功能,我们设
计界面时就能节省大量时间,大大提高工作效率。限于篇幅,这里只介
绍其中一个功能:使所选取控件从左到右大小相同。理解了这段程序,
其它功能就很容易实现了。
    首先建一个新项目:alignment.mark,不需要任何窗体,在Tools菜
单里选Project Optio ns,将Project Name设为\Exam",将Start Mode
设为Object Application后退出。然后在菜单Insert里选取ClassMod
ule,建立一个新类,属性设置如下:
    Name="HSizeAlign";Creatable=False;Public=True
    输入以下程序:
    Public VBInstance As Object ’当前所运行的VB
    Private TheseControls AsObject
    Private Control As Onject ’控件对象变量
    Private AllHeight As Long
    PrivateAllWidth As Long
    Private MinLeft As Long ’标记最左边界值
    Public Sub AfterClick()
    MinLeft=99999 ’设一极大初值
    Set ThereControls=VBInstance.ActiveProject.ActiveForm.Se
lectedControlTemplates
    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 ControlIn TheseControls
      Control.Properties("Height")=AllHeight
      Control.Properties("Width")=AllWidth
    Next
    End Sub

    再定义一个新类,属性设置如下:
    Name="Alignment";
    Creatable=True;
    Public=True
    Dim ThisInstance As Object
    Dim HSizeAlignMenu As Object
    Dim HSizeAlignHandler As New HSizeAlign
    Dim HSizeConnectCookie As LongSub ConnectAddIn(VBInstanc
e As Object)
    ’加入菜单项,进行连接
    Set ThisInstance=VBInstance
    Set HSizeAlignMenu=ThisInstance.Addin
    Menu.MenuItems.Add("HSize Alignment")
    Set HSizeAlignHandler.VBInstance=ThisInstance
    HSizeConnectCookie=HSizeAlignMenu.ConnectEvents(HSizeAli
gnHandler)
    End SubSub DisconnectAddIn(Mode As Integer)
    ’解除连接,删除菜单项
    HSizeAlignMenu.DisconnectEvents HSizeConnect-Cookie
    ThisInstance.AddinMenu.MenuItems.Remove
    HSizeAlignMenu
    End Sub

    再加入一个Module,输入以下程序:
    Declare Function WritePrivateProfileString Lib"KERNEL"(B
yVal AppName$,ByVal KeyName$,ByVal keydefault$,ByVal FileNam
e$)
    Declare Function GetPrivateProfileString Lib"KERNEL"(ByV
al AppName$,ByVal K eyName$,ByVal keydefault$,ByVal ReturnSt
ring$,ByVal NumBytes As Integer,ByVal F ileName$)

    ’以上说明可用API Text Viewer拷贝
    Sub Main()
    Dim ReturnString As String
    Section$="Add-Ins16"
    ReturnString=String$(255,Chr$(0))
    ErrCode=GetPrivateProfileString(Section$,"Exam.Alignment
","NotFound",Return String,Len(ReturnString)+1,"VB.INI")
    If Left(ReturnString,InStr(ReturnString,Chr(0))-1)="NotF
ound"ThenErrCode=Wri tePrivateProfileString%(Section$,"Exam.
Alignment","0","VB.INI")
    End If
    End Sub

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

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店