📄 addguesttype.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmCatalog
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "备份恢复 [请从备份集中选择文件]"
ClientHeight = 3300
ClientLeft = 45
ClientTop = 330
ClientWidth = 5505
Icon = "AddGuestType.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3300
ScaleWidth = 5505
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
Caption = "详细说明"
Height = 1575
Left = 3430
TabIndex = 11
Top = 1560
Width = 1935
Begin VB.TextBox txtBakPath
Appearance = 0 'Flat
Height = 270
Left = 50
Locked = -1 'True
TabIndex = 13
Text = "Text1"
Top = 1200
Width = 1820
End
Begin VB.Label txtName
Caption = "备份名:"
Height = 255
Left = 45
TabIndex = 15
Top = 240
Width = 1695
End
Begin VB.Label Label2
Caption = "备份路径:"
Height = 255
Left = 45
TabIndex = 14
Top = 960
Width = 855
End
Begin VB.Label lblBakDate
Caption = "日期:"
Height = 255
Left = 45
TabIndex = 12
Top = 600
Width = 1695
End
End
Begin VB.CommandButton ExitB
Cancel = -1 'True
Caption = "关闭退出(&C)"
Height = 330
Left = 3430
TabIndex = 6
Top = 1200
Width = 1900
End
Begin VB.CommandButton DeleteB
Caption = "删除备份(&D)"
Height = 330
Left = 3430
TabIndex = 5
Top = 840
Width = 1900
End
Begin VB.CommandButton cmdModify
Caption = "修改名称(&M)"
Height = 330
Left = 3430
TabIndex = 4
Top = 480
Width = 1900
End
Begin ComctlLib.ListView ListView1
Height = 3015
Left = 165
TabIndex = 7
Top = 120
Width = 3225
_ExtentX = 5689
_ExtentY = 5318
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = 16777215
BackColor = 32768
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = ""
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = "a"
Object.Tag = ""
Text = ""
Object.Width = 2540
EndProperty
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 540
Left = 120
Picture = "AddGuestType.frx":030A
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 10
Top = 2640
Visible = 0 'False
Width = 540
End
Begin VB.PictureBox AddPicture
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 1440
Left = 3405
ScaleHeight = 1440
ScaleWidth = 1905
TabIndex = 8
Top = 1635
Visible = 0 'False
Width = 1900
Begin VB.CommandButton CancelRecord
Caption = "取消"
Height = 390
Left = 1000
TabIndex = 2
Top = 840
Width = 850
End
Begin VB.CommandButton SaveRecord
Caption = "还原"
Default = -1 'True
Enabled = 0 'False
Height = 390
Left = 100
TabIndex = 1
Top = 840
Width = 850
End
Begin VB.TextBox BakPath
Height = 300
Left = 75
TabIndex = 0
Top = 480
Width = 1800
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请输入备份文件路径"
ForeColor = &H000040C0&
Height = 180
Left = 165
TabIndex = 9
Top = 120
Width = 1620
End
End
Begin VB.CommandButton AddB
Caption = "备份还原(&R)"
Height = 330
Left = 3430
TabIndex = 3
Top = 120
Width = 1905
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 5415
X2 = 5415
Y1 = 15
Y2 = 3240
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 5400
X2 = 5400
Y1 = 15
Y2 = 3210
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 45
X2 = 45
Y1 = 30
Y2 = 3225
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 0
X1 = 30
X2 = 30
Y1 = 30
Y2 = 3225
End
Begin ComctlLib.ImageList ImageList1
Left = 1965
Top = 2355
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 3
X1 = 30
X2 = 5415
Y1 = 3225
Y2 = 3225
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 2
X1 = 15
X2 = 5415
Y1 = 3240
Y2 = 3240
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 30
X2 = 5400
Y1 = 30
Y2 = 30
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 30
X2 = 5400
Y1 = 15
Y2 = 15
End
End
Attribute VB_Name = "frmCatalog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim GTN As String
Dim NoChange As Boolean
Private Sub AddB_Click()
DeleteB.Enabled = False
ExitB.Enabled = False
AddB.Enabled = False
cmdModify.Enabled = False
Frame1.Visible = False
AddPicture.Visible = True
If GTN <> "" Then
BakPath.Text = ListView1.SelectedItem.Key
End If
'picDraw.Visible = False
'BakPath.SetFocus
End Sub
Private Sub AddB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
GetStatus "添加新的档案类型"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -