200分相送！若哪位大虾能提供给小弟我抓取屏幕位图（并保存为jpg格式）的源代码

谢谢楼上的回复，不过我听说BMP文件不适合网络传输，而GIF，JPG等格式的文件更适合于Internet,不知是不是这样？请楼上那位仁兄将源代码发到我的信箱里，小弟自有重谢！
哪位大虾还有GIF和JPG的？？

解决方案 »

  1.   

    截取屏幕图并生产bmp文件：
    Option Explicit
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Const VK_SNAPSHOT As Byte = &H2C
    Private Sub Command1_Click()
        Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
        DoEvents
        SavePicture Clipboard.GetData, "c:\temp.bmp"
    End Sub把bmp文件转换格式：（使用控件）
    http://ecom.xj169.net/vbgood/show_widget.asp?id=103
      

  2.   

    to y_shen(y_shen)：分我是会如数给的，我用名誉保证！
    to jisheng(古朴的狼):仁兄给我的网址打不开呀　
      

  3.   

    我也有，，，也是 BMP 的，，，，不过我再试试改代码，，，，，，可以保存成GIF或JPG
      

  4.   

    声明： 
    Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long 
    Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long 
    Private Declare Function EmptyClipboard Lib "user32" () As Long 
    Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long 
    Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 
    Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc 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 Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long) As Long 
    Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long 
    Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long 
    Private Declare Function CloseClipboard Lib "user32" () As Long 
    函数： 
    Sub ScrnCap(Lt, Top, Rt, Bot) 
    rWidth = Rt - Lt 
    rHeight = Bot - Top 
    SourceDC = CreateDC("DISPLAY", 0, 0, 0) 
    DestDC = CreateCompatibleDC(SourceDC) 
    Bhandle = CreateCompatibleBitmap(SourceDC, rWidth, rHeight) 
    SelectObject DestDC, Bhandle 
    BitBlt DestDC, 0, 0, rWidth, rHeight, SourceDC, Lt, Top, &HCC0020 
    Wnd = Screen.ActiveForm.hwnd 
    OpenClipboard Wnd 
    EmptyClipboard 
    SetClipboardData 2, Bhandle 
    CloseClipboard 
    DeleteDC DestDC 
    ReleaseDC Dhandle, SourceDC 
    End Sub 
    以下的示例把屏幕图象捕捉后，放到Picture1 中。 
    Sub Command1_Click() 
    Form1.Visible = False 
    ScrnCap 0, 0, 640, 480 
    Form1.Visible = True 
    picture1 = Clipboard.GetData() 
    End Sub 
      

  5.   

    那么看看这个吧:
    http://www.chengxuyuan.net/down/vcocx/down.cgi?menu=dj&gogo=6&url=http://go3.163.com/~cxygo/Graph/gvocx.zip
      

  6.   

    to jiami，怎么要调用那么多API 呀
      

  7.   

    截取屏幕图并生产bmp文件楼上已经有很多方案了。至于保存成JPG格式，有很多控件，不如用INTEL的，比较正点，也很不错！如果需要，我发MAIL给你！
      

  8.   

    to jisheng(古朴的狼)　:怎么抓图呀？那个软件有中文版吗？
      

  9.   

    to sindia(乖乖兔)　:请兄台发到我的信箱里并附上说明文档，谢谢！！
      

  10.   

    to jisheng(古朴的狼)　:刚才我试过仁兄的代码，好象只能把Form这个窗口的位图抓下来
    jiami(虾米)兄的方法是可行的　
      

  11.   

    to jisheng(古朴的狼):在我这里只能抓窗口的位图呀，我试过好几次了
    jiami(虾米)兄的方法虽然很好，不过只能支持BMP格式的，看来现在问题的中心在于文件格式的转换了
      

  12.   

    嗯…………看看我以前的答复：http://www.csdn.net/expert/topic/167/167840.shtm
      

  13.   

    谢谢各位仁兄的帮忙，问题已经得到解决,cofei（）兄发给我的dll文件十分好用！
    再次谢谢各位！马上散分！
      

  14.   

    to zyykunan: 给我发一份吧，我也需要。谢谢
      

  15.   

    [email protected]
    谢过！：）
    呵呵
      

  16.   

    to zyykunan 能把这个dll共享一下吗?谢谢
    [email protected]
      

  17.   

    有VC版的吗？也给我一份吧，谢谢
    [email protected]
      

  18.   

    来完了不只还能不能有
    [email protected]