以前在开发的过程中，总是制定一个命名规范，然后在使用中总是反复的查看手册，真是麻烦，今天我在给一个兄弟展示一个新作的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”，这样再也不用记住控件的前缀了。 有了这个，兄弟很高兴，至少可以将手册变得薄一点了。 在开发这个插件过程中，有点需要注意，就是一个公司总是有各种规范来规定程序员的代码开发规范，其实如果能够提供一些自动工具或者模板工具的话，程序员就不需要死记硬背了，所有的规范程序员也就自动遵守了，也就没有烦恼了，这样才是最好的办法，项目经理也就轻松了，^_^。 |
|
|
