📄 frmhisinfo.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmHisInfo
BorderStyle = 3 'Fixed Dialog
Caption = "日志内容"
ClientHeight = 5625
ClientLeft = 45
ClientTop = 330
ClientWidth = 4935
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmHisInfo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5625
ScaleWidth = 4935
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin Manage.xpcmdButton cmdExit
Cancel = -1 'True
Default = -1 'True
Height = 350
Left = 3780
TabIndex = 13
Top = 5220
Width = 1095
_ExtentX = 1931
_ExtentY = 609
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "关闭(&C)"
ForeColor = -2147483630
End
Begin TabDlg.SSTab stbHistroy
Height = 5055
Left = 60
TabIndex = 0
Top = 60
Width = 4815
_ExtentX = 8493
_ExtentY = 8916
_Version = 393216
Style = 1
Tabs = 1
TabsPerRow = 1
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = " 内容"
TabPicture(0) = "frmHisInfo.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblInfo(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblInfo(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblInfo(2)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblInfo(3)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblInfo(4)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Line1"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Line2"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "lblInfo(5)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "lblText(0)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "lblText(1)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "lblText(2)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "lblText(3)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "lblText(4)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "ricText"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).ControlCount= 14
Begin RichTextLib.RichTextBox ricText
Height = 2175
Left = 120
TabIndex = 1
Top = 2760
Width = 4575
_ExtentX = 8070
_ExtentY = 3836
_Version = 393217
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 3
TextRTF = $"frmHisInfo.frx":0028
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblText
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty DataFormat
Type = 5
Format = ""
HaveTrueFalseNull= 1
TrueValue = "正常态"
FalseValue = "异常态"
NullValue = "运行态"
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 7
EndProperty
ForeColor = &H00FF0000&
Height = 180
Index = 4
Left = 1440
TabIndex = 12
Top = 2040
Width = 90
End
Begin VB.Label lblText
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 180
Index = 3
Left = 1440
TabIndex = 11
Top = 1680
Width = 90
End
Begin VB.Label lblText
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 180
Index = 2
Left = 1440
TabIndex = 10
Top = 1320
Width = 90
End
Begin VB.Label lblText
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 180
Index = 1
Left = 1440
TabIndex = 9
Top = 960
Width = 90
End
Begin VB.Label lblText
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 180
Index = 0
Left = 1440
TabIndex = 8
Top = 600
Width = 90
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "操作内容"
Height = 180
Index = 5
Left = 240
TabIndex = 7
Top = 2520
Width = 720
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 4680
Y1 = 2415
Y2 = 2415
End
Begin VB.Line Line1
BorderColor = &H00808080&
X1 = 120
X2 = 4680
Y1 = 2400
Y2 = 2400
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "状态"
Height = 180
Index = 4
Left = 600
TabIndex = 6
Top = 2040
Width = 360
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "退出时间"
Height = 180
Index = 3
Left = 240
TabIndex = 5
Top = 1680
Width = 720
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登录时间"
Height = 180
Index = 2
Left = 240
TabIndex = 4
Top = 1320
Width = 720
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "权限"
Height = 180
Index = 1
Left = 600
TabIndex = 3
Top = 960
Width = 360
End
Begin VB.Label lblInfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登录用户"
Height = 180
Index = 0
Left = 240
TabIndex = 2
Top = 600
Width = 720
End
End
End
Attribute VB_Name = "frmHisInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
stbHistroy.TabPicture(0) = MDIMain.iltPic.ListImages(11).Picture
With frmHistroy.dgdHistroy
lblText(0).Caption = .Columns(lblinfo(0).Caption).Text
lblText(1).Caption = .Columns(lblinfo(1).Caption).Text
lblText(2).Caption = .Columns(lblinfo(2).Caption).Text
lblText(3).Caption = .Columns(lblinfo(3).Caption).Text
lblText(4).Caption = .Columns(lblinfo(4).Caption).Text
ricText.Text = .Columns(lblinfo(5).Caption).Text
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -