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:
parent
05e90580e4
commit
98e02db6d5
|
@ -175,13 +175,17 @@ Public Class RemoteAppMainWindow
|
||||||
' Check to see if this is a pre-release or debug version.
|
' Check to see if this is a pre-release or debug version.
|
||||||
' This information comes from the project assembly description
|
' 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
|
' 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.
|
' If the user had a problem, ask for more info.
|
||||||
' Put the responses + version # into an array, ready to be inserted into a URL
|
' Put the responses + version # into an array, ready to be inserted into a URL
|
||||||
|
|
Loading…
Reference in New Issue