welcome.frm

游戏源码大家来看

VERSION 5.00
Begin VB.Form Welcome 
   BorderStyle     =   0  'None
   Caption         =   "Welcome"
   ClientHeight    =   3300
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4575
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   4575
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture2 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      Height          =   3300
      Left            =   0
      Picture         =   "Welcome.frx":0000
      ScaleHeight     =   216
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   300
      TabIndex        =   1
      Top             =   0
      Visible         =   0   'False
      Width           =   4560
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      Height          =   3315
      Left            =   0
      Picture         =   "Welcome.frx":0514
      ScaleHeight     =   217
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   307
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   4665
   End
End
Attribute VB_Name = "Welcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'申明在指定的设备场景中设置一个像素的RGB值的函数Getpixel和GetPixel
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Dim scanlines As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.Hide
End Sub

'退出按钮
'Private Sub Command1_Click()
'End
'End Sub
Private Sub Form_Load()
    Picture1.ScaleMode = 3 'ScaleMade的属性值为3表示像素,监视器的最小分辨率
    Welcome.ScaleMode = 3
    '设置图片的大小
    Picture1.Width = Welcome.ScaleWidth
    Picture1.Height = Welcome.ScaleHeight
End Sub
'延迟时间设置
Sub delay(delaytime As Long)
    For i = 1 To delaytime
        DoEvents
    Next i
End Sub

Private Sub Form_Paint()
'从右往左展开
mx = Picture1.ScaleWidth
  My = Picture1.ScaleHeight
  For X = mx To 0 Step -1
    For Y = My To 0 Step -1
      a = GetPixel(Picture1.hdc, X, Y)
      B = SetPixel(Me.hdc, X, Y, a)
    Next Y
    DoEvents
  Next X
  delay 1000
'从左往右展开
  mx = Picture2.ScaleWidth
  My = Picture2.ScaleHeight
  For X = 0 To mx
    For Y = 0 To My
      a = GetPixel(Picture2.hdc, X, Y)
      B = SetPixel(Me.hdc, X, Y, a)
    Next Y
    DoEvents
  Next X
  delay 1000
If FClose = True Then
End
Else
Me.Hide
End If
End Sub