form1.frm

一个漂亮的日记本

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "心情日记1.00版"
   ClientHeight    =   6390
   ClientLeft      =   2265
   ClientTop       =   1185
   ClientWidth     =   7440
   Icon            =   "Form1.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0442
   ScaleHeight     =   6390
   ScaleWidth      =   7440
   Begin VB.CommandButton Command7 
      Caption         =   "恢复"
      Enabled         =   0   'False
      Height          =   375
      Left            =   1320
      TabIndex        =   27
      ToolTipText     =   "恢复清空掉的日记"
      Top             =   5880
      Width           =   735
   End
   Begin VB.CommandButton Command4 
      Caption         =   "回忆"
      Height          =   375
      Left            =   6360
      TabIndex        =   14
      ToolTipText     =   "回顾以前的日记"
      Top             =   5160
      Width           =   975
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFC0FF&
      Caption         =   "请选择今天天气"
      Height          =   1575
      Left            =   5640
      TabIndex        =   25
      Top             =   3480
      Width           =   1695
      Begin VB.CheckBox Check9 
         BackColor       =   &H00FFC0FF&
         Caption         =   "世界"
         Height          =   255
         Left            =   840
         TabIndex        =   13
         Top             =   960
         Width           =   735
      End
      Begin VB.CheckBox Check8 
         BackColor       =   &H00FFC0FF&
         Caption         =   "冰雹"
         Height          =   255
         Left            =   840
         TabIndex        =   12
         Top             =   720
         Width           =   735
      End
      Begin VB.CheckBox Check7 
         BackColor       =   &H00FFC0FF&
         Caption         =   "飓风"
         Height          =   255
         Left            =   840
         TabIndex        =   11
         Top             =   480
         Width           =   735
      End
      Begin VB.CheckBox Check6 
         BackColor       =   &H00FFC0FF&
         Caption         =   "地震"
         Height          =   255
         Left            =   840
         TabIndex        =   10
         Top             =   240
         Width           =   735
      End
      Begin VB.CheckBox Check5 
         BackColor       =   &H00FFC0FF&
         Caption         =   "下雪"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   1200
         Width           =   735
      End
      Begin VB.CheckBox Check4 
         BackColor       =   &H00FFC0FF&
         Caption         =   "台风"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   960
         Width           =   735
      End
      Begin VB.CheckBox Check3 
         BackColor       =   &H00FFC0FF&
         Caption         =   "雨天"
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   720
         Width           =   735
      End
      Begin VB.CheckBox Check2 
         BackColor       =   &H00FFC0FF&
         Caption         =   "阴天"
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   480
         Width           =   735
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFC0FF&
         Caption         =   "晴天"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label6 
         BackColor       =   &H00FFC0FF&
         Caption         =   "末日"
         Height          =   255
         Left            =   1080
         TabIndex        =   26
         Top             =   1200
         Width           =   495
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0FF&
      Caption         =   " 请选择您此刻"
      Height          =   1935
      Left            =   5640
      TabIndex        =   23
      Top             =   1440
      Width           =   1695
      Begin VB.OptionButton Option4 
         BackColor       =   &H00FFC0FF&
         Caption         =   "生气了!!!"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   1560
         Width           =   1215
      End
      Begin VB.OptionButton Option3 
         BackColor       =   &H00FFC0FF&
         Caption         =   "有点不开心"
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   1200
         Width           =   1335
      End
      Begin VB.OptionButton Option2 
         BackColor       =   &H00FFC0FF&
         Caption         =   "不错不错"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   840
         Width           =   1335
      End
      Begin VB.OptionButton Option1 
         BackColor       =   &H00FFC0FF&
         Caption         =   "很好啊"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   480
         Width           =   1335
      End
      Begin VB.Label Label5 
         BackColor       =   &H00FFC0FF&
         Caption         =   "  的心情！"
         Height          =   255
         Left            =   240
         TabIndex        =   24
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.CommandButton Command6 
      Caption         =   "不写了"
      Height          =   375
      Left            =   4200
      TabIndex        =   19
      ToolTipText     =   "退出"
      Top             =   5880
      Width           =   735
   End
   Begin VB.CommandButton Command5 
      Caption         =   "清空"
      Height          =   375
      Left            =   600
      TabIndex        =   15
      ToolTipText     =   "重新再写"
      Top             =   5880
      Width           =   735
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H00FFC0C0&
      Enabled         =   0   'False
      ForeColor       =   &H80000001&
      Height          =   270
      Left            =   5640
      TabIndex        =   21
      Top             =   1080
      Width           =   1695
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H00FFC0C0&
      Enabled         =   0   'False
      ForeColor       =   &H80000001&
      Height          =   270
      Left            =   5640
      TabIndex        =   20
      Top             =   840
      Width           =   1695
   End
   Begin VB.CommandButton Command3 
      Caption         =   "保存"
      Height          =   375
      Left            =   2040
      TabIndex        =   16
      ToolTipText     =   "保存日记"
      Top             =   5880
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Caption         =   "关于"
      Height          =   375
      Left            =   3480
      TabIndex        =   18
      Top             =   5880
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "帮助"
      Height          =   375
      Left            =   2760
      TabIndex        =   17
      Top             =   5880
      Width           =   735
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00FFC0FF&
      ForeColor       =   &H00FF0000&
      Height          =   5175
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      ToolTipText     =   "心情日记1.00版"
      Top             =   480
      Width           =   5295
   End
   Begin VB.Label Label1 
      BackColor       =   &H0000FF00&
      Caption         =   "        心情日记1.00版"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1200
      TabIndex        =   22
      Top             =   120
      Width           =   3495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim hf As String
Dim tq1 As String
Dim tq2 As String
Dim tq3 As String
Dim tq4 As String
Dim tq5 As String
Dim tq6 As String
Dim tq7 As String
Dim tq8 As String
Dim tq9 As String
Dim rq As String




Private Sub Check1_Click()
tq1 = "晴天"
End Sub

Private Sub Check2_Click()
tq2 = "阴天"
End Sub
Private Sub Check3_Click()
tq3 = "雨天"
End Sub
Private Sub Check4_Click()
tq4 = "下雪"
End Sub
Private Sub Check5_Click()
tq5 = "台风"
End Sub
Private Sub Check6_Click()
tq6 = "地震"
End Sub
Private Sub Check7_Click()
tq7 = "飓风"
End Sub
Private Sub Check8_Click()
tq8 = "冰雹"
End Sub
Private Sub Check9_Click()
tq9 = "世界末日"
End Sub

Private Sub Command2_Click()
'Form3.Show , Form1
End Sub

Private Sub Command3_Click()
Dim filenum As Integer
Dim FileName As String
Dim name As String
Dim kg As String
Dim kg2 As String
Dim kg3 As String
Dim xq As String
Dim xq1 As String
If Option1.Value = True Then
xq = "^_^"
End If
If Option2.Value = True Then
xq = "@_*"
End If
If Option3.Value = True Then
xq = "@_@"
End If
If Option4.Value = True Then
xq = "别理我！烦着呢！ "
End If
rq = "今天是："
name = ".txt"
kg = "    "
kg2 = "             "
kg3 = "天气:"
xq1 = "     今天的心情 ："
FileName = Text3.Text + name
filenum = FreeFile()
    Open FileName For Output As filenum
    Text1.Text = rq + Text3.Text + kg + Text5.Text + kg2 + kg3 + tq1 + tq2 + tq3 + tq4 + tq5 + tq6 + tq7 + tq8 + tq9 + xq1 + xq + (Chr(13)) + Text1.Text
    Print #filenum, Text1.Text
    Close filenum
'Dialog.Show , Form1
Text1.Text = ""



End Sub



Private Sub Command4_Click()
Form2.Show , Form1
End Sub

Private Sub Command5_Click()
hf = Text1.Text
Text1.Text = ""
Command7.Enabled = True
Command5.Enabled = False
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Command7_Click()
Text1.Text = hf
Command5.Enabled = True
Command7.Enabled = False
End Sub

Private Sub Form_Load()
Text3.Text = Date
Text5.Text = Time()

End Sub