在vb中如何一次性地将文件内容读取到文本框

Posted 2023-05-13

1.文件（假设为文本文件txt，里面的字符数超过1万）已存在于本程序目录中。
2.程序界面上有一个文本框，一个按扭。
3.一次性地将文件内容读取到文本框。
疑惑：我用如下方法，一次性读，但不能实现，原因是字符数太多，Input语句限制了字符数。不知有什么解决办法，或是更好的办法？
Text1.Text = ""
Open "文本.txt" For Input As #1
Print input(LOF(1), #1) '在窗体上打出进行测试
Text1.Text = Input(LOF(1), #1) '问题出在这里
Close #1

参考技术A 将text1的multiline属性置为true，scrollbar置为both添加以下代码：dim s as stringText1.Text = ""
Open "文本.txt" For Input As #1while not eof(1)line input #1,s Text1.Text = text1 & s & vbcrlfwend Close #1

vb中图片框如何清除里面的所有内容？

具体操作步骤如下：

一、打开VB软件，在窗体上面添加一个列表框，如下图所示。

二、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

三、在窗体上面，添加一个命令按钮，如下图所示。

四、设置，一个命令按钮的属性，名称别为“清除”，如下图所示。

五、双击“清除”命令按钮，编辑其代码，如下图所示。

六、运行程序，验证结果。选择“政治”，点击“清除”命令按钮。

七、则列表框中“政治”项目消失。如下图所示。

参考技术A

VB可对图片框的Picture属性使用LoadPicture 函数来实现清除里面的所有内容。

PictureBox 控件

PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF
文件的图形。如果控件不足以显示整幅图象，则裁剪图象以适应控件的大小。

Picture 属性

返回或设置控件中要显示的图片。对于 OLE 容器控件，在设计时不可用在运行时为只读。

LoadPicture 函数

将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

Cls 方法

清除运行时 Form 或 PictureBox 所生成的图形和文本。

以下代码体现上述各知识点的应用：

Private Sub Command1_Click()
    Picture1.Picture = LoadPicture("") ' 可删除图片框所有内容
End Sub

Private Sub Command2_Click()
    Picture1.Cls '只能清除绘制的图
End Sub

Private Sub Form_Load()
    Picture1.Picture = LoadPicture("C:\\Sunset.jpg")
    Picture1.ForeColor = QBColor(15)
    Picture1.Print Now
End Sub

参考技术B Picture1.Cls
Picture1.Picture = LoadPicture("")本回答被提问者采纳 参考技术C Picture1.Picture = LoadPicture("")
Picture1.Cls 参考技术D Picture1.Cls