项目管理阶段:在文本框中显示文件
来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 03:30:04
Option Explicit
Private Sub Form_Load()
'Text1.MultiLine = True
Text1.Text = ""
Dim s As String
Open "c:\1.txt" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, s ' 将数据读入变量。
Text1.Text = Text1.Text & s & vbCrLf ' 在text1中显示数据。
Loop
Close #1 ' 关闭文件
End Sub
Private Sub Form_Load()
'Text1.MultiLine = True
Text1.Text = ""
Dim s As String
Open "c:\1.txt" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, s ' 将数据读入变量。
Text1.Text = Text1.Text & s & vbCrLf ' 在text1中显示数据。
Loop
Close #1 ' 关闭文件
End Sub
在文本框中显示文件
怎样在word文档中插入文本框?
如何在 Windows 资源管理器中显示或隐藏文件扩展名
PPT中如何在每页中显示同一个FLASH文件(SWF
使用IE控件的一些有趣方法 你想在程序中,显示WORD文件吗
C#中获取文件路径、DataGridView显示行号1
在win7资源管理器中完美显示摄像头
在CAD中把dwg文件导出jpg文件
如何显示隐藏文件?
显示隐藏文件
如何显示隐藏文件
显示隐藏文件?
如何显示隐藏文件?
如何在PL/SQL中读写文件
如何在Word文件中加上浮水印?
在C#中如何调用dll文件
显示或修改用在文件扩展名关联中的文件类型的dos命令
如何显示隐藏文件?1
如何显示隐藏文件?17
U盘盘符在资源管理器中无法显示
如何在 Qt 中正确显示宽字符
extbuilder插件自动生成代码在jsp中显示
如何在作业中显示数学公式和图表
WORD中绘制图形插入文本框插入艺术字