用VB做了一个类似记事本的程序

Question

但第一次点击读取时 出来的总是这个样子的

只有第二次才会出现文件格式

怎么才能做到 第一次就有文件格式？
这是相关代码
Private Sub Command2_Click()CommonDialog1.ShowOpenCommonDialog1.Filter = "文本文件|*.txt"If CommonDialog1.FileName <> "" Then Open CommonDialog1.FileName For Input As #1 Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode) Close #1 MsgBox "已经读取", vbInformation, "提示"End If End Sub

Answer 1

你没过滤就打开了，然后再过滤，所以才会有这个小问题，改下顺序就OK了：

Private Sub Command2_Click()
CommonDialog1.Filter = "文本文件|*.txt" '先定义过滤
CommonDialog1.ShowOpen '打开
If CommonDialog1.FileName <> "" Then
   Open CommonDialog1.FileName For Input As #1
   Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
   Close #1
   MsgBox "已经读取", vbInformation, "提示"
End If

End Sub

Answer 2

二句先后问题
CommonDialog1.ShowOpen
CommonDialog1.Filter = "文本文件|*.txt|"
应该
CommonDialog1.Filter = "文本文件|*.txt|"
CommonDialog1.ShowOpen