www.pudn.com > 645-485.rar > Splash.frm, change:2007-09-27,size:4079b


VERSION 5.00 
Begin VB.Form Splash  
   BorderStyle     =   0  'None 
   ClientHeight    =   3825 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   7125 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   Picture         =   "Splash.frx":0000 
   ScaleHeight     =   3825 
   ScaleWidth      =   7125 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   3  '窗口缺省 
   Begin VB.Timer tmrTimer  
      Interval        =   1000 
      Left            =   480 
      Top             =   240 
   End 
   Begin VB.Label Label3  
      BackStyle       =   0  'Transparent 
      Caption         =   "1.0.1" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00800000& 
      Height          =   255 
      Left            =   5760 
      TabIndex        =   2 
      Top             =   2085 
      Width           =   975 
   End 
   Begin VB.Label Label2  
      BackStyle       =   0  'Transparent 
      Caption         =   "版本:" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   15.75 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00800000& 
      Height          =   375 
      Left            =   4800 
      TabIndex        =   1 
      Top             =   2040 
      Width           =   1095 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "抄表软件" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   42 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00800000& 
      Height          =   735 
      Left            =   3240 
      TabIndex        =   0 
      Top             =   960 
      Width           =   3495 
   End 
End 
Attribute VB_Name = "Splash" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
'**************************************************************************** 
'人人为我,我为人人 
'枕善居收藏整理 
'发布日期:2007/09/27 
'描    述:电表业645规约的电表485通讯代码 
'网    站:http://www.Mndsoft.com/  (VB6源码博客) 
'网    站:http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005) 
'e-mail  :Mndsoft@163.com 
'e-mail  :Mndsoft@126.com 
'OICQ    :88382850 
'          如果您有新的好的代码别忘记给枕善居哦! 
'**************************************************************************** 
 
Const RGN_OR = 2 
 
Private Sub Form_Load() 
 
  Me.Left = (Screen.Width - Me.Width) / 2 
  Me.Top = (Screen.Height - Me.Height) / 2 
  RMe 
   
   
End Sub 
 
Private Sub Form_Click() 
    Unload Me 
    Load FrmMain 
    FrmMain.Show 
End Sub 
 
Private Sub tmrTimer_Timer() 
    tmrTimer.Enabled = False 
    Unload Me 
    Load App_Main 
    App_Main.Show 
End Sub 
 
Public Sub RMe() 
 
Dim Regn As Long 
Dim CER As Long 
Dim X1, Y1 As Long 
 
X1 = Me.Width / 15 
Y1 = Me.Height / 15 
 
Regn = CreateRectRgn(0, 5, X1, Y1 - 5) 
CER = CreateRectRgn(5, 0, X1 - 5, Y1) 
CombineRgn Regn, Regn, CER, RGN_OR 
 
CER = CreateEllipticRgn(-2, 0, 15, 35) 
CombineRgn Regn, Regn, CER, RGN_OR 
CER = CreateEllipticRgn(X1 - 15, 0, X1 + 2, 20) 
CombineRgn Regn, Regn, CER, RGN_OR 
CER = CreateEllipticRgn(-1, Y1 - 20, 10, Y1) 
CombineRgn Regn, Regn, CER, RGN_OR 
CER = CreateEllipticRgn(X1 - 20, Y1 - 40, X1 + 3, Y1 + 4) 
CombineRgn Regn, Regn, CER, RGN_OR 
Call SetWindowRgn(Me.hWnd, Regn, True) 
 
End Sub