Discussion :

[vinvinsylvain]

Bonjour
je recherche comment faire pour quand je clique sur une Picture, celle ci ouvre un fichier txt, va à une ligne spécifique et ouvre le fichier dont le chemin serra mis dans la ligne.

Fichier txt:

Nom[tab]chemin
bouton1[tab]C:\Program Files\Internet Explorer\iexplore.exe
bouton2[tab]C:\Program Files\Topgard.exe
bouton3[tab]C:...

voici un début de code que j'ai trouver:

Code Visual Basic :

Code :

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

1
2
3
4
5
6
7
8
9
 
Open "C:\Rapport événement\Base de donnée liens.txt" For Input As #vbTab
While Not EOF(1)
Line Input #1, B$
Label11 = B$
Wend
Close #1
        Shell Label11.Caption, vbMaximizedFocus
End Sub

quelqu'un peu m'aider?

[ThierryAIM]

rien compris .....

[vinvinsylvain]

oui exussé moi je m'explique très mal lol

voilà j'ai plusieurs pictures qui ont un lien vers d'autre application.
Mais je voudrais savoir si il état posible de modifier ce lien par l'intermédiare d'un ficher txt.

Mon fichier txt est comme:
Nom[tab]chemin
picture1[tab]C:\Program Files\Internet Explorer\iexplore.exe
picture2[tab]C:\Program Files\Topgard.exe
picture3[tab]C:...
...

J'ai trouver un p'tit bout de code qui me permet de lire le fichier txt:

Code :

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

1
2
3
4
5
6
7
8
Open "C:\Rapport événement\Base de donnée liens.txt" For Input As #vbTab
While Not EOF(1)
Line Input #1, B$
Label11 = B$
Wend
Close #1
        Shell Label11.Caption, vbMaximizedFocus
End Sub

ce que je voudrais que quand je clique par exemple sur la picture1, le fichier txt s'ouvre en arrière plan, trouve la ligne correspondant à la picture1 et lit le chemin de l'application puis m'ouvre cette fameuse application.

je pense avoir bien m'expliquer.

[iclic]

Bonjour,

Un fichier .txt n'est pas un fichier de commande.
Il ne fait que lire la commande sans plus.

A+

[vinvinsylvain]

bonjour,

s'est pour cela que la lecture et incorporer dans un Label pour que celui_ci l'ouvre l'application

label = chemin de l'application

merci

[ucfoutu]

Bonjour,

C'est en effet assez peu compréhensible .
Dis-nous donc : qu'entends-tu par

va à une ligne spécifique et ouvre le fichier dont le chemin serra mis dans la ligne

Quelle ligne spécifique (dans ton exemple) et que contient-elle ?
Qu'entends-tu par "ouvrir" ? Afficher l'image ? Où ? dans ta pictureBox ?

et ceci ? :

Mais je voudrais savoir si il état posible de modifier ce lien par l'intermédiare d'un ficher txt

Si la pîctureBox est dans un Form de TON appli : pourquoi donc passer par une modification du fichier Texte ? (LoadPicture fait directement l'affaire pour autant que l'image soit dans un format reconnu par VB6...dans la négative, il va falloir passer par d'autres bouts de code, en fonction du format..)
Bref et pour résumer : que cherches-tu à obtenir (explique ce que tu as et ce que tu veux atteindre, sans code).

EDIT : et utiliser le contenu d'une variable directement où celui d'un label "contenant ce contenu" est rigoureusement la même chose (sauf que le label est un tremplin supplémentaire parfaitement inutile !)!

[vinvinsylvain]

Je me suis perdu moi même lol

le fichier txt est crée par le bolc note
l'image, ben les images me font mon menu de mon application.
Chaques images ont un lien qui ouvre une application (internet explore, google eartch, méssagerie etc...)

mon sucie s'est que si on change le chemin d'accès de ces applications; ma propre application que je suis entrain de créer ne serra plus valide, tout les liens seront inutile.

S'est pour cela que je voulais que ces liens soit incris dans un fichier txt dont on pourrai changer à voloter le chemin des applications

voilà je pense avoir tout dis, du moin je le pense lol

[iclic]

Bonjour,

1.D'abord pourquoi mettre le menu de ton application dans une image alors qu'il existe dans VB6:
rubrique Outils
le choix: Créateur de Menus

ce qui permet de créer des menus déroulant d'une façon très simple.

2.Si je comprends bien ton fichier texte te sert à créer des paramètres que tu vas lire et mettre par exemple dans un tableau.

3.Il te suffit alors de faire dans ton menu , à l'endroit voulu une instruction shell avec le paramètre approprié ( je suppose le chemin ) et le fichier .exe à ouvrir.

Exemple du code

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
 
 
Private Sub Men1_Click(Index As Integer)
 
 
      Select Case Index
          Case 1
 
          Shell & chemin & nomfichieràouvrir
 
          Case 2
 
           ...
 
      End select
 
End Sub

[OhMonBato]

Pour en rester à ton idée de départ, je ferais ceci :
Chaque image composant ton "menu" peut être appelée "Pic" et possède un numéro d'index, tu auras donc Pic(0), Pic(1), Pic(2), etc...

Il suffit alors du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Pic_Click(Index As Integer)
Dim Nf As Byte
Dim Ch As String
Nf = FreeFile
Open "C:\Rapport événement\Base de donnée liens.txt" For Input As #Nf
For i = 0 To Index
  Line Input #Nf, Ch
Next i
Close #Nf
Shell Ch, vbMaximizedFocus
End Sub

[vinvinsylvain]

Pour en rester à ton idée de départ, je ferais ceci :
Chaque image composant ton "menu" peut être appelée "Pic" et possède un numéro d'index, tu auras donc Pic(0), Pic(1), Pic(2), etc...

Il suffit alors du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Pic_Click(Index As Integer)
Dim Nf As Byte
Dim Ch As String
Nf = FreeFile
Open "C:\Rapport événement\Base de donnée liens.txt" For Input As #Nf
For i = 0 To Index
  Line Input #Nf, Ch
Next i
Close #Nf
Shell Ch, vbMaximizedFocus
End Sub

ok merci à tous