12.7.frm

vb编程+从基础到实践光盘代码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "图像切换特效"
   ClientHeight    =   5700
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10965
   LinkTopic       =   "Form1"
   ScaleHeight     =   5700
   ScaleWidth      =   10965
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdEXIT 
      Caption         =   "退  出"
      Height          =   495
      Left            =   9120
      TabIndex        =   5
      Top             =   5040
      Width           =   1215
   End
   Begin VB.CommandButton CmdCL 
      Caption         =   "窗  帘"
      Height          =   495
      Left            =   7320
      TabIndex        =   4
      Top             =   5040
      Width           =   1215
   End
   Begin VB.CommandButton CmdMSK 
      Caption         =   "马赛克"
      Height          =   495
      Left            =   5520
      TabIndex        =   3
      Top             =   5040
      Width           =   1215
   End
   Begin VB.CommandButton CmdBYC 
      Caption         =   "百叶窗"
      Height          =   495
      Left            =   3840
      TabIndex        =   2
      Top             =   5040
      Width           =   1215
   End
   Begin VB.PictureBox PicDest 
      Height          =   4695
      Left            =   5520
      ScaleHeight     =   4635
      ScaleWidth      =   5355
      TabIndex        =   1
      Top             =   120
      Width           =   5415
   End
   Begin VB.PictureBox PicSource 
      Height          =   4695
      Left            =   0
      ScaleHeight     =   4635
      ScaleWidth      =   5355
      TabIndex        =   0
      Top             =   120
      Width           =   5415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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
Const COPY_PUT = &HCC0020


Private Sub CmdBYC_Click()
    PicDest.Cls
    h% = PicSource.ScaleHeight
    w% = PicSource.ScaleWidth
    changwidth = 14
    For i = 0 To (changwidth - 1)
        For j = i To h% Step changwidth
            s% = BitBlt(PicDest.hDC, 0, j, w%, 1, PicSource.hDC, 0, j, COPY_PUT)
            Sleep (20)   '延时
        Next j
    Next i
End Sub

Private Sub CmdCL_Click()
    PicDest.Cls
    h% = PicSource.ScaleHeight
    w% = PicSource.ScaleWidth
    changwidth = 2
    For i = 0 To w% / 2
        x = DoEvents()
        s% = BitBlt(PicDest.hDC, w% / 2 + i, 0, changwidth, h%, PicSource.hDC, w% / 2 + i, 0, COPY_PUT)
        s% = BitBlt(PicDest.hDC, w% / 2 - i, 0, changwidth, h%, PicSource.hDC, w% / 2 - i, 0, COPY_PUT)
        Sleep (15)    '延时
    Next i
End Sub

Private Sub CmdEXIT_Click()
    End
End Sub

Private Sub CmdMSK_Click()
    PicDest.Cls
    h% = PicSource.ScaleHeight
    w% = PicSource.ScaleWidth
    changwidth = 15
    changheight = 15
    For i = 0 To w% Step changwidth * 2
        For j = 0 To h% Step changheight * 2
            x = DoEvents()
            s% = BitBlt(PicDest.hDC, i, j, changwidth, changheight, PicSource.hDC, i, j, COPY_PUT)
            Sleep (5)  '延时
        Next j
    Next i
    For i = changwidth To w% Step changwidth * 2
        For j = changheight To h% Step changheight * 2
            x = DoEvents()
            s% = BitBlt(PicDest.hDC, i, j, changwidth, changheight, PicSource.hDC, i, j, COPY_PUT)
            Sleep (5)  '延时
            Next j
        Next i
        For i = 0 To w% Step changwidth * 2
        For j = changheight To h% Step changheight * 2
            x = DoEvents()
            s% = BitBlt(PicDest.hDC, i, j, changwidth, changheight, PicSource.hDC, i, j, COPY_PUT)
            Sleep (5)  '延时
            Next j
        Next i
        For i = changwidth To w% Step changwidth * 2
        For j = 0 To h% Step changheight * 2
            x = DoEvents()
            s% = BitBlt(PicDest.hDC, i, j, changwidth, changheight, PicSource.hDC, i, j, COPY_PUT)
            Sleep (5)  '延时
            Next j
        Next i
End Sub

Private Sub Form_Load()
    PicSource.Picture = LoadPicture(App.Path + "/1.jpg")
    PicSource.ScaleMode = 3 '以象素为单位
End Sub