Отобразить в ProgressBar процесс загрузки файла - VB
Формулировка задачи:
Please Помогите ))))
Как сделать так чтобы ProgressBar Показывала загрузку файла то есть выбираешь файл в CommonDialog-e нажимаешь на кнопку открыть и на экране появляется индикатор процесса выполнения открытия.
P.s.
Заранее Спасибо)))
Решение задачи: «Отобразить в ProgressBar процесс загрузки файла»
textual
Листинг программы
Option Explicit Dim F As Long, MyText As String, dr As String Dim FileL Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "" CommonDialog1.ShowOpen dr = CommonDialog1.FileName 'dr = "d:\destroyer.txt" FileL = FileLen(dr) Label1 = "размер файла: " & FileL ProgressBar1.Max = FileL + 4 ' запас Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 200 '300-500 End Sub Private Sub Timer1_Timer() F = FreeFile Open dr For Input As #F Do Until EOF(F) Line Input #F, MyText Text1.Text = Text1.Text & MyText & vbCrLf '7 ProgressBar1.Value = Len(Text1.Text) Loop Close #F Timer1.Enabled = False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д