devxlogo

Talk About Reusable Code!

Talk About Reusable Code!

In VB4 you can create a single Splash Screen or About Screen that workswith any program and automatically keeps itself up to date using the newproperties of the App Object. Create your form and make an attractive arrangement of label controlson it. Then add code such as this to the Load Event:

 Label1.Caption = App.ProductNameLabel2.Caption = App.FileDescriptionLabel3.Caption = "Version " & App.Major & "." _	& App.Minor & "." & App.Revision _	& " (" & Format$(FileDateTime(App.Path & "" & _	App.EXEName & ".EXE"), "Short Date") & " - " & _	(FileLen(App.Path & "" & App.EXEName _	& ".EXE")) & " bytes)"Label4.Caption = App.LegalCopyrightLabel5.Caption = App.CompanyNameLabel6.Caption = App.TitleLabel7.Caption = App.LegalTrademarksLabel8.Caption = App.Comments

For graphics you can use your company’s logo or put a blank PictureBoxon the form, create the graphic as a separate file, and add this code tothe Load Event:

 Picture1.Picture = LoadPicture(App.Path & "logo.bmp")

There are two cautions, however:

  • Until the first time you compile your code, there will be no EXE file,so the FileLen and FileDateTime functions will fail. To avoid this problem,create a dummy file with the project name EXE.
  • If any of the referenced App properties are not set the form will loadfine in the development environment but will generate the run time error”Resource with identifier

devx-admin

Share the Post: