难呀！！

StretchBlt   picShowArr.hdc,   aX,   aY,   sngWidth,   sngHeight,   picRadiation(1).hdc,   0,   0,   picRadiation(1).Width,   picRadiation(1).Height,   SRCCOPY  
   
   
  我用StretchBlt将数幅（不定数）图片平均排列显示到一个picturebox中，功能是可以实现了，但其中的每一个位图都多出了些不规则的五色彩条，请问有无高人能解决这个问题？？（在线点，没结果时帮UP，谢谢！！）  
  问题点数：33、回复次数：1Top

1 楼csdnabc（Weblog）回复于 2003-09-01 17:51:14 得分 33

Public   Sub   DrawPictureEx(ByVal   DestHDC   As   Long,   ByVal   x   As   Long,   ByVal   y   As   Long,   ByVal   Width   As   Long,   ByVal   Height   As   Long,   Source   As   StdPicture,   ByVal   SrcX   As   Long,   ByVal   SrcY   As   Long,   ByVal   SrcWidth   As   Long,   ByVal   SrcHeight   As   Long,   ByVal   RopCode   As   Long)  
          Dim   hOldObject   As   Long,   hMemDC   As   Long  
          Dim   OldMode   As   Long  
           
          Const   STRETCH_HALFTONE   =   4  
           
          hMemDC   =   CreateCompatibleDC(0)  
          hOldObject   =   SelectObject(hMemDC,   Source.Handle)  
           
          OldMode   =   SetStretchBltMode(DestHDC,   STRETCH_HALFTONE)     '///////////  
          Call   StretchBlt(DestHDC,   x,   y,   Width,   Height,   hMemDC,   SrcX,   SrcY,   SrcWidth,   SrcHeight,   RopCode)  
          Call   SetStretchBltMode(DestHDC,   OldMode)  
           
          Call   SelectObject(hMemDC,   hOldObject)  
          Call   DeleteObject(hOldObject)  
          Call   DeleteDC(hMemDC)  
  End   Sub  
  Top

相关问题

• desthdc
• holdobject
• hmemdc
• picradiation
• oldmode
• byval
• stretchblt
• as long
• call
• height

• 帖主：jakseng
• csdnabc

• Visual Basic类图书
• Visual Basic类源码下载