Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click OpenFileDialog1.ShowDialog() Dim fname As String = OpenFileDialog1.FileName If System.IO.File.Exists(fname) Then Dim read As New System.IO.StreamReader(fname) TextBox2.Text = read.ReadToEnd read.Close() Else MsgBox("le fichier n'existe pas!!") End If End Sub
TextBox2.Text = ProgressBar1.Value & vbNewLine _ & ProgressBar2.Value & vbNewLine _ & ProgressBar3.Value & vbNewLine _ & ProgressBar4.Value & vbNewLine _ & ProgressBar5.Value