怎样将一张图片从下开始渐进的显示出来(2)？？

Question

呵呵，代码太罗嗦了，不写了利用两个PictureClip和MsFlexGrid控制图片，原理都是这样子的，
把一个PictureClip先装入MsFlexGrid，然后用另外一个的不同部分不断的替换，想怎么样的效果都成；这样的代码，很多书上都会有的；

Answer 1

to:lovingkiss(你要答案我要分) 我这里没书，你能不能找个事例给我看看啊。我急用的。

Answer 2

我明白你的意思了.
Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Sub Command1_Click()
Dim i As Long
Dim h As Long
Dim w As Long
h = Picture1.Height
w = Picture1.Width
For i = h - 1 To 0 Step -1
    BitBlt Picture1.hDC, 0, i, w, i, Picture2.hDC, 0, i, vbSrcCopy
    Picture1.Refresh
NextEnd SubPrivate Sub Form_Load()Form1.ScaleMode = 3
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture2.Visible = FalsePicture1.Picture = LoadPicture("c:\1.bmp")'背景
Picture2.Picture = LoadPicture("c:\2.bmp")'前景End Sub已验证通过