📄 主窗体.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{A48B552B-2824-4A6D-8272-7656FA347A66}#2.0#0"; "CnCalendar.ocx"
Begin VB.Form 主窗体
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3645
ClientLeft = 9450
ClientTop = 7665
ClientWidth = 4380
ControlBox = 0 'False
Icon = "主窗体.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3645
ScaleWidth = 4380
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 375
Left = 38
TabIndex = 5
Top = 390
Width = 4305
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H00C0E0FF&
Caption = "今天"
Height = 195
Left = 3840
TabIndex = 7
Top = 180
Width = 435
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 6
Top = 0
Width = 4275
End
End
Begin MSMask.MaskEdBox MaskEdBox1
Height = 345
Left = 2430
TabIndex = 3
ToolTipText = "请在这里输入形如:2004-01-01 的公历日期"
Top = 0
Width = 1305
_ExtentX = 2302
_ExtentY = 609
_Version = 393216
MaxLength = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = "####-##-##"
Mask = "####-##-##"
PromptChar = " "
End
Begin VB.Timer Timer1
Interval = 500
Left = 1380
Top = 420
End
Begin 工程1.CnCalendar CnCalendar1
Height = 3225
Left = 15
TabIndex = 1
Top = 390
Width = 4350
_ExtentX = 7673
_ExtentY = 5689
DateBackColor = 16777215
TitleBackColor = 16744576
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "公历转农历"
Height = 195
Left = 1500
TabIndex = 4
Top = 60
Width = 915
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "返回"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 3780
TabIndex = 2
Top = 60
Width = 555
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00400000&
Caption = "00:00:00"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 375
Left = 0
TabIndex = 0
Top = -30
Width = 1485
End
Begin VB.Menu zj
Caption = "zj"
Visible = 0 'False
Begin VB.Menu zx
Caption = "注销"
End
Begin VB.Menu dj
Caption = "待机"
End
Begin VB.Menu cq
Caption = "重启"
End
Begin VB.Menu gb
Caption = "关闭"
End
End
Begin VB.Menu zct
Caption = "zct"
Visible = 0 'False
Begin VB.Menu xinj
Caption = "新建定时任务"
End
Begin VB.Menu dslb
Caption = "定时列表"
End
Begin VB.Menu sjxg
Caption = "时间相关"
Begin VB.Menu miaob
Caption = "秒表"
End
Begin VB.Menu sjtz
Caption = "系统时间调整"
End
Begin VB.Menu sjxs
Caption = "系统连续运行时间"
End
End
Begin VB.Menu xt
Caption = "-"
End
Begin VB.Menu CdromCLOSE
Caption = "光驱进盒"
End
Begin VB.Menu CdromOPEN
Caption = "光驱出盒"
End
Begin VB.Menu fgx
Caption = "-"
End
Begin VB.Menu zqgn
Caption = "增强功能"
Begin VB.Menu MediumPlayer
Caption = "媒体播放器"
End
Begin VB.Menu wannl
Caption = "万年历"
End
Begin VB.Menu Yunx
Caption = "运行……"
End
Begin VB.Menu fg3
Caption = "-"
End
Begin VB.Menu zhuxiao
Caption = "注销"
End
Begin VB.Menu chongq
Caption = "重启"
End
Begin VB.Menu daiji
Caption = "待机"
End
Begin VB.Menu guanj
Caption = "关机"
End
End
Begin VB.Menu fg2
Caption = "-"
End
Begin VB.Menu biaoti
Caption = "进入标题栏"
End
Begin VB.Menu zuiqian
Caption = "总在最上"
End
Begin VB.Menu yinc
Caption = "自动隐藏"
End
Begin VB.Menu fg1
Caption = "-"
End
Begin VB.Menu tsb
Caption = "色彩配置"
End
Begin VB.Menu guanyu
Caption = "关于"
End
Begin VB.Menu exit
Caption = "退出"
End
End
End
Attribute VB_Name = "主窗体"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetTickCount Lib "kernel32" () As Long '获取系统运行时间
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Dim mybox As String '弹出窗口返回的被点击按钮
Public reswidth As Integer '窗口宽度
Public kg As Boolean '是否隐藏
Public kg1 As Boolean '是否进入标题栏
Public rws As Integer '今天要执行的任务数
Public xx As String '提示消息
Public yy As String '执行的操作
Public yjkg As Boolean '右键开关,控制右键菜单的显示否
Public abc As Integer '记录任务数
Public MyName As String '文件位置
Private Sub biaoti_Click() '进入标题栏
If biaoti.Checked = False Then
biaoti.Checked = True
kg1 = True
JubingM = 0
写入创建 "form", "biaoti", "True", MyName
Else
biaoti.Checked = False
kg1 = False
Huanyuan
JubingM = 0
写入创建 "form", "biaoti", "False", MyName
End If
End Sub
Private Sub CdromCLOSE_Click() '关闭光驱
closecdrom
End Sub
Private Sub CdromOPEN_Click() '打开光驱
opencdrom
End Sub
Private Sub chongq_Click() '重启
mybox = MsgBox(" 真的要重启吗?" + Chr(13) & Chr(10) + "如果重启请保存好你的资料!!", vbYesNo + vbExclamation + vbDefaultButton2, "确定")
If mybox = 6 Then
Call reboot
exit_Click
Else
End If
End Sub
Private Sub CnCalendar1_Click() '日历查询
Label4.Caption = "查询的日期是:" + CStr(CnCalendar1.Value) + " 属相是:" + CnCalendar1.GetChineseAnimal
End Sub
Private Sub daiji_Click() '进入待机
mybox = MsgBox("真的要进入待机吗?", vbYesNo + vbExclamation + vbDefaultButton2, "确定")
If mybox = 6 Then
Call xiumian
Else
End If
End Sub
Private Sub dslb_Click() '显示定时列表
定时列表.Show
End Sub
Sub exit_Click() '退出
写入创建 "form", "left", Me.Left, MyName '记录窗口位置
写入创建 "form", "top", Me.Top, MyName
写入创建 "MyHwnd", vbNullString, vbNullString, MyName '清除句柄,任务数
写入创建 "Time", vbNullString, vbNullString, MyName
Unload Me
End Sub
Private Sub Form_Load()
yjkg = True '显示右键菜单
Dim aa As String
Dim sz(4) As String
Dim cd As Integer
Dim wz As Integer
kg1 = False
kg = False
XTSJXS.Y = GetTickCount \ 1000 '初始启动时间
MyHwnd = CStr(Me.hwnd) '记录程序的句柄
If Right(App.Path, 1) = "\" Then '初始记录文件路径
MyName = App.Path + "time.ini"
Else
MyName = App.Path + "\time.ini"
End If
FindAdd MyName '检查程序是否重复运行
Call jlrw '记录今天要执行的任务
读取小节 "form", aa, MyName '查看是否存在初始文件
If aa = "" Or aa = " " Then '不存在就创建
写入创建 "form", "BiaoTi", "False", MyName '初始为不进入标题栏
写入创建 "form", "autohide", "False", MyName '不自动隐藏
写入创建 "form", "ZuiQian", "False", MyName '不在最前
写入创建 "form", "top", "0", MyName '位置在左上角
写入创建 "form", "left", "0", MyName
End If
读取 "form", "biaoti", sz(0), MyName '判断是否进入标题栏
If sz(0) = "True" Then
biaoti.Checked = True
kg1 = True
End If
读取 "form", "autohide", sz(1), MyName '判断是否自动隐藏
If sz(1) = "True" Then
yinc.Checked = True
kg = True
End If
读取 "form", "zuiqian", sz(2), MyName '判断窗口是否在最前
If sz(2) = "True" Then
zuiqian.Checked = True
SetFormTopmost 主窗体
End If
读取 "form", "left", sz(3), MyName '初始化窗口位置
If sz(3) = "0" Or sz(3) = "No" Then
Me.Left = (Screen.Width - Me.Width) / 2
Else
Me.Left = Val(sz(3))
End If
读取 "form", "top", sz(4), MyName
If sz(4) = "0" Or sz(4) = "No" Then
Me.Top = (Screen.Height - Me.Height) / 2
Else
Me.Top = Val(sz(4))
End If
Call tisi '初始窗口提示
AddToTray Me, zct, zj
SetTrayTip 主窗体.Label1.ToolTipText
End Sub
Private Sub Form_Unload(Cancel As Integer)
FindDel
RemoveFromTray
End
End Sub
Private Sub guanj_Click() '关机
mybox = MsgBox("真的要关机吗?" + Chr(13) & Chr(10) + "如果关机请保存好你的资料!!", vbYesNo + vbExclamation + vbDefaultButton2, "确定")
If mybox = 6 Then
Call shutdown
exit_Click
Else
End If
End Sub
Private Sub guanyu_Click() '调用关于对话框
frmAbout.Show
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton And yjkg = True Then '右键菜单
PopupMenu zct
Else
ReleaseCapture '移动无标题窗体
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
'上述两种方法都能实现该功能。
End If
End Sub
Private Sub Label2_Click() '隐藏万年历
Me.Height = 420
Me.Width = 1575
End Sub
Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '3D效果
Label2.BorderStyle = 1
End Sub
Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.BorderStyle = 0
End Sub
Private Sub Label5_Click() '万年历定位为今天
Call tisi
End Sub
Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '3D效果
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -