DaviSaba
|
SANTA ROSA DE VITERBO
SP - BRASIL
|
|
Postada em 19/08/2005 22:24 hs
Olá galera, tudo bem !!! Como faço para puxar a versao da compilação do projeto, e mostrar na tela principal. Tem como fazer isso de forma automática ? porque o vb controle automaticamente a versao da compilacao, mas como faço para buscar essa informação. Obrigado |
|
|
|
|
|
|
|
Postada em 20/08/2005 01:01 hs
Não sei se é isso q vc quer mas... MsgBox "Version " & App.Major & "." & App.Minor & "." & App.Revision Se vc adicionar em seu projeto um form e escolher "About Dialog" ele irá trazer um form com várias informações do projeto inclusive um botão de acesso as informações do sistema... t+ |
|
|
|
DaviSaba
|
SANTA ROSA DE VITERBO
SP - BRASIL
|
|
Postada em 23/08/2005 10:14 hs
Oi galera, deu certo, fiz isso e consigo mostrar onde eu quero a versão da compilação. Mas o controle de compiulação esta baixando ... começou no 2.2.4, e agora esta no 2.1.1 ... alguem sabe o q tenho que fazer para o próprio VB controlar essa versão, de forma q conforme eu for trabalhando e compilando, essa versão tem que subir. Obrigado |
|
|
|
|
|
Postada em 23/08/2005 17:08 hs
tente o seguinte:
label1.caption="Versão: " & App.Major & "." & App.Minor & "." & App.Revision _
& vbCrLf & vbCrLf & "Compilado em " & Mid(FileDateTime(App.Path & "" & App.Title & ".exe"), 1, 10) & " às " & Mid(FileDateTime(App.Path & "" & App.Title & ".exe"), 12, 8) _
& vbCrLf & vbCrLf & "Tamanho do Arquivo: " & Format((FileLen(App.Path & "" & App.Title & ".exe") / 1024), "###") & " KB"
Essas informações são sobre a compilação do sistema
para fazeer a adição de versões é só comparar quando ele foi compilado pela ultima vez e adicionar as casas decimais que vc quiser... para isso use
guarde isso em uma tabela do bd e compare quando for compilar de novo
FileDateTime(App.Path & "" & App.Title & ".exe")
_______________________________________________ Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador
Presidente Prudente-SP
http://vbprudente.blogspot.com
|
|
|
|
