En double cliquant sur un fichier *.txt, l'ouvrir avec mon programme. ?

Question

En double cliquant sur un fichier *.txt, l'ouvrir avec mon programme. ?

Signaler

thom43

Messages postés: 6
Date d'inscription: jeudi 30 août 2007
Statut: Membre
Dernière intervention: 2 avril 2008

- 30 août 2007 à 11:54
ShareVB

Messages postés: 2676
Date d'inscription: vendredi 28 juin 2002
Statut: Membre
Dernière intervention: 13 janvier 2016

- 20 sept. 2007 à 23:16

Bonjour,

J'ai créer un petit programme (un petit éditeur de texte, style bloc-note de windows.). J'aimerais que, quand on clique sur un fichier
.txt, ou ".truc" (extenstion de mon programe), que mon programme souvre, et afficher le texte du fichier dans ma RichTextBox.
Merci d'avance...

Thom43

Afficher la suite

A voir également:

En double cliquant sur un fichier *.txt, l'ouvrir avec mon programme. ?
Ouvrir application-métier en double_cliquant sur un fichier ✓ - Forum - VB.NET
[Déplacé VB6 --> VBA] Travailler avec un fichier *.txt sans ouvrir Excel - vba e ✓ - Forum - Visual Basic 6
Récupérer le nom du fichier avec lequel l'appli doit s'ouvrir.lorsqu'on double clique depuis l'explo - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
Problème d'ouverture de fichier par double-clique ✓ - Forum - Visual Basic 6
Vba ecrire dans un fichier txt - Conseils pratiques - Visual Basic / VB.NET

8 réponses

Répondre Posez votre question

cs_Exploreur · Answer 1 · 2007-08-30T12:06:33+0200

Réponse 1 / 8

cs_Exploreur

Messages postés: 4822
Date d'inscription: lundi 11 novembre 2002
Statut: Membre
Dernière intervention: 15 novembre 2016

12
30 août 2007 à 12:06

Salut,

Sur ton fichier, click droit >> Ouvrir avec...>> Choix du programme >> Sélectionne ton programme >> et coche la case toujours ouvrir avec.....

A+
Exploreur

Linux a un noyau, Windows un pépin

thom43 · Answer 2 · 2007-08-30T12:18:21+0200

Réponse 2 / 8

thom43

Messages postés: 6
Date d'inscription: jeudi 30 août 2007
Statut: Membre
Dernière intervention: 2 avril 2008

30 août 2007 à 12:18

Bonjour...

Certe je fait sa... Mais il mouvre mon programe vide (donc sans le texte qu'il y a dans le fichier.)
Merci quand meme...

A+
Thom43

cs_Chatbour · Answer 3 · 2007-08-30T12:43:07+0200

Réponse 3 / 8

cs_Chatbour

Messages postés: 764
Date d'inscription: jeudi 27 juillet 2006
Statut: Membre
Dernière intervention: 6 septembre 2010

18
30 août 2007 à 12:43

Salut,

il faut que votre programme soit programmé au préalable pour ouvrir un fichier donné en paramètre (puis récupéré avec la commande Command())..

Kristof_Koder · Answer 4 · 2007-08-30T12:50:48+0200

Réponse 4 / 8

Kristof_Koder

Messages postés: 918
Date d'inscription: vendredi 3 août 2007
Statut: Membre
Dernière intervention: 27 octobre 2008

10
30 août 2007 à 12:50

En .NET 2005, plutot que Command$, on utilisera de préférence la collection My.Application.CommandLineArgs

thom43 · Answer 5 · 2007-08-30T12:52:01+0200

Pouriez vous me dire le code qu'il faut que je mette (sachant que mon programme est programmer
pour ouvrir les fichier donner :

    Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click
        OpenFileDialog1.ShowDialog()

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        Dim SR As New StreamReader(OpenFileDialog1.FileName())
        TextBox1.Clear()
        TextBox1.Text() = SR.ReadToEnd()
        TextBox1.Rtf() = TextBox1.Text()
        SR.Close()

        Dim sNom As String
        sNom = OpenFileDialog1.FileName()
        Dim Fi As FileInfo
        Fi = New FileInfo(sNom)
        Label1.Text = Fi.Name
        Fi = Nothing
    End Sub

Kristof_Koder · Answer 6 · 2007-08-30T13:06:46+0200

' Une fonction private dans la form
Private Function OuvrirFichier(byval FName as String) As Boolean
Dim SR As New StreamReader(FName)
TextBox1.Clear()
TextBox1.Text() = SR.ReadToEnd()
TextBox1.Rtf() = TextBox1.Text()
SR.Close()

Dim Fi As FileInfo
Fi = New FileInfo(FName)
Label1.Text = Fi.Name
Fi = Nothing
End function

'Dans l'EVT Load de ta forme ...
...
If My.Application.CommandLineArgs.Count <> 0 Then
For Each Str As String In My.Application.CommandLineArgs
OuvrirFichier(Str)
Next
End If
...

' Modif de l'EVT de l'OpenFileDialog pour appeler la fonction d'ouverture de fichier
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
OuvrirFichier(OpenFileDialog1.Filename())
End Sub

si tu es sur de n'avoir qu'un seul argument sur la ligne de commande, dans le Load, tu peux faire juste ceci :
...
If My.Application.CommandLineArgs.Count <> 0 Then
OuvrirFichier(My.Application.CommandLineArgs(0))
End If
...

thom43 · Answer 7 · 2007-08-30T13:29:20+0200

Réponse 7 / 8

thom43

Messages postés: 6
Date d'inscription: jeudi 30 août 2007
Statut: Membre
Dernière intervention: 2 avril 2008

30 août 2007 à 13:29

Waah super ! sa !
Merci beaucoup Kristof_Koder !!!
Merci, A+

Thom43

ShareVB · Answer 8 · 2007-09-20T23:16:35+0200

Réponse 8 / 8

ShareVB

Messages postés: 2676
Date d'inscription: vendredi 28 juin 2002
Statut: Membre
Dernière intervention: 13 janvier 2016

16
20 sept. 2007 à 23:16

salut,

sinon, tu as ceci pour ouvrir un fichier sans relancement de ton appli et associer l'extension au logiciel (dans le registre) :
http://www.vbfrance.com/codes/OUVRIR-DOCUMENTS-DANS-MEME-INSTANCE-APPLICATION-SANS-RELANCEMENT_41008.aspx

ShareVB

Votre réponse