Элемент Надпись

Элемент Надпись (Label) обычно используется для вывода различных текстов в форме. Он может содержать и рисунок. Пользователь не может изменить надпись, но программа в период выполнения может изменять значение надписей.

Свойства элемента Надпись:

Caption	Содержит текст надписи.
Picture	Определяет рисунок, помещаемый в элемент. Во время выполнения для изменения свойства нужно использовать функцию LoadPicture. Например, Lbl1.Picture = LoadPicture("c:\Pic\flower.bmp")
PicturePosition	Определяет расположение рисунка относительно надписи.
AutoSize	По умолчанию имеет значение False. Если изменить на True, то элемент будет автоматически менять свои размеры в соответствии с текстом.
BackStyle	Задает режим для фона.
BorderStyle	Определяет стиль обрамления.
BackColor	Определяет цвет фона.
BorderColor	Определяет цвет рамки.
ForeColor	Определяет цвет шрифта
Font	Используется для установки параметров шрифта.

Практические задания Задание 2.1

Используя форму задания 1.1, запрограммируйте для введенного значения X вычисление выражения . Процедура, связанная с кнопкой “Вывод” изменится на:

Private Sub CommandButton2_Click()

Y = (X + 1) / (X - 2)

MsgBox Format(Y, "Fixed")

End Sub

Если вы не ничего не меняли в описании переменных, то Y имеет тип Variant, а X по-прежнему описана как String (строка), тем не менее, значение выражения вычисляется правильно. В данном случае выполняется неявное преобразование значения переменной из текстового формата в числовой. Однако с неявным преобразованием значений нужно быть осторожным. Чтобы убедиться в этом, вычислите Y по формуле Y = X + X. При необходимости следует использовать функции преобразования типов данных CDbl, CInt, CLng и др.

Функция Format используется для преобразования значений различных типов в текст в соответствии с заданными правилами. У неё очень много возможностей (см. Справку). В нашем случае у числа будет выводиться 2 знака после запятой.

Задание 2.2

С оздайте форму, приведенную ниже, которая демонстрирует работу датчика случайных чисел. Для ввода диапазона значений используются 2 элемента Поле, для вывода надписей и результата – 3 элемента Надпись.

Цвет фона эле­ментов Надпись сов­падает с цветом фона формы, поэтому ка­жется, что текст написан непосредственно на форме. Для вывода результата используется элемент с именем Label3, для ввода нижней границы диапазона – элемент TextBox1, для ввода верхней границы – TextBox2. Текст процедуры для кнопки «Новое значение»:

Private Sub CommandButton1_Click()

Label3.Caption = Int( _

(TextBox2.Text - TextBox1.Text + 1) * Rnd + TextBox1.Text)

End Sub

Private Sub UserForm_Initialize()

Randomize

End Sub

Инструкция Randomize инициализирует генератор случайных чисел значением, возвращаемым системным таймером. Её нужно выполнить один раз. Функция Rnd возвращает случайное значение, меньшее 1 и большее или равное нулю. Функция Int отбрасывают дробную часть числа, заданного в качестве её аргумента.