40 lines
2.2 KiB
Plaintext
40 lines
2.2 KiB
Plaintext
Public NotInheritable Class SplashScreen1
|
|
|
|
'TODO: Dieses Formular kann einfach als Begrüßungsbildschirm für die Anwendung festgelegt werden, indem Sie zur Registerkarte "Anwendung"
|
|
' des Projekt-Designers wechseln (Menü "Projekt", Option "Eigenschaften").
|
|
|
|
|
|
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
'Richten Sie den Dialogtext zur Laufzeit gemäß den Assemblyinformationen der Anwendung ein.
|
|
|
|
'TODO: Passen Sie die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die
|
|
' Projekteigenschaften (im Menü "Projekt") an.
|
|
|
|
'Anwendungstitel
|
|
If My.Application.Info.Title <> "" Then
|
|
ApplicationTitle.Text = My.Application.Info.Title
|
|
ApplicationTitle.Text = "Lehrlingsparcours"
|
|
Else
|
|
'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
|
|
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
|
|
End If
|
|
|
|
'Verwenden Sie zum Formatieren der Versionsinformationen den Text, der zur Entwurfszeit in der Versionskontrolle festgelegt wurde, als
|
|
' Formatierungszeichenfolge. Dies ermöglicht ggf. eine effektive Lokalisierung.
|
|
' Build- und Revisionsinformationen können durch Verwendung des folgenden Codes und durch Ändern
|
|
' des Entwurfszeittexts der Versionskontrolle in "Version {0}.{1:00}.{2}.{3}" oder einen ähnlichen Text eingeschlossen werden. Weitere Informationen erhalten Sie unter
|
|
' String.Format() in der Hilfe.
|
|
'
|
|
' 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)
|
|
|
|
txtVersion.Text = My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString
|
|
|
|
'Copyrightinformationen
|
|
Copyright.Text = My.Application.Info.Copyright
|
|
Dim i As Integer = 1
|
|
Me.txtSerial.Text = "IN" & Date.Now.ToString("ddMMyy") & i.ToString("000000")
|
|
End Sub
|
|
|
|
|
|
End Class
|