frmsplash.frm

来自「支持监控包括传输控制协议和 UDP 的所有的互联网传输协议。同时程序具有实时文件」· FRM 代码 · 共 152 行

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   2970
   ClientLeft      =   225
   ClientTop       =   1380
   ClientWidth     =   4680
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2970
   ScaleMode       =   0  'User
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   2955
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4680
      Begin VB.PictureBox picCFXPBugFixfrmSplash 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   2595
         Left            =   120
         ScaleHeight     =   2595
         ScaleWidth      =   4365
         TabIndex        =   1
         Top             =   180
         Width           =   4365
         Begin VB.Timer Timer1 
            Interval        =   5000
            Left            =   3980
            Top             =   2262
         End
         Begin VB.PictureBox Picture1 
            AutoSize        =   -1  'True
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   1515
            Left            =   120
            Picture         =   "frmSplash.frx":000C
            ScaleHeight     =   1515
            ScaleWidth      =   3870
            TabIndex        =   2
            Top             =   342
            Width           =   3870
         End
         Begin VB.Label lblCompany 
            AutoSize        =   -1  'True
            BackColor       =   &H00FFFFFF&
            Caption         =   "Copeland Software 2006"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   195
            Left            =   1100
            TabIndex        =   4
            Top             =   2382
            Width           =   2055
         End
         Begin VB.Label lblLicenseTo 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "(Professional Version)"
            BeginProperty Font 
               Name            =   "Tahoma"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   15
            TabIndex        =   3
            ToolTipText     =   "OnIt Professional Firewall"
            Top             =   0
            Width           =   4335
         End
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/09/20
'描    述：界面清爽VB版高级专业防火墙 Ver 2.0.3
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit
Private Declare Sub InitCommonControls Lib "Comctl32" ()
Private Sub Form_Initialize()
    InitCommonControls
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
    frmMain.Show
'frmAbout.Show
End Sub
Private Sub Form_Load()
'Dim i As Long
    On Error Resume Next
'lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
'lblProductName.Caption = App.Title
    Load frmMain
    On Error GoTo 0
End Sub
Private Sub Frame1_Click()
    Unload Me
    frmMain.Show
End Sub
Private Sub picCFXPBugFixfrmSplash_Click()
    Unload Me
    frmMain.Show
End Sub
Private Sub Timer1_Timer()
    Unload Me
    frmMain.Show
End Sub
'''REM BLANK
''Private Sub Label1_Click()
''
''OpenWebsite "https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=[e-mail]&item_name=OnIt Personal Firewall & amount = 19.95"
''End Sub
''