这个是个BUG,要自斗宏搜行处理错误的。
Private Sub Command2_click()
on error goto hh
CommonDialog1.FileName="*.txt"
CommonDialog1.Filter=" txt file|*.txt|all file|*.* "
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
print #1 "绝带消耗空历量" &Chr(13)&Chr(13)&Chr(13)&Val(Tex2t.Text)
Close 1
exit sub
hh:
End Sub
当你点击取消时,CommonDialog1.ShowSave后面的这几句,还会顺序执行,所以会报错。
Open CommonDialog1.FileName For Output As #1
print #1 "消耗量" &Chr(13)&Chr(13)&Chr(13)&Val(Tex2t.Text)
Close 1
因此,这里,你需派耐要把点取消的旁羡磨情况考虑进来进行处理。
if CommonDialog1.FileName<>运斗"*.txt" then ' "*.txt"是你前面指定的值
else
endif
把CommonDialog的CancelError属性设置为False就可以了。