-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSplashScreen1.vb
38 lines (28 loc) · 2.18 KB
/
SplashScreen1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public NotInheritable Class SplashScreen1
'TODO: ce formulaire peut facilement être configuré comme écran de démarrage de l'application en accédant à l'onglet "Application"
' du Concepteur de projets ("Propriétés" sous le menu "Projet").
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Configurez le texte de la boîte de dialogue au moment de l'exécution en fonction des informations d'assembly de l'application.
'TODO: personnalisez les informations d'assembly de l'application dans le volet "Application" de la
' boîte de dialogue Propriétés du projet (sous le menu "Projet").
'Titre de l'application
If My.Application.Info.Title <> "" Then
ApplicationTitle.Text = My.Application.Info.Title
Else
'Si le titre de l'application est absent, utilisez le nom de l'application, sans l'extension
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
'Mettez en forme les informations de version à l'aide du texte défini dans le contrôle de version au moment du design en tant que
' chaîne de mise en forme. Ceci permet une localisation efficace si besoin est.
' Les informations de génération et de révision peuvent être incluses en utilisant le code suivant et en remplaçant le
' texte du contrôle de version par "Version {0}.{1:00}.{2}.{3}" ou un équivalent. Voir
' String.Format() dans l'aide pour plus d'informations.
'
' 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)
Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
'Informations de copyright
Copyright.Text = My.Application.Info.Copyright
End Sub
Private Sub MainLayoutPanel_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MainLayoutPanel.Paint
End Sub
End Class