AppendText Method of TextBox, 32K limit?

[Andrew]

VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

I have a short program that uses the GetFiles function of the directory
object, then iterates through the returned array and appends the strings to
the textbox. However, if the character count is greater than 32k, no
additional text is displayed in the textbox, though no error is raised.

dim StartDir as Directory
dim AllFiles() as String

AllFiles = StartDir.GetFil es("C:\Windows\ System32")

'The following method works fine:
'Textbox1.Lines = AllFiles

'This method displays the problem.
dim TempString as String
For Each TempString in AllFiles
TextBox1.Append Text(TempString & ControlChars.Cr Lf)
Next

I can't find this documented anywhere, so assume it must be a bug. Anyone
have a similar experience, or know a workaround?

[Ken Tucker [MVP]]

Hi,

That is all the info a textbox can hold. Use a richtextbox instead.

Ken
-------------------
"Andrew" <An****@discuss ions.microsoft. com> wrote in message
news:A2******** *************** ***********@mic rosoft.com...
VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

I have a short program that uses the GetFiles function of the directory
object, then iterates through the returned array and appends the strings to
the textbox. However, if the character count is greater than 32k, no
additional text is displayed in the textbox, though no error is raised.

dim StartDir as Directory
dim AllFiles() as String

AllFiles = StartDir.GetFil es("C:\Windows\ System32")

'The following method works fine:
'Textbox1.Lines = AllFiles

'This method displays the problem.
dim TempString as String
For Each TempString in AllFiles
TextBox1.Append Text(TempString & ControlChars.Cr Lf)
Next

I can't find this documented anywhere, so assume it must be a bug. Anyone
have a similar experience, or know a workaround?

[Herfried K. Wagner [MVP]]

That's a known bug:

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>
"Andrew" <An****@discuss ions.microsoft. com> schrieb im Newsbeitrag
news:A2******** *************** ***********@mic rosoft.com...

VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

I have a short program that uses the GetFiles function of the directory
object, then iterates through the returned array and appends the strings
to
the textbox. However, if the character count is greater than 32k, no
additional text is displayed in the textbox, though no error is raised.

dim StartDir as Directory
dim AllFiles() as String

AllFiles = StartDir.GetFil es("C:\Windows\ System32")

'The following method works fine:
'Textbox1.Lines = AllFiles

'This method displays the problem.
dim TempString as String
For Each TempString in AllFiles
TextBox1.Append Text(TempString & ControlChars.Cr Lf)
Next

I can't find this documented anywhere, so assume it must be a bug. Anyone
have a similar experience, or know a workaround?

[Herfried K. Wagner [MVP]]

"Andrew" <An****@discuss ions.microsoft. com> schrieb:

VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

That's a known bug:

<URL:http://groups.google.c om/groups?selm=Ox0 wQkDTDHA.2188%4 0TK2MSFTNGP10.p hx.gbl>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Crouchie1998]

Why can't you add the files to a ListBox?

Dim strSystemDirect ory As String =
Environment.Get FolderPath(Envi ronment.Special Folder.System)

ListBox1.Items. Clear()
For Each strFile As String In
IO.Directory.Ge tFiles(strSyste mDirectory)
ListBox1.Items. Add(strFile)
Next

Crouchie1998
BA (HONS) MCP MCSE








"Andrew" <An****@discuss ions.microsoft. com> wrote in message
news:A2******** *************** ***********@mic rosoft.com...

VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

I have a short program that uses the GetFiles function of the directory
object, then iterates through the returned array and appends the strings to the textbox. However, if the character count is greater than 32k, no
additional text is displayed in the textbox, though no error is raised.

dim StartDir as Directory
dim AllFiles() as String

AllFiles = StartDir.GetFil es("C:\Windows\ System32")

'The following method works fine:
'Textbox1.Lines = AllFiles

'This method displays the problem.
dim TempString as String
For Each TempString in AllFiles
TextBox1.Append Text(TempString & ControlChars.Cr Lf)
Next

I can't find this documented anywhere, so assume it must be a bug. Anyone
have a similar experience, or know a workaround?

[Andrew]

Argh. I wish they would have posted this in the KB somewhere. I spent hours
trying to track this down, and since the documentation omits Windows XP (but
mentions every other OS for the past 10 years), I had to question whether or
not it was the code causing the problem. Thanks Herfried.

"Herfried K. Wagner [MVP]" wrote:

"Andrew" <An****@discuss ions.microsoft. com> schrieb:

VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

That's a known bug:

<URL:http://groups.google.c om/groups?selm=Ox0 wQkDTDHA.2188%4 0TK2MSFTNGP10.p hx.gbl>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Andrew]

I have to disagree with you, Ken. If I set the Text property of a textbox to
a string with 50,000 characters in it, it displays properly in the text box.
However, if I used the AppendText method to display the same string in the
text box, it would truncate to 32K characters.
-Andrew

"Ken Tucker [MVP]" wrote:

Hi,

That is all the info a textbox can hold. Use a richtextbox instead.

Ken
-------------------
"Andrew" <An****@discuss ions.microsoft. com> wrote in message
news:A2******** *************** ***********@mic rosoft.com...
VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

I have a short program that uses the GetFiles function of the directory
object, then iterates through the returned array and appends the strings to
the textbox. However, if the character count is greater than 32k, no
additional text is displayed in the textbox, though no error is raised.

dim StartDir as Directory
dim AllFiles() as String

AllFiles = StartDir.GetFil es("C:\Windows\ System32")

'The following method works fine:
'Textbox1.Lines = AllFiles

'This method displays the problem.
dim TempString as String
For Each TempString in AllFiles
TextBox1.Append Text(TempString & ControlChars.Cr Lf)
Next

I can't find this documented anywhere, so assume it must be a bug. Anyone
have a similar experience, or know a workaround?

[Andrew]

I could, but the point of the post wasn't so much to illustrate a particular
need as it was to demonstrate what I presumed must be a limitation of the
TextBox object.
The actual code where this was discovered was a bit more tedious, but the
code I posted here was just to demonstrate the problem.
-Andrew

"Crouchie19 98" wrote:

Why can't you add the files to a ListBox?

Dim strSystemDirect ory As String =
Environment.Get FolderPath(Envi ronment.Special Folder.System)

ListBox1.Items. Clear()
For Each strFile As String In
IO.Directory.Ge tFiles(strSyste mDirectory)
ListBox1.Items. Add(strFile)
Next

Crouchie1998
BA (HONS) MCP MCSE








"Andrew" <An****@discuss ions.microsoft. com> wrote in message
news:A2******** *************** ***********@mic rosoft.com...

VB .NET 2003, WinXP Pro:

Adding text to a text box with the TextBox.AppendT ext method limits the
amount of text in the textbox to 32K.

I have a short program that uses the GetFiles function of the directory
object, then iterates through the returned array and appends the strings

to

the textbox. However, if the character count is greater than 32k, no
additional text is displayed in the textbox, though no error is raised.

dim StartDir as Directory
dim AllFiles() as String

AllFiles = StartDir.GetFil es("C:\Windows\ System32")

'The following method works fine:
'Textbox1.Lines = AllFiles

'This method displays the problem.
dim TempString as String
For Each TempString in AllFiles
TextBox1.Append Text(TempString & ControlChars.Cr Lf)
Next

I can't find this documented anywhere, so assume it must be a bug. Anyone
have a similar experience, or know a workaround?