01创建对象和工程模板

1AboutIDE1.1projectVisualBasicAddForm1-1VisualBasicVisualBasic1-1AddFormTemplate\FormsAddobject1-1VisualBasicTemplateTemplate2VisualBasicAddobject1-2TemplateProjectAddFormAddFormTemplateForms.frxFormsTemplateVisualBasicAddobjectExisting1.2VisualBasic1.2.1VisualBasic2MDIVisualBasic3NewProjectVisualBasicNewProjectVisualBasicVisualBasicTemplate\Projects41-3VisualBasic1-4VisualBasicTemplate\ProjectNewProjectTemplate\ProjectVisualBasicVisualBasicEXEActiveXEXEActiveXDLLVisualBasic131.2.2VisualBasicTemplate\Projects61.3VisualBasicAddForm5Addobject1-5Addobject1.3.1ToolsOptionsEnvironmentVisualBasicOptions6415Addobject1-61.3.2OptionsEnvironmentTemplatesDirectory6VisualBasicProjectAddFormVisualBasicFormsTemplatesDirectoryVisualBasicTemplateTemplatesDirectoryTemplateDirectory••1.41.4.1•ADD••1)Me.Picture=LoadPicture(“C:\ProgramFiles\MyApp\Splash.bmp”)Me.Picture=LoadPicture(App.Path&“\Splash.bmp”)Me.Picture=LoadPicture(g_strPath&“\Splash.bmp”)2)‘*NOTE:Needtochangeapplicationtitlewhen‘*addedtoaproject.Me.Caption=“AboutApplication”Me.Caption=“About“&App.Title3)AboutAppApp‘*NOTE:YoumustreplaceX.X.Xwiththecurrentversionofthe‘*applicationwhenthisobjectisaddedtoaproject.6lblVersion.Caption=“VersionX.X.X”lblVersion.Caption=“Version“&App.Major&“.”&_App.Minor&“.”&App.Revision4)PropertyPropertyPublicm_strUserNameAsStringPrivatem_strUserNameAsStringPublicPropertyGetUserName()AsStringUserName=m_strUserNameEndPropertyPublicPropertyLetUserName(strNewUserNameAsString)m_strUserName=strNewUserNameEndProperty1.4.2Declaration()IftxtPassword=“password”Then‘*NOTE:Placecodeheretopassthe‘*successtothecallingprocedure.LoginSucceeded=TrueMe.HideElseMsgBox“InvalidPassword,tryagain!,,“LogintxtPassword.SetFocusSendKeys“{Home}+{End}EndIfDeclaration‘*Allareasofcodewheremodificationsarenecessary‘*tointegratethisobjectwithaprojectaredocumented‘*withcommentsdenotedbyNote:.‘*Tolocatethesecomments,searchfor‘*NOTE:.17‘*Settipfile.Constc_Tip_File=“TipOfDay.txt”‘*NOTE:Changethisconstanttothenameofthetipfile.‘*Ifyouprefer,youcanuseavariableinsteadand‘*setthevalueatruntime.Constc_Tip_File=“TipOfDay.txt8