`

VB6 Add-Ins 自动添加控件前缀

阅读更多
以前在开发的过程中,总是制定一个命名规范,然后在使用中总是反复的查看手册,真是麻烦,今天我在给一个兄弟展示一个新作的VB6外接程序的时候,他就说能不能自动添加控件前缀,这样就不用死记硬背了,所以试验了一下,还好,挺简单的,主要代码如下:

Public WithEvents CtlHandler As VBControlsEvents

'监控控件名称前缀
Private Sub WatchNamePrefixion(ByVal VBControl As VBIDE.VBControl)
    
Dim FileContent As String
    FileContent 
= ReadAll(App.Path & "\ControlPrefixion.config")
    FileContent 
= Replace(FileContent, " """)
    
Dim Rows() As String
    
Dim Cols() As String
    
Dim i As Integer
    
Dim ii As Integer
    Rows 
= Split(FileContent, vbCrLf)
    
For i = LBound(Rows) To UBound(Rows)
        Cols 
= Split(Rows(i), "=")
        
If UBound(Cols) = 1 Then
            
If UCase(VBA.TypeName(VBControl.ControlObject)) = UCase(Cols(0)) Then
                
If UCase(VBA.Left(VBControl.Properties("Name"), Len(Cols(1)))) <> UCase(Cols(1)) Then
                    VBControl.Properties(
"Name"= Cols(1& VBControl.Properties("Name")
                
End If
                
Exit For
            
End If
        
End If
    
Next
    
Erase Rows
    
Erase Cols
End Sub

Private Sub CtlHandler_ItemRenamed(ByVal VBControl As VBIDE.VBControl, ByVal OldName As String, ByVal OldIndex As Long)
    WatchNamePrefixion VBControl
End Sub

在这段代码中,主要是建立一个VB6 的外接程序,然后在ItemRenamed事件中,增加前缀就行了。

控件的前缀列表放到了ControlPrefixion.config文件中,如下:

3DPanel=pnl
ADOData=ado
Animatedbutton=ani
Checkbox=chk
Combobox=cbo
drop-downlistbox=cbo
Commandbutton=cmd
Commondialog=dlg
Communications=com
Data=dat
Data-boundcombobox=dbcbo
Data-boundgrid=dbgrd
Data-boundlistbox=dblst
Datacombo=dbc
Datagrid=dgd
Datalist=dbl
Datarepeater=drp
Datepicker=dtp
Directorylistbox=dir
Drivelistbox=drv
Filelistbox=fil
Flatscrollbar=fsb
Form=frm
Frame=fra
Gauge=gau
Graph=gra
Grid=grd
Hierarchicalflexgrid=flex
Horizontalscrollbar=hsb
Image=img
Imagecombo=imgcbo
ImageList=ils
Label=lbl
Lightweightcheckbox=lwchk
Lightweightcombobox=lwcbo
Lightweightcommandbutton=lwcmd
Lightweightframe=lwfra
Lightweighthorizontalscrollbar=lwhsb
Lightweightlistbox=lwlst
Lightweightoptionbutton=lwopt
Lightweighttextbox=lwtxt
Lightweightverticalscrollbar=lwvsb
Line=lin
Listbox=lst
ListView=lvw
MAPImessage=mpm
MAPIsession=mps
MCI=mci
Menu=mnu
Monthview=mvw
MSChart=ch
MSFlexgrid=msg
MSTab=mst
OLEcontainer=ole
Optionbutton=opt
Picturebox=pic
Pictureclip=clp
ProgressBar=prg
RemoteData=rd
RichTextBox=rtf
Shape=shp
Slider=sld
Spin=spn
StatusBar=sta
SysInfo=sys
TabStrip=tab
Textbox=txt
Timer=tmr
Toolbar=tlb
TreeView=tre
UpDown=upd
Verticalscrollbar=vsb

一旦加载了这个插件,当在窗体上增加了一个控件后,比如一个Command后,当在属性窗口中将名称改为“OK”后,系统自动增加“cmd”在控件名称前边,变成“cmdOK”,这样再也不用记住控件的前缀了。

有了这个,兄弟很高兴,至少可以将手册变得薄一点了。

在开发这个插件过程中,有点需要注意,就是一个公司总是有各种规范来规定程序员的代码开发规范,其实如果能够提供一些自动工具或者模板工具的话,程序员就不需要死记硬背了,所有的规范程序员也就自动遵守了,也就没有烦恼了,这样才是最好的办法,项目经理也就轻松了,^_^。

分享到:
评论

相关推荐

    VB下插件(Add-Ins)编程[VB下插件(Add-Ins)编程]-精品源代码

    VB下插件(Add-Ins)编程[VB下插件(Add-Ins)编程]-精品源代码

    一款VB6的ADDin工具,安装制作工具

    在VB6中,ADD-in可以用来自动化重复性任务,提高开发效率,或者添加VB6不自带但开发者需要的功能。这款ADD-in工具不仅是一个实用程序,还作为学习ADD-in编程的实例,意味着它可能包含源代码和详细的教程,帮助初学者...

    net macros and add-ins的发展

    当前,.NET Add-Ins也逐渐融入云计算环境,例如Office 365中的Add-Ins可以直接连接到云服务,实现数据同步和远程协作。 总结起来,.NET Macros和Add-Ins的发展历程反映了软件工程中的进步,包括语言的进化、安全性...

    精彩编程与编程技巧-启动时禁止装入 Add-Ins...

    为了实现启动时自动禁止装入特定的 Add-Ins,可以通过修改 IDE 的配置文件来达到目的。以下是在 Visual Basic 中操作的一个具体示例: ##### 修改 VBAddin.INI 文件 1. **定位文件位置**:首先,找到存储 Add-Ins ...

    vb控件ping---vb控件ping

    vb控件pingvb控件pingvb控件pingvb控件pingvb控件pingvb控件pingvb控件pingvb控件ping

    CodeHelp(VB6 add-in)

    **CodeHelp(VB6 add-in)** 是一个专为Visual Basic 6 (VB6)开发的增强工具,旨在提升程序员的工作效率和代码编写体验。作为一款插件,它整合到VB6环境中,提供了一系列实用的功能,如Tab条切换窗口、调整tabindex、...

    VB60SP6-KB2708437-x86-CHS

    标题“VB60SP6-KB2708437-x86...这个过程涉及到ActiveX控件、类型库注册、Windows Installer技术等多个知识点,对于使用VB6进行开发的程序员来说,理解并正确应用这个补丁至关重要,可以避免因控件问题导致的软件故障。

    vb许可证-解决vb控件的许可证问题

    在VB(Visual Basic)开发过程中,许可证问题是一个常见的困扰,特别是在使用特定的VB控件时。这些控件可能需要合法的许可证才能在项目中正常工作,否则会限制或阻止其功能。"vb许可证-解决vb控件的许可证问题"这个...

    VB程序实例-能自动选中文本的TextBox控件.zip

    VB程序实例-能自动选中文本的TextBox控件.zip

    vb2005案例-使用ADO.NET控件查询Access数据库

    在这个案例中,"案例2-2 使用ADO.NET控件查询Access数据库"可能包含了如何在VB2005界面中添加控件(如DataGridView),并通过编程方式设置控件的数据源,从而显示查询结果。这涉及到了控件的事件处理,如Load事件或...

    vb2005案例-使用ADO.NET控件查询SQL Server数据库

    在VB2005中,开发人员经常使用ADO.NET控件来与SQL Server数据库进行交互。这个案例将详细讲解如何利用ADO.NET控件实现数据库的查询操作。ADO.NET是.NET框架的一部分,它提供了高效、灵活的数据访问接口,使得开发者...

    日期时间控件----vb中用的控件

    在VB(Visual Basic)编程环境中,日期时间控件是一种非常实用的组件,它允许用户在应用程序中选择或输入日期和时间。在这个特定的例子中,我们讨论的是一个专为VB设计的日期时间控件,该控件提供了对年、月、日以及...

    VB6-Mini_20160110.rar

    总的来说,VB6-Mini 20160110是VB6企业版的一个轻量级替代品,它以简洁的界面和丰富的控件库为开发者提供了便利。对于那些寻求快速开发和原型制作的个人或团队,这款工具无疑是一个理想的选择。通过合理利用VB6-Mini...

    VB6 自动缩放窗体内控件

    在VB6(Visual Basic 6)编程环境中,自动缩放窗体内控件是一个常见的需求,尤其是在设计用户界面时,为了适应不同分辨率或屏幕尺寸的设备,开发者需要让控件能够根据窗口大小的变化自动调整其位置和大小。标题“VB6...

    vb.netComboBox-控件的使用.docx编程资料

    ### VB.NET 中 ComboBox 控件详解 #### 一、概述 在 VB.NET 开发环境中,`ComboBox` 控件是一种非常常见的用户界面元素,它结合了文本框和列表框的功能,允许用户从预定义的列表中选择一项,同时也支持用户手动...

    VB西门子S7-200PLC通信控件

    我这里花了一百大洋买了个通信控件 但是卖的那个贱人不给我说明书就 不理了 我的QQ345324289 麻烦有需要的人去试试 顺便告诉下我 或者加我QQ... 这个控件我已经测试过VB区域的读写 但是M区的 不会用 希望大家 多多指教

    vb.net像VB6一样使用控件数组

    ### vb.net中实现类似VB6的控件数组功能 #### 背景介绍 在经典编程语言Visual Basic 6.0(简称VB6)中,控件数组是一种非常实用的功能,它允许开发者创建一系列具有相同名称但不同索引的控件。这种方式极大地简化了...

    vb控件---列表框和滚动条

    当列表框中的项目过多无法完全显示时,VB会自动在列表框旁边添加垂直滚动条,允许用户通过滚动查看列表框中未显示的部分。滚动条有两种类型:水平(Horizontal)和垂直(Vertical),可通过调整Scroll事件的参数来...

    VB打包软件-VB-PowerWrap 中文版

    VB-PowerWrap 允许开发者在发布他们的程序时不需要再加入一大堆 的 OCX 与 DLL 文件。该程序可以帮助 Visual Basic 程序员在发布他们 的可执行文件时不需要再担心关于其他链接库与 OCX 的问题了。VB-Powe rWrap 允许...

    VB程序实例-使用WebBrowser控件浏览网页.zip

    VB程序实例-使用WebBrowser控件浏览网页.zip

Global site tag (gtag.js) - Google Analytics