怎么让图片在某一固定区域内上下移动.急!!!

[zhouluocheng]

怎么让图片在某一固定区域内上下移动(注:图片在该区域的外面部分不显示,直到移动至该区域的部分才显示出来)请大侠回答.

[zhouluocheng]

能说出大体的意思也行,最好有例子

[Tiger_Zhao]

Option Explicit

Private pic As IPictureDisp
Private y As Long

Private Sub Form_Load()
    Me.ScaleMode = vbPixels
    Me.AutoRedraw = True
    Set pic = LoadPicture("1.BMP")
    maxY = ScaleY(pic.Height, vbTwips, vbPixels)
End Sub

Private Sub Timer1_Timer()
    Cls
    Me.PaintPicture pic, 100, 100, , , 0, y, 100, 100
    y = y + 10
End Sub

[zhouluocheng]

Me.PaintPicture pic, 100, 100, , , 0, y, 100, 100
谢谢,再请问这里哪两个值是指定显示的范围的?

[Tiger_Zhao]

.PaintPicture picture,x1,y1,width1,height1,x2,y2,width2,height2,opcode
x2,y2,width2,height2 指明从源图片上切割的范围
x1,y1,width1,height1 指明在目标上粘贴的位置，省略的width1,height1就自动用width2,height2代替。

[zhouluocheng]

但是如果图片是从底部移入到我指定区域的范围那样能实现吗?

[Tiger_Zhao]

y从maxY-100开始逐步减小。
反正在参数x2、y2上做文章，怎么移都可以。

[zhouluocheng]

太谢谢了,还有能不能让图片移过之后的背景变为黑色啊
马上就给分!

[Tiger_Zhao]

在PaintPicture前加一句

Line (100,100)-(200,200), vbBalck, BF

[zhouluocheng]

还是白色.是移的时候就要变

[zhouluocheng]

已解决,谢谢大侠.怎么给分?

[Tiger_Zhao]

你的意思是移动图片到边界时只在区域中显示不符画面的情况？
那么在PaintPicture下，自己计算好大小调用Line语句。