Question

VB截图程序怎么提高分辨率？求助

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 1
Const theForm = 0
Private Sub Command1_Click()
Dim t As Integer

t = Minute(Now)
Call keybd_event(vbKeySnapshot, theForm, 0, 0)
'若theForm改成theScreen则Copy整个Screen
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "d:\" & t & ".jpg"

End Sub

Answer 1

截屏的话只能根据屏幕当前分辨率得到图像,就是你得到的这种,不可能再提高了,除非你根据待得到的图像通过一定的算法模拟提高-----相当于自己画.我想这已经超出你的本意了吧?

Answer 2

期待详解.
我现在也只是采用模拟键盘函数来做呢?