07-10-14, 01:27 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