kak sdelat zastavku PLEASE WAIT ?
u menya est odna procedura kotoroya rabotaet minut 5. i mne nujno sdelat sleduyushie:
pri zapuske proceduri vivodilos soobshenie
PLEASE WAIT !
i posle okanchanie proceduri eta zastavka uberalas
zaranie blagodaren!
pomogite please!
u menya est odna procedura kotoroya rabotaet minut 5. i mne nujno sdelat sleduyushie:
pri zapuske proceduri vivodilos soobshenie
PLEASE WAIT !
i posle okanchanie proceduri eta zastavka uberalas
zaranie blagodaren!
1. Можно просто перевести на это время курсор в "часики"
MousePointer = vbHourglass
а затем, после исполнения нужного кода установить
MousePointer = vbDefault
2. Можно создать формочку с меточкой типа "Ждите", на которой положить прогрессбар, или ещё какую фигню, а потом разбить долгоисполняемый код на кусочки (чисто логически) и по завершении выполнения кусочка увеличивать значение прогрессбара на 1, ну или сколько тама нужно. И всё:). Естественно, работать это может так:
а). Начинается твой БОЛЬШОЙ КОД. Перед началом его вызывается в НЕМОДАЛЬНОМ (это самый простой вариант) режиме форма с прогрессбаром. Например, форма зовётся FrmWite, а прогрессбар Pb
б). Задаёшь прогрессбару граничные значения. Например:
FrmWite.Pb.Min = 0
FrmWite.Pb.Max = 100
FrmWite.Pb.Value = 0 'Текущее (стартовое) значение
в). Во время отработки "кусочков" кода увеличиваешь значение прогрессбара. Например:
FrmWite.Pb.Value = FrmWite.Pb.Value + 1
г). По окончании выполднения БОЛЬШОГО КОДА даёшь диррективу:
FrmWite.Pb.Value = 0
FrmWite.Hide