关于如何在vb读取图像?急

上面这个copyscreentobmp的涵数是拷屏的,不是转换的
你可以这样

pbuffer是指向你的图像数据的指针,那么你,在你己知图像长宽的情况下,就可以用createdibsection创建一个与它一样的dib,然后利用copymemory将pbuffer指向的数据拷到dib中,olecreatepictureindirect这个api就可以将这个dib在内存中转换成vb的stdpicture对像.调用savepicture方法,就可以直接保存成jpg或bmp了

创建dib的方法
  假设开发包传过来的图像是24位的,320x280,那么可以这样
       with   bmpinfo 
                .bibitcount   =   24 
                .biplanes   =  1
                .biheight   =  280 '高
                .biwidth   =   320,宽
                .bisize   =   40   '本结构长度 
        end   with 
hdib   =   createdibsection（m_dc,   bmpinfo,   dib_rgb_colors,   pdata,   0,   0) 

'这时候就得到一个hdib,但它里面没有内容,pdata是指向它的像素数据的指针,
然后我们就可以用copymemory将图像写入dib
copymemory   pdata,   pbuffer, pbuffer的字节数
调用下面这个涵数转成vb的stdpicture
dim mypicture as stdpicture
mypicture =   createbitmappicture（hdib,   0,   itype)  
dim szfile as string
szfile="c:\test.jpg"
call savepicture（szfile)



下面是一段网友写的位图句柄转成stdpicture的代码

private   declare   function   olecreatepictureindirect   lib   "olepro32.dll"   （picdesc   as   picbmp,   refiid   as   guid,   byval   fpictureownshandle   as   long,   ipic   as   ipicture)   as   long   
  private   type   guid   
          data1   as   long   
          data2   as   integer   
          data3   as   integer   
          data4（7)   as   byte   
  end   type   
    
  private   type   picbmp   
          size   as   long   
          type   as   long   
          hbmp   as   long   
          hpal   as   long   
          reserved   as   long   
  end   type   
    
    
  private   function   createbitmappicture（byval   hbmp   as   long,   byval   hpal   as   long,   byval   itype   as   integer)   as   picture   
    
          dim   r   as   long,   pic   as   picbmp,   ipic   as   ipicture,   iid_idispatch   as   guid   
    
          'fill   guid   info   
          with   iid_idispatch   
                  .data1   =   &h20400   
                  .data4（0)   =   &hc0   
                  .data4（7)   =   &h46   
          end   with   
    
          'fill   picture   info   
          with   pic   
                  .size   =   len（pic)   '   length   of   structure   
                  .hbmp   =   hbmp   '   handle   to   bitmap   
                  .hpal   =   hpal   '   handle   to   palette   （may   be   null)   
                    
                  if   itype   =   0   then   
                          .type   =   vbpictypebitmap   '   type   of   picture   （bitmap)   
                  else   
                          .type   =   vbpictypeicon   
                  end   if   
          end   with   
    
          'create   the   picture   
          r   =   olecreatepictureindirect（pic,   iid_idispatch,   1,   ipic)   
    
          'return   the   new   picture   
          set   createbitmappicture   =   ipic   
            
  end   function


使用方法：   
  set   youpicture   =   createbitmappicture（hbmp,   0,   itype)   
  其中：     youpicture     为你要的stdpicture对象   
                  hbmp   为你已得到的位图的句柄   
                  itype   为vbpictypebitmap（位图）或   vbpictypeicon（图标）