VB6 OU EXE

HENNYERE 14/09/2009 15:56:32
#322836
Olá amigos,

Tenho um projeto vb... Quando ele fosse executado, gostaria de saber se está sendo executado a partir de [Ô]Exe[Ô] compilado ou em modo de desenvolvimento...

Sei fazer via compilação condicional, mas preciso de uma outra forma....

Grato pela ajuda!
ASHKATCHUP 14/09/2009 16:00:28
#322837 Resposta escolhida
Eu realmente não sei se o VB tem algo que indique isso, mas eu uso uma gambiarrinha....


Private Function func_Debugando() As Boolean
    [ô]
    On Error Resume Next
    Debug.Print 1 / 0
    If Err.Number <> 0 Then
        func_Debugando = True [ô]Debug
    Else
        func_Debugando = False [ô]Compilado
    End If
    [ô]
    Err.Clear
End Function
HENNYERE 14/09/2009 16:03:34
#322840
Acho que esse ficou melhor...

Private Property Get IsDev() As Boolean
Debug.Assert SetTrue(IsDev) Or True
End Property

Private Function SetTrue(Value As Boolean) As Boolean
Value = True
End Function

De qualquer forma agradeço muito amigo!
Tópico encerrado , respostas não são mais permitidas
Voltar