📄 frmfilereg.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form FrmFileReg
BorderStyle = 1 'Fixed Single
Caption = "文件信息"
ClientHeight = 6420
ClientLeft = 45
ClientTop = 330
ClientWidth = 7740
Icon = "FrmFileReg.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6420
ScaleWidth = 7740
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CmnDlg
Left = 360
Top = 4920
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin RichTextLib.RichTextBox RichTxtMain
Height = 375
Index = 0
Left = 120
TabIndex = 11
Top = 2640
Visible = 0 'False
Width = 495
_ExtentX = 873
_ExtentY = 661
_Version = 393217
ScrollBars = 3
TextRTF = $"FrmFileReg.frx":0442
End
Begin VB.CommandButton CmdMain
Caption = "..."
Height = 375
Index = 0
Left = 6360
TabIndex = 10
Top = 360
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton CmdRQ
Caption = "..."
Height = 375
Index = 0
Left = 2400
TabIndex = 7
Top = 0
Visible = 0 'False
Width = 495
End
Begin VB.TextBox TxtMain
ForeColor = &H00000000&
Height = 405
Index = 0
Left = 4320
TabIndex = 5
Top = 600
Visible = 0 'False
Width = 1455
End
Begin VB.ComboBox CbxMain
Height = 315
Index = 0
Left = 4080
TabIndex = 4
Top = 0
Visible = 0 'False
Width = 1815
End
Begin VB.PictureBox PicCmd
BorderStyle = 0 'None
Height = 615
Left = 360
ScaleHeight = 615
ScaleWidth = 6735
TabIndex = 0
Top = 3840
Width = 6735
Begin VB.CommandButton CmdNext
Caption = "下一页(&D)"
Height = 375
Left = 1200
TabIndex = 3
Top = 0
Width = 975
End
Begin VB.CommandButton CmdPre
Caption = "上一页(&U)"
Height = 375
Left = 480
TabIndex = 2
Top = 0
Width = 975
End
Begin VB.CommandButton CmdCancel
Caption = "返回(&R)"
Height = 375
Left = 3960
TabIndex = 1
Top = 0
Width = 1095
End
End
Begin MSMask.MaskEdBox MaskRQ
Height = 360
Index = 0
Left = 0
TabIndex = 8
Top = 0
Visible = 0 'False
Width = 2415
_ExtentX = 4260
_ExtentY = 635
_Version = 393216
MaxLength = 11
Format = "yyyy/mm/dd"
Mask = "####年##月##日"
PromptChar = "?"
End
Begin MSACAL.Calendar CalMain
Height = 2055
Index = 0
Left = 0
TabIndex = 9
Top = 360
Visible = 0 'False
Width = 4095
_Version = 524288
_ExtentX = 7223
_ExtentY = 3625
_StockProps = 1
BackColor = -2147483633
Year = 2000
Month = 12
Day = 5
DayLength = 1
MonthLength = 0
DayFontColor = 0
FirstDay = 2
GridCellEffect = 1
GridFontColor = 10485760
GridLinesColor = -2147483632
ShowDateSelectors= -1 'True
ShowDays = -1 'True
ShowHorizontalGrid= -1 'True
ShowTitle = -1 'True
ShowVerticalGrid= -1 'True
TitleFontColor = 10485760
ValueIsNull = 0 'False
BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ListView LVFile
Height = 735
Left = 840
TabIndex = 12
Top = 2520
Width = 1695
_ExtentX = 2990
_ExtentY = 1296
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "文件名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "文件类型"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "文件大小"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "文件创建日期"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "访问时间"
Object.Width = 2540
EndProperty
End
Begin TabDlg.SSTab TabMain
Height = 3615
Left = 4320
TabIndex = 14
Top = 2160
Width = 9255
_ExtentX = 16325
_ExtentY = 6376
_Version = 393216
Style = 1
Tabs = 2
Tab = 1
TabsPerRow = 1
TabHeight = 520
TabMaxWidth = 520
TabCaption(0) = "Tab 0"
TabPicture(0) = "FrmFileReg.frx":04DA
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "FrameSep(0)"
Tab(0).ControlCount= 1
TabCaption(1) = "Tab 1"
TabPicture(1) = "FrmFileReg.frx":04F6
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "LineCon(0)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "LineCon(1)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).ControlCount= 2
Begin VB.Frame FrameSep
Height = 125
Index = 0
Left = -75000
TabIndex = 15
Top = 1440
Width = 8415
End
Begin VB.Line LineCon
Index = 1
Visible = 0 'False
X1 = 360
X2 = 600
Y1 = 600
Y2 = 600
End
Begin VB.Line LineCon
Index = 0
Visible = 0 'False
X1 = 200
X2 = 220
Y1 = 960
Y2 = 960
End
End
Begin VB.Label LblTitle
Alignment = 2 'Center
Caption = "文件信息"
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5160
TabIndex = 13
Top = 1200
Width = 2055
End
Begin VB.Label LblMain
Caption = "label"
Height = 255
Index = 0
Left = 480
TabIndex = 6
Top = 360
Visible = 0 'False
Width = 1095
End
Begin VB.Menu mnupop
Caption = "mnupop"
Visible = 0 'False
Begin VB.Menu mnu_open
Caption = "文件浏览"
End
Begin VB.Menu mnu_user_sel
Caption = "手工选择"
End
End
End
Attribute VB_Name = "FrmFileReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public gCtlDistance As Long '控件间距
Public gTabWidth As Long '属性页宽度
Public gLabelWidth As Long '标题宽
Public gLabelHeight As Long '标题宽
Public gCmdWidth As Single '按钮宽和高
Public gLabelVDistance As Long '标题与控件垂直间距
Public gBaseHeight As Single '单位高
Public gBaseWidth As Single '单位宽
Public gFileRst '存放文件信息的结果集
'显示日期
Private Sub CalMain_Click(Index As Integer)
On Error GoTo Err
MaskRQ(Index).Text = Format(CalMain(Index).Value, "yyyy年mm月dd日")
CalMain(Index).Visible = False
Err:
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub CmdNext_Click()
If TabMain.Tabs = 1 Then Exit Sub
If TabMain.Tab < TabMain.Tabs - 1 Then
TabMain.Tab = TabMain.Tab + 1
Else
TabMain.Tab = TabMain.Tabs - 1
End If
End Sub
'翻页
Private Sub CmdPre_Click()
If TabMain.Tabs = 0 Then Exit Sub
If TabMain.Tab > 0 Then
TabMain.Tab = TabMain.Tab - 1
Else
TabMain.Tab = 1
End If
End Sub
'####################################################################
'显示日期控件函数
'####################################################################
Private Sub CmdRQ_Click(Index As Integer)
On Error GoTo Err
Dim tHPos As Integer '0左1右
Dim tVPos As Integer '0上1下
If IsControl(CalMain(Index)) = True Then
If CalMain(Index).Visible = True Then
CalMain(Index).Visible = False
Exit Sub
End If
End If
'添加控件
If AddControl(CalMain(Index)) = False Then CalMain(Index).Visible = False
Set CalMain(Index).Container = CmdRQ(Index).Container
'显示或隐
'If CalMain(Index).Visible = True Then
' CalMain(Index).Visible = False
' Exit Sub
'End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -