COMO TESTAR SE E TEMPO DE EXECUCAO OU CRIACAO ?
Srs, tem como saber se meu programa esta rodando em tmepo de execução ou de criação (saber se ele esta rodando dentro do vb ou se ja é o exe pronto ?)
Eu uso a seguinte função:
Private Sub Form_Load()
If func_Debug Then
MsgBox [Ô]Projeto sendo executado no VB![Ô], vbOKOnly + vbInformation
End If
End Sub
Private Function func_Debug() As Boolean
[ô]
On Error GoTo erro
[ô]
Debug.Print 1 / 0
func_Debug = False
Exit Function
[ô]
erro:
func_Debug = True
End Function
if App.LogMode = 1 the
msgbox [Ô]compilado[Ô]
else
msgbox [Ô]projeto[Ô]
end if
Nunca procurei algo diferento mais todas as vezes (e foram bem poucas) que eu prescisei desse tipo de informação fiz desse jeito:
- Vá no menu Project, e depois em project properties;
- Na guia Make, na opção Command Line Arguments, coloque assim: EM_DESENVOLVIMENTO
- Depois no form que inicializa o projeto ou Sub Main coloque assim:
if Command = [Ô]EM_DESENVOLVIMENTO[Ô] THEN
Msgbox [Ô]Esta executando pelo Visual Basic[Ô]
end if
Flw e ate +
- Vá no menu Project, e depois em project properties;
- Na guia Make, na opção Command Line Arguments, coloque assim: EM_DESENVOLVIMENTO
- Depois no form que inicializa o projeto ou Sub Main coloque assim:
if Command = [Ô]EM_DESENVOLVIMENTO[Ô] THEN
Msgbox [Ô]Esta executando pelo Visual Basic[Ô]
end if
Flw e ate +
Citação:RICARDO TOMIM escreveu:
if App.LogMode = 1 the
msgbox [Ô]compilado[Ô]
else
msgbox [Ô]projeto[Ô]
end if
Eu não conhecia essa do LogMode. Muito boa!
Tópico encerrado , respostas não são mais permitidas