隐藏pictiue.
抓到他之中,用.savepictiue保存。

解决方案 »

  1.   

    那你就按prtsc键后,到画板中粘贴即可
      

  2.   

    你说的对,可惜没能解决我的问题,我就是不想用的那个Picture1,我连窗体也不要用,
    我不是做什么培训课程,想做一个有趣的东东了,
    哎!郁闷啊!
    谁能告诉我,不是大家都下班 了 吧 !
      

  3.   

       调用如下程序,包括捉屏和保存:
    Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
       DoEvents
       SavePicture Clipboard.GetData, "c:\temp5555.bmp"
       Clipboard.Clear
    你看可以吗?
      

  4.   

    Public Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As LongPublic Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
    Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (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 LongDim hDC As Long 
    hDC = GetDC(0) 
    ret = BitBlt (Form1.hDC, 0, 0, 屏幕宽, 屏幕高, hDC, 0, 0, SRCCOPY) 
    ret = ReleaseDC(0, hDC) 
      

  5.   

    十分的感谢,非常好,chenangle(老婆好)
    你的老婆一定是一个非常非常好的老婆,你也一定是一个非常非常好的老公!