掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ツリービュー上でのドラッグANDドロップでDropHighlightしたい (ID：115320)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以前に、 VB.NET-ツリービュー上でのドラッグANDドロップでDropHighlightしたい。ということで、質問させていただき、教えていただいたものです。 こんどは、VB6.0で同じようなことを行いたいと思っています。 なんとかできそうなのですが、 Private Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, state As Integer) On Error Resume Next 省略... xPos = x YPos = y Dim NodNext As Node ' ノード x の次のノードへの参照を取得します。 If Treeview_y < y Then Set NodNext = TreeView1.HitTest(x, y).Next NodNext.EnsureVisible Else Set NodNext = TreeView1.HitTest(x, y).Previous '親がある場合は、スクロールする。 If TreeView1.HitTest(x, y).FirstSibling = TreeView1.HitTest(x, y).Previous Then TreeView1.HitTest(x, y).Parent.EnsureVisible Else NodNext.EnsureVisible End If NodNext.EnsureVisible End If エクスプローラのような操作感が得られないのです。 たぶんディレイを設けないといけないと思うのですが、このへんのよいサンプルなどないでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.