[VB6]Inclure un menu

Salut à tous

Question prioritaire :

Je voudrais savoir comment inclure un menu lorsque l'on fait un clic droit sur un fichier dans le PC, comme Winrar ou il nous demande extraire ici, etc... je voudrais pouvoir faire la même chose lorque que l'on clic droit sur un .mp3 avec marque modifier le tag...

Question secondaire :

Et pendant que j'y suis, comment inclure VB6FR.DLL ainsi que les OCX que j'utilise, parce que faire un fichier d'installation de 140 Ko je pense que se n'est pas utile...


Je vous remercie d'avance

Q1
R: Tu crées un menu, avec ses items de sous-menu. Tu mets ensuite la propriété Visible du menu à False (juste celui-là, pas les sous menus).

Sur l'événement MouseUp

Code:

---

1 2 3

If Button = vbRigntButton then PopupMenu monMenu End If

---

Q2
R: C'est peut-être possible mais personnellement, je ne sais pas. L'utilitaire d'empaquetage fourni avec VB fait toujours un tas de fichiers. Si tu veux un .exe tout simple et autonome, programme en Delphi. ;)

Je te remercie de ta réponse, mais je n'y arrive pas...

Je fais ce que tu as di, je crée l'exe et quand je clic droit sur n'importe quel fichier de l'explorateur windows il n'y a rien

Je voudrais que sa fasse comme avec winrar, lorsque il y a un clic droit sur un fichier il met extraire ici, etc...

Excuses moi. Si j'avais lu mois vite... Il faut ajouter une clé dans la base de registre. Mais je ne sais pas trop comment, je ne l'ai jamais fait. Le code que je t'ai deonné ne sert qu'à ajouter un menu contextuel dans ton application.

Lol pas de problème...

J'arrive même pas a faire marcher ton bout de code lol...

Il faut créer une clé sous HKEY_CLASSES_ROOT\*\shell\nom intitulé\command et à l'intérieur mettre le chemin vers ton programme suivi de %1 pour récupérer le fichier pointé.

Exemple pour ouvrir un quelconque fichier avec le bloc note :

Code:

---

HKEY_CLASSES_ROOT\*\shell\Ouvrir avec le bloc-note\command

---

Oú command est une valeur chaine :

Code:

---

notepad.exe %1

---

Merci de ta réponse, et je met sa dans un module ou autre ?

Tu as la fonction

Code:

---

1 2 3 4

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String, _ phkResult As Long) As Long

---

Merci pour tes indications mais pourrait tu faire un petit exemple :oops: car je ne sais pas trop ou le mettre et quand je met :

Code:

---

1 2 3 4 5 6 7

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String, _ phkResult As Long) As Long   HKEY_CLASSES_ROOT\*\shell\Ouvrir avec le bloc-note\notepad.exe %1

---

Il me met une erreur sur le premier backslash ( Attendu : expression )

Code:

---

HKEY_CLASSES_ROOT\*\shell\Ouvrir avec le bloc-note\notepad.exe %1

---

Ben si tu prenais l'editeur de base de registre, tu pourais ajouter les cles manuellement. Pas besoin d'écrire d'un programme pour faire çà.

L'information est stockée par windows. c'est l'explorateur windows qui cherche dans la base de registre pour savoir ce qu'il doit afficher comme menu.
Ce n'est pas ton progrmme qui gére cet effet, c'est l'explorateur windows.

Bien sur, tu peux ecrire un programme vb qui modifie la base de registre. mais ce n'est pas ce programme qui modifie le fonctionnement de l'explorateur windows.

Je suis sous linux donc pas d'API windows mais ça doit être quelque chose du genre

Code:

---

1 2 3

RegCreateKeyA(&H80000000, "*\\shell\\Ouvrir avec le bloc-note\\", "notepad.exe %1")

---

ARGHHHHHHH
VB6 ne marche pas sous linux !

Citation:

---

Envoyé par muad'dib

Je suis sous linux donc pas d'API windows mais ça doit être quelque chose du genre

Code:

---

1 2 3

RegCreateKeyA(&H80000000, "*\\shell\\Ouvrir avec le bloc-note\\", "notepad.exe %1")

---

---

8O Sérieux ? Tu développe une appli VB pour Windows... sous Linux ?

Merci...mais je ne sais toujours pas si je dois mettre ça dans un module ou autre...

Si pouviez faire un exemple concrès...

Je vous remercie

Je ne crois pas que ça ait une quelconque importance. Ça dépend de la manière dont ton application est construite. Si tu veux que cette fonction soit appelable de toute ton application, tu la déclare publique dans un module. Sinon, tu la déclare Private dans la feuille ou le module qui exécutera le code. C'est à toi de voir.

Merci zaza, mais je suis un débutant en VB ( quasi noob même )

Je met quel fonction dans le module ?

celle ci ? :

Code:

---

1 2 3 4

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String, _ phkResult As Long) As Long

---

Je pense qu'avant de te lancer dans l'ecriture de fonctions qui modifient ta base de registre, tu devrais commencer par le Ba-Ba et lire les tutos de ce site sur la programmation en VB.

Citation:

---

Envoyé par Delbeke

Je pense qu'avant de te lancer dans l'ecriture de fonctions qui modifient ta base de registre, tu devrais commencer par le Ba-Ba et lire les tutos de ce site sur la programmation en VB.

---

+1

Citation:

---

Envoyé par Delbeke

Je pense qu'avant de te lancer dans l'ecriture de fonctions qui modifient ta base de registre, tu devrais commencer par le Ba-Ba et lire les tutos de ce site sur la programmation en VB.

---

+2!

De toutes façons, ce n'est jamais une bonne idée de tripatouiller la base de registre si on ne sait pas ce qu'on fait.

Pour l'instal, VB rassemble tous les fichiers nécessaires pour que ton appli tourne. Si l'un de ces fichier manque sur la machine, ton appli ne pourra pas tourner correctement.
Tu peux obtenir un fichier setup.exe unique (sans fichier joint tel .cab et .lst) en utilisant les outils disponibles en téléchargement sur le forum (section outils) : IsTool et InnoSetup (IsTool utilise InnoSetup). De plus il compresse les fichiers et fait un instal plus agréable.
Perso, je te conseil d'utiliser l'empaqueteur de VB pour réccupérer la liste des fichiers puis de l'inclure dans IsTool (fichier .Lst), ainsi tu n'auras pas la mauvaise surprise de voir ton appli planter sur une autre machine à cause d'un fichier manquant ;)