?? 主窗體.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 + -