Différence entre lancement du projet et exécutable

**ProgElecT** · 31/08/2007, 17h16

J’ai un trou de mémoire.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Vld44** · 31/08/2007, 17h40

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

**OhMonBato** · 31/08/2007, 17h42

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

**ProgElecT** · 31/08/2007, 21h09

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**rv26t** · 31/08/2007, 21h47

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é

**ProgElecT** · 31/08/2007, 22h33

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

, mais faute de mieux ......

**ProgElecT** · 31/08/2007, 22h37

On s'est croisé

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

**rv26t** · 31/08/2007, 22h48

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é.

Ensuite tu testes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

**OhMonBato** · 31/08/2007, 23h17

Moi je fais comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ProgElecT** · 31/08/2007, 23h28

La derniere

Ma conclusion definitive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Vld44** · 01/09/2007, 09h42

Et sinon, j'ai une autre solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**SfJ5Rpw8** · 01/09/2007, 21h56

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

....

**ProgElecT** · 01/09/2007, 22h29

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

**SfJ5Rpw8** · 01/09/2007, 22h33

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

pour le retour

Différence entre lancement du projet et exécutable

VB 6 et antérieur

Discussions similaires

Partager

Partager