Как интегрировать трекбар в Visual Basic: 3 шага

2025 Автор: John Day | [email protected]. Последнее изменение: 2025-01-23 15:05

Хорошо, это звучит просто, но новички абсолютно не знают, как это сделать. Трекбары могут быть полезными инструментами. От определения бюджета до выбора количества взорвавшихся фейерверков - использовать трекбары очень-очень легко.

ВНИМАНИЕ: Кто-нибудь знает, как увеличить количество мест на трекбаре? Я могу получить только 11…

Шаг 1. Подготовьте форму

Это довольно просто. Создавайте, когда хотите, чтобы ваша программа выглядела так. Я не делаю ничего особенного. Я сделаю что-нибудь, что изменит цвет текстового поля. == Не забудьте добавить трекбар !!! == ^{_{Да, многие люди забывают об этом}}

Шаг 2: Код

Итак, вы сделали свой пользовательский интерфейс, что теперь? Код, конечно !! Дважды щелкните трекбар. Должны появиться 2 строки кода. Что-то вроде:

Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Обрабатывает TrackBar1. Scroll End SubТеперь узнаем о ценностях. На этой панели трекбара мы можем получить только 11 значений, от 0 до 10. Значение 0 - крайнее левое, а значение 10 - самое правое. Понял? Давайте двигаться дальше.

Чтобы упростить жизнь, весь текст на этом этапе теперь будет в стиле кода

Между двумя строками кода введите: If TrackBar1. Value = placceavaluenumberhere ThenEnd If, заменив placeavaluenumberhere на номер значения того места, где вы хотите его разместить. Теперь между этими 4 строками кода введите то, что вы хотите сделать. В этом случае: TextBox1. BackColor = Color. Black Как только вы сделаете это, повторите для каждого места. Когда я закончил, это выглядело так: Private Sub TrackBar1_Scroll (ByVal sender As System. Object, ByVal e As System. EventArgs) Обрабатывает TrackBar1. Scroll, если TrackBar1. Value = 0, то TextBox1. BackColor = Color. Black End If If If TrackBar1. Value = 1 Тогда TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If If TrackBar1. Value = 3 Then TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Then TextBox1. BackColor = Color. Yellow End If If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If If TrackBar1. Value = 6 Then TextBox1. BackColor = Color. Green End If If If TrackBar1. Value = 7 Then TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Then TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Then TextBox1. BackColor = Color. White End If End Sub

Шаг 3: Готово

Ну, в любом случае я был. Если вы еще не закончили программу, продолжайте. О, и удачи! Но для тех, кто закончил, ну, это было не так уж сложно, не так ли? И если вам интересно, код для сброса и закрытия:

Private Sub Button2_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Обрабатывает Button2. Click End End Sub Private Sub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Обрабатывает Button1. Click TrackBar1. Value = 0 Конец подписки