Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Detection entre exe et envir. de dev.

Detection entre exe et envir. de dev.

6 réponses
Avatar
Olivier GOUPIL
Bonjour,

existe t'il une méthode pour déterminer si le projet s'exécute dans
l'environnement ou si c'est la version en .exe.

merci d'avance
Olivier
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Christian HUBERT-HUGOUD- Xtrem7
Voici ce que j'utilise :

Public Function IsDesignedMode() As Boolean
On Error Resume Next

Debug.Print 1 / 0

If Err <> 0 Then
IsDesignedMode = True
Else
IsDesignedMode = False
End If

If Err <> 0 Then Err.Clear
On Error GoTo 0

End Function

Christian

"Olivier GOUPIL" a écrit dans le message de
news:
Bonjour,

existe t'il une méthode pour déterminer si le projet s'exécute dans
l'environnement ou si c'est la version en .exe.

merci d'avance
Olivier




Avatar
ng
Salut,

Oui ou plus simplement :

Public Function IsExecutable() as Boolean
On Error Resume Next
Debug.Print 1 / 0
IsExecutable = (Err.Number = 0)
End Function

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Pascal B. wrote:
Bonjour Olivier,

Public Function IsExecutable() as Boolean
On Error Resume Next
Debug.Print 1 / 0
If Err.Number = 0 then
IsExecutable = True
Else
IsExecutable = False
End If
End Function

Tout ce qui concerne Debug est ignoré à la compilation.
Il n'y aura donc pas d'erreur (Division par zéro).

Cordialement,
Pascal B.

"Olivier GOUPIL" wrote in message
news:
Bonjour,

existe t'il une méthode pour déterminer si le projet s'exécute dans
l'environnement ou si c'est la version en .exe.

merci d'avance
Olivier




Avatar
ng
Salut,

Sinon il y a une autre méthode qui ne se base pas sur l'erreur :

Private Sub Form_Load()
MsgBox "On est dans l'interface de développement : " & IsInIDE()
End Sub

Public Function IsInIDE() As Boolean
Debug.Assert Not TestIDE(IsInIDE)
End Function

Public Function TestIDE(bIDE As Boolean) As Boolean
bIDE = True
End Function


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Olivier GOUPIL wrote:
Bonjour,

existe t'il une méthode pour déterminer si le projet s'exécute dans
l'environnement ou si c'est la version en .exe.

merci d'avance
Olivier


Avatar
Pascal B.
Bonjour Olivier,

Public Function IsExecutable() as Boolean
On Error Resume Next
Debug.Print 1 / 0
If Err.Number = 0 then
IsExecutable = True
Else
IsExecutable = False
End If
End Function

Tout ce qui concerne Debug est ignoré à la compilation.
Il n'y aura donc pas d'erreur (Division par zéro).

Cordialement,
Pascal B.

"Olivier GOUPIL" wrote in message news:
| Bonjour,
|
| existe t'il une méthode pour déterminer si le projet s'exécute dans
| l'environnement ou si c'est la version en .exe.
|
| merci d'avance
| Olivier
|
|
Avatar
Pascal B.
"ng" wrote:

| Oui ou plus simplement :
| IsExecutable = (Err.Number = 0)


Mais pour la compréhension, je préfère mon code !
Avatar
Zoury
:O)
et pour l'efficacité je préfêre le InIDE() ... même si c'est
incompréhensible à première vue.. :OD

--
Cordialement
Yanick Lefebvre
MVP pour Visual Basic
"Pascal B." a écrit dans le message de
news:
"ng" wrote:

| Oui ou plus simplement :
| IsExecutable = (Err.Number = 0)


Mais pour la compréhension, je préfère mon code !