📄 form1.frm

📁 这是一个带公历农历日历及查询、并带有自动关机
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23


Private Sub Command1_Click()

    CalendarX1.SolarYear = Year(Now)
    CalendarX1.SolarMonth = Month(Now)
    CalendarX1.SolarDay = Day(Now)
    CalendarX1.SolarToLunar
    Tgln.Text = CalendarX1.SolarYear
    Tgly.Text = CalendarX1.SolarMonth
    Tglr.Text = CalendarX1.SolarDay
    Tnln.Text = CalendarX1.LunarYear
    Tnly.Text = CalendarX1.LunarMonth
    Tnlr.Text = CalendarX1.LunarDay
    Ttgn.Text = CalendarX1.GzYear
    Ttgy.Text = CalendarX1.GzMonth
    Ttgr.Text = CalendarX1.GzDay
    Labelsx.Caption = "生肖：" + CalendarX1.Animal
    Labelxq.Caption = "星期" + CalendarX1.Weekday


If zd = 0 Then
'oldTime = Time
    If Not IsDate(Text1.Text) Then '用IsData函数判断输入的时间格式
       MsgBox "你所输入的不是时间格式,请修改!", , "Wrong"
    ElseIf Option1.Value Then
        txtTime = TimeValue(Text1.Text)
        If Text2.Text <> "" Then
        txtTime1 = TimeValue(Text2.Text)
        End If
        Timer1.Enabled = True   '启动定时器
        Me.Caption = "定时关机-启动"
    ElseIf Option2.Value Then
        Me.Caption = "定时关机-暂停"
        Timer1.Enabled = False
    End If

    entry1 = Text2.Text
    r = WritePrivateProfileString("注册信息", "上午关机时间", entry1, iniPath)
    If r <> 1 Then MsgBox "写上午关机时间出错！"
    entry$ = Text1.Text
    r = WritePrivateProfileString("注册信息", "下午关机时间", entry, iniPath)
    If r <> 1 Then MsgBox "写下午关机时间出错！"

    If (Text1.Text <> "" Or Text2.Text <> "") Then Timer2.Enabled = True
Else
  If Not IsDate(Text1.Text) Then '用IsData函数判断输入的时间格式
       MsgBox "你所输入的不是时间格式,请修改!", , "Wrong"
    ElseIf Option1.Value Then
        txtTime = TimeValue(Text1.Text)
        If Text2.Text <> "" Then
        txtTime1 = TimeValue(Text2.Text)
        End If
        Timer1.Enabled = True   '启动定时器
        Me.Caption = "定时关机-启动"
    ElseIf Option2.Value Then
        Me.Caption = "定时关机-暂停"
        Timer1.Enabled = False
    End If

 entry1 = Text2.Text
    r = WritePrivateProfileString("注册信息", "上午关机时间", entry1, iniPath)
    If r <> 1 Then MsgBox "写上午关机时间出错！"
 entry$ = Text1.Text
    r = WritePrivateProfileString("注册信息", "下午关机时间", entry, iniPath)
    If r <> 1 Then MsgBox "写下午关机时间出错！"
    AddToTray Me, mnuTray
    SetTrayTip "公历" & Tgln.Text & "-" & Tgly.Text & "-" & Tglr.Text & " " & "农历" & Tnln.Text & "-" & Tnly.Text & "-" & Tnlr.Text & " " & Labelxq.Caption '"定时关机"
    Me.Hide
    End If
    
End Sub

Private Sub Command2_Click()
End
End Sub



Private Sub Command5_Click()
    CalendarX1.SolarYear = Year(Now)
    CalendarX1.SolarMonth = Month(Now)
    CalendarX1.SolarDay = Day(Now)
    CalendarX1.SolarToLunar
    Tgln.Text = CalendarX1.SolarYear
    Tgly.Text = CalendarX1.SolarMonth
    Tglr.Text = CalendarX1.SolarDay
    Tnln.Text = CalendarX1.LunarYear
    Tnly.Text = CalendarX1.LunarMonth
    Tnlr.Text = CalendarX1.LunarDay
    Ttgn.Text = CalendarX1.GzYear
    Ttgy.Text = CalendarX1.GzMonth
    Ttgr.Text = CalendarX1.GzDay
    Labelsx.Caption = "生肖：" + CalendarX1.Animal
    Labelxq.Caption = "星期" + CalendarX1.Weekday
    Option4.Value = False
    Option3.Value = False
End Sub

Private Sub Form_Load()
    Call CheckExist(Me)
    js = 30
    t = 0
    zd = 0
'    ztzt = 0
    Serverlistxs = 0
    Option1.Value = True
'    RegisterServiceProcess GetCurrentProcessId, 1 'Hide app
    Me.Caption = "定时关机"


    Me.Option1.Caption = "启动定时关机(时间格式：00:00:00)"
    Me.Option2.Caption = "暂停定时关机"
    Me.Command1.Caption = "确定"



    Me.Text1 = GetSetting("ShutDownWindows", "Options", "ShutDownTime", "16：58：00")
    Me.Timer1.Interval = 1000

    
    If WindowState = vbMinimized Then
        LastState = vbNormal
    Else
        LastState = WindowState
    End If

iniPath$ = App.Path + "\closejsj.ini"
Text2.Text = GetFromINI("注册信息", "上午关机时间", iniPath)
Text1.Text = GetFromINI("注册信息", "下午关机时间", iniPath)
If Text2.Text <> "" Or Text1.Text <> "" Then
Timer2.Enabled = True
End If
If Not IsDate(Text1.Text) Then '用IsData函数判断输入的时间格式
       MsgBox "你所输入的不是时间格式,请修改!", , "Wrong"
    ElseIf Option1.Value Then
        txtTime = TimeValue(Text1.Text)
        If Text2.Text <> "" Then
        txtTime1 = TimeValue(Text2.Text)
        End If
        Timer1.Enabled = True   '启动定时器
        Me.Caption = "定时关机-启动"
    ElseIf Option2.Value Then
        Me.Caption = "定时关机-暂停"
        Timer1.Enabled = False
End If

    entry1$ = Text2.Text
    r = WritePrivateProfileString("注册信息", "上午关机时间", entry1, iniPath)
    If r <> 1 Then MsgBox "写上午关机时间出错！"
    entry$ = Text1.Text
    r = WritePrivateProfileString("注册信息", "下午关机时间", entry, iniPath)
    If r <> 1 Then MsgBox "写下午关机时间出错！"

    If (Text1.Text <> "" Or Text2.Text <> "") Then Timer2.Enabled = True
    
    CalendarX1.SolarYear = Year(Now)
    CalendarX1.SolarMonth = Month(Now)
    CalendarX1.SolarDay = Day(Now)
    CalendarX1.SolarToLunar
    Tgln.Text = CalendarX1.SolarYear
    Tgly.Text = CalendarX1.SolarMonth
    Tglr.Text = CalendarX1.SolarDay
    Tnln.Text = CalendarX1.LunarYear
    Tnly.Text = CalendarX1.LunarMonth
    Tnlr.Text = CalendarX1.LunarDay
    Ttgn.Text = CalendarX1.GzYear
    Ttgy.Text = CalendarX1.GzMonth
    Ttgr.Text = CalendarX1.GzDay
    Labelsx.Caption = "生肖：" + CalendarX1.Animal
    Labelxq.Caption = "星期" + CalendarX1.Weekday
    
    Tn.Text = Year(Now)
    Tn.Refresh
    Ty.Text = Month(Now)
    Tr.Text = Day(Now)
    
    Txdrq.Text = Date
    Txdsj.Text = Time
    lhHotkey1.AllowedHotKey
 End Sub

' Important! Remove the tray icon.
Private Sub Form_Unload(Cancel As Integer)
    RemoveFromTray
End Sub



Private Sub Frame1_DblClick()
    CalendarX1.SolarYear = Year(Now)
    CalendarX1.SolarMonth = Month(Now)
    CalendarX1.SolarDay = Day(Now)
    CalendarX1.SolarToLunar
    Tgln.Text = CalendarX1.SolarYear
    Tgly.Text = CalendarX1.SolarMonth
    Tglr.Text = CalendarX1.SolarDay
    Tnln.Text = CalendarX1.LunarYear
    Tnly.Text = CalendarX1.LunarMonth
    Tnlr.Text = CalendarX1.LunarDay
    Ttgn.Text = CalendarX1.GzYear
    Ttgy.Text = CalendarX1.GzMonth
    Ttgr.Text = CalendarX1.GzDay
    Labelsx.Caption = "生肖：" + CalendarX1.Animal
    Labelxq.Caption = "星期" + CalendarX1.Weekday
End Sub

Private Sub lhHotkey1_HotKeyPressed()
ServerList.Show
End Sub

Private Sub mnucloseCD_Click()
'关闭
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub

Private Sub mnuclosecomputer_Click()
Module1.ShutDownPC True
End Sub

Private Sub mnucq_Click()
RebootPC True
End Sub

Private Sub mnufxx_Click()
ServerList.Show
Serverlistxs = 1
End Sub

Private Sub mnugjsz_Click()
Form1.Show
RemoveFromTray
End Sub

Private Sub mnuopenCD_Click()
'打开
Call CDdoor("set CDAudio door open", 0, 0, 0)
End Sub

Private Sub mnutc_Click()
End
End Sub

Private Sub mnuzx_Click()
LogOff True
End Sub

Private Sub Option1_Click()
Timer1.Enabled = True
End Sub

Private Sub Option2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Form2.Visible = False
End Sub

Private Sub Option3_Click()
'If Option3.Value = True Then
If Tn.Text < 1900 Then
MsgBox "查询年代超出范围!"
Tn.Text = 1900
Ty.Text = 1
Tr.Text = 31
ElseIf ((Tn.Text = 1900) And (Ty.Text = 1) And (Tr.Text < 31)) Then
MsgBox "查询年代超出范围!"
Ty.Text = 1
Tr.Text = 31
ElseIf Tn.Text > 2049 Then
MsgBox "查询年代超出范围!"
Tn.Text = 2049
Else
    CalendarX1.LunarYear = Tn.Text
    CalendarX1.LunarMonth = Ty.Text
    CalendarX1.LunarDay = Tr.Text
    CalendarX1.LunarToSolar
    Tgln.Text = CalendarX1.SolarYear
    Tgly.Text = CalendarX1.SolarMonth
    Tglr.Text = CalendarX1.SolarDay
    Tnln.Text = CalendarX1.LunarYear
    Tnly.Text = CalendarX1.LunarMonth
    Tnlr.Text = CalendarX1.LunarDay
    Ttgn.Text = CalendarX1.GzYear
    Ttgy.Text = CalendarX1.GzMonth
    Ttgr.Text = CalendarX1.GzDay
    Labelsx.Caption = "生肖：" + CalendarX1.Animal
    Labelxq.Caption = "星期" + CalendarX1.Weekday
End If
End Sub

Private Sub Option4_Click()
'If Option3.Value = True Then
If Tn.Text < 1900 Then
MsgBox "查询年代超出范围!"
Tn.Text = 1900
Ty.Text = 1
Tr.Text = 31
ElseIf ((Tn.Text = 1900) And (Ty.Text = 1) And (Tr.Text < 31)) Then
MsgBox "查询年代超出范围!"
Ty.Text = 1
Tr.Text = 31
ElseIf Tn.Text > 2049 Then
MsgBox "查询年代超出范围!"
Tn.Text = 2049
Else
    CalendarX1.SolarYear = Tn.Text
    CalendarX1.SolarMonth = Ty.Text
    CalendarX1.SolarDay = Tr.Text
    CalendarX1.SolarToLunar
    Tgln.Text = CalendarX1.SolarYear
    Tgly.Text = CalendarX1.SolarMonth
    Tglr.Text = CalendarX1.SolarDay
    Tnln.Text = CalendarX1.LunarYear
    Tnly.Text = CalendarX1.LunarMonth
    Tnlr.Text = CalendarX1.LunarDay
    Ttgn.Text = CalendarX1.GzYear
    Ttgy.Text = CalendarX1.GzMonth
    Ttgr.Text = CalendarX1.GzDay
    Labelsx.Caption = "生肖：" + CalendarX1.Animal
    Labelxq.Caption = "星期" + CalendarX1.Weekday
End If
End Sub

Private Sub Timer1_Timer()
nowTime = Time
If ((DateDiff("s", nowTime, txtTime) <= 0 And DateDiff("s", nowTime, txtTime) >= -(300 + js)) Or (DateDiff("s", nowTime, txtTime1) <= 0 And DateDiff("s", nowTime, txtTime1) >= -(300 + js))) Then
    If js > 0 Then
    Form2.Show
    Form2.Label1.Caption = "请保存程序，计算机将在" + Str(js) + "秒后关机!"
    js = js - 1
    ElseIf js <= 0 Then
    Module1.ShutDownPC True
    Timer1.Enabled = False
    End If
Else
Label2.Caption = Time
Timer1.Enabled = True
Form2.Hide
End If
End Sub

Private Sub Timer2_Timer()
t = t + 1
If t = 1 Then
AddToTray Me, mnuTray
SetTrayTip "公历" & Tgln.Text & "-" & Tgly.Text & "-" & Tglr.Text & " " & "农历" & Tnln.Text & "-" & Tnly.Text & "-" & Tnlr.Text & " " & Labelxq.Caption '"定时关机"
Me.Hide
zd = 1
End If
End Sub
上一页 1 23
💿 文件大小 90 K
👤 上传用户 kzdai22
📂 所属分类 *行业应用
🏷️ 相关标签

#农历 #查询 #自动关机
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -