?? dlgsavepath.frm
字號(hào):
VERSION 5.00
Begin VB.Form dlgSavePath
BorderStyle = 3 'Fixed Dialog
Caption = "程序設(shè)置"
ClientHeight = 3390
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 6045
Icon = "dlgSavePath.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3390
ScaleWidth = 6045
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CheckBox zhuijia
Caption = "追加"
Height = 255
Left = 2640
TabIndex = 15
Top = 2160
Width = 735
End
Begin VB.CheckBox autosave
Caption = "自動(dòng)保存"
Height = 195
Left = 240
TabIndex = 14
Top = 2580
Width = 1095
End
Begin VB.ComboBox compdng
Height = 315
Left = 2400
TabIndex = 13
Text = "Combo1"
Top = 1680
Width = 975
End
Begin VB.ComboBox datatype
Height = 315
Left = 1080
TabIndex = 12
Text = "Combo1"
Top = 2100
Width = 1575
End
Begin VB.CheckBox closesave
Caption = "關(guān)閉程序自動(dòng)保存"
Height = 195
Left = 1560
TabIndex = 11
Top = 2580
Width = 1815
End
Begin VB.ComboBox compdok
Height = 315
Left = 1080
TabIndex = 10
Text = "Combo5"
Top = 1680
Width = 975
End
Begin VB.DirListBox Dir1
Height = 3015
Left = 3480
TabIndex = 5
Top = 240
Width = 2415
End
Begin VB.DriveListBox Drive1
Height = 315
Left = 120
TabIndex = 4
Top = 240
Width = 2415
End
Begin VB.TextBox txtTargetPath
Height = 375
Left = 240
TabIndex = 2
Top = 1080
Width = 3135
End
Begin VB.CommandButton CancelButton
Caption = "取消"
Height = 375
Left = 2040
TabIndex = 1
Top = 2880
Width = 1215
End
Begin VB.CommandButton OKButton
Caption = "保存"
Height = 375
Left = 120
TabIndex = 0
Top = 2880
Width = 1215
End
Begin VB.Label Label36
AutoSize = -1 'True
Caption = "文件類型："
Height = 195
Left = 120
TabIndex = 9
Top = 2100
Width = 900
End
Begin VB.Label Label32
AutoSize = -1 'True
Caption = "判定語言："
Height = 195
Left = 120
TabIndex = 8
Top = 1800
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "選擇文件夾:"
Height = 195
Left = 3480
TabIndex = 7
Top = 0
Width = 945
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "選擇驅(qū)動(dòng)器:"
Height = 195
Left = 120
TabIndex = 6
Top = 0
Width = 945
End
Begin VB.Label Label2
Caption = "目標(biāo)保存路徑：(請正確輸入合法路徑)"
Height = 255
Left = 120
TabIndex = 3
Top = 720
Width = 3135
End
End
Attribute VB_Name = "dlgSavePath"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CancelButton_Click()
Me.Hide
End Sub
Private Sub compd_Change()
End Sub
Private Sub Dir1_Change()
txtTargetPath.Text = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo err1
Dim strDrive As String
Static strOldDrive As String
strDrive = Drive1.Drive
strOldDrive = strDrive
Dir1.Path = Drive1.Drive
err1:
If Err.Number = 68 Then
MsgBox " 請選擇有效的存儲(chǔ)磁盤！", vbInformation + vbInformation, "提示"
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
compdok.AddItem "OK": compdng.AddItem "NG"
compdok.AddItem "好": compdng.AddItem "壞"
compdok.AddItem "優(yōu)": compdng.AddItem "劣"
datatype.AddItem "Excel文件(*.xls)" '11
datatype.AddItem "文本文件(*.txt)" '6
datatype.AddItem "Htm/Html文件(*.htm)" '10
Dim sam
Open App.Path & "\sys.ini" For Random As #2
Get #2, 1, sam
txtTargetPath.Text = Trim(sam)
datasavepath = Trim(sam)
Get #2, 2, sam
compdok.Text = Trim(sam)
pdyuyanok = Trim(sam)
Get #2, 3, sam
compdng.Text = Trim(sam)
pdyuyanng = Trim(sam)
Get #2, 4, sam
datatype.ListIndex = Val(sam)
f1bookdatatype = Val(sam)
Get #2, 5, sam
autosave.Value = Trim(sam)
autosavedata = Val(sam)
Get #2, 6, sam
closesave.Value = Trim(sam)
closesavedata = Val(sam)
Get #2, 7, sam
zhuijia.Value = Trim(sam)
zhuijiaboolean = Val(sam)
Close
End Sub
Private Sub OKButton_Click()
Open App.Path & "\sys.ini" For Random As #2
If txtTargetPath.Text = "" Then MsgBox " 請選擇有效的存儲(chǔ)路徑！", vbInformation + vbInformation, "提示"
Put #2, 1, Trim(txtTargetPath.Text) '名字
datasavepath = Trim(txtTargetPath.Text)
Put #2, 2, Trim(compdok.Text)
pdyuyanok = Trim(compdok.Text)
Put #2, 3, Trim(compdng.Text)
pdyuyanng = pdyuyanok
Put #2, 4, Trim(datatype.ListIndex)
f1bookdatatype = Val(datatype.ListIndex)
Put #2, 5, Trim(autosave.Value)
autosavedata = Val(autosave.Value)
Put #2, 6, Trim(closesave.Value)
closesavedata = Val(closesave.Value)
Put #2, 7, Trim(zhuijia.Value)
zhuijiaboolean = Val(zhuijia.Value)
Close
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -