vbconfig.ini

vb源码之家界面源码,非常详细的说明和代码

//*************************************************************************
//**文 件 名：VBConfig.ini
//**说    明：VB源码之友配置文件
//**创 建 人：叶帆
//**日    期：2005年08月26日
//**修 改 人：
//**日    期：
//**描    述：VB源码之友
//**版    本：V3.1
//*************************************************************************
[Normal]
Writer =叶帆
Company =YFsoft
DateFormat =YYYY-MM-DD HH:MM:SS
VbIdeMouseWheel =1
Hotkey =1
VBSave =0
VBSaveTime =1

[ModuleExplain]
ItemNum = 10
Item01=*************************************************************************;
Item02=**模 块 名：%ModuleName%;
Item03=**说    明：%Company% 版权所有%DateYear%(C);
Item04=**创 建 人：%Writer%;
Item05=**日    期：%Date%;
Item06=**修 改 人：;
Item07=**日    期：;
Item08=**描    述：;
Item09=**版    本：%Version%;
Item10=*************************************************************************;

[FunctionExplain]
ItemNum = 13
Item01=*************************************************************************;
Item02=**函 数 名：%FunctionName%;
Item03=**输    入：%Input%;
Item04=**输    出：%OutPut%;
Item05=**功能描述：;
Item06=**全局变量：;
Item07=**调用模块：;
Item08=**作    者：%Writer%;
Item09=**日    期：%Date%;
Item10=**修 改 人：;
Item11=**日    期：;
Item12=**版    本：%Version%;
Item13=*************************************************************************;
ItemIn=#**        ：#;

[ErrorDisposal]
ErrorDataFormat =YYYY-MM-DD HH:MM:SS
ErrorSaveFile =No
ErrorFileName =%AppPath%YFErrmsg.txt
ErrorMessage =ErrMsg:%DateTime%,%ErrorType%,%ErrorDescription%,%ErrorSource%,%SystemTitle%
//0:Exit ... 1:Resume  2:Resume next 3:End
ErrorDisposalType =0
ErrorCmdFlag=Yes
ErrorExitTitle =ToExit
ItemNum =2
Item01 =ShowFunctionError 2, Err.Description, "%ErrorSource%(%SystemTitle%)"
Item02 =Resume Next
Item03 =Open App.Path & "\YFErrmsg.txt" For Append As lngErrFileNo
Item04 =Print #lngErrFileNo, "ErrMsg:" & Format$(Now, "YYYY-MM-DD HH:MM:SS") & "," & Err.Number & "," & Err.Description & ",%ErrorSource%,%SystemTitle%"
Item05 =Close #lngErrFileNo
Item06=
Item07='ShowFunctionError 2, Err.Description, "%ErrorSource%(%SystemTitle%)"
Item08='Resume Next

[CodeEdit]
StringFnctsRequested = 0
SepChecked = 0
InFunc = 0
ItemNum = 28
Item01=1 >--> Chr >--> $
Item02=1 >--> ChrB >--> $
Item03=1 >--> ChrW >--> $
Item04=1 >--> Command >--> $
Item05=1 >--> CurDir >--> $
Item06=1 >--> Date >--> $
Item07=1 >--> Environ >--> $
Item08=1 >--> Error >--> $
Item09=1 >--> Format >--> $
Item10=1 >--> Hex >--> $
Item11=1 >--> LCase >--> $
Item12=1 >--> Left >--> $
Item13=1 >--> LeftB >--> $
Item14=1 >--> LTrim >--> $
Item15=1 >--> Mid >--> $
Item16=1 >--> MidB >--> $
Item17=1 >--> Oct >--> $
Item18=1 >--> Right >--> $
Item19=1 >--> RightB >--> $
Item20=1 >--> RTrim >--> $
Item21=1 >--> LTrim >--> $
Item22=1 >--> Space >--> $
Item23=1 >--> Str >--> $
Item24=1 >--> String >--> $
Item25=1 >--> Time >--> $
Item26=1 >--> Trim >--> $
Item27=1 >--> UCase >--> $
Item28=1 >--> Replace >--> $

[ValueDispose]
ValueFlag=0
ItemNum =11
Item01=0 >--> bln >--> Boolean
Item02=0 >--> byt >--> Byte
Item03=0 >--> dtm >--> Date
Item04=1 >--> int >--> Integer
Item05=1 >--> str >--> String
Item06=0 >--> lng >--> Long
Item07=0 >--> sng >--> Single
Item08=0 >--> cur >--> Currentcy
Item09=0 >--> dbl >--> Double
Item10=0 >--> vnt >--> Variant
Item11=0 >--> col >--> Collection
ValueItemNum=4
ValueItem01=1 >--> i
ValueItem02=1 >--> j
ValueItem03=1 >--> k
ValueItem04=1 >--> e

[AutoComplementarity]
ComplementarityFlag=1
ComplementarityNote=0
ItemNum=7
Item01=1 >--> For >--> Next
Item02=1 >--> Do >--> Loop
Item03=1 >--> With >--> End With
Item04=1 >--> While >--> Wend
Item05=1 >--> Type >--> End Type
Item06=1 >--> If >--> End If
Item07=1 >--> Select >--> End Select

[AutoReplacce]
ReplacceFlag=0
SpaceTabReplacce=0
ItemNum=6
Item01=1 >--> exf >--> Exit Function
Item02=0 >--> exs >--> Exit Sub
Item03=0 >--> prs >--> Private Sub
Item04=0 >--> prf >--> Private Function
Item05=0 >--> pus >--> Public Sub
Item06=0 >--> puf >--> Public Function
[CodeFile]
ReplacceFlag=1
ItemNum=6
CodeFlag0 = 1
CodeFlag1 = 1
CodeFlag2 = 1