Ardy Ghoreishi
2017-06-23 14:44:42 UTC
Hello all,
New to this group. I have a program that I like to put my published version of the program into a text box that i have in the interface. i have written this code but it don't seem to be working. the major string seem to be reflecting but the revision is always 0. I have the revision to automatically increment...so it now 7...... (i.e 1.0.0.7).... am i I missing something.....
Any help is appreciated......
System Info:
============
Microsoft Visual Studio Community 2015
Version 14.0.25421.03 Update 3
Microsoft .NET Framework
Version 4.6.01055
Installed Version: Community
Visual Basic 2015 00322-20000-00000-AA604
Code:
============
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim pvversion As String
Dim MJ, MI, B, R As String
MJ = My.Application.Info.Version.Major.ToString
MI = My.Application.Info.Version.Minor.ToString
B = My.Application.Info.Version.Build.ToString
R = My.Application.Info.Version.Revision.ToString
'MessageBox.Show(MJ) 'for testing
pvversion = MJ & "." & MI & "." & B & "." & R
TextBox1.Text = "Version: " & pvversion
End Sub
New to this group. I have a program that I like to put my published version of the program into a text box that i have in the interface. i have written this code but it don't seem to be working. the major string seem to be reflecting but the revision is always 0. I have the revision to automatically increment...so it now 7...... (i.e 1.0.0.7).... am i I missing something.....
Any help is appreciated......
System Info:
============
Microsoft Visual Studio Community 2015
Version 14.0.25421.03 Update 3
Microsoft .NET Framework
Version 4.6.01055
Installed Version: Community
Visual Basic 2015 00322-20000-00000-AA604
Code:
============
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim pvversion As String
Dim MJ, MI, B, R As String
MJ = My.Application.Info.Version.Major.ToString
MI = My.Application.Info.Version.Minor.ToString
B = My.Application.Info.Version.Build.ToString
R = My.Application.Info.Version.Revision.ToString
'MessageBox.Show(MJ) 'for testing
pvversion = MJ & "." & MI & "." & B & "." & R
TextBox1.Text = "Version: " & pvversion
End Sub