该对话框被设置为打开(正确)
因为: CommonDialog1.Action=1
在该对话框中指定的默认文件类型为文本文件(*.Txt) (错误)
因为:CommonDialog1.Filter="All file|*.*|(.Doc)|*.Doc(*.Txt)|*.Txt"
默认文件类型是所有文件*.* 和WORD文档*.doc 和文本文件 *.txt
Private Command1_Click()
CommonDialog1.Filter="All file|*.*|*.Doc|*.Do;*.Txt|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.showopen
CommonDialog1.Filter = "All file|*.*|Word文档*.Doc|*.Doc|文本文件*.txt|*.txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.Action = 1