Discussion :

[hacker59]

bonjour, j'ai créer un logiciel pour sélectionner plusieurs fichier pour le convertir en .PKG mais j'ai un petit problème quand je enregistre tous les fichier en 1. mon but c'est ajoute dans listbox1 des fichiers et qui me l'enregistrer le fichier en .pkg
voici en image:


voici mes codes:

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
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim SaveFileDialog1 As New SaveFileDialog()
        SaveFileDialog1.Filter = "(*.pkg)|*.pkg"
        If DialogResult.OK = SaveFileDialog1.ShowDialog Then
            TextBox1.Text = SaveFileDialog1.FileName
            Timer1.Start()
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        ProgressBar1.Value = 100
        Label1.Text = ProgressBar1.Value.ToString + "%"
        Timer1.Stop()
    End Sub

pouvez-vous résoudre un petit problème .merci

[Kropernic]

Ce serait quand même bien de nous dire quel est le problème si tu veux qu'on t'aide à le résoudre.

Car là, mis à part te dire qu'il y a quelque chose de bizarre avec l'event de ton timer (car je ne vois pas trop pourquoi tu y fais ce que tu y fais), ça va être dur de dire quelque chose de plus.

[hacker59]

bonjour, je voudrais ajouter les 3 fichiers dans 1 fichier mais en .pkg

exemple: les 3 fichiers,je l'ajoute dans un fichier winar mais moi, je voudrais dans un fichier .pkg

c'est le problème que je vous demande.merci

[Kropernic]

Si tu espères qu'on fasse le travail pour toi, tu es mal tombé ici je pense.

La plupart des personnes fréquentant ce forum sont très sympas et serviables (j'espère pouvoir me compter dedans) mais elles ne sont là que pour aider ceux qui rencontre une difficulté ponctuelle. Pas pour faire le boulot à leur place...

[hacker59]

ok, j'ai compris Kropernic mais voila j'ai modifier mes codes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim SaveFileDialog1 As New SaveFileDialog()
        SaveFileDialog1.Filter = "(*.pkg)|*.pkg"
        If DialogResult.OK = SaveFileDialog1.ShowDialog Then
            TextBox1.Text = SaveFileDialog1.FileName
            ListBox1.Text = TextBox1.Text
            ProgressBar1.Increment(1)
            ProgressBar1.Value = 100
            Label1.Text = ProgressBar1.Value.ToString + "%"
            MsgBox("operation est terminer")
        End If
    End Sub

dit moi ou ça cloche .merci

[ebastien]

Bonjour,

Il faudrait savoir ce que tu cherches à faire en cliquant sur ton bouton car d'après ce que je vois, ça ouvre une boite de dialogue de sauvegarde de fichier et ça met à jour des controles (label, textbox, progressbar, Listbox (??)). Bref, ça ne fait pas grand chose comme traitement ...

eb.

[hacker59]

bonjour ebastien, je vais expliquer mon logiciel . je clic sur ajouter , j'ajoute 1 ou plusieurs fichier qui s'affiche dans listbox1 et quand j'enregistre il me convertir c trois ou plusieurs en fichier dans un fichier.pkg comme winrar mais la seulement en pkg. es que vous avez compris ce que je veut dire.

[ebastien]

Oui j'avais bien compris mais il faut coder pour ça. Je veux dire par là que la boite de dialogue ne fait rien en soit mis à part de fournir le nom du fichier saisi par l'utilisateur. Comment comptes-tu coder la conversion en .pkg ? (D'ailleurs c'est un format MAC OS X non ?)

[hacker59]

bonsoir, j'ai modifier mon code , il marche mais j'ai deux petites problèmes :
1) quand je clic sur enregistrement label1.texte , il reste sur 1% a la place 100%
2) une fois le fichier il y est en Pkg , je l'ai tester avec un autre logiciel pour extraire mon fichier pkg mais le problème , il me dit c'est pas un fichier pkg.

voici mes codes:

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
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim SaveFileDialog1 As New SaveFileDialog()
        SaveFileDialog1.Filter = "PKG Files (*.pkg)|*.pkg"
        If DialogResult.OK = SaveFileDialog1.ShowDialog Then
            ProgressBar1.Maximum = ListBox1.Items.Count
            For i As Integer = 0 To ListBox1.Items.Count - 1
                ProgressBar1.Increment(1)
                Label1.Text = ProgressBar1.Value.ToString + "%"
                File.AppendAllText(SaveFileDialog1.FileName, File.ReadAllText(ListPath(0)))
            Next
            TextBox1.Text = SaveFileDialog1.FileName
            ListBox1.Text = TextBox1.Text
            MsgBox(" OPERATION EST TERMINER ")
            End
        End If
    End Sub

pouvez-vous m'aider a résoudre mon problème . merci

[clementmarcotte]

Bonjour,

Jusqu'à preuve du contraire, les seuls formats de compression (en supposant que pkg soit un format de compression) directement supportés par le Framework sont zip et Gzip. Pour les autres formats, c'est au programmeur de coder l'algorithme idoine ou d'utiliser/trouver une bibliothèque capable de faire l'ouvrage.

[ebastien]

Bonjour,

quand je clic sur enregistrement label1.texte , il reste sur 1% a la place 100%

Ton code ne comporte aucun calcul de pourcentage. Mets un point d'arrêt et fait du pas à pas et tu comprendras ce qu'il se passe (au delà du problème de rafraîchissement de ton label que tu peux résoudre avec un label1.refresh)

une fois le fichier il y est en Pkg , je l'ai tester avec un autre logiciel pour extraire mon fichier pkg mais le problème , il me dit c'est pas un fichier pkg.

Ton code concatène des fichiers textes. En sortie tu as un fichier texte. ouvre le avec Notepad . Ce n'est pas l'extension qui fait le format d'un fichier mais son contenu !!
C'est censé être quoi ton fichier pkg ?
eb.

[shayw]

Salut

Ce n'est pas en mettant le sigle Ferrari sur ta Punto qu'elle va etre une Ferrari

le pkg