奇怪的StretchBlt 问题

那你再用bitblt往Picture1里拷啊。

解决方案 »

  1.   

    可是这样做有什么问题吗？
    我的目的不是在picture之间拷贝图片，而是想把picthumb.picture 给一个command1.picture
    和一个grid.cell.picture,用bitblt做不到阿！
      

  2.   

    哦，那你用set picture1.picture=picthumb.image试试吧。
      

  3.   

    picThumb.Cls
    picload.Visible = False
    picload.Refresh
    picload.Picture = LoadPicture("D:\3DSMAX3\maps\background.jpg")StretchBlt GetDC(picThumb.hWnd), 0, 0, picThumb.Width, picThumb.Height, picload.hdc, 0, 0, picload.ScaleWidth, picload.ScaleHeight, vbSrcCopypicThumb.Refresh
    set picture1.picture=picthumb.picture
      

  4.   

    不管怎样，多谢Amoon(阿木)　
    set picture1.picture=picthumb.image
    也已经试过无效
    我用的是win2000
      

  5.   

    thank you feihong0233(泓)
    picThumb.Refresh
    set picture1.picture=picthumb.picture
    也没用
      

  6.   

    唉,最后一招。
    CopyMemory picture1.picture,objptr(picthumb.picture),&h4
      

  7.   

    需要set picture1.picture=nothing 释放PICTURE1的资源
      

  8.   

    to:crystal2000(爱干什么就干什么)
    无效也
      

  9.   

    '试试这样
    'picLoad的AutoRedraw是不是为True啊？
    picThumb.Cls
    picload.Visible = False
    picload.Refresh
    picload.Picture = LoadPicture("D:\3DSMAX3\maps\background.jpg")StretchBlt picThumb.hDC, 0, 0, picThumb.Width, picThumb.Height, GetDC(picload.hWnd), 0, 0, picload.ScaleWidth, picload.ScaleHeight, vbSrcCopypicThumb.Refresh
    set picture1.picture=picthumb.picture