9.2顺序文件 武汉职业技术学晚 设置控件事件代码如下: Private Sub Command1 Cl ick o 本过程完成文件的读取功能 Dim file1 Dim next I ine As str ing CommonDialog1. filter= "Text Files(*. txt)*. tXt" 指定默认文件类型 CommonDi a log1. showOpen ′调用以 CommonDialog1控件打开的对话框,以输入要 打开的文件名 File1=CommonDialog1 filename 将打开对话框提供的文件名赋予变量Fie1设置控件事件代码如下： • Private Sub Command1_Click() 本过程完成文件的读取功能 • Dim File1 • Dim nextline As String • CommonDialog1.Filter= Text Files(.txt)|.txt 指定默认文件类型 • CommonDialog1.ShowOpen 调用以CommonDialog1控件打开的对话框，以输入要 打开的文件名 • File1=CommonDialog1.filename 将打开对话框提供的文件名赋予变量File1 9.2 顺序文件