From 98e02db6d5963833e4bbe3d453ba60adee0f9397 Mon Sep 17 00:00:00 2001 From: Kim Date: Sat, 12 Sep 2020 02:29:02 +1000 Subject: [PATCH] Now anything in the assembly description will be used to trigger feedback (not just "debug" and "pre-release" strings). Exit dialog will say "release candidate" if description string starts with "rc". --- remoteapp-tool/RemoteAppMainWindow.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/remoteapp-tool/RemoteAppMainWindow.vb b/remoteapp-tool/RemoteAppMainWindow.vb index ef50b44..5f9faa2 100644 --- a/remoteapp-tool/RemoteAppMainWindow.vb +++ b/remoteapp-tool/RemoteAppMainWindow.vb @@ -175,13 +175,17 @@ Public Class RemoteAppMainWindow ' Check to see if this is a pre-release or debug version. ' This information comes from the project assembly description - Dim AssemblyDescription = My.Application.Info.Description.ToLower + Dim AssemblyDescription = My.Application.Info.Description - If AssemblyDescription = "pre-release" OrElse AssemblyDescription = "debug" Then + If Not AssemblyDescription = "" Then ' Ask the user if the application worked correctly + Dim ReleaseType = AssemblyDescription + If ReleaseType.StartsWith("rc", True, Nothing) Then + ReleaseType = "Release Candidate" + End If - Dim ProblemYesNo = MessageBox.Show("This is a " & AssemblyDescription & " version of RemoteApp Tool." & vbCrLf & vbCrLf & "Did it work correctly?", AssemblyDescription.ToUpper & " version feedback", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Dim ProblemYesNo = MessageBox.Show("This is a """ & ReleaseType.ToLower & """ of RemoteApp Tool." & vbCrLf & vbCrLf & "Did it work correctly?", AssemblyDescription.ToUpper & " version feedback", MessageBoxButtons.YesNo, MessageBoxIcon.Question) ' If the user had a problem, ask for more info. ' Put the responses + version # into an array, ready to be inserted into a URL