现在的位置： 首页 >> 电脑网络 >> 编程 >> 文章正文

关于VB屏幕拷贝的问题

关于VB屏幕拷贝的问题


Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Form_Load()
Me.Hide
Me.AutoRedraw = True
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
CommonDialog1.ShowSave
sFile$ = CommonDialog1.FileName & ".bmp"
SavePicture Me.Image, sFile



注意这个这里有个 通用对话框 控件，不要没看见，我代码不行！我测试过了！
该回答在4月10日 22:12由回答者修改过

编程相关文章推荐

编程重要提示

编程特别推荐

编程论坛新帖