frmfade.frm

来自「该文件包含一些关于软件的知识,里面有一些比较经典的东西,值得大家去卡看.」· FRM 代码 · 共 125 行

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00C0C0C0&
   Caption         =   "图象的淡入淡出"
   ClientHeight    =   5070
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6105
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5070
   ScaleWidth      =   6105
   StartUpPosition =   3  'Windows Default
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      LargeChange     =   5
      Left            =   2280
      Max             =   100
      SmallChange     =   5
      TabIndex        =   5
      Top             =   4560
      Width           =   1215
   End
   Begin VB.PictureBox Picture3 
      BackColor       =   &H00000000&
      Height          =   4335
      Left            =   60
      ScaleHeight     =   4275
      ScaleWidth      =   5955
      TabIndex        =   4
      Top             =   15
      Width           =   6015
   End
   Begin VB.PictureBox Picture2 
      Height          =   615
      Left            =   3150
      ScaleHeight     =   555
      ScaleWidth      =   780
      TabIndex        =   3
      Top             =   1875
      Visible         =   0   'False
      Width           =   840
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "关  闭"
      Height          =   315
      Left            =   4620
      TabIndex        =   2
      Top             =   4560
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "淡  出"
      Height          =   300
      Index           =   1
      Left            =   1140
      TabIndex        =   1
      Top             =   4560
      Width           =   1035
   End
   Begin VB.CommandButton Command1 
      Caption         =   "淡  入"
      Enabled         =   0   'False
      Height          =   300
      Index           =   0
      Left            =   60
      TabIndex        =   0
      Top             =   4560
      Width           =   1035
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00000000&
      Height          =   750
      Left            =   705
      Picture         =   "frmfade.frx":0000
      ScaleHeight     =   690
      ScaleWidth      =   750
      TabIndex        =   6
      Top             =   480
      Visible         =   0   'False
      Width           =   810
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Dim patfade As PatternFade
Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub Command1_Click(Index As Integer)
    If Index = 0 Then
        Command1(0).Enabled = False
        patfade.FadeOut HScroll1.Value
        Command1(1).Enabled = True
        Me.HScroll1.Value = 0
    Else
        Command1(1).Enabled = False
        patfade.FadeIn HScroll1.Value
        Command1(0).Enabled = True
        Me.HScroll1.Value = 0
    End If
End Sub

Private Sub Form_Load()
    Move (Screen.Width - Form1.Width) \ 2, (Screen.Height - Form1.Height) \ 2
    Set patfade = New PatternFade

    Set patfade.pic1 = Picture1
    Set patfade.pic2 = Picture2
    Set patfade.pic3 = Picture3
    patfade.Setup
    HScroll1.Value = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub