Crée fichier après progress bar

Version imprimable

Bonjour tout le monde,

Etant actuellement en train de finir un programme, j'ai un petit soucis.
J'expose mon problème.
Je voudrais que quand la personne clique sur mon bouton et que la progress bar se finis, qu'elle crée un fichier texte (.txt) par exemple sur le bureau avec un texte précis.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Enabled = False
            MsgBox("Done")
        End If
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(" Made by me")
    End Sub
End Class

En gros prendant le :

Code:

1
2
3
4
5
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(10)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Enabled = False
MsgBox("Fichier crée sur votre bureau")

Voila on peut voir le MsgBox qui dit que le fichier à été crée sur le bureau, mais il me manque le code juste avant pour qu'il crée le fichier .txt
Si quelqu'un à une solution ?
En vous remerciant par avance, Machin000.

09/03/2011, 11h39
tomlev

En fait ça n'a pas de rapport avec la progressbar, si ? Tu veux juste savoir comment créer un fichier ?

Regarde dans la FAQ :
http://dotnet.developpez.com/faq/vbnet/?page=file
09/03/2011, 11h53
machin000

En faites je veux que quand la progress bar est a 100%
Que direct après sois crée un fichier .txt sur le bureau avec par exemple à l'intérieur "fichier crée avec succés".
Et qu'après la MsgBox s'affiche... :s
09/03/2011, 14h02
tomlev

J'ai bien compris ce que tu veux faire, mais ce que je ne comprends pas, c'est ce qui te pose problème... Tu as juste à mettre le code de création du fichier juste avant le MsgBox

creer fichier texte sur le bureau

bonjour
si cela peut faire ton bonheur voici le bout de code,quoique comme l'as dit tomlev on ne voit pas du tout la logique de ton code(ce que tu communiques n'est pas ton vrai code....bah....)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
 
Imports System.IO
 
Public Class Form1
    Private strFichierChemin As String
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Enabled = False
            strFichierChemin = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\FichierProgressBar.txt"
 
            Dim fichier As IO.StreamWriter = New StreamWriter(strFichierChemin, False)
            fichier.WriteLine("Fichier ProgressBar.txt cree sur le Bureau...")
            fichier.Close()
            MsgBox("Done")
        End If
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
 
    End Sub
End Class

bon code ....