TopPicLogo TopPicText

TreeView - Изменение стандартных свойств

    With Me!TreeView1
        .Style = tvwTreelinesPlusMinusText
        .LineStyle = tvwRootLines
        .Indentation = 240
        .Appearance = ccFlat
        .HideSelection = False
        .BorderStyle = ccFixedSingle
        .HotTracking = True
        .FullRowSelect = False
        .Checkboxes = False
        .SingleSel = False
        .Sorted = False
        .Scroll = True
        .LabelEdit = tvwManual
        .Font.Name = "Tahoma"
        .Font.Size = 10
    End With


Или так:

Private Sub Form_Current()
'Событие Загрузка формы
Dim tv As TreeView
   
    Set tv = Me!objTreeView.Object
    'Меняем шрифт TreeView   
    tv.Font.Name = "Tahoma"
    tv.Font.Size = 10

End Sub

Назад ToTop
L.E. 02.02.2013
Рейтинг@Mail.ru