?? selectpath.frm
字號:
VERSION 5.00
Begin VB.Form SelectPath
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "請選擇路徑"
ClientHeight = 3195
ClientLeft = 45
ClientTop = 330
ClientWidth = 4575
Icon = "SelectPath.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3195
ScaleWidth = 4575
StartUpPosition = 1 '所有者中心
Begin VB.TextBox PathList
Height = 315
Left = 180
Locked = -1 'True
TabIndex = 6
Top = 300
Width = 2265
End
Begin VB.Frame Frame1
Height = 1380
Left = 2655
TabIndex = 4
Top = 1620
Width = 1665
Begin VB.Label Label1
Caption = "請選擇要備份的數據磁盤和路徑,然后按確定按鈕,否則按取消按鈕。"
ForeColor = &H00400000&
Height = 945
Left = 135
TabIndex = 5
Top = 375
Width = 1455
End
End
Begin VB.CommandButton NOOK
Cancel = -1 'True
Caption = "取消(&C)"
Height = 405
Left = 2835
TabIndex = 1
Top = 765
Width = 1395
End
Begin VB.CommandButton OK
Caption = "確定(&O)"
Default = -1 'True
Height = 405
Left = 2835
TabIndex = 0
Top = 285
Width = 1410
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 195
TabIndex = 3
Top = 2685
Width = 2250
End
Begin VB.DirListBox Dir1
Height = 1770
Left = 195
TabIndex = 2
Top = 765
Width = 2250
End
End
Attribute VB_Name = "SelectPath"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Dir1_Change()
PathList.Text = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo Noread
Dir1.Path = Drive1.Drive
Exit Sub
Noread:
Dim Okread As Integer
Okread = MsgBox("" & Drive1.Drive & " 驅動器沒有準備好!", vbRetryCancel + 16, "驅動器沒有準備好!")
If Okread = 4 Then
Call Drive1_Change
Else
Drive1.Drive = Dir1.Path
End If
End Sub
Private Sub Form_Load()
PathList.Text = Dir1.Path
End Sub
Private Sub NOOK_Click()
Unload Me
End Sub
Private Sub OK_Click()
BackUp.Text1.Text = PathList.Text
Unload Me
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -