form1.frm

VB源码,是初学者的福因.让你很快掌握VB编程

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4860
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6210
   LinkTopic       =   "Form1"
   ScaleHeight     =   4860
   ScaleWidth      =   6210
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton comshow 
      Caption         =   "显示"
      Height          =   375
      Left            =   2520
      TabIndex        =   2
      Top             =   4440
      Width           =   1095
   End
   Begin VB.PictureBox picsour 
      Height          =   4335
      Left            =   0
      ScaleHeight     =   4275
      ScaleWidth      =   2955
      TabIndex        =   1
      Top             =   0
      Width           =   3015
   End
   Begin VB.PictureBox picDest 
      Height          =   4335
      Left            =   3120
      ScaleHeight     =   4275
      ScaleWidth      =   2955
      TabIndex        =   0
      Top             =   0
      Width           =   3015
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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
Const COPY_PUT = &HCC0020
Sub Form_Load()
    picsour.Picture = LoadPicture("c:\windows\Coffee Bean.bmp")
    picsour.ScaleMode = 3
End Sub

Sub Comshow_Click()
    H% = picsour.ScaleHeight
    W% = picsour.ScaleWidth
    scanlines = 4
    For i = 0 To (scanlines - 1)
        For j = i To H% Step scanlines
        tmps = BitBlt(picDest.hDC, j, 0, 1, H%, picsour.hDC, j, 0, COPY_PUT)
        delay 1000  '延时
        Next j
    Next i

End Sub
Sub delay(delaytime As Integer)
    For i = 1 To delaytime
    Next i
End Sub