rendering a control to a string: why doesn't this work?

[PJ6]

Nothing comes out of this, even though I tried to observe what I thought the
HtmlTextWriter might expect for method calls.

I must be missing something simple, but what?

Private Sub TestRender()
Dim lbl As New Label
lbl.Text = "FOO"
Dim ms As New System.IO.MemoryStream
Dim tw As New System.IO.StreamWriter(ms)
Dim writer As New System.Web.UI.HtmlTextWriter(tw)
writer.BeginRender()
lbl.RenderControl(writer)
writer.EndRender()
writer.Flush()
Dim sr As New System.IO.StreamReader(ms)
Dim html As String = sr.ReadToEnd
End Sub

Paul

[=?Utf-8?B?U2VyZ2V5IFBvYmVyZXpvdnNraXk=?=]

PJ6,

insert the following line before opening the streamreader:
ms.Position = 0
"PJ6" wrote:

Nothing comes out of this, even though I tried to observe what I thought the
HtmlTextWriter might expect for method calls.

I must be missing something simple, but what?

Private Sub TestRender()
Dim lbl As New Label
lbl.Text = "FOO"
Dim ms As New System.IO.MemoryStream
Dim tw As New System.IO.StreamWriter(ms)
Dim writer As New System.Web.UI.HtmlTextWriter(tw)
writer.BeginRender()
lbl.RenderControl(writer)
writer.EndRender()
writer.Flush()
Dim sr As New System.IO.StreamReader(ms)
Dim html As String = sr.ReadToEnd
End Sub

Paul

[PJ6]

D'oh... knew I forgot something.

Thanks :)
Paul

"Sergey Poberezovskiy" <Se*****************@discussions.microsoft.comwrot e
in message news:81**********************************@microsof t.com...

PJ6,

insert the following line before opening the streamreader:
ms.Position = 0
"PJ6" wrote:

>Nothing comes out of this, even though I tried to observe what I thought
the
HtmlTextWriter might expect for method calls.

I must be missing something simple, but what?

Private Sub TestRender()
Dim lbl As New Label
lbl.Text = "FOO"
Dim ms As New System.IO.MemoryStream
Dim tw As New System.IO.StreamWriter(ms)
Dim writer As New System.Web.UI.HtmlTextWriter(tw)
writer.BeginRender()
lbl.RenderControl(writer)
writer.EndRender()
writer.Flush()
Dim sr As New System.IO.StreamReader(ms)
Dim html As String = sr.ReadToEnd
End Sub

Paul