Отобразить в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.333 из 5