?? form_path.frm
字號:
VERSION 5.00
Begin VB.Form Frm_Path
BorderStyle = 1 'Fixed Single
Caption = "文件路徑"
ClientHeight = 3780
ClientLeft = 3510
ClientTop = 2070
ClientWidth = 4845
Icon = "Form_Path.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3780
ScaleWidth = 4845
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "取消&C"
Height = 315
Index = 1
Left = 3630
TabIndex = 5
Top = 3390
Width = 1155
End
Begin VB.CommandButton Command1
Caption = "確定&D"
Height = 315
Index = 0
Left = 2040
TabIndex = 4
Top = 3390
Width = 1155
End
Begin VB.Frame Frame1
Caption = "文件路徑"
Height = 3225
Left = 60
TabIndex = 0
Top = 60
Width = 4725
Begin VB.TextBox Text1
Height = 315
Left = 90
Locked = -1 'True
TabIndex = 3
Top = 210
Width = 4545
End
Begin VB.DriveListBox Drive1
Appearance = 0 'Flat
Height = 300
Left = 90
TabIndex = 2
Top = 570
Width = 4545
End
Begin VB.DirListBox Dir1
Height = 2190
Left = 90
TabIndex = 1
Top = 930
Width = 4545
End
End
End
Attribute VB_Name = "Frm_Path"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
If Index = 1 Then Unload Me: Exit Sub
PathStr = Trim(Text1.Text)
Unload Me
End Sub
Private Sub Dir1_Change()
Text1.Text = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err <> 0 Then Drive1.Drive = Dir1.Path
End Sub
Private Sub Form_Load()
PathStr = ""
Dir1.Path = App.Path
Drive1.Drive = App.Path
Text1 = Dir1.Path
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -