你的Picture1的AutoRedraw是否设为Ture。

解决方案 »

  1.   

    DrawEdge m_hdc, r, BDR_RAISEDINNER, BF_RECT
        BitBlt Picture1.HDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, m_hdc, _
        0, 0, vbSrcCopy
    错了,应该:
    DrawEdge hcom , r, BDR_RAISEDINNER, BF_RECT
        BitBlt Picture1.HDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, hcom , _
        0, 0, vbSrcCopy
      

  2.   

    谢谢,但是为什么改成hcom之后会花屏呢
      

  3.   

    我想知道你为何不直接画在Picture1上。
    DrawEdge Picture1.hdc, r, BDR_RAISEDINNER, BF_RECT