как установить значение строки выполнения в vb6

Question

при копировании файла из одной папки в другую папку, я хочу показать индикатор выполнения.

Open Text1.Text For Binary Access Read As FF 
filedata = Space(LOF(FF)) 
Get #1, 1, filedata 
Close #FF 

Open Text1.Text & ".copy.exe" For Binary Access Write As FF 
Put #FF, 1, filedata 
Close #FF 

Как добавить индикатор выполнения для этого ...

Answer 1

Если эти файлы являются настолько большими, или диски, так медленно, что это имеет смысл, чтобы показать прогресс бар затем скопировать в более мелкие куски. Если все так долго, тогда вам будет лучше обрабатывать каждый кусок, запрошенный тикером. Обновите ProgressBar и т. Д. Каждый заполненный тик. Таким образом, вам не понадобится звонок Evil DoEvents(), и ваш пользовательский интерфейс и программа будут реагировать на кнопку «Отмена».