未找到方法或数据成员 请各位看看指点一下

[jinneiusb]

Private Sub command1_Click()
Text1.Text = ""
With CommonDialog1
.InitDir = App.Path
.Filter = "文本文件|*.txt"
.ShowOpen
End With

Open CommonDialog1.aa For Input As 1

Dim str As String
Do While Not EOF(1)
Input #1, str
Text1.Text = Text1.Text & vbNewLine & str
Loop
Close 1

End Sub

[smbsoft]

这里错了:
CommonDialog1.aa

[smbsoft]

CommonDialog1.FileName

[yimins]

补充一点：

Open CommonDialog1.FileName For Input As #1
...
Close #1

注意别漏了井号。