トップページ > プログラム > 2020年03月26日 > hp54jNs9M

書き込み順位＆時間帯一覧

15 位/135 ID中時間01234567891011121314151617181920212223Total
書き込み数0000000000000001010000002



使用した名前一覧書き込んだスレッド一覧
デフォルトの名無しさん (ﾌﾞｰｲﾓ MMad-FSgb)
Excel VBA 質問スレ Part65

書き込みレス一覧

Excel VBA 質問スレ Part65
65 ：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMad-FSgb)[sage]：2020/03/26(木) 15:54:11.22 ID:hp54jNs9M
ユーザーフォーム上にあるボタン1を押すとボタン1を非表示にしてフォームのキャプチャを取得。
その後ボタン1を再び表示して終了。

みたいなものを作りたいのですが
SendkeyでAlt+Printscreenを送っても
素の状態ではボタン1が残った状態のものがキャプチャされ、
Waitをかけると今度は画面全体のキャプチャになってしまいます。

フォームをダイレクトに画像ファイルにする、とかでも良いのですが調べても中々応えに辿り着けなかったので皆様のお知恵をお借りしたいです。
何か良い手はないでしょうか。
Excel VBA 質問スレ Part65
67 ：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMad-FSgb)[sage]：2020/03/26(木) 17:09:13.21 ID:hp54jNs9M
すみません。
情報の伝達に齟齬がありました。
Sendkeyではなくkeybd_eventsでした。

Altのkeyeventをコメントアウトしたら何故かフォームだけのスクリーンショットが撮れました。
vbKeySnapshotはAlt+PrintScreenだったのでしょうか？

Private Sub CommandButton1_Click()

UserForm1.CommandButton1.Visible = False

'keybd_event vbKeyMenu, 1, &H1, 0
keybd_event vbKeySnapshot, 1, &H1, 0

Application.Wait [Now() + "0:00:00.5"]

keybd_event vbKeySnapshot, 1, &H1 Or &H2, 0
'keybd_event vbKeyMenu, 1, &H1 Or &H2, 0

UserForm1.CommandButton1.Visible = True

End Sub


※このページは、『２ちゃんねる』の書き込みを基に自動生成したものです。オリジナルはリンク先の２ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合はメールをしてください。対応します。