タイトル : Re^3: ツリービュー ノードの修正 投稿日 : 2010/09/27(Mon) 18:02 投稿者 : 魔界の仮面弁士
> 実現したいことは… > 子フォームで取得した内容で、 > 親フォームの選択ノードを書き換えたいということです。 > 置き換え作業は、親フォーム自身でと考えております。 やりたい事はわかりました。 で、肝心の質問内容は何でしょうか? わからない点を具体的に書いてもらわないと、 こちらとしても答えようがありません。(^^; とりあえず…子フォームを「InputBox」で置き換えた場合、親フォーム側の処理は s = InputBox("新しい値を指定してください") '入力値を受け取る If s <> "" Then Exit Sub 'キャンセル時は何もしない End If TreeView1.SelectedItem.Text = s 'ノードのテキストを書き換える のようになるかと思います。ここまでは宜しいでしょうか? (実際には Text だけでなく Key も変更するのでしょうけれども) あるいは子フォームを「コモンダイアログ」で置き換えれば、 CommonDialog1.CancelError = True On Error Resume Next CommonDialog1.ShowOpen 'ダイアログを表示 If Err.Number = cdlCancel Then Exit Sub 'キャンセル時は何もしない End If On Error GoTo 0 TreeView1.SelectedItem.Text = CommonDialog1.FileName 'テキストを書き換える のように書けるでしょう。 多少コードは変わりますが、先ほどのコードと基本的には変わりませんよね。 上記 InputBox や CommonDialog の呼出部分を、 自作のモーダルフォームに置き換えた場合も、 同様のコードになるかと思います。 |