about.frm

来自「mp3播放器」· FRM 代码 · 共 93 行

VERSION 5.00
Begin VB.Form about 
   BorderStyle     =   0  'None
   ClientHeight    =   3015
   ClientLeft      =   3585
   ClientTop       =   3345
   ClientWidth     =   5055
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3015
   ScaleWidth      =   5055
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timerview 
      Interval        =   500
      Left            =   4560
      Top             =   3840
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1560
      TabIndex        =   1
      Top             =   3840
      Width           =   1215
   End
   Begin VB.PictureBox picture2 
      Height          =   3015
      Left            =   0
      ScaleHeight     =   2955
      ScaleWidth      =   4995
      TabIndex        =   0
      Top             =   0
      Width           =   5055
   End
End
Attribute VB_Name = "about"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Picture1 As New StdPicture
Dim timecount As Double
Dim view As Boolean

Private Sub Form_Load()
    Dim i As Long
    '设定成Pixel单位
    picture2.ScaleMode = 3
    '调用外部图片
    Set Picture1 = LoadPicture(App.Path + "\bmp\about_ver.bmp")
    view = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Timerview.Enabled = True
    timecount = 0
End Sub


Private Sub Timerview_Timer()
    If view = True Then
        Dim i As Long
        Dim j As Long
        Dim pich As Long, picw As Long
        Dim picdc As Long
        '将尺寸转为Pixel
        pich = ScaleY(Picture1.Height, vbHimetric, vbPixels)
        If pich > picture2.ScaleHeight Then
            pich = picture2.ScaleHeight
        End If
        picw = ScaleX(Picture1.Width, vbHimetric, vbPixels)
        If picw > picture2.ScaleWidth Then
            picw = picture2.ScaleWidth
        End If
        picdc = CreateCompatibleDC(picture2.hdc)
        '将Picture1的BitMap图指定给picdc
        Call SelectObject(picdc, Picture1.Handle)
        For i = pich To 1 Step -1
            Call BitBlt(picture2.hdc, 0, i, picw, 1, picdc, 0, i, SRCCOPY)
            For j = i - 1 To 1 Step -1
                Call BitBlt(picture2.hdc, 0, j, picw, 1, picdc, 0, i, SRCCOPY)
            Next j
        Next
        Call DeleteDC(picdc)
    End If
    view = False
    timecount = timecount + 0.5
    If timecount > 5 Then
        Unload Me
    End If
End Sub