Использование элементов управления ProgressBar и NumericUpDown на формах Visual Basic в среде Visual Studio

По шагам… отдельно каждый элемент управления

  1. ProgressBar - индикатор выполнения процесса
  2. NumericUpDown - исключает ошибки ввода числовых значений
  3. GroupBox - показывает логическую взаимосвязь группы элементов
  4. Label - текст, недоступный для изменения пользователем
  5. Скачать ехе-файл для тестирования
  6. ProgressBar в VBA Excel

Весь код занимает всего несколько строк… Больше места занимает ЛОГИКА, чем методы самих элементов управления


ProgressBar - индикатор выполнения процесса

Пусть пользователь имеет представление, на каком этапе находится процесс выполнения определенной задачи… Ведь держать под контролем "машину" - это приятно…

ProgressBar - индикатор выполнения процесса
Рис.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 - исключает ошибки ввода  числовых значений
Рис.2        NumericUpDown - исключает ошибки ввода числовых значений

А здесь можно быть спокойным…

Dim timeAll As Integer = NumericUpDown1.Value 'длина трека в секундах





GroupBox - показывает логическую взаимосвязь группы элементов


GroupBox - показывает логическую взаимосвязь группы элементов
Рис.3        GroupBox - показывает логическую взаимосвязь группы элементов

Опять же для удобства пользователя…



Label - текст, недоступный для изменения пользователем


Label - текст, недоступный для изменения пользователем
Рис.4        Label - текст, недоступный для изменения пользователем

Пользователь все видит, но вмещаться не может…

Label1.Text = mytime


Скачать ехе-файл для тестирования

Потом здесь будет видео

Скачать ехе-файл для тестирования
Рис.5        Скачать ехе-файл для тестирования - Внешний вид формы

Скачать ехе-файл для тестирования


Условия получения кода?    Показать?



Другие примеры на языке «Visual Basic»



ProgressBar в VBA Excel


ProgressBar в VBA Excel
Рис.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»





Если у Вас остались вопросы, то задать их Вы можете, нажав на эту кнопочку ...


Поделиться в соц сетях:


Если на этой странице не нашлось того, что Вы так искали...

         Не расстраивайтесь, не все потеряно... Смело щелкайте...
исходный код на заказ. orenstudent.ru Автоматизация документов MS Office. orenstudent.ru Помогите найти и устранить ошибку в исходном коде программы. orenstudent.ru Skype-консультирование по программированию
Скайп-консультации

Акция !!!
исходный код комментарии цена минимальная


Не попадайтесь на удочку мошенников-кидал...
Сайт помощи студентам по программированию и информатике

Program code