Question

vb题目，向大神求助

单机保存文件按钮后弹出另存为通用对话框（过滤器属性，文本文件及全部文件），确定文件名后。

Answer 1

private sub command1_click()
commondialog1.canleerror:=true
commondialog1.defaultext="txt"
commondialog1.filename="lbw.txt"
commondialog1.filter="Text files(*.txt)|*.TXT|All Files(*.*)|*.*"
commondialog1.filterindex=1
end sub