Chargement d'un fichier des EVT Load() [Résolu]

Messages postés
289
Date d'inscription
dimanche 10 août 2003
Dernière intervention
28 février 2009
- - Dernière réponse : MaxSoldier
Messages postés
289
Date d'inscription
dimanche 10 août 2003
Dernière intervention
28 février 2009
- 13 août 2004 à 20:18
Bonjours ! En fait je Créée un traitement de texte. Il fonctionne correctement mais je n'arrive pas à le lancer avec le Fichier que j'ai séléctionné. En fait, il se lance normalement sans texte chargé.

Exemple ( si vous avez pas compris ( je vous en veux pas :) )) :
Je double clique sur un fichier Texte ( pour ne cité que lui ) Word s'ouvre et lit le Fichier que j'ai Séléctionné. J'ai configuré Windows pour lancer mon prog quand je Double clic sur un Txt. Donc il lance mon programme mais le txt ne se charge pas. ( Logique je n'ai rien codé pour mais que dois-je faire pour ça ? )

Merci d'avance
-=Ar$£nik=-
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Dernière intervention
17 octobre 2013
3
Merci
Vas voir ICI

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Dernière intervention
18 avril 2009
0
Merci
je ne c'est pas si c'est possible, enfin cà doit surrement l'etre, mais si tu essaie de faire comme en langage C (attribuer des variable au feuille par défaut "sub main()", le compilateur ne veut pas. Maintenant celui qui apporte la solution, cà m'interresse aussi :)

Amicalement TMCUH
Messages postés
21054
Date d'inscription
jeudi 23 janvier 2003
Dernière intervention
7 novembre 2014
0
Merci
En lisant ta ligne de command, tu dois savoir si tu as un fichier de selectionne a lire, non ?

ciao...
BruNews, Admin CS, MVP Visual C++
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Dernière intervention
18 avril 2009
0
Merci
là n'est pas le plus important, ce qui est traité ici, c'est comment récupéré un valeur exterieur au programme. enfin je l'ai compris ainsi

Amicalement TMCUH
Messages postés
21054
Date d'inscription
jeudi 23 janvier 2003
Dernière intervention
7 novembre 2014
0
Merci
Pas vu ce qu'il y a d'exterieur au prog.

ciao...
BruNews, Admin CS, MVP Visual C++
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Dernière intervention
17 octobre 2013
0
Merci
Bonjour
"J'ai configuré Windows pour lancer mon prog quand je Double clic sur un Txt"
Peux-tu préciser comment.
Messages postés
289
Date d'inscription
dimanche 10 août 2003
Dernière intervention
28 février 2009
0
Merci
Merci à toutes ces réponses. Je suis vraiment désolé de ne pas avoir été et plusieurs interprétations on été fait du poste. Je vais l'expliquer simplmenet par un exemple :

Quand vous double-cliquer sur un MP3, Winamp ( ou un autre lecteur ) s'ouvre avec se mp3 en lecture et bien je veux faire pareil. Je remerci rene 38 et je syntétise la réponse pour lé intéréssé :

Créer un fichier texte (avec Notepad par exemple) contenant :
----------------------------------
REGEDIT4

[HKEY_CLASSES_ROOT\.fns]
@="Fichier fns"

[HKEY_CLASSES_ROOT\Fichier fns\Shell\Open\Command]
@="C:\\Program Files\\Dossier\\TonProg.exe %1"

Puis il faut inclure dans votre EVT FormX.Load()

Dim Fichier_à_Ouvrir As String

Fichier_à_Ouvrir = Command$

' La variable Fichier_à_Ouvrir contient le chemin du fichier
' sur lequel tu as fait un double clic

If Fichier_à_Ouvrir <> "" Then

' ouverture du fichier et traitement par exemple
Open Fichier_à_Ouvrir For Input As #1
' ..........
Else
' TonProg.exe a été lancé directement
End If

-=Ar$£nik=-
Messages postés
21054
Date d'inscription
jeudi 23 janvier 2003
Dernière intervention
7 novembre 2014
0
Merci
On est enfin d'accord.

ciao...
BruNews, Admin CS, MVP Visual C++
Messages postés
289
Date d'inscription
dimanche 10 août 2003
Dernière intervention
28 février 2009
0
Merci
Pour ceux qui n'aurait pas compris la partie code : Voici le mien commenté

Private Sub Form_Load()

'Déclaration des variables
Dim Filename As String
Dim iLenght As Integer

' Affectation de FileName à command$
Filename = Command$

' Si l'application à été chargé avec un fichier
If Filename <> "" Then

' Car il nous l'affiche avec des " " donc suppression de ceux-çi
iLenght = Len(Command$) - 2

' Suppression des guillemets
Filename = Mid(Filename, 2, iLenght)

' Lecture du Fichier 
' {
Open Filename For Input As #1
Line Input #1, Texte

Tout = Texte

While Not EOF(1)
    Line Input #1, Texte
    Tout = Tout + vbNewLine + Texte
Wend
' }

rtfText.Text = Tout
End If

End Sub


-=Ar$£nik=-

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.