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.CommentsFor 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
