Picture2.Cls
nWidth = 3‘小块的宽度，即
Stripes = Picture1.Width / nWidth‘总共的小块数目n个
P2 = Picture1.Height
P1 = nWidth
For I = Picture1.Width / 2 + nWidth To 0 Step -nWidth
p3 = I
p4 = Picture1.Width - I
r% = BitBlt(Form1.Picture2.hDC, p3, 0, P1, P2, Form1.Picture1.hDC, p3, 0, &HCC0020)
r% = BitBlt(Form1.Picture2.hDC, p4, 0, P1, P2, Form1.Picture1.hDC, p4, 0, &HCC0020)
For j = 1 To 8000‘等待片刻，图片开门效果出现的时间可以由此调节
Next
Next |
