Использование элементов управления ProgressBar и NumericUpDown на формах Visual Basic в среде Visual Studio
По шагам… отдельно каждый элемент управления…
- ProgressBar - индикатор выполнения процесса
- NumericUpDown - исключает ошибки ввода числовых значений
- GroupBox - показывает логическую взаимосвязь группы элементов
- Label - текст, недоступный для изменения пользователем
- Скачать ехе-файл для тестирования
- ProgressBar в VBA Excel
Весь код занимает всего несколько строк… Больше места занимает ЛОГИКА, чем методы самих элементов управления
ProgressBar - индикатор выполнения процесса
Пусть пользователь имеет представление, на каком этапе находится процесс выполнения определенной задачи… Ведь держать под контролем "машину" - это приятно…
![ProgressBar - индикатор выполнения процесса ProgressBar - индикатор выполнения процесса](img/ProgressBar_recorder_imitation1.jpg)
Рис.1 ProgressBar - индикатор выполнения процесса
по коду: перемотка назад
If ProgressBar1.Value + v < 0 Then
ProgressBar1.Value = 0
Run = False
Else
ProgressBar1.Value = ProgressBar1.Value + v
delay()
End If
NumericUpDown - исключает ошибки ввода числовых значений
Если доверить пользователю ввод чисел в TextBox, то обязательно нужно будет проверять, а не ввел ли он всякую ерунду… (иногда злонамеренно)…
![NumericUpDown - исключает ошибки ввода числовых значений NumericUpDown - исключает ошибки ввода числовых значений](img/ProgressBar_recorder_imitation2.jpg)
Рис.2 NumericUpDown - исключает ошибки ввода числовых значений
А здесь можно быть спокойным…
Dim timeAll As Integer = NumericUpDown1.Value 'длина трека в секундах
GroupBox - показывает логическую взаимосвязь группы элементов
![GroupBox - показывает логическую взаимосвязь группы элементов GroupBox - показывает логическую взаимосвязь группы элементов](img/ProgressBar_recorder_imitation3.jpg)
Рис.3 GroupBox - показывает логическую взаимосвязь группы элементов
Опять же для удобства пользователя…
Label - текст, недоступный для изменения пользователем
![Label - текст, недоступный для изменения пользователем Label - текст, недоступный для изменения пользователем](img/ProgressBar_recorder_imitation4.jpg)
Рис.4 Label - текст, недоступный для изменения пользователем
Пользователь все видит, но вмещаться не может…
Label1.Text = mytime
Скачать ехе-файл для тестирования
Потом здесь будет видео
![Скачать ехе-файл для тестирования Скачать ехе-файл для тестирования](img/ProgressBar_recorder_imitation5.jpg)
Рис.5 Скачать ехе-файл для тестирования - Внешний вид формы
Скачать ехе-файл для тестирования
Другие примеры на языке «Visual Basic»
ProgressBar в VBA Excel
![ProgressBar в VBA Excel ProgressBar в VBA Excel](img/ProgressBar_recorder_imitation6.jpg)
Рис.6 ProgressBar в VBA Excel
по коду:
Private Sub CommandButton1_Click()
If CheckBox1.Value Then
If ProgressBar1.Value <= 100 - step Then
ProgressBar1.Value = ProgressBar1.Value + step
Else
ProgressBar1.Value = 0
End If
Else
ProgressBar1.Value = 0
AutoProgress 'отдельный метод UserForm1 см.код VBA
End If
End Sub
Скачать xlsm-файл для тестирования
Другие примеры на языке «Visual Basic for Application»
Если у Вас остались вопросы, то задать их Вы можете, нажав на эту кнопочку ...
Поделиться в соц сетях: