COMO INSERIR A VERSAO DO PUBLISH EM LABEL ?
Iaê pessoar !
Sempre coloco manualmente a Publish Version do meu programa em uma Label na tela de login.
Existe algum código que possa ser utilizado para a versão ser inserida automaticamente no label ?
OBS: Uso microsoft visual studio 2010
Sempre coloco manualmente a Publish Version do meu programa em uma Label na tela de login.
Existe algum código que possa ser utilizado para a versão ser inserida automaticamente no label ?
OBS: Uso microsoft visual studio 2010
assim
label.Text = My.Application.Info.Version.ToString
label.Text = My.Application.Info.Version.ToString
JULIANOPAN
Seu método insere a versão do Aplicativo, quero a versão da Publicação (publish) - aquela que sobe automaticamente a cada nova versão publicada do programa.
Seu método insere a versão do Aplicativo, quero a versão da Publicação (publish) - aquela que sobe automaticamente a cada nova versão publicada do programa.
Tenta assim :
Label1.Text = System.Deployment.Application _
..ApplicationDeployment.CurrentDeployment.CurrentV ersion.ToString
Label1.Text = System.Deployment.Application _
..ApplicationDeployment.CurrentDeployment.CurrentV ersion.ToString
Citação::
Tenta assim :
Label1.Text = System.Deployment.Application _
..ApplicationDeployment.CurrentDeployment.CurrentV ersion.ToString
Ocorre o seguinte erro: [Ô]O aplicativo não está instalado.[Ô]
Tenta assim:
Private Function GetVersion() As String
Private Function GetVersion() As String
Dim reader As XmlTextReader = New XmlTextReader([Ô]TFOrder.exe.manifest[Ô])
Do While (reader.Read())
Select Case reader.NodeType
Case XmlNodeType.Element [ô]Display beginning of element.
If reader.HasAttributes Then [ô]If attributes exist
While reader.MoveToNextAttribute()
If reader.Name = [Ô]version[Ô] Then
Return [Ô]ver. [Ô] & reader.Value
End If
End While
End If
End Select
Loop
End Function
Dim VersionNo As System.Version =
System.Reflection.Assembly.GetExecutingAssembly(). GetName().Version
Fonte:
http://www.vbforums.com/showthread.php?642367-How-to-get-the-real-assembly-version
Private Function GetVersion() As String
Private Function GetVersion() As String
Dim reader As XmlTextReader = New XmlTextReader([Ô]TFOrder.exe.manifest[Ô])
Do While (reader.Read())
Select Case reader.NodeType
Case XmlNodeType.Element [ô]Display beginning of element.
If reader.HasAttributes Then [ô]If attributes exist
While reader.MoveToNextAttribute()
If reader.Name = [Ô]version[Ô] Then
Return [Ô]ver. [Ô] & reader.Value
End If
End While
End If
End Select
Loop
End Function
Dim VersionNo As System.Version =
System.Reflection.Assembly.GetExecutingAssembly(). GetName().Version
Fonte:
http://www.vbforums.com/showthread.php?642367-How-to-get-the-real-assembly-version
A resposta do CRACKER me parece correta, porém ela só vai funcionar se o programa foi instalado pelo ClickOnce, então quando debugado pelo VS.Net não vai funcionar, então o que deve fazer é verificar se foi instalado pelo ClickOnce.
Para isso você deve verificar a propriedade estática IsNetworkDeployed do ApplicationDeployment, se for true você pode pegar a versão como o CRACKER disse, se não você pode esconder a versão ou colocar alguma outra mensagem no lugar, o que preferir.
Para isso você deve verificar a propriedade estática IsNetworkDeployed do ApplicationDeployment, se for true você pode pegar a versão como o CRACKER disse, se não você pode esconder a versão ou colocar alguma outra mensagem no lugar, o que preferir.
Amigo, tu podes colcar assim :
Lembrando que em modo debug esse valor sempre aparecerá 1.0.0.0. Somente é possÃvel ver o incremento após gerar o executavel.
Version.Text = My.Application.Deployment.CurrentVersion.ToStringLembrando que em modo debug esse valor sempre aparecerá 1.0.0.0. Somente é possÃvel ver o incremento após gerar o executavel.
Tópico encerrado , respostas não são mais permitidas