[VB6] - Interface graphique de CD-ROM (pb liens)

**fredhali2000** · 02/02/2006, 11h51

Bonjour.

Je souhaiterais créer un CD-rom avec différents programmes dessus, et notamment :
- divers tutoriaux du web au format pdf, html, doc... ;
- des prog fait moi-meme en vb, C, java, etc. ;
- des logiciels libres téléchargés (progs d'installation des logiciels) ;
- etc.

Pour ce faire, je souhaiterais faire une interface graphique à l'aide de Visual Basic 6, pour me permettre de lancer les installations des programmes choisis et de visualiser les tutoriaux directement sans avoir à parcourir le CD.
J'aimerais donc savoir s'il est possible :
- de lancer des programmes à l'aide d'événements ;
- d'ouvrir des fichiers (pdf, doc, html, etc.) à l'aide d'événements ;
- de faire en sorte que les chemins vers les fichiers et programmes d'installation soient relatifs, ce qui me permettrait de développer l'outil sur mon poste et que cela ne pose pas de problème de chemin une fois tous les programmes sur le CD-rom.;
- de faire en sorte que ce prog vb soit auto-executable avec l'autorun.

Merci à tous pour votre aide précieuse.

**jmfmarques** · 02/02/2006, 11h58

J'aimerais donc savoir s'il est possible :

La question est de savoir si c'est possible et la réponse est donc :
Oui, c'est possible

**fredhali2000** · 02/02/2006, 12h01

Ah merci beaucoup.
En fait je me doutais que c'était possible (j'ai déjà vu des résultats plutôt pas mal).
C'était une manière un peu détournée de demander comment il fallait s'y prendre.

Merci tout de même de ta réponse, jmfmarques...

**jmfmarques** · 02/02/2006, 12h04

Pardi ! en commençant par le commencement...

Je te suggère donc, par exemple, de commencer un tout petit programme dont la vocation serait de lancer une application de ton choix...

Je te suggère également, avant de commencer ce tout petit programme, de te plonger dans l'aide en ligne..
et de nous présenter ce que cette lecture instructive t'a permis d'écrire (ton code).

**fredhali2000** · 02/02/2006, 13h51

ok

**fredhali2000** · 02/02/2006, 14h05

Code :

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

1
2
3
4
Private Sub Command1.Click()
     Dim id As Double
     id = Shell("MonProg.exe")
End Sub

Pour info, ca marche...

**jmfmarques** · 02/02/2006, 14h09

Bien ! Tu vois, quand on s'y met ?
2ème étape donc :

d'ouvrir des fichiers (pdf, doc, html, etc.) à l'aide d'événements ;

ouvrir des fichiers comment et pour quoi faire : lire, écrire, lire et écrire ?
dis-nous...

**fredhali2000** · 02/02/2006, 14h14

Avant d'aller plus loin, je tiens à préciser que l'application que je lance se lance en arrière plan...
Est-ce normal?

Sinon, les fichiers pdf, doc, etc. devront s'ouvrir en lecture seule, puisqu'ils sont sur un cd-rom...

**jmfmarques** · 02/02/2006, 14h19

On verra ensuite ce qu'il convient de faire pour qu'elle se lance en 1er plan (c'est pour l'instant secondaire).

Pour ce qui est de nos moutons actuels: dans l'aide en ligne : vois ce que donne l'utilisation de Open.. for...
For Input = pour lire dans le fichier
Tu as des exemples. Lis, propose nous un code et on corrigera bien volontiers...
A toi, donc.

Il me semble cependant que tu ne veux pas réllement lire dans un fichier mais recenser les fichiers présents dans un répertoire... mais je peux me tromper. Qu'en est-il donc ? (mais que cela ne t'empêche pas, au passage, de t'intéresser à l'utilisation de Open..., cela te servira ailleurs...)

**fredhali2000** · 02/02/2006, 14h30

J'ai fait :

Code :

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

1
2
3
Private Sub Command2_Click()
     Open "test.pdf" For Input As #1
End Sub

Ca a l'air d'ouvrir le fichier, mais ca ne l'affiche pas...
En effet, la premiere fois j'avais l'impression que rien ne se passait, alors j'ai recliqué sur le bouton et il m'a dit le fichier est déjà ouvert...
Maintenant, je voudrais afficher le fichier, autrement dit, l'ouvrir avec l'application définie par défaut pour ouvrir ce type de fichier...

**fredhali2000** · 02/02/2006, 14h40

J'ai modifié mon code et mon appli se lance en premier plan :

Code :

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

1
2
3
4
Private Sub Command1.Click() 
     Dim id As Double 
     id = Shell("MonProg.exe", vbNormalFocus) 
End Sub

Voilà.

**jmfmarques** · 02/02/2006, 14h41

Ce qui ne s'appelle pas une ouverture, mais une exécution.
Il te faut donc laisser tomber le Open, qui t'aurait servi, avec un iNPUT, à voir ce qui était écrit dans le fichier.
Mais tu sais déjà utiliser la commande Shell, donc....
il te faut, comme je le supposais, recenser les fichiers d'un répertoire et en lancer l'exécution, à l'aide d'une application....
La commande Shell peut te servir...
Mais, avant même de l'utiliser, il va te falloir savoir lancer l'application qui prend ce fichier en paramètre. Fais donc, d'abord, des essais de syntaxe en utilisant : Démarrer===>> Exécuter===>> ta_commande. Tout ce qui marchera là pourra être appelé par le Shell.
A toi de jouer... et dis-nous!

**fredhali2000** · 02/02/2006, 14h51

J'arrive avec un Shell à ouvrir l'application Adobe Reader en lui indiquant le chemin de l'appli, mais comment faire ensuite pour ouvrir le fichier selectionné avec cette appli?

**jmfmarques** · 02/02/2006, 14h57

Nous y voilà enfin !
Pour cela, tu as des exemples sur ce forum. Cherche dans la FAQ, les tutos, etc...
Reviens si tu n'as rien trouvé (en nous disant comment tu as cherché)..
J'ai souvenance d'avoir vu passer très récemment un sujet de ce type....:
indice : listing des fichiers d'un type donné dans un répertoire... et choix d'un fichier parmi la liste affichée...

**fredhali2000** · 02/02/2006, 15h19

Non, je ne vois pas...

**fredhali2000** · 02/02/2006, 16h00

Yaurait aussi Application.FollowHyperlink, mais je ne trouve rien dessus dans l'aide...

**jmfmarques** · 02/02/2006, 16h22

Non, je ne vois pas...

ne nous dit pas comment tu as cherché...

**fredhali2000** · 02/02/2006, 16h40

Ben apparemment mal, sinon j'aurais trouvé mon bonheur...

**jmfmarques** · 02/02/2006, 17h15

Bon ! c'est vrai que ce n'est pas facile.

Commence donc avec cela.
http://vb.developpez.com/faq/?page=Fichiers#contenu_rep
Si tu ne t'en sors pas, je t'enverrai un code différent , qui répond à tes besoins.

**fredhali2000** · 03/02/2006, 09h46

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rep As String
'obtient le premier fichier ou répertoire qui est dans "c:\"
rep = Dir("c:\*.*", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
Do While (rep &lt;> "")
    'teste si c'est un fichier ou un répertoire
    If (GetAttr("c:\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
    Else
        MsgBox "Fichier " & rep
    End If
    'passe à l'élément suivant
    rep = Dir
Loop

Si le chemin de mon répertoire est relatif, je peux remplacer la deuxieme ligne de code par :

Code :

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

rep = Dir("MonRepertoire\*.*", vbDirectory)

sans indiquer qu'il se trouve sur c:\, maisjuste que c'est le repertoire enfant de celui dans lequel se trouve le programme que je code ?

[VB6] - Interface graphique de CD-ROM (pb liens)

VB 6 et antérieur

Discussions similaires

Partager

Partager