frmtestdircng.frm

一个VB编写的

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