wrote :: 2005.07.17

トップページ > Excel > VBA > TreeViewコントロールの初期化

TreeViewコントロールの初期化

ImageListコントロールの外観や動作を決める初期設定をします。ここでは、[プロパティ]ウィンドウでするのではなく、UserFormの読み込み時にコードで行います。フォームをダブルクリックしてコードウィンドウを開き、Private Sub UserForm_Initialize()に次のコードを記述してください。

Private Sub UserForm_Initialize()
    With TreeView1
        .Indentation = 14           ''インデントの幅
        .LabelEdit = tvwManual      ''ラベル編集の許可
        .BorderStyle = ccNone       ''線の種類
        .HideSelection = False      ''非アクティブ時の選択解除
        .LineStyle = tvwRootLines   ''ルート(最上位)線の表示
        .ImageList = ImageList1     ''イメージリストの初期化
    End With
End Sub

コード中に登場する「TreeView1」や「ImageList1」は配置したコントロールの名前です。

コードを記述したら、[F5]キーを押してUserFormを表示してみましょう。エラーがなく、次のように表示されればOKです。





[ImageListコントロールの準備]戻る← | →進む[ノードの登録]