Question

VB使用CommonDialog控件

程序如下，但是每次进入打开窗口时，点击取消就会出现“实时错误，32755，选定取消”，这是怎么回事？？？

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

Answer 1

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

Answer 2

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

追问

若是把CommonDialog.CancelError = True去掉之后，好像不行啊，去掉之后，若是没有打开文件，则是正确的，但是我打开一个文件之后，在想打开别的文件，但是到了打开那个窗口，点击取消的话，还是会执行Open CommonDialog.FileName For Random As #2 Len = Len(SavePS) 下面的语句...

追答

哈哈，没注意吧
On Error GoTo ErrHandler
要放在这个过程最前面