Page 52 - 6735

Label1.TextAlign = fmTextAlignCenter 'вирівнювання надпису
Label1.SpecialEffect = fmSpecialEffectSunken 'спеціальний
візуальний ефект
Label1.Caption = "Clicked" 'надпис
Label1.WordWrap = True 'перенос тексту
End Sub

Рисунок 2.7 – Елемент керування Label

Клас TextBox – текстове поле

В прикладі UserForm4 показано використання елемента
керування TextBox (текстове поле), який використовується для
введення і виведення тексту (рис. 2.8). Основною властивістю є
Text, яка містить рядок із текстом.

Dim x As Double
Dim s As String

'Процедура обробки події Initialize (ініціалізація форми)
Private Sub UserForm_Initialize()
TextBox1.AutoSize = False 'авторозмір
TextBox1.TextAlign = fmTextAlignCenter 'вирівнювання
тексту
TextBox1.Enabled = False 'доступність
TextBox1.Text = "Hello" 'текст
TextBox1.Text = 5.71 'текст
x = CDbl(TextBox1.Text) 'конвертувати текст у дійсне число
'або
52