win/Handbrake/frmSplashScreen.vb

   1 Public NotInheritable Class frmSplashScreen\r
   2 \r
   3     'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab\r
   4     '  of the Project Designer ("Properties" under the "Project" menu).\r
   5 \r
   6 \r
   7     Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load\r
   8         'Set up the dialog text at runtime according to the application's assembly information.  \r
   9 \r
  10         'TODO: Customize the application's assembly information in the "Application" pane of the project \r
  11         '  properties dialog (under the "Project" menu).\r
  12 \r
  13         'Application title\r
  14         If My.Application.Info.Title <> "" Then\r
  15             AppTitle.Text = My.Application.Info.Title\r
  16         Else\r
  17             'If the application title is missing, use the application name, without the extension\r
  18             AppTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)\r
  19         End If\r
  20 \r
  21         'Format the version information using the text set into the Version control at design time as the\r
  22         '  formatting string.  This allows for effective localization if desired.\r
  23         '  Build and revision information could be included by using the following code and changing the \r
  24         '  Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar.  See\r
  25         '  String.Format() in Help for more information.\r
  26         '\r
  27         '    Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)\r
  28 \r
  29         'Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)\r
  30 \r
  31         'Copyright info\r
  32         'CLIV.Text = My.Application.Info.Copyright\r
  33         Version.Text = "Version: " & My.Settings.HandbrakeGUIVersion & " (beta)"\r
  34         CLIV.Text = "Windows CLI Version: " & My.Settings.HandbrakeCLIVersion\r
  35     End Sub\r
  36 \r
  37 \r
  38   \r
  39 End Class\r