フォームを画像として保存するには？ (ID:114235)

名前

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

本文 APIのkeybd_eventでキーストロークをシミュレートすれば出来ます。 SendKeysでは出来ないと思います。 Private Declare Sub keybd_event Lib _ "user32.dll" _ (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const VK_SNAPSHOT As Long = &H2C& Private Const KEYEVENTF_KEYUP As Long = &H2& Private Sub Command1_Click() Dim lScanCode As Long lScanCode = 1 'Win9x : 0, WinNT : 1 Clipboard.Clear Call keybd_event(VK_SNAPSHOT, lScanCode, 0, 0) Call keybd_event(VK_SNAPSHOT, lScanCode, KEYEVENTF_KEYUP, 0) DoEvents Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\test.bmp") End Sub