Използвайте Excel и VBA, за да създадете лента за напредък.
Лента за напредъка се използва в компютърно приложение, за да покаже напредъка на дадена операция. Обикновено това е правоъгълник, който се анимира, докато операцията напредва. Visual Basic за приложения или VBA е компютърен език за програмиране, използван в приложенията на Microsoft Office за автоматизиране на рутинни задачи и за създаване на потребителски интерфейси. Можете лесно да създадете лента за напредък с помощта на VBA в Microsoft Office Excel. Excel е приложение за електронни таблици, включено в пакета на Microsoft Office.
Етап 1
Отворете Microsoft Office Excel, след това натиснете "Alt" и "F11", за да отворите редактора на Visual Basic. Щракнете с десния бутон върху „VBAProject“, след това щракнете върху „UserForm“, за да вмъкнете нов формуляр. От менюто „Кутия с инструменти“ щракнете върху „Етикет“. Докато задържате бутона на мишката, плъзнете формуляра, за да създадете нов контрол за етикет.
Видео на деня
Стъпка 2
Щракнете с десния бутон върху етикета и изберете „Свойства“, след което променете „Височина“ на 42 и „Ширина“ на 12. Променете "Top" на 12. Създайте още девет етикета, като използвате същия процес.
Стъпка 3
Щракнете върху "CommandButton" в панела "Кутия с инструменти" и добавете нов бутон към вашия формуляр. Щракнете с десния бутон върху "CommandButton" и щракнете върху "Преглед на кода", за да създадете нова процедура.
Стъпка 4
Въведете следното, за да създадете нова променлива и да дефинирате нейната стойност:
Dim cnt Като цяло число cnt = 0
Стъпка 5
Въведете следното, за да скриете всички етикети при стартиране на формуляра:
аз Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Visible = False аз Label6.Visible = False Me. Label7.Visible = False Me. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Visible = False
Стъпка 6
Въведете следното, за да създадете цикъл while и повторете 10 пъти, докато поставяте кода на пауза за 5 секунди:
Направете Докато cnt <> 10
Изберете Case cnt Case Is = 1 Me. Label1.Visible = Вярвам. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = Вярвам. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = Вярвам. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = True Me. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = Вярвам. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = Вярвам. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = Вярно ми е. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = Вярвам. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = Вярвам. Label9.BackColor = vbBlue Case Is = 10 Me. Етикет10.Видим = Вярвам. Label10.BackColor = vbBlue Краен избор. аз Приложение за пребоядисване. Изчакайте сега + TimeValue("00:00:05")cnt = cnt + 1
Примка
Стъпка 7
Щракнете върху менюто "Вмъкване", след което щракнете върху "Модул", за да добавите нов модул. Копирайте и поставете кода по-долу, за да стартирате своя "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Натиснете "F5", за да стартирате програмата си.
