Программируем работу текстового поля
Программировать работу счётчика не нужно – его базовых функций вполне хватает, а текстовым полем предстоит заняться.
Чтобы открыть окно кода, дважды щелкните на текстом поле, но не на счётчике. Система VB создаст процедуру Text1_Change. Она обрабатывает событие Change, наступающее в момент изменения текста в поле ввода.
В этой процедуре мы и запрограммируем все нужные действия.
Давайте сделаем так, чтобы в поле можно было вводить только цифры. Для этого применим функцию Val. Она преобразует введенный текст в число. Если текст набран не цифрами, функция Val вернет значение 0, и это предупредит программу об ошибке.
Присвоим значение, возвращенное функцией, вспомогательной переменной i:
i = Val(Text1.Text)
Переменная i по нашему замыслу должна содержать размер шрифта. Чтобы ограничить введенное число, запишем два условных оператора:
If i < 1 Then i = 1
If i > 144 Then i = 144
Эти операторы будут действовать, только если значение переменной i оказалось за пределами разрешенного диапазона. В этом случае они заменят его ближайшим допустимым числом.
После этого мы должны присвоить свойству Text (Текст) текстового поля исправленное значение. Корректно преобразовать число в текст можно при помощи функции Str$. Она готовит число для вывода в текстовую строку и поэтому добавляет перед ним пробел, чтобы оно не сливалось с другими словами предложения. Удалить ведущие пробелы в строке позволяет функция LTrim$. Поэтому запишем нужный оператор так:
Text1.Text = LTrim$(Str$(i))
Осталось последнее: задать размер шрифта для надписи. Параметры шрифта хранятся в свойстве Font(Шрифт), которое является составным. Размер шрифта определяет свойство Size. Нужный оператор надо записать так:
Label1.Font.Size = i
Всё программа готова! Запустите программу, нажав клавишу F5.
Для самостоятельной работы
Создать 2 надписи, которые при запуске формы одновременно одна увеличивается, а другая уменьшается. Использовать элемент управления Таймер.
Лабораторная работа № 10
«ТАБЛИЦА УМНОЖЕНИЯ»
Цель работы: Познакомиться с элементами управления Visual Basic 6.0 Label, Slider,
Frame, Label, CheckBox, научиться пользоваться элементами управления и их свойствами
Задачи: Создать по пунктам лабораторной работы 2 движка, по которым можно перемножать два числа и возводить их в квадрат.
Ход работы:
Движок – это новый для нас элемент управления. Он состоит из шкалы и движущегося по ней бегунка. Бегунок передвигают методом перетаскивания или при помощи клавиш управления курсором. Для двух сомножителей нам потребуется два движка. Первым движком выбирается первый сомножитель, а вторым – второй сомножитель. При этом значение, установленное движком, можно увидеть в поле, которое сделано с помощью объекта Надпись.
Значение произведения тоже представлено в виде надписей, но его мы ещё особо выделим рамкой. Для перехода от таблицы умножения к таблице квадратов и обратно применим специальный флажок. Когда он включен, второй движок становится не нужным, ведь квадрат числа – это произведение двух одинаковых чисел, а их можно задать и одним движком.
Общий вид окна должен получиться примерно такой, как показано на рисунке 1.
Рисунок 1 - пример формы с движками