コマンドボタンの反転色について

解決

くま太郎 2005-11-30 23:44:11 No: 128442

毎日、お世話になっております。
ツリービューを作成中のくま太郎です。
今回は、ツリービューで選択したノード（必ず１つ）をドラッグして
同じフォーム上に作成したゴミ箱（コマンドボタンにしてますが）に
ドロップしたら、DBよりそのデータを削除する。という仕様を作成して
います。
で、質問はデスクトップ上のゴミ箱のように、そこにカーソルが
行ったら色を反転したいのですが、どのイベントにどのように書いたら
いいのかわかりません。
ご指導よろしくお願いします。

魔界の仮面弁士 2005-12-01 00:14:16 No: 128443

> ツリービューを作成中
誤解を生む表現かも。(^^;

それは兎も角、質問時には環境を書きましょう。
とりあえず、VB6 と仮定して回答します。

> そこにカーソルが行ったら色を反転したいのですが、
ドラッグ操作ですから、OLEDragOver イベントあたりかな。

Dim N As Node
Set N = Me.TreeView1.HitTest(x, y)
Set TreeView1.DropHighlight = N
If N Is Nothing Then
    Effect = vbDropEffectNone
Else
    Effect = vbDropEffectCopy
    Set N = Nothing
End If

魔界の仮面弁士 2005-12-01 00:38:56 No: 128444

あちゃ。「ツリービュー」という言葉に釣られてしまいました…。
コマンドボタンにドロップするのですね。

まぁ、使うべきイベントは一緒でしょう。OLEDrag系のイベントですね。

背景色の変更については、BackColor プロパティを使用できます。
ただしヘルプにも書かれていますように、 Style プロパティの値によっては
このプロパティが無視されるという点には注意してください。

くま太郎 2005-12-01 00:41:26 No: 128445

すみません。ＶＢ６です。
で、今回お教え願いたいのは、ノードをクリックして、
ツリービューの外に配置しているゴミ箱ボタンに
ドロップする際に、ゴミ箱ボタンを反転したいのですが、
上記のコードはノードの反転ではないのでしょうか？
（Effectの使い方がよくわかっていないので、もし違うなら
おゆるしください。）

くま太郎 2005-12-01 00:46:18 No: 128446

紛らわしくってすみませんでした。
出来ました。
いつも、いつも、ありがとうございます。

くま太郎 2005-12-01 00:47:03 No: 128447

またもや解決チェックを忘れてしまいました。(^-^;