Private Sub Command1_Click() Dim PIC As New StdPicture Set PIC = Clipboard.GetData SavePicture PIC, App.Path & "\PIC.jpg" End Sub使用VB的Clipboard对象就可以实现了
你的意思是用printScreen键截屏后,在你的程序里面显示,然后导出jpg?
Dim PIC As New StdPicture Set PIC = Clipboard.GetData
Dim PIC As StdPicture'不需要new Set PIC = Clipboard.GetData
Private Sub Command1_Click() Dim PIC As New StdPicture Set PIC = Clipboard.GetData SavePicture PIC, App.Path & "\PIC.bmp" Shell "alchemy.exe -j "+App.Path + "\PIC.bmp "+App.Path + "\PIC.jpg",vbHide End Sub http://www.handmade.com
Dim PIC As New StdPicture
Set PIC = Clipboard.GetData
SavePicture PIC, App.Path & "\PIC.jpg"
End Sub使用VB的Clipboard对象就可以实现了
Set PIC = Clipboard.GetData
这只是获得了 位图数据而已!
你用 .jpg为扩展名保存图片,它表面上看起来是 jpg图片,但实际上它仍然是 BMP的图片。正如5F所说,还要 BMP转JPEG的过程才行的。
Set PIC = Clipboard.GetData
Dim PIC As New StdPicture
Set PIC = Clipboard.GetData
SavePicture PIC, App.Path & "\PIC.bmp"
Shell "alchemy.exe -j "+App.Path + "\PIC.bmp "+App.Path + "\PIC.jpg",vbHide
End Sub
http://www.handmade.com