Obtener la versión de nuestra aplicación en tiempo de ejecución Visual Basic .Net

por ·

La siguiente versión nos permite obtener la versión completa de nuestro programa en tiempo de ejecución

Referencia

Imports System.Deployment.Application

Código

Public Sub Version() As String

    Dim ver As String

    If (ApplicationDeployment.IsNetworkDeployed) Then

            With ApplicationDeployment.CurrentDeployment.CurrentVersion
                ver = "Versión: " & .Major & "." & .Minor & "." & .Build & "." & .Revision
            End With

     End If

     Version = ver

End Sub

Esperamos sea de su utilidad,

Saludos

También te podría gustar...

4 Respuestas

  1. tu peor pesadilla dice:
    febrero 13, 2017 a las 5:46 pm

    Esta mal escrita tu funcion, ya que los sub no tienen retorno de datos, en cambio las function si

    Lo segundo falta el «return valorstring» para devolver los valores a la function

    • Victor Riquelme dice:
      febrero 22, 2017 a las 8:12 pm

      Estimado efectivamente puede ser por medio de un return o igualando el nombre de la función al resultado, en ambos casos el resultado es el mismo, visual basic tiene esta característica.

      Saludos

      *Version = ver

  2. Milton Dumoulin dice:
    diciembre 16, 2014 a las 11:50 am

    en visual basic .net 2013

    Imports System.Deployment.Application

    y despues por ejemplo

    Label1.Text = «Versión: » + «» & ProductVersion & «»

    Se verá

    Version: 1.1.1.1

    No soy programador, disculpe la intromisión

    • Victor Riquelme dice:
      diciembre 16, 2014 a las 2:59 pm

      Esa es una alternativa pero hay yo puse la versión separada para que vean que no es necesario obtener la versión completa algunos usan solo los 2 primeros dígitos.

      Saludos y gracias por el aporte