Создание программы на Visual basic для вывода случайного числа в заданном интервале чисел. Часть 3

Продолжение. Первую часть статьи можно прочитать тут,вторую часть тут

Как и было обещано в предыдущей части, сейчас мы приступим к кодированию кнопки "Generat a number".

Дважды щелкните по данной кнопочке и перед вами откроется редактор для записи программы:

Private Sub Command1_Click()

End Sub

Внесите в программу следующее изменение:

Private Sub Command1_Click()
      lblNumber.Caption = 5
End Sub

Мы вписали lblNumber.Caption = 5, это означает, что если с кнопкой Command1 (это наш "Generat a number") произойдет событие Click() (то есть если мы щелкнем на ней), то значение заголовка метки под названием lblNumber примет значение 5. Давайте проверим это утверждение на деле: Запустите проект путем нажатия на F5 и в появившемся окне программы нажмите на кнопку "Generat a number". Как видите метка lblNumber приняла значение 5.

Теперь попробуем увеличить шрифт в поле lblNumber, сделать его более жирным и окрасить в красный цвет. Выделите в окне формы метку lblNumber и в окне свойств введите следующие изменения: Выделите поле "Font" и нажмите на кнопочку с тремя точками (...). Перед вами появится следующее окно (Рис. 13):

Рис. 13 Диалоговое окно "Font"

В поле Style выберите пункт Bold
В поле Size - 10
И нажмите ОК.

После этого для окрашивания текста в красный цвет в полях окна "Свойств" нужно выбрать поле ForeColor и из палитры выбрать красный цвет.
Теперь снова запустим приложением нажатием F5 и вот, что получим (Рис. 14):

Рис. 14 Результат события Click на кнопке Generat Number

Но нашей задачей является не просто вывод цифры 5, а нам нужно при каждом нажатии на кнопку "Generat a number" получать произвольные цифры. Финальную версию программы вы можете увидеть на моем сайте - в разделе "Программы" под названием "Random Number ". Дважды щелкните на кнопку "Generat a number" и в появившемся коде очистите внесенные нами изменения, т.е:

Private Sub Command1_Click()

End Sub

А теперь введите следующий код:

Private Sub Command1_Click()
     lblNumber.Caption = Rnd()
End Sub

Теперь снова запустите приложение (F5) и несколько раз нажмите на кнопку "Generat a number", как видите числа в поле lblNumber каждый раз меняются. Но от нас требовалось не просто генерировать числа, а генерировать их в заданном интервале, что мы и рассмотрим в следующем уроке.