?? frmtestdircng.frm
字號:
VERSION 5.00
Begin VB.Form DirChgForm
BorderStyle = 1 '屌掕(幚慄)
Caption = "曐懚僼僅儖僟愝掕"
ClientHeight = 4455
ClientLeft = 3030
ClientTop = 2985
ClientWidth = 8115
ControlBox = 0 'False
BeginProperty Font
Name = "俵俽 僑僔僢僋"
Size = 12
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4455
ScaleWidth = 8115
Begin VB.CommandButton Command10
Enabled = 0 'False
Height = 375
Index = 3
Left = -120
Style = 1 '皋滋ǒ附
TabIndex = 7
TabStop = 0 'False
Top = 300
Width = 4215
End
Begin VB.DriveListBox Drive1
Height = 360
Left = 360
TabIndex = 3
Top = 3120
Width = 3015
End
Begin VB.DirListBox Dir1
Height = 1710
Left = 360
TabIndex = 2
Top = 1320
Width = 3015
End
Begin VB.OptionButton Option1
Caption = "Folder for Testresult"
Height = 240
Index = 1
Left = 3600
TabIndex = 1
Top = 2145
Width = 3135
End
Begin VB.OptionButton Option1
Caption = "帋尡忦審僼僅儖僟"
Height = 240
Index = 0
Left = 3600
TabIndex = 0
TabStop = 0 'False
Top = 5025
Width = 3135
End
Begin VB.CommandButton CmdChng
Caption = "OK"
Height = 375
Left = 4080
Style = 1 '皋滋ǒ附
TabIndex = 6
Top = 300
Width = 1215
End
Begin VB.CommandButton Command10
Enabled = 0 'False
Height = 375
Index = 0
Left = 5280
Style = 1 '皋滋ǒ附
TabIndex = 13
TabStop = 0 'False
Top = 300
Width = 1095
End
Begin VB.CommandButton CmdReturn
Caption = "Cancel"
Height = 375
Left = 6360
Style = 1 '皋滋ǒ附
TabIndex = 8
Top = 300
Width = 1215
End
Begin VB.CommandButton Command10
Enabled = 0 'False
Height = 375
Index = 1
Left = 7560
Style = 1 '皋滋ǒ附
TabIndex = 9
TabStop = 0 'False
Top = 300
Width = 735
End
Begin VB.Label Label4
Caption = "Folder in Use丗"
Height = 255
Left = 3840
TabIndex = 12
Top = 960
Width = 2415
End
Begin VB.Label Label3
BackColor = &H00E0E0E0&
BorderStyle = 1 '幚慄
Caption = " NewFolder must be made by clicking either MyConputor or Explorer"
ForeColor = &H00FF0000&
Height = 615
Left = 360
TabIndex = 11
Top = 3600
Width = 7335
End
Begin VB.Label Label2
BackColor = &H00C0E0FF&
BorderStyle = 1 '幚慄
Height = 615
Left = 3600
TabIndex = 10
Top = 1320
Width = 4095
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
BorderStyle = 1 '幚慄
Height = 615
Index = 1
Left = 3600
TabIndex = 5
Top = 2400
Width = 4095
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
BorderStyle = 1 '幚慄
Height = 615
Index = 0
Left = 3600
TabIndex = 4
Top = 5280
Width = 4095
End
End
Attribute VB_Name = "DirChgForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Activate()
CmdReturn.BackColor = AkaIro
CmdChng.BackColor = HaiIro
End Sub
Private Sub Form_Load()
'-----
DirChgForm.Caption = IniDirFName$ + " FolderSet"
Call TestForm_Input(Me)
'-----
' Option1(1).Value = True
' Option1(0).Value = True
Label1(0).Caption = ParDir$
Label1(1).Caption = DatDir$
Dir1.path = ParDir$
Drive1.Drive = ParDir$
Label2.Caption = Dir1.path
Call Option1_Click(0)
Call EJ_Translation(Linguistic)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call TestForm_OutPut(Me)
End Sub
'*************************
'*丂 曄峏僼僅儖僟
'*************************
Private Sub CmdChng_Click()
If Option1(0).Value = True Then
ParDir$ = Dir1.path
Label1(0).Caption = Dir1.path
Else
DatDir$ = Dir1.path
Label1(1).Caption = Dir1.path
End If
End Sub
'*************************
'*丂丂 丂寛掕儃僞儞
'*************************
Private Sub CmdReturn_Click()
Unload Me
End Sub
'*************************
'* 忦審乛寢壥愗傝姺偊
'*************************
Private Sub Option1_Click(Index As Integer)
On Error GoTo DIRDRV
Select Case Index
Case 0
Dir1.path = ParDir$
Drive1.Drive = ParDir$
Case 1
Dir1.path = DatDir$
Drive1.Drive = DatDir$
End Select
On Error GoTo 0
Exit Sub
DIRDRV:
On Error GoTo 0
ParDir$ = SysDir$
DatDir$ = SysDir$
Dir1.path = SysDir$
Drive1.Drive = SysDir$
On Error GoTo 0
End Sub
'*************************
'* 僼僅儖僟曄峏
'*************************
Private Sub Dir1_Change()
Label2.Caption = Dir1.path
End Sub
'*************************
'* 僪儔僀僽曄峏
'*************************
Private Sub Drive1_Change()
On Error GoTo No_DRive
Dir1.path = Drive1.Drive
On Error GoTo 0
Exit Sub
No_DRive:
On Error GoTo 0
If Option1(0).Value = True Then
Drive1.Drive = ParDir$
Else
Drive1.Drive = DatDir$
End If
End Sub
'*************************
'* 塸岅/擔杮岅愗姺偊
'*************************
Private Sub EJ_Translation(mCHG As Integer)
Select Case mCHG
Case 0
Label4.Caption = "Folder in Use丗"
Option1(1).Caption = "Folder for Testresult"
Label3.Caption = " NewFolder must be made by clicking either MyConputor or Explorer"
'-----
CmdChng.Caption = "OK"
CmdReturn.Caption = "Cancel"
Case 1
Label4.Caption = "尰嵼偺慖戰僼僅儖僟丗"
Option1(1).Caption = "帋尡寢壥僼僅儖僟"
Label3.Caption = "丂僼僅儖僟偺怴婯嶌惉偼丆儅僀僐儞僺儏乕僞偍傛傃僄僋僗僾儘乕丂丂儔側偳傪巊梡偟偰嶌惉偟偰偔偩偝偄丅"
'-----
CmdChng.Caption = "寛掕"
CmdReturn.Caption = "栠傞"
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -