📄 日记窗口.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.ocx"
Begin VB.Form Form6
BorderStyle = 3 'Fixed Dialog
Caption = "日记程序"
ClientHeight = 5535
ClientLeft = 45
ClientTop = 735
ClientWidth = 8655
LinkTopic = "Form6"
MaxButton = 0 'False
ScaleHeight = 5535
ScaleWidth = 8655
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command11
Caption = "插入日记目录"
Height = 375
Left = 5790
TabIndex = 21
Top = 5025
Width = 1275
End
Begin VB.CommandButton Command10
Caption = "刷新日记"
Height = 375
Left = 5790
TabIndex = 20
Top = 4560
Width = 1275
End
Begin VB.CommandButton Command9
Caption = "消除内容"
Height = 375
Left = 5790
TabIndex = 18
Top = 4080
Width = 1275
End
Begin VB.CommandButton Command8
Caption = "使用说明"
Height = 375
Left = 5790
TabIndex = 17
Top = 3600
Width = 1275
End
Begin VB.CommandButton Command7
Caption = "取消隐藏内容"
Enabled = 0 'False
Height = 375
Left = 5790
TabIndex = 16
Top = 3120
Width = 1275
End
Begin VB.CommandButton Command6
Caption = "隐藏日记内容"
Height = 375
Left = 5790
TabIndex = 15
Top = 2400
Width = 1275
End
Begin VB.CommandButton Command5
Caption = "加入当前时间"
Height = 375
Left = 5790
TabIndex = 14
Top = 1920
Width = 1275
End
Begin VB.CommandButton Command4
Caption = "删除选定日记"
Height = 375
Left = 5790
TabIndex = 13
Top = 1440
Width = 1275
End
Begin VB.CommandButton Command3
Caption = "保存日记"
Height = 375
Left = 5790
TabIndex = 12
Top = 960
Width = 1275
End
Begin VB.CommandButton Command2
Caption = "添加今天日记"
Height = 375
Left = 5790
TabIndex = 11
Top = 480
Width = 1275
End
Begin VB.CommandButton Command1
Caption = "转到"
Height = 360
Left = 4920
TabIndex = 10
Top = 70
Width = 615
End
Begin VB.Timer Timer2
Interval = 5
Left = 7920
Top = 240
End
Begin VB.ListBox List1
ForeColor = &H000040C0&
Height = 4920
Left = 7080
TabIndex = 8
Top = 480
Width = 1560
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 4920
Left = 0
TabIndex = 7
Top = 480
Width = 5775
_ExtentX = 10186
_ExtentY = 8678
_Version = 393217
ScrollBars = 2
TextRTF = $"日记窗口.frx":0000
End
Begin VB.ComboBox Combo3
ForeColor = &H0000C000&
Height = 300
Left = 3840
TabIndex = 6
Text = "省略"
Top = 120
Width = 975
End
Begin VB.ComboBox Combo2
ForeColor = &H00808000&
Height = 300
Left = 2440
TabIndex = 4
Text = "Combo2"
Top = 120
Width = 855
End
Begin VB.ComboBox Combo1
ForeColor = &H00FF00FF&
Height = 300
Left = 1340
TabIndex = 3
Text = "Combo1"
Top = 120
Width = 975
End
Begin VB.TextBox Text1
ForeColor = &H000000FF&
Height = 270
Left = 450
TabIndex = 0
Text = "Text1"
Top = 120
Width = 615
End
Begin VB.Timer Timer1
Interval = 1024
Left = 3360
Top = 2640
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "2005-11-24"
ForeColor = &H000000FF&
Height = 255
Left = 6360
TabIndex = 19
Top = 120
Width = 2295
End
Begin VB.Label Label5
Alignment = 2 'Center
ForeColor = &H00C0C000&
Height = 255
Left = 5760
TabIndex = 9
Top = 2880
Width = 1335
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "天气"
ForeColor = &H00FF0000&
Height = 255
Left = 3360
TabIndex = 5
Top = 150
Width = 495
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "年"
ForeColor = &H00FF0000&
Height = 255
Left = 1100
TabIndex = 2
Top = 150
Width = 255
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "日期"
ForeColor = &H00FF0000&
Height = 255
Left = 30
TabIndex = 1
Top = 150
Width = 495
End
Begin VB.Menu xxxx
Caption = "菜单(&E)"
Begin VB.Menu ZZ11
Caption = "添加日记"
Shortcut = {F1}
End
Begin VB.Menu zz22
Caption = "保存日记"
Shortcut = ^S
End
Begin VB.Menu zz33
Caption = "删除日记(&D)"
Shortcut = +{DEL}
End
Begin VB.Menu zz55
Caption = "最小化(&I)"
Shortcut = ^I
End
Begin VB.Menu zz66
Caption = "使用说明(&Y)"
Shortcut = {F2}
End
Begin VB.Menu comm
Caption = "隐藏日记内容"
Shortcut = {F3}
End
Begin VB.Menu zz77
Caption = "刷新日记"
Shortcut = {F5}
End
Begin VB.Menu zz44
Caption = "退出(&X)"
Shortcut = ^X
End
End
Begin VB.Menu bqad1
Caption = "编辑(&F)"
Begin VB.Menu bciibqad1
Caption = "取消隐藏内容"
Shortcut = {F4}
End
Begin VB.Menu lfgc1
Caption = "转到所选日记"
Shortcut = ^D
End
Begin VB.Menu lkty1
Caption = "加入日记目录"
Shortcut = ^L
End
Begin VB.Menu rtty1
Caption = "插入日记目录"
Shortcut = ^K
End
Begin VB.Menu igpw1
Caption = "清空内容"
Shortcut = ^Y
End
Begin VB.Menu ivue1
Caption = "当前时间插入"
Shortcut = ^N
End
End
Begin VB.Menu iiiiii
Caption = "|"
End
Begin VB.Menu add
Caption = "ADD"
End
Begin VB.Menu Save001
Caption = "Save"
End
Begin VB.Menu delete001
Caption = "Delete"
End
Begin VB.Menu cls001
Caption = "CLS"
End
Begin VB.Menu exit001
Caption = "EXIT"
End
Begin VB.Menu IYUJ001
Caption = "暂不支持繁体或某特殊符号"
End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Wid As Long
Private Sub add_Click()
command2_Click
End Sub
Private Sub bciibqad1_Click()
If Command7.Enabled = False Then Exit Sub
command7_Click
End Sub
Private Sub cls001_Click()
command9_Click
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Combo2_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub comm_Click()
If RichTextBox1.Text = vbNullString Then Exit Sub
Command6.Enabled = False
Command3.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
xxxx.Enabled = False
Command7.Enabled = True
Command7.SetFocus
RichTextBox1.Font.Size = 5
End Sub
Private Sub command1_Click()
If FileExists(Pathh & Text1.Text & "年" & Combo1.Text & Combo2.Text & ".gui") = False Then MsgBox "没有搜索到" & Text1.Text & "年" & Combo1.Text & Combo2.Text & "的日记！请确定月份选择中会否有用到其他类型表示后再查找。": Exit Sub
FalX = False
Dim Mytext As String
Dim w
Filenamex1 = Text1.Text & "年" & Combo1.Text & Combo2.Text & ".gui"
Filenamex1 = Pathh & Filenamex1
Open Filenamex1 For Input As #1
RichTextBox1 = vbNullString
While Not EOF(1)
Line Input #1, w
RichTextBox1.Text = RichTextBox1.Text + w + Chr(13) + Chr(10)
Wend
Close #1
intForm = 9
intTo = Len(RichTextBox1.Text) - 3
getseed (Password1)
mi
bye:
Form6.MousePointer = 1
dirty = False
w = vbNullString
If Trim$(Mid(RichTextBox1.Text, 15, 4)) <> vbNullString Then Combo3.Text = Trim$(Mid(RichTextBox1.Text, 14, 6))
If Len(Combo3.Text) > 5 Then Combo3.Text = Right$(Combo3.Text, 4)
If Left$(Combo3.Text, 2) = "气:" Then Combo3.Text = Mid(Combo3.Text, 3, Len(Combo3.Text) - 2)
If Left$(Combo3.Text, 1) = ":" Then Combo3.Text = Mid(Combo3.Text, 2, Len(Combo3.Text) - 1)
End Sub
Private Sub Command10_Click()
Form_Activate
End Sub
Private Sub Command11_Click()
rtty1_Click
End Sub
Private Sub command2_Click()
Dim a As Long, i%
a = Val(Mid(Date, 8, 3))
If a < 0 Then a = -a
Text1.Text = Mid(Date, 1, 4)
RichTextBox1.Text = vbNullString
Select Case Val(Mid(Date, 6, 2))
Case 1
Combo1.Text = "01月"
Combo3.Text = "寒冷"
Case 2
Combo1.Text = "02月"
Combo3.Text = "冷"
Case 3
Combo1.Text = "03月"
Combo3.Text = "小雨"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -