frm_1.frm

提醒系统,可以提醒大家的作息时间.希望大家以后多多的支持!

VERSION 5.00
Begin VB.Form Frm_1 
   BackColor       =   &H00FFFF80&
   Caption         =   "提醒系统"
   ClientHeight    =   4305
   ClientLeft      =   2055
   ClientTop       =   2625
   ClientWidth     =   6075
   FillColor       =   &H0000FF00&
   BeginProperty Font 
      Name            =   "仿宋_GB2312"
      Size            =   10.5
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H0000FF00&
   LinkTopic       =   "Form1"
   ScaleHeight     =   4305
   ScaleWidth      =   6075
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   2280
      TabIndex        =   0
      Text            =   "your time"
      Top             =   2040
      Width           =   2895
   End
   Begin VB.CommandButton Command2 
      Caption         =   "重设"
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4440
      TabIndex        =   2
      Top             =   3240
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H000000FF&
      Caption         =   "确定"
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3360
      TabIndex        =   1
      Top             =   3240
      Width           =   855
   End
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   5520
      Top             =   3000
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   2280
      TabIndex        =   6
      Top             =   1080
      Width           =   2895
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "设定时刻:"
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   615
      Left            =   360
      TabIndex        =   5
      Top             =   2040
      Width           =   2055
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "现在时刻:"
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   615
      Left            =   360
      TabIndex        =   4
      Top             =   1080
      Width           =   2055
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "请设定您准备下机的时间:"
      BeginProperty Font 
         Name            =   "仿宋_GB2312"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   615
      Left            =   360
      TabIndex        =   3
      Top             =   240
      Width           =   4695
   End
   Begin VB.Menu file 
      Caption         =   "文件(&F)"
      Begin VB.Menu exit 
         Caption         =   "退出"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu edit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu cut 
         Caption         =   "剪切"
         Shortcut        =   ^X
      End
      Begin VB.Menu copy 
         Caption         =   "复制"
         Shortcut        =   ^C
      End
      Begin VB.Menu paste 
         Caption         =   "粘贴"
         Shortcut        =   ^V
      End
      Begin VB.Menu ff 
         Caption         =   "-"
      End
      Begin VB.Menu all 
         Caption         =   "全选"
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu multiply 
      Caption         =   "选项(&O)"
      Begin VB.Menu suxing 
         Caption         =   "属性"
      End
   End
End
Attribute VB_Name = "Frm_1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub all_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub

Private Sub Command1_Click()
 Frm_1.Hide
    End Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub

Private Sub copy_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
End Sub

Private Sub cut_Click()
Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End Sub

Private Sub exit_Click()
Unload Me
End Sub

 

Private Sub paste_Click()
Text1.SelText = Clipboard.GetText()
End Sub
 

Private Sub suxing_Click()
 MsgBox "本程序由梁华升同学于2000年9月12日编制，专门用来提醒您准时下机，以免误事！", 64, "软件说明"
End Sub

Private Sub Timer1_Timer()
Label4.Caption = Time
If Text1.Text = Label4.Caption Then
   frm_3.Show 1
   Unload Frm_1
   End If
End Sub