TreeViewの項目名をダブルクリックしたときに階層を閉じないようにするには？

解決

M 2006-02-18 20:48:59 No: 94257

TreeViewの項目名をダブルクリックしたときに階層が閉じたり開いたりしてしまいます。+や-をクリックしたときだけ下の階層が表示されるようにしたいのですがそういったことはできますか？

M 2006-02-18 21:42:05 No: 94258

過去ログに同じような質問がありましたが、英語でさっぱり分かりません。分かる方は教えていただけませんか。

特攻隊長まるるう 2006-02-20 20:44:40 No: 94259

>過去ログに同じような質問がありましたが、英語でさっぱり分かりません。
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200602/06020037.txt

サンプルコードがあるんだから解析するだけです。

コメントは辞書引けば分かる程度。
英語の実力は中学生程度で可、というか辞書持ってればOK。
辞書はWEBにもあるから分からない理由にはなりません。…が
和訳したとして大した説明は書いてませんよ。…単語数見れば
分かるでしょう？。

そんなことよりサブクラス化について勉強してるかどうかでしょう。
勉強してないなら、掲示板で質問して理解できる内容では
ないのでは？。自分で勉強する以外に方法はありません。
本屋へAPIとサブクラス化について書いてある本を探しに
行ってください。

M 2006-02-21 00:55:37 No: 94260

分かりました。サブクラス化について自分で調べてみます。
ありがとうございました。

M 2006-02-22 02:54:57 No: 94261

力技であまり見た目は良くありませんが、APIを使わずに自分で解決できました。
もっとうまくできる方法がわかる人は教えてください。

Dim n As MSComctlLib.Node 'クリックされたノードを保存

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Set n = Node 'ノードを保存する
End Sub

Private Sub TreeView1_DblClick()
    'ノードをダブルクリックしたときに展開・縮小しないようにする
    If n.Expanded = False Then
        n.Expanded = True
    Else
        n.Expanded = False
    End If
End Sub