Самоучитель VBA


         

в окне всплывающей подсказки, связанной


/p>







































































































ControlTipText



Устанавливает текст в окне всплывающей подсказки, связанной с элементом управления. В следующем примере элементу управления CommandButton1 назначен текст всплывающей подсказки это кнопка :

CommandButton1 .ControlTipText = "Это кнопка"



BackColor, ForeColor и BorderColor



Устанавливают цвет заднего и переднего плана элемента управления, также его границы



BackStyle



Устанавливает тип заднего фона



BorderStyle



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

  • fmBorderStyleSingle (граница в виде контура)

    fmBorderstyieNone (граница невидима)



  • SpecialEf feet



    Устанавливает тип границы. Отличается, от свойства BorderStyle тем, что позволяет установить несколько типов, но одного цвета. BorderStyle позволяет установить только один тип, но различных цветов



    Picture

    (создание картинки)



    Внедряет картинку на элемент управления. Например, на поверхности кнопки картинка отображается с помощью следующей инструкции:

    CommandButtoni . Picture = LoadPicture ( "с : \my doc\Kpyr . bmp" ) Функция LoadPicture (ПолноеИмяФайла) считывает графическое изображение. Аргумент ПолноеИмяФайла указывает полное имя графического файла



    Picture

    (удаление картинки)



    После того как картинка создана на элементе управления, иногда возникает необходимость ее удалить. Это легко достигается присвоением свойству picture значения LoadPicture ("")



    Tag



    Используется для хранения дополнительной информации о форме или элементе управления, которая может быть в последующем востребована в программе. В следующем примере в пользовательской форме расположены три кнопки и одно поле. Свойство Tag каждого из этих элементов управления, за исключением второй кнопки, установлено равным Показать. Свойство Tag второй кнопки установлено равным спрятать. В цикле проверяется свойство Tag всех элементов управления и при инициализации диалогового окна отображаются только те элементы управления, у которых это свойство равно Показать .

    Private Sub UserForm Initialize ()

    Dim Элемент As Object CommandButton1 . Tag = "Показать"

    CommandButton2 .Tag = "Спрятать"

    CommandButton3 .Tag = "Показать"

    TextBoxl.Tag = "Показать"

    For Each Элемент In Controls

    If Элемент . Tag = "Показать" Then Элемент. Visible = True

    Else Элемент .Visible = False

    End If Next Элемент End Sub

    <

    Содержание  Назад  Вперед