?? frmsyslog.frm
字號:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "Richtx32.ocx"
Begin VB.Form frmSysLog
BorderStyle = 3 'Fixed Dialog
Caption = "系統日志"
ClientHeight = 5595
ClientLeft = 45
ClientTop = 330
ClientWidth = 7860
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmSysLog.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5595
ScaleWidth = 7860
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1860
Top = 1605
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin RichTextLib.RichTextBox RichTextBox1
Height = 4200
Left = 180
TabIndex = 0
Top = 135
Width = 6240
_ExtentX = 11007
_ExtentY = 7408
_Version = 393217
BackColor = -2147483629
BorderStyle = 0
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
TextRTF = $"frmSysLog.frx":030A
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton cmdButton
Caption = "打印(&P)"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Index = 2
Left = 2970
Picture = "frmSysLog.frx":03A7
Style = 1 'Graphical
TabIndex = 3
Top = 4785
Width = 1095
End
Begin VB.CommandButton cmdButton
Cancel = -1 'True
Caption = "關閉(&C)"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Index = 3
Left = 4350
Picture = "frmSysLog.frx":04A9
Style = 1 'Graphical
TabIndex = 4
Top = 4785
Width = 1095
End
Begin VB.CommandButton cmdButton
Caption = "清除(&D)"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Index = 0
Left = 210
Picture = "frmSysLog.frx":07ED
Style = 1 'Graphical
TabIndex = 1
Top = 4740
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton cmdButton
Caption = "記錄(&A)..."
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Index = 1
Left = 1455
Picture = "frmSysLog.frx":08EF
Style = 1 'Graphical
TabIndex = 2
Top = 4755
UseMaskColor = -1 'True
Width = 1095
End
End
Attribute VB_Name = "frmSysLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'記錄設計時的窗體大小
Dim InitialHeight As Integer
Dim InitialWidth As Integer
Const iSpace As Integer = 150 '界面的間距
Private Sub cmdButton_Click(Index As Integer)
Select Case Index
Case 0 'cmdDeleteAll
Call cmdDeleteAll
Case 1 'cmdAddNew
Call cmdAddNew
Case 2 'cmdPrint
Call cmdPrint
Case 3
Unload Me
End Select
End Sub
Private Sub cmdDeleteAll()
Dim ret As VbMsgBoxResult
ret = vbNo
ret = MsgBox("清除所有的系統日志信息。是嗎？", vbInformation + vbYesNo, Me.Caption)
If ret = vbYes Then
'clear the system.log
Call ClearUpSystemLog
RichTextBox1.Text = ""
RichTextBox1.Refresh
RichTextBox1.SetFocus
End If
End Sub
Private Sub cmdAddNew()
Dim frm As frmAddToLog
Dim ret As String
Set frm = New frmAddToLog
Load frm
frm.Show vbModal
ret = frm.sysInfo
If ret = "" Then
Exit Sub
End If
'write sysinfo to "system.log"
Call WriteToLog(frm.sysInfo)
'read sysinfo
Call GetSystemLog
RichTextBox1.SetFocus
RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub
Private Sub cmdPrint()
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
CommonDialog1.CancelError = True
If RichTextBox1.SelLength = 0 Then
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
End If
CommonDialog1.ShowPrinter
RichTextBox1.SelPrint CommonDialog1.hDC
Exit Sub
ErrHandler:
' ErrMessageBox Me.Name & ":cmdPrint", Me.Caption
' '顯示錯誤日志
' Call GetSystemLog
End Sub
Private Sub Form_Load()
On Error GoTo ErrHandler
Screen.MousePointer = 11
'記錄窗體大小
InitialWidth = Me.Width
InitialHeight = Me.Height
'第一次啟動窗體時，將窗體限制在fMainForm內
Me.Left = 0
Me.Top = 0
Me.Width = fMainForm.ScaleWidth
Me.Height = fMainForm.ScaleHeight
'initilize the RichEditBox1
Call GetSystemLog
' '設置清除權限
' If IsArray(curUser) Then
' cmdButton(0).Enabled = curUser(yh_qcrz)
' End If
Screen.MousePointer = 0
Exit Sub
ErrHandler:
Screen.MousePointer = 0
'出錯處理
ErrMessageBox Me.Name & "：Form_Load()", Me.Caption
Resume Next
End Sub
Private Sub Form_Resize()
On Error GoTo ErrHandler
'如果窗體是最小化的，則不作計算
If Me.WindowState = vbMinimized Then
Exit Sub
End If
'限制窗體大小
If Me.Width < InitialWidth Then Me.Width = InitialWidth
If Me.Height < InitialHeight Then Me.Height = InitialHeight
'set datagrid1
RichTextBox1.Left = 0 'iSpace
RichTextBox1.Top = 0 'iSpace
RichTextBox1.Width = Me.ScaleWidth '- RichTextBox1.Left - iSpace
RichTextBox1.Height = Me.ScaleHeight - RichTextBox1.Top - 2 * iSpace - cmdButton(0).Height
'設置buttons的位置
Dim Index As Integer
cmdButton(0).Left = iSpace
cmdButton(0).Top = Me.ScaleHeight - iSpace - cmdButton(0).Height
For Index = 1 To cmdButton.Count - 2
cmdButton(Index).Left = cmdButton(Index - 1).Left + cmdButton(Index - 1).Width
cmdButton(Index).Top = cmdButton(0).Top
Next Index
Index = cmdButton.Count - 1 '最后一個按鈕
cmdButton(Index).Left = Me.ScaleWidth - iSpace - cmdButton(Index).Width
cmdButton(Index).Top = cmdButton(0).Top
Exit Sub
ErrHandler:
'出錯處理
ErrMessageBox Me.Name & "：Form_Resize()", Me.Caption
End Sub
Private Sub GetSystemLog()
Dim info As String
info = ReadFromLog()
RichTextBox1.Text = info
RichTextBox1.Refresh
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -