dlgsavepath.frm

该程序基于RS232串口通讯的激光检测钻头钻孔内径及外径等相关参数从而判断该产品是否为OK/NG

VERSION 5.00
Begin VB.Form dlgSavePath 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "程序设置"
   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         =   "自动保存"
      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         =   "关闭程序自动保存"
      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         =   "选择驱动器:"
      Height          =   195
      Left            =   120
      TabIndex        =   6
      Top             =   0
      Width           =   945
   End
   Begin VB.Label Label2 
      Caption         =   "目标保存路径：(请正确输入合法路径)"
      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 "  请选择有效的存储磁盘！", 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 "优": 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 "  请选择有效的存储路径！", 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