VB功能扩展

野蛮苹果6

野蛮苹果6

2016-02-19 14:53

下面,图老师小编带您去了解一下VB功能扩展,生活就是不断的发现新事物,get新技能~

  我们在设计一个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 输入以下程序:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  

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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  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。

展开更多 50%)
分享

猜你喜欢

VB功能扩展

编程语言 网络编程
VB功能扩展

扩展String功能方法

Web开发
扩展String功能方法

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

JS扩展Photoshop新功能

Web开发
JS扩展Photoshop新功能

Authorware知识对象的扩展功能

设计软件 平面设计软件 广告设计软件
Authorware知识对象的扩展功能

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

巧用Word的扩展选定功能

办公软件
巧用Word的扩展选定功能

如何充分扩充VB功能

编程语言 网络编程
如何充分扩充VB功能

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

老毛桃U盘启动盘制作教程

老毛桃U盘启动盘制作教程

在.NET Framework中轻松处理XML数据(三)

在.NET Framework中轻松处理XML数据(三)
下拉加载更多内容 ↓