Question

vb6 点击窗体按钮打开同一路径下的txt文件查看 怎么写代码？

Answer 1

private sub command1_click()
open app.path & "\1.txt" for input as #1
while not eof(1)
line input #1,s
text1=text1 & s & vbnewline
wend
close #1
end sub

追问

我的意思是打开TXT文件查看，并不是读取

追答

用commondialog控件：
private sub command1_click()
On Error GoTo ErrHandler
　　　　　　'设置过滤器。
　　　　　　CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt"
　　　　　　'指定缺省过滤器。
　　　　　　CommonDialog1.FilterIndex = 2
　　　　　　'显示“打开”对话框。
　　　　　　CommonDialog1.ShowOpen
　　　　　　'显示文件名。
　　　　　　Msgbox CommonDialog1.FileName
　　　　　　Exit Sub

　　　　ErrHandler:
　　　　　　'用户按“取消”按钮。
Msgbox "未选定文件"
　　　　　　Exit Sub
　　　　End Sub

追问

就是要打开记事本程序

追答

private sub command1_click()
shell "notepad " & app.path & "\1.txt", vbNormalFocus
end sub