Vba代码自动缩进功能的实现

《Vba代码自动缩进功能的实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Vba代码自动缩进功能的实现喜欢Vba的朋友到知道:编写宏代码时,如果代码一多,就觉得杂乱无章,没有条理性.如何进行代码自动缩进,就成了紧迫的问题.下面就介绍实现此功能的DLL文件的编译过程:一.编译环境:vb6.0,office2000,Excel2000二.编译步骤:(一)把下面代码保存为Connect.Dsr文件:1.VERSION5.002.Begin{AC0714F6-3D04-11D1-AE7D-00A0C90F26F4}Connect3.ClientHeight=63004.ClientLeft=17405.C

2、lientTop=15456.ClientWidth=111307._ExtentX=196328._ExtentY=111139._Version=39321610.Description="Add-InProjectTemplate"11.DisplayName="MyAdd-In"12.AppName="MicrosoftExcel"13.AppVer="MicrosoftExcel9.0"14.LoadName="Startup"15.LoadBehavior=316.RegLocation="HKEY_CURREN

3、T_USERSoftwareMicrosoftOfficeExcel"17.End18.AttributeVB_Name="Connect"19.AttributeVB_GlobalNameSpace=False20.AttributeVB_Creatable=True21.AttributeVB_PredeclaredId=False22.AttributeVB_Exposed=True23.OptionExplicit24.25.PrivateWithEventssj1AsOffice.CommandBarBut

4、ton26.Attributesj1.VB_VarHelpID=-127.28.PrivateSubAddinInstance_OnConnection(ByValApplicationAsObject,ByValConnectModeAsAddInDesignerObjects.ext_ConnectMode,ByValAddInInstAsObject,custom()AsVariant)29.OnErrorResumeNext30.Setxlapp=Application31.'====================

5、=============在<我的的工具>工具栏创建"试验按钮1"==================================1.xlapp.CommandBars("tools").Controls("代码缩进").Delete2.Setsj1=xlapp.CommandBars("tools").Controls.Add(Type:=msoControlButton)3.Withsj14..Caption="代码缩进"5..Style=msoButtonIconAndCaption6.EndWith7.EndSu

6、b8.9.PrivateSubAddinInstance_OnDisconnection(ByValRemoveMode_10.AsAddInDesignerObjects.ext_DisconnectMode,custom()AsVariant)11.OnErrorResumeNext12.AddinInstance_Terminate13.EndSub14.15.PrivateSubAddinInstance_Terminate()16.OnErrorResumeNext17.xlapp.CommandBars("too

7、ls").Controls("代码缩进").Delete18.Setxlapp=Nothing19.EndSub20.21.PrivateSubsj1_Click(ByValCtrlAsOffice.CommandBarButton,CancelDefaultAsBoolean)22.IndentCode23.EndSub(二)把下面代码保存为ModIndentCode.bas文件:1.AttributeVB_Name="ModIndentCode"2.OptionExplicit3.4.PublicConstm_iErrM

8、sgAsInteger=vbAbortRetryIgnore+vbCritical5.PublicSjAsByte,sjCfg()AsByte,DefMenuNameAsString,DefMenuCaptionAsString'参数变量：sj=每行缩进的空格数***6.PublicUnd