28、Visual Basic 6.0编程实用技巧与方法

Visual Basic 6.0编程实用技巧与方法

1. 文本框容纳超过64KB文本的方法

在16位Visual Basic 4应用程序中，文本框的Text属性最多只能容纳不到64KB的文本（实际上，根据字符串空间的使用方式，限制可能在32KB左右）。在Windows 95和Windows NT中，可以使用RichTextBox控件替代TextBox控件来绕过此限制。不过，即使在32位编程中，下面介绍的方法也有一定的实用价值。

可以通过将文本放入数组，然后将数组元素赋值给TextBox控件的Text属性来解决文本框字符串大小的限制问题。虽然单个数组元素限制在64KB以内，但数组在16位Visual Basic中也可以很大，因此可以在数组中存储大量文本并在文本框中显示。

以下是实现该功能的具体步骤：
1. 在新窗体中添加一个名为txtTest的文本框和一个名为vsbTest的垂直滚动条。
2. 将文本框的MultiLine属性设置为True，ScrollBars属性设置为1 - Horizontal。
3. 将滚动条移动到文本框的右边缘，使其看起来像是附着在文本框上。
4. 在窗体中添加以下代码，并将Open语句中的文件名更改为磁盘上的文件名。

Option Explicit
Private Const LINES = 15
Private strA() As String

Private Sub Form_Load()
    Dim intN 
    'Load dynamic string array from large text file
    Open "C: