垂直百叶窗出图效果.frm

Windows API函数,希望大伙有用哦

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4215
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6015
   LinkTopic       =   "Form1"
   ScaleHeight     =   281
   ScaleMode       =   0  'User
   ScaleWidth      =   400
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture2 
      BorderStyle     =   0  'None
      Height          =   4395
      Left            =   0
      ScaleHeight     =   293
      ScaleMode       =   0  'User
      ScaleWidth      =   400
      TabIndex        =   1
      Top             =   0
      Width           =   6045
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      Height          =   4395
      Left            =   0
      Picture         =   "垂直百叶窗出图效果.frx":0000
      ScaleHeight     =   289
      ScaleMode       =   0  'User
      ScaleWidth      =   400
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   6045
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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 Long
Private Sub Form_Paint()
Dim T As Integer, I As Integer, J As Integer
Dim P1 As Single, P2 As Single, P3 As Single
  Picture2.Cls
  T = 40
  P2 = Picture1.Height
  P1 = 1
    For J = 0 To T - 1
     For I = 0 To Picture1.Width - T - 1 Step T
       P3 = I + J
        BitBlt Form1.Picture2.hDC, P3, 0, P1, P2, Form1.Picture1.hDC, P3, 0, &HCC0020
     Next I
     ' 延时50毫秒
     Sleep 50
   Next J
End Sub