zabpehely
/
remoteapptool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 2 Wiki Activity

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".

This commit is contained in:
Kim 2020-09-12 02:29:02 +10:00
parent 05e90580e4
commit 98e02db6d5
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
remoteapp-tool/RemoteAppMainWindow.vb
View File

@ -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