复制Picture里的内容包插控件保存为图片解决方案
复制Picture里的内容包插控件保存为图片
Picture比较长或宽,超出屏幕,用滚动条显示,怎么把这个Picture的内容,包括控件一起保存为图片。
谢谢。
------最佳解决方案--------------------
Private Sub SaveToBMP_Click()
Dim NameWithPath As String
Dim PictureGetImg As FormMain
On Error GoTo Cancel
With CommonDialogBMP
.CancelError = True
.Filter = "Pictures (*.bmp)
------其他解决方案--------------------
keybd_event是什么,试不出来。
------其他解决方案--------------------
写点代码分享下呀。谢谢。
------其他解决方案--------------------
*.bmp"
.DefaultExt = "bmp"
.InitDir = App.Path
.FileName = "default"
.DialogTitle = "定义保存当前窗口画面文件名"
.Flags = cdlOFNOverwritePrompt
.ShowSave
NameWithPath = .FileName
End With
'If Trim(dir(NameWithPath)) = "" Then Exit Sub
DoEvents
keybd_event vbKeySnapshot, 1, 0, 0
DoEvents
'FormMain.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Clipboard.GetData(vbCFBitmap), NameWithPath
FormMain.Cls
Clipboard.Clear
Cancel:
Err.Clear
End Sub
试试看咯
------其他解决方案--------------------
可以使用DirectX来获取。
Picture比较长或宽,超出屏幕,用滚动条显示,怎么把这个Picture的内容,包括控件一起保存为图片。
谢谢。
------最佳解决方案--------------------
Private Sub SaveToBMP_Click()
Dim NameWithPath As String
Dim PictureGetImg As FormMain
On Error GoTo Cancel
With CommonDialogBMP
.CancelError = True
.Filter = "Pictures (*.bmp)
------其他解决方案--------------------
keybd_event是什么,试不出来。
------其他解决方案--------------------
写点代码分享下呀。谢谢。
------其他解决方案--------------------
*.bmp"
.DefaultExt = "bmp"
.InitDir = App.Path
.FileName = "default"
.DialogTitle = "定义保存当前窗口画面文件名"
.Flags = cdlOFNOverwritePrompt
.ShowSave
NameWithPath = .FileName
End With
'If Trim(dir(NameWithPath)) = "" Then Exit Sub
DoEvents
keybd_event vbKeySnapshot, 1, 0, 0
DoEvents
'FormMain.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Clipboard.GetData(vbCFBitmap), NameWithPath
FormMain.Cls
Clipboard.Clear
Cancel:
Err.Clear
End Sub
试试看咯
------其他解决方案--------------------
可以使用DirectX来获取。