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.