実際にマウスをクリックせずに、ボタンをへこましたり戻したりするには (ID:74834)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 あ、勘違いしてました。 キーイベントでボタンの外観をかえたいんですね。 方法1 同じサイズのCommandButtonとListBoxをかさねて置く。 Captionはどちらも"" FormのKeyPreviewをTrueにして、 FormのKeyDownにCommand1.Visible = False, FormのKeyUpにCommand1.Visible = Trueをかけば、 ボタンがへこんだようにみえる。 Captionが必要なら、Buttonの上にTextBoxをはり、 Text1.BackColor = Command1.BackColor Text1.BorderStyle = 0 にして、テキストを書いて 位置調整する。 ただし、Mouse Clickの処理が煩雑。 方法2 ボタンを押してない状態と押した状態をキャプチャーして bmpで保存。 キーイベントでCommand1.Pictureをはりかえる。 これなら、マウスイベントはいつものとおり。 bmpを加工することでボタンの文字色もかえられる。 注：PictureをそのつどLoadPictureすると、 I/Oが発生し、重くなる。 隠れImageBoxか何かに一度取り込んで、 ブロックコピーしたほうがはやい。