急！急！急！还有3天要交程序了，请各位高手给我的代码提提意见，有关于BITBLT函数的问题，高分奉上，先谢谢了！！！1

Question

好象不应该是用Picture1.Width 和 Picture1.Height 应该是用
             Picture1.ScaleWidth 和 Picture1.ScaleHeight
如果你用Picture1.Width 和 Picture1.Height 的话w 和 h 的值应该是很大的，对不对？
另外Picture1.ScaleMode也要为vbPixels
还有就是能不能把问题说的再简单一些，可能是我的阅读等力差，语文从来没超过80...，看不懂啊

Answer 1

给你几个外国站点，或许你可找到
http://freevbcode.com/code
http://www.vbcode.com
http://www.vbcity.com 
http://www.vbcodelibrary.co.uk/

Answer 2

把窗体的ScaleMode 设为vbPixels
    
BitBlt picture2.hdc, 0, 0, picture2.Width, picture2.Height / 2, picture1.hdc, 0, picture1.Height / 2, vbSrcCopy

Answer 3

我刚刚写了一个，你看看行不行。时间急迫不是很好。加了时钟interval=100
Option Explicit
Dim arr(1) As PicturePrivate Sub Command1_Click()
If Timer1.Enabled = True Then
   Timer1.Enabled = False
Else
   Timer1.Enabled = True
End If
End SubPrivate Sub Form_Load()
Set arr(0) = LoadPicture("d:\bfly1.bmp")  '你的图片1
Set arr(1) = LoadPicture("d:\bfly2.bmp")  '你的图片2
End SubPrivate Sub Timer1_Timer()
Static intH As Integer
If Abs(intH) >= arr(0).Height + arr(1).Height Then
   intH = Picture1.Height
End If
Picture1.Cls
Picture1.PaintPicture arr(0), 0, intH
Picture1.PaintPicture arr(1), 0, intH + arr(0).Height
intH = intH - 100
End Sub

Answer 4

freebug:
      能说一说编程的思路吗？尤其是后3句，效果很好，但当图像停下来时，经常有
只剩半截图，甚至出现空白部分，如何了解框中填充的是哪一副图（有时会只残存有某一幅图的小半边，其余均为空白），谢谢！谢谢