📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
Caption = "事务提醒小秘"
ClientHeight = 2940
ClientLeft = 60
ClientTop = 600
ClientWidth = 4275
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2940
ScaleWidth = 4275
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ImageList ImageList1
Left = 360
Top = 1920
_ExtentX = 1005
_ExtentY = 1005
BackColor = 8388672
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":11A4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1A7E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":2358
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":2C32
Key = ""
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 960
Top = 2040
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 1000
Left = 1560
Top = 2040
End
Begin VB.TextBox Text2
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 3
Top = 1440
Width = 1215
End
Begin VB.TextBox Text1
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 2
Top = 840
Width = 3135
End
Begin VB.CommandButton command2
Caption = "确 定"
Height = 375
Left = 360
TabIndex = 1
ToolTipText = "确定并继续添加"
Top = 2280
Width = 1215
End
Begin VB.CommandButton command3
Caption = "添加完毕"
Height = 375
Left = 2760
TabIndex = 0
Top = 2280
Width = 1215
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 675
Left = 0
TabIndex = 6
Top = 0
Width = 4275
_ExtentX = 7541
_ExtentY = 1191
ButtonWidth = 1032
ButtonHeight = 1032
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "添加"
Key = "add"
Object.ToolTipText = "增加工作"
Object.Tag = "1"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "查看"
Key = "look"
Object.ToolTipText = "查看全部工作"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "音乐"
Key = "rework"
Object.ToolTipText = "选择提醒的音乐"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "下班"
Key = "home"
Object.ToolTipText = "退出"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关于"
Key = "about"
Object.ToolTipText = "说明"
ImageIndex = 5
EndProperty
EndProperty
End
Begin VB.Label Label2
Caption = "提醒时间"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 5
Top = 1440
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 120
TabIndex = 4
Top = 840
Width = 765
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub command2_Click()
w(i) = Text1.Text
t(i) = Text2.Text
i = i + 1
Text1.Text = ""
Text2.Text = Time
Text1.SetFocus
Toolbar1.Buttons(2).Enabled = True
End Sub
Private Sub command3_Click()
Label1.Caption = "现在是"
Label2.Visible = False
Text2.Visible = False
Form1.Caption = "事务提醒小秘"
command3.Visible = False
command2.Visible = False
End Sub
Private Sub Form_Load()
i = 1
Label1.Caption = "现在是"
Label2.Visible = False
Text2.Visible = False
Form1.Caption = "事务提醒小秘"
command3.Visible = False
command2.Visible = False
End Sub
Private Sub Timer1_Timer()
If command2.Visible = False Then
Text1.Text = " " & Date & " " & Time
End If
For p = 1 To i
If t(p) = Time Then
Form3.Show
Form3.Visible = True
Form1.Visible = False
Form2.Visible = False
Form3.Label2.Caption = w(p)
Form3.Label3.Caption = t(p)
End If
Next p
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "add"
command2.Visible = True
command3.Visible = True
Form1.Caption = "请吩咐>>>"
Label1.Caption = "工作内容"
Text1.Text = ""
Text2.Text = Time
Label2.Visible = True
Text2.Visible = True
Text1.SetFocus
Case "look"
Form2.Show
Form1.Visible = False
Case "rework"
start:
CommonDialog1.Filter = "所有文件(*.*) | *.*|MP3音频(*.MP3)|*.MP3"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
f = MsgBox(" 真的不要音乐提醒吗?", vbYesNo, "提示")
If f = 6 Then
Toolbar1.Buttons(1).Enabled = True
Else
GoTo start
End If
Exit Sub
Else
cd = CommonDialog1.FileName
Toolbar1.Buttons(1).Enabled = True
End If
Case "home"
Unload Me
End
Case "about"
Form1.Visible = False
frmAbout.Show
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -