Différence entre lancement du projet et exécutable

J’ai un trou de mémoire.:oops:

J’ai un programme utilisant une base de données d’un certain poids (538 Ko), mais surtout des dossiers ressources d’un total de 370 Mo (qui continueront à se remplir), le programme est installé dans un dossier partagé d’un réseau intranet, la base de données étant dans ce dossier avec les sous dossiers ressources.
Le nom du lecteur attribué pour ce partage n’étant pas le même pour tous les postes, "Z:\Program Files\Visionneuse", "X:\Program Files\Visionneuse" ou encor "P:\Program Files\Visionneuse" .....
L’exécutable est lancé par un raccourci sur chaque poste, vers le seul poste ayant le dossier et sous-dossiers partagé.

Lors de modification/debugage, j’utilise une copie de la BD que je mets sur mon disque dur

Code:

---

1 2 3 4 5 6 7

CheminNomDossierProjet = "C:\Program Files\Visionneuse" NomDelabase = "Vision.mdb"   'Ligne utilisée dossier partagé CheminNomDelabase = App.Path & "\" & NomDelabase 'Ligne utilisée pour le lancement du projet pour modification/debugage CheminNomDelabase = CheminNomDossierProjet & "\" & NomDelabase

---

Cela oblige a REMER la premier quand je suis en lancement projet, et inversement quand je recompile pour faire l’exec que je remet dans le dossier partagé.

Je cherche en vain ce type de condition

Code:

---

1 2 3 4 5 6 7

If Lancement = "projet" Then 'En cour de modif/debug CheminNomDelabase = CheminNomDossierProjet & "\" & NomDelabase Else 'Lancement par raccourci de chaque poste de l'exec du dossier partagé CheminNomDelabase = App.Path & "\" & NomDelabase End If

---

Pour information, allusion a ce post
j’ai installé l’exec sur chaque poste (fichier généré par Empaquetage et Déploiement de VB6), puis supprimé l’exec sur chaque poste, j’ai mis un raccourci visant l’exec du poste(non serveur) ayant le dossier partagé, sa fonctionne très bien.

Merci de me rafraîchir les neurones ;)

Aaaaah ouai, je crois que c'est un truc comme ça :

Code:

---

1 2 3 4 5

#If VARIABLE_COMPILEE = "VALEUR QUAND MODE COMPILE" Then 'Code du mode exe #else 'Code du mode vb #End If

---

Ensuite faut aller dans le menu projet, project properties > Make > Conditonal compilation arguments

et dans la case tu mets VARIABLE_COMPILEE = "VALEUR QUAND MODE COMPILE"

Je crois que c'est ça ...

Je dis une bêtise ou c'est de la compilation conditionnelle que tu veux faire ? ( #if, #then, #end if)

Vld est plus rapide que moi ;)

Réponse un peu tardive aux propositions que j’ai récupéré tout de suite après vos envoies.
C’est un peu la honte :oops: comme dit mon petit fils.
Je ne parviens pas à faire fonctionner la compilation conditionnelle, indiqué par Vld44 et OhMonBato.
Un Form, un Module, dans le module,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit Public ResultatCondition As String Public Sub Main() #If VARIABLE_COMPILEE = -1 Then 'Code du mode vb ResultatCondition = "Code du mode vb" #Else 'Code du mode exe ResultatCondition = "Code du mode exe" #End If   Form1.Show End Sub

---

Dans la case Projet1 – Propriété du projet, onglet Créer, case Arguments de compilation conditionnelle, VARIABLE_COMPILEE = 0

Que cela soit lancé du projet ou de l'exec, le titre de Form1 est Code du mode exe.

Après avoir lut tous ce qui peut être dit dans MSDN, la seule chose que je crois avoir compris est que pour chaque compilation (création de l’exécutable), il faut changer la valeur de la variable dans la boite de dialogue Projet1 – Propriété du projet, onglet Créer, case Arguments de compilation conditionnelle.
Si c’est cela, je conserve mon système de Rem.
Merci quand même à vous pour la rapidité de vos propositions
Je tag résolut
Salut

Bonjour,
On peut passer des paramètres au programme exécutable, et Il me semble que dans vb tu peux indiquer une valeur pour tester.
Je ne me souvient plus, je recherche et je te tient au courant.

Edit: j'ai trouvé
Dans le menu "Fichier", "Créer projet1"
Dans la fenêtre "Créer projet1", bouton "Option"
Dans la fenêtre "propriétés du projet", le champ "Arguments de la ligne de commande" te permet de mettre une valeur de test.
donc pour toi => projet

A+, Hervé

Merci de l'interet que tu portes à la question.
Je recherche en passant par la recupération d'une commande passé dans le raccourci visant l'exec de chaque poste.
Dans propriété du raccourci, dans Cible, je met deja le chemin dossier (specifique a chaque poste mais aboutissant toujours au même ordi qui a le dossier partagé, voire plus haut), je vais y rajouter apres le nom de l'exec, un espace et un argument de commande que je verifirais a l'entrée du prog.
Si argument est null, je suis en lancement VB debug/modif,
si non vide, le lancement est pour l'executable depuis le raccourci.
Un peu tordu :mouarf:, mais faute de mieux ......

On s'est croisé :mrgreen:

Citation:

---

Envoyé par rv26t

Edit: j'ai trouvé
Dans le menu "Fichier", "Créer projet1"
Dans la fenêtre "Créer projet1", bouton "Option"
Dans la fenêtre "propriétés du projet", le champ "Arguments de la ligne de commande" te permet de mettre une valeur de test.
donc pour toi => projet

---

Mais s'est cela que je n'arrive pas à mettre en place, j'ai essayé pendant une petite heure cette fin d'aprés midi

Citation:

---

Si argument est null, je suis en lancement VB debug/modif,
si non vide, le lancement est pour l'executable depuis le raccourci.
Un peu tordu , mais faute de mieux ......

---

Disons que je te proposais l'inverse
Si argument est "projet", tu es en lancement VB debug/modif,
si vide, le lancement est pour l'executable depuis le raccourci.

Cela évite de rajouter un argument à tous les raccourcis.

Mais bon, du moment que tu as une solution qui correspond à tes souhaits.
bonne continuation.;)

Edit : on s'est encore croisé.:mouarf:
Ensuite tu testes

Code:

---

1 2 3

If Command() = "projet" Then MsgBox "dans éditeur VB" End If

---

Chez moi cela fonctionne sous vb : message,
avec l'exe : rien.

Moi je fais comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit #Const truc = True Private Sub Command1_Click() #If truc = False Then Label1 = "mode création" #Else Label1 = "mode exe" #End If End Sub

---

La derniere :mouarf:
Ma conclusion definitive

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Form_Load() 'dans le raccourci de lancement ajouter dans sa fenêtre de propriété 'dans la case Cible, a la suite du chemin et nom de l'exec, un espace et un 'argument quelquonque ou specifique suivant l'analyse suivante   Dim LaCommand As String LaCommand = Trim$(Command$) If LaCommand <> "" Then Me.Caption = "depuis le raccourci" If LaCommand = "X" Then 'ce poste peut faire ceci ou cela End If If LaCommand = "Y" Then 'ce poste peut faire que ceci End If If LaCommand = "P" Then 'ce poste peut faire que cela End If Else Me.Caption = "Debug/Modif" 'ce poste peut faire ceci, cela et plus End If End Sub

---

Tout compte fait, d'avoir posée cette question m'amene à une solution qui va me permetre de gerer les possibilités d'interventions suivant quel poste lance l'executable.
Je tag délestage
Merci encor à Vld44, OhMonBato et rv26t

Et sinon, j'ai une autre solution :

Code:

---

1 2 3 4 5 6

Public sub ModeCompile() as Boolean on error resume next debug.print 1/0 ModeCompile = (err.number = 0) err.clear End sub

---

C'est plus "tricky" mais tout aussi sexy.

j'arrive peu-être après la bataille ... mais il y avais cela :

Comment savoir si mon programme est exécuté depuis l'IDE de VB6 ou en mode compilé ?

dans la :faq: ....

Citation:

---

Envoyé par bbil

j'arrive peu-être après la bataille ... mais il y avais cela :

---

:) Non, non, merci bbil

Seule une petite adaptation dans la fonction IsRunningIDE()
IsRunningIDE = LCase(ExtractFileName(sBuffer)) = "vb6.exe"
car ExtractFileName renvoi pour moi "VB6.EXE"
Comme quoi il n'est pas toujours evident de trouver le/les bons mots lors d'une recherche

Citation:

---

Envoyé par ProgElecT

:) Non, non, merci bbil

Seule une petite adaptation dans la fonction IsRunningIDE()
IsRunningIDE = LCase(ExtractFileName(sBuffer)) = "vb6.exe"
car ExtractFileName renvoi pour moi "VB6.EXE"
Comme quoi il n'est pas toujours evident de trouver le/les bons mots lors d'une recherche

---

ok :merci: pour le retour