我们在设计一个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 ’当前所运行的VB Private TheseControls As
Object Private Control As Onject ’控件对象变量 Private AllHeight As
Long Private AllWidth As Long Private MinLeft As Long
’标记最左边界值 Public Sub AfterClick() MinLeft=99999 ’设一极大初值 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
再定义一个新类,属性设置如下:
Name=Alignment;Creatable=True;Public=True Dim ThisInstance As
Object Dim HSizeAlignMenu As Object Dim HSizeAlignHandler As New
HSizeAlign Dim HSizeConnectCookie As Long Sub ConnectA n(VBInstance As
Object) ’加入菜单项,进行连接 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) ’解除连接,删除菜单项 HSizeAlignMenu.DisconnectEvents
HSizeConnect-Cookie ThisInstance.AddinMenu.MenuItems.Remove
HSizeAlignMenu End Sub 再加入一个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$) ’以上说明可用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)=NotFoundThen ErrCode=WritePrivateProfileString%(Section$,Exam.Alignment,0,VB.INI) End
If End 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。
[VB.NET程序]GSM短信模块库函数,可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA [办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例 [办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要 [Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值… [办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
|