ツリービューのノード間に線を引くには？
度々すみませんが、VB6のツリービューに関して質問です。
マウスドラッグによりツリービュー上のあるノードを別の場所へ移動したいと
考えています。
そこで、ノードをクリックしてドラッグしたときに現在のマウスポインタの位置
によりノードとノードの間にラインを入れたいのですが、やり方が分かりません。
ラインを入れるのはドラッグしたノードが移動する場所を示したいからです。
アイテム１
｜＿アイテム１１
------------------------ ← こんな感じにラインを引きたい
｜＿アイテム１２
他にも目的が簡単に実現できる手法があるのであれば線を引くという
手段でなくても良いと思っています。
よろしくお願いします。
>ノードとノードの間にラインを入れたいのですが、やり方が分かりません。
分かりませんというか、そんな方法があらかじめ用意されているわけは無い
でしょう？。自分で考え出さないと回答なんて無いですよ。
TreeView1_MouseMove イベントで HitTest メソッドを駆使すれば
出来そうな感はありますが…。できるかどうかの保証は出来ません。
>他にも目的が簡単に実現できる手法があるのであれば線を引くという
>手段でなくても良いと思っています。
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200506/05060104.txt
関連した別スレがあっても読んでる人には分かりません。スレッドのアドレスを
書き込めばリンクが貼れますので、貼って下さい。
…Node の入れ替えだけが目的なら、[上へ移動][下へ移動]ボタンを用意して
押下時に現在選択状態にある Node をその１つ上(または下)のものと入れ替える
だけなら現在の知識で出来ると思うけど？。
回答ありがとうございました。
上、下移動であればできそうなんですが、やはりマウスドラッグでの移動
を行いたいと考えています。
あれからいろいろとWEB検索しまして、HitTestメソッドを用いてマウスポインタ下の
アイテムの矩形枠を取得するところまで出来ましたが、やはりライン描画と
いうところで行き詰っています。
何かヒントがあればよろしくお願いします。
バカ正直にラインを描画しないといけないってワケでもありませんし、
例えば PictureBox を１つ貼り付けておいて↓のように設定すれば…
[VB6.0]
With Me.Picture1
.Top = 矩形枠下端のＹ座標
.Left = 矩形枠下端のＸ座標
.Width = 矩形枠のWidth
.Height = 10
.BackColor = vbRed
.ZOrder
End With
> ドラッグしたノードが移動する場所を示したいからです。
単に、DropHighlightプロパティじゃダメなの？
返答が遅くなり申し訳ありません。
特攻隊長まるるうさんのPictureBoxを貼り付け、ラインに見せることにより
希望の動作を実現することができました。
しかし、TreeView内でマウスダウンしてTreeView内でマウスアップしてくれる
場合はちゃんと動作するのですが、TreeView外でマウスアップされると、その
イベントが現在の処理では拾うことが出来ないため、次にマウスカーソルが
TreeView内に入って来たときに処理がおかしくなってしまいます。
原因はTreeView外でマウスアップされるとMouseUpイベントが発生しないこと
によるものだと考えますが、こういう場合はどのようにして対処すれば良いのでしょうか？
よろしくお願いします。
>DDさん
提案ありがとうございました。
DropHighlightだと、個人的にドラッグしたノードが、ハイライトしている
ノードの子ノードへ移動するイメージがあるのでライン描画の方が分かり
安いかなと考えた次第です。
OLEDrag&Dropを使用して
MouseUpイベント --> OLECompleteDragイベント
にしてみたら如何でしょうか？
| ツイート |  |