frmSplash.frm
上传用户:wuyi06
上传日期:2015-04-09
资源大小:1872k
文件大小:1k
源码类别:

压缩解压

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   2655
  7.    ClientLeft      =   255
  8.    ClientTop       =   1410
  9.    ClientWidth     =   10125
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Icon            =   "frmSplash.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2655
  18.    ScaleWidth      =   10125
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  '屏幕中心
  21.    Begin VB.Image Image1 
  22.       Height          =   2655
  23.       Left            =   -120
  24.       Picture         =   "frmSplash.frx":08CA
  25.       Top             =   0
  26.       Width           =   10245
  27.    End
  28. End
  29. Attribute VB_Name = "frmSplash"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Option Explicit
  35. Private Sub Form_KeyPress(KeyAscii As Integer)
  36.     Unload Me
  37.     frmmain.Show
  38. End Sub
  39. Private Sub Image1_Click()
  40.     Unload Me
  41.     frmmain.Show
  42. End Sub