edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

currentVersionNr bei Info wird angegeben.

Browse Source
This commit is contained in:
d.breimaier
2023-10-24 16:18:04 +02:00
parent c0222e4c0f
commit cb395acdec
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -36,7 +36,7 @@
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
<TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.1.107</ApplicationVersion>
<ApplicationVersion>1.0.1.108</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval>

3
VERAGAddIn/rbnVERAG.vb
View File

@@ -19,6 +19,7 @@ Imports System.Net.Http
Imports System.Diagnostics
Imports VERAG_PROG_ALLGEMEIN.Kleinma.Controls
Imports System.Data.Odbc
Imports System.Reflection
Public Class VERAGRibbon
Dim LOGIN_OK = False
@@ -57,7 +58,7 @@ Public Class VERAGRibbon
Private Sub Button4_Click(sender As Object, e As RibbonControlEventArgs) Handles Button4.Click
Try
MsgBox(System.Security.Principal.WindowsIdentity.GetCurrent().Name)
MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString)
Catch ex As Exception
End Try
End Sub