急 急 急 ：在vb中怎么实现图片的百叶窗和滚动效果阿

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:07:52
谁帮忙给出正确的程序阿，不胜感激，我会追加分的

Private Declare Function bitblt Lib "gdi32" Alias "BitBlt" (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 Long
Const xtimes = 20
Const COPY_PUT = &HCC0020
Public hMemDc As Long, tt As Long, i%, j%
Private Sub Form_Load()
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Picture1.Width = Me.Width \ 15
Picture1.Height = Me.Height \ 15
Picture1.Left = Screen.Width
Picture1.AutoRedraw = True
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Command1.Caption = "纵向"
Command2.Caption = "横向"
Command3.Caption = "交错"
End Sub

上面代码,请将Picture1装载一张图片
Private Sub Command1_Click()
Me.Cls
'纵向百叶效果
For i = 0 To (xtimes - 1)
For j = i To Picture1.Width Step xtim