MyTetra Share
Делитесь знаниями!
Время создания: 16.03.2019 23:43
Текстовые метки: Excel, TextBox, VBA, текстбокс
Раздел: !Закладки - VBA - Форма
Запись: xintrea/mytetra_db_adgaver_new/master/base/151440704601ozzomq3n/text.html на raw.githubusercontent.com

Элемент управления TextBox


TextBox используется для ввода/вывода текста, который в последующем используется в программе, или для вывода результатов расчетов программы. Текст, введенный в поле, обычно в программе преобразуется либо в числа, либо в формулы.

рис . 1.1 Элемент управления Textbox на панели ToolBox

рис. 1.2 Элемент управления Textbox на форме

 

Основные свойства элемента упраления TextBox: 

Свойство

Назначение

AutoSize

Определяет,   изменяет ли объект автоматически размеры, чтобы показать   его все содержание.Допустимые   значения:True —   Автоматически изменяет размеры контроля, чтобы показать   его все содержание.False —   Держит размер контроля постоянным.

 

AutoTab

Определяет,   происходит ли автоматическая табуляция, когда пользователь вводит   максимальное допустимое число символовДопустимые   значения:True —   табуляция происходит.False —   табуляция не происходит (значение по умолчанию).

 

AutoWordSelect

Определяет,   что являются (слово или знак) основной единицей, используемой,   чтобы определить выбор.Допустимые   значения:True —   Использует слово как основную единицу (значение по умолчанию).False —   Использует знак как основную единицу.

 

BackColor

Определяет   цвет фона объекта.Параметры:Вы можете   использовать любое целое число, которое представляет правильный цвет.   Вы можете также определить цвет при использовании функции   RGB с красными, зелеными, и синими цветными компонентами. Значение   каждого цветного компонента — целое число, которое колеблется   от нуля до 255. Например, Вы можете определить цвет, синего   как целочисленное значение 4966415 или как красные, зеленые,   и синие цветные компоненты 15, 200, 75.Комментарии:   Вы можете только видеть цвет фона объекта, если свойство BackStyle   установлено в fmBackStyleOpaque.

 

BackStyle

Устанавливает фоновый   стиль для объекта.Параметры   настройки для fmBackStyle:

  • fmBackStyleTransparent=        0 — Фон прозрачен
  • fmBackStyleOpaque =1 —        Фон непрозрачен (значение по умолчанию).

Комментарии:   Свойство BackStyle определяет, прозрачно ли управление.   Если BackStyle — fmBackStyleOpaque, управление не прозрачно,   и Вы ничего не можете видеть позади управления на форме.   Если BackStyle — fmBackStyleTransparent, Вы можете видеть через   управление и смотреть на что-нибудь  на форме,   расположенной позади управления.

 

BorderColor

Определяет   цвет границы объектаПараметры:   Вы можете использовать любое целое число, которое представляет   правильный цвет. Вы можете также определить цвет при использовании   функции RGB с красными, зелеными, и синими цветными компонентами.   Значение каждого цветного компонента — целое число, которое колеблется   от нуля до 255. Комментарии: Чтобы использовать свойство   BorderColor, свойство BorderStyle должно быть установлено в значение   кроме fmBorderStyleNone. BorderStyle использует BorderColor, чтобы определить   выделяющие цвета. 

BorderStyle

Определяет   тип границы, используемой управлением или формой.fmBorderStyleNone=0 —   У управления нет никакой видимой линии обрамленияfmBorderStyleSingle   = 1 — У управления есть граница одиночной линии.Значение   по умолчанию для ComboBox, Кадра, Метки, Окна списка или   TextBox 0 (Ни один). Значение по умолчанию для Изображения 1   (Сингл).

 

CanPaste

Определяет,   содержит ли Буфер обмена данные, которые поддерживает объект.Допустимые   значения:True — Объект   под курсором мыши может получить информацию, вставленную от Буфера   обмена (значение по умолчанию).False —   Объект под курсором мыши не может получить информацию, вставленную   от Буфера обмена.

 

Text

Возвращает   текст, содержащийся в поле 

Visible

Допустимые   значения:True (поле   отображается во время выполнения программы)False (в   противном случае) 

Enabled

Допустимые   значения:True   (пользователь непосредственно может вносить изменения в содержание   поля)False (в   противном случае) 

Multiline

Допустимые   значения:True   (устанавливается многострочный режим ввода текста)False   (однострочный режим) 

WordWrap

Допустимые   значения:True   (устанавливается режим автоматического переноса)False (в   противном случае) 

AutoSize

Допустимые   значения:True   (устанавливается режим автоматического изменения размера поля так, чтобы весь   вводимый текст помещался в нем)False   (устанавливаетя фиксированный размер поля) 

ScrollBars

Устанавливает   режим отображения в поле полос прокрутки. Допустимые значения:

  • fmScrollBarsNone (не выводить        полос прокрутки)
  • fmScrollBarsHorizontal        (выводить горизонтальную полосу прокрутки)
  • fmScrollBarsVertical        (выводить вертикальную полосу прокрутки)
  • fmScrollBarsBoth (выводить        горизонтальную и вертикальную полосы прокрутки)

SelLenghtSelStartSelText

Эти свойства   характеризуют выделенный в поле фрагмент текста (длина, начало   и сам фрагмент текста соответственно) 

MaxLenght

Устанавливает   максимальное допустимое количество вводимых в поле символов.   Если это свойство равно 0, то нет ограничений   на вводимое количество символов. 

PasswordChar

Устанавливает   символ,отображаемый при вводе пароля. Если это свойство   определено, то вместо вводимых символов в поле будет отображаться   установленный символ 

 Ввод в TextBox только определенных символов:

Иногда требуется, чтобы в текстовое поле можно было вводить только определенные символы, например числа, в этом случае поможет следующий код:

Function OnlyMySymbols (Symbol As Integer, Pattern as string) as Integer
If InStr (Pattern & Chr (8), Chr (Symbol)) > 0 Then
OnlyMySymbols = Symbol
Else
OnlyMySymbols = 0
End If
End Function

Применяется код так, если в поле Textbox1 необходимо разрешить введение только чисел:

Private Sub Textbox1_KeyPress (KeyAscii As Integer)
KeyAscii = OnlyMySymbols (KeyAscii, “0123456789.»)
End Sub

Быстрое заполнение полей TextBox:

Sub All_TextBoxes()

    Dim li As Long

    For li = 1 To 10

        UserForm1.Controls(“TextBox” & li).Value = li

    Next li

End Sub

Недостаток данного метода: имена элементов должны строго соответствовать используемым в коде и лишь нумерация на конце имени должна различаться.

В примере TextBox с именами от “TextBox1″ до “TextBox10″ будут подставлены значения номеров самих TextBox.

Достоинства данного метода:  В зависимости от имени можно проделывать различные действия: стирать значения, менять свойства элементов и т.д.

Обзорная статья про элементы управления предоставлена здесь

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования