VB使用CommonDialog控件

CommonDialog1.Filter = "配置文件(*.ini)|*.ini" '设置CommonDialog控件的文件过滤器
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then

CommonDialog.Filter = "配置文件(*.ini)|*.ini" '设置CommonDialog控件的文件过滤器
CommonDialog.ShowOpen

CommonDialog.CancelError = True
On Error GoTo ErrHandler

Open CommonDialog.FileName For Random As #2 Len = Len(SavePS) '打开随机文件
RecordNum = LOF(2) / Len(SavePS) '计算随机文件中的记录数
For i = 1 To RecordNum '读取随机文件中的记录，并赋值到Grid表格中
Get #2, i, SavePS
GridInput.Row = i
GridInput.Col = 1
GridInput.Text = SavePS.inP
GridInput.Col = 2
GridInput.Text = SavePS.inS
Next

Close #2
comPS_Click '读取完之后，启动绘图功能
Exit Sub
ErrHandler: Exit Sub

这句的原因 CommonDialog.CancelError = True
把这句去掉