Laden des Instanznamens verbessert - frmStart

This commit is contained in:
OlgunR 2025-10-21 12:36:30 +02:00
parent 1cd5533dee
commit 94785369df

View File

@ -130,7 +130,11 @@ Public Class frmStart
End Sub End Sub
Private Sub CaptionForm() Private Sub CaptionForm()
Me.Text = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName If String.IsNullOrWhiteSpace(My.Settings.vInstanceName) Then
Me.Text = Application.CompanyName & " - " & Application.ProductName
Else
Me.Text = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName
End If
End Sub End Sub
Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load