From 4e01de4f6687a4ce6bf164ac730821d67308ab46 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 24 Mar 2021 14:29:16 +0100 Subject: [PATCH] only show major + minor parts of current version --- app/DD_PM_WINDREAM/frmMain.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index dd1a837..15b01ca 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -150,7 +150,11 @@ Public Class frmMain ' Create helper to save/load expanded GroupColumns at runtime RefreshHelper = New RefreshHelper(GridView_Docs, "GUID") - bsiVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString) + ' Nur noch die ersten Zwei Teile der Version anzeigen + Dim oVersion = My.Application.Info.Version + + bsiVersion.Caption = String.Format("Version {0}.{1}", oVersion.Major, oVersion.Minor) + If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then MsgBox("Please add a database-Connection in AppConfig!", MsgBoxStyle.Critical, "Fehlende Konfiguration:") frmKonfig.ShowDialog()