关于.txt

基于C++编写的用于移动电话的计费系统可以完成日常计费系统的需要

Begin VB.Form frmStar 
   BackColor       =   &H00000000&
   Caption         =   " Love"
   ClientHeight    =   3675
   ClientLeft      =   4845
   ClientTop       =   5265
   ClientWidth     =   7620
   ClipControls    =   0   'False
   ForeColor       =   &H0000FFFF&
   Icon            =   "关于.frx":0000
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   MouseIcon       =   "关于.frx":27C92
   MousePointer    =   99  'Custom
   ScaleHeight     =   3675
   ScaleWidth      =   7620
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer2 
      Interval        =   1000
      Left            =   720
      Top             =   0
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   360
      Top             =   0
   End
   Begin VB.Timer tmrAnimation 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   0
      Top             =   0
   End
   Begin VB.Image Image1 
      Height          =   1350
      Left            =   5400
      MouseIcon       =   "关于.frx":4F924
      MousePointer    =   99  'Custom
      Picture         =   "关于.frx":4FC2E
      ToolTipText     =   "亲一下,关闭!"
      Top             =   1320
      Visible         =   0   'False
      Width           =   1515
   End
   Begin VB.Label Label1 
      BackColor       =   &H00000000&
      Caption         =   " LOVE"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   780
      Left            =   840
      TabIndex        =   0
      Top             =   1680
      Width           =   3855
   End
End
Attribute VB_Name = "frmStar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim xpos As Integer, ypos As Integer
Dim I As Integer
  tmrAnimation.Enabled = True
  Randomize
  
MsgBox "(c)2008 南京邮电大学课程设计 " & " Made  2008年3月", 0 + 0, "关于ZQ计费管理系统"
  
End Sub

Private Sub Image1_Click()
frmStar.Hide
MDIForm1.Show
MsgBox "谢谢", 48, "Thanks"

End Sub

Private Sub Timer1_Timer()
Label1.Caption = ""
Image1.Visible = False

End Sub

Private Sub Timer2_Timer()
Label1.Caption = " L O V E"
Image1.Visible = True

End Sub

Private Sub tmrAnimation_Timer()
Cls '清屏，产生闪烁效果
For I = 1 To 250 '同时闪烁的星星数量
    xpos = Int(frmStar.Width * Rnd)
    ypos = Int(frmStar.Height * Rnd)
    PSet (xpos, ypos)
Next I

End Sub