投稿日 | : 2003/03/30(Sun) 20:33 |
投稿者 | : HB |
Eメール | : |
URL | : |
タイトル | : Re: 実行画面を・・・(完成しました(^^) |
花ちゃん、早速の丁寧なレス、ありがとうございました!
多少アレンジして目的を果たしました。感謝です(^^♪
アレンジの結果です。
Public Sub 画面保存()
On Error GoTo ErrSub
Dim FullPath As String
FullPath = App.Path & "\" & "Temp@Pic1.bmp"
If MsgBox(StrConv(FullPath, vbWide) & vbCrLf & "に保存します。", 36, "画面保存") = 6 Then
Screen.MousePointer = 11
Clipboard.Clear
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
DoEvents
If Clipboard.GetFormat(vbCFBitmap) Then
PicDB1.Picture1.Picture = LoadPicture()
Set PicDB1.Picture1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture PicDB1.Picture1, FullPath
End If
Screen.MousePointer = 0
End If
Exit Sub
ErrSub:
Screen.MousePointer = 0
MsgBox "保存できませんでした。", 16, "画面保存"
Err.Clear
Resume Next
End Sub