07-10-14, 01:19 AM
شكرا لكم أخواني العزاء
هل يمكن جعل البروقرس بار يتتعبى على حسب النقل جربت دا الكود بس بيحمل البروقرس بار بعد ما ينفل
My.Computer.Audio.Play("click.wav")
Dim a, b As String
a = (TextBox1.Text)
b = (TextBox2.Text)
My.Computer.FileSystem.CopyDirectory(a, b, True)
With ProgressBar1
.Minimum = 1
.Maximum = 100000
.Value = 1
.Step = 1
For i As Integer = .Minimum To .Maximum
.PerformStep()
Next i
End With
MsgBox("done")
ProgressBar1.Visible = False
هل يمكن جعل البروقرس بار يتتعبى على حسب النقل جربت دا الكود بس بيحمل البروقرس بار بعد ما ينفل
My.Computer.Audio.Play("click.wav")
Dim a, b As String
a = (TextBox1.Text)
b = (TextBox2.Text)
My.Computer.FileSystem.CopyDirectory(a, b, True)
With ProgressBar1
.Minimum = 1
.Maximum = 100000
.Value = 1
.Step = 1
For i As Integer = .Minimum To .Maximum
.PerformStep()
Next i
End With
MsgBox("done")
ProgressBar1.Visible = False
