窗体百叶窗效果

在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);