在OnPaint()函数里加入:
int i,j,w,h;
CPaintDC dc(this);
CBitmap bit;
CDC mendc;
CRect rect;
this->GetWindowRect(&rect);
w=rect.Width();
h=rect.Height();
bit.LoadBitmap(IDB_BITMAP1);
mendc.CreateCompatibleDC(&dc);
mendc.SelectObject(&bit);
for(i=0;i<20;i++)
{
for(j=i;j<w;j+=20)
{
dc.BitBlt(j,0,1,h,&mendc,j,0,SRCCOPY);
Sleep(2);
}
}
mendc.DeleteDC();
::DeleteObject(&bit);