CODEWITHSUNDEEP
htmlasp.netvb.netformsrendercontrol
brettwbyron
brettwbyron

Reputation: 85

Empty input shown as brackets when using RenderControl ASP.NET VB HTML

As a pseudo follow up from my previous question.

My current code looks similar to the following:

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="MyPage.aspx.vb" Inherits="Project.MyPage" EnableEventValidation="false" %>
<head>...</head>
<body id="Body" class="Window" runat="server">
<form id="MyForm" runat="server" defaultbutton="SubmitLinkButton">
    <!-- Markup for a the SubmitLinkButton and DropDownList -->
    <!--    to pick which Table is shown                    -->
    <asp:Table ID="Table1" runat="server">
        <asp:TableRow class="row" runat="server">
            <asp:TableCell runat="server">
                <pre>    Some Input1    </pre>
                <pre>___________________</pre>
                <pre>|___<asp:Textbox ID="Textbox1" runat="server"></asp:Textbox>____|</pre>
                <pre>|_________________|</pre>
            </asp:TableCell>
        </asp:TableRow>
    </asp:Table>
    <asp:Table ID="Table2" runat="server">
        <asp:TableRow class="row" runat="server">
            <asp:TableCell runat="server">
                <pre>    Some Input2    </pre>
                <pre>___________________</pre>
                <pre>|___<asp:Textbox ID="Textbox2" runat="server"></asp:Textbox>____|</pre>
                <pre>|_________________|</pre>
            </asp:TableCell>
        </asp:TableRow>
    </asp:Table>
</form>
</body>

The method that matters...

Public Sub SubmitLinkButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubmitLinkButton.Click
    Dim result As String = vbNull

    Dim sw As New StringWriter
    Dim htmlWriter As New HtmlTextWriter(sw)

    If (DropDownList.SelectedValue IsNot "") Then
        Try
            Select Case DropDownList.SelectedValue
                Case "Table1"
                    htmlWriter.RenderBeginTag(HtmlTextWriterTag.Table)
                    Table1.RenderControl(htmlWriter)
                Case "Table2"
                    htmlWriter.RenderBeginTag(HtmlTextWriterTag.Table)
                    Table2.RenderControl(htmlWriter)
            End Select

            htmlWriter.RenderEndTag()
            htmlWriter.Flush()

            result = sw.ToString()
        Finally
            htmlWriter.Close()
            sw.Close()
        End Try

        With New [Reference To A Class]
            .SendMyEmail("Email Header", result) 'Email(header, body)
        End With
    Else
        'Do something else that isn't important right now
    End If
End Sub

Public Overrides Sub VerifyRenderingInServerForm(control As Control)
    'No code necessary
End Sub

All of this stuff works! I takes the form, renders the html to the result variable, and sends it off in an email! Awesome!

My current issues are:

A) When any user input is empty, the empty input renders as [ ] exactly. [, 10 spaces, then ]. Unfortunately, this messes up the formatting of the form. It's written out to look like an ASCII-like table. Is there a way for no user input to be displayed as solely the empty space allowed by the input element? (E.g. <asp:Textbox ... Columns="8" ...></asp:Textbox> only showing as (eight spaces).)

B) On submit, I get the email, but the webpage shows an "A page can have only one server-side Form tag." error message. There is only one Form tag. The markup you see in the example code above is accurate even though it isn't detailed.

C) The user needs to be able to print this form out. There are specific page-breaks setup in the CSS, but once this is emailed, those page breaks don't exist. How can I get this form to print out the way the user wants?

EDIT: One fix I can think of would be to send the HTML form printed somehow. Do something like printing to PDF and send the PDF in the email instead of the Rendered HTML Form. Any help would be awesome!

EDIT: I changed the SubmitLinkButton_Click code to look at each table specifically rather than the entire form.

Upvotes: 0

Views: 140

Answers (1)

Mahendran Nadesan
Mahendran Nadesan

Reputation: 356

You should be able to retrieve and set the text value of the control from code-behind with something like (from https://stackoverflow.com/a/4674181/2953322):

' Function to find controls
Public Shared Function FindControlRecursive(ByVal list As List(Of Control), ByVal parent As Control, ByVal ctrlType As System.Type) As List(Of Control)
    If parent Is Nothing Then 
        Return list
    If parent.GetType Is ctrlType Then
        list.Add(parent)
    End If
    For Each child As Control In parent.Controls
        FindControlRecursive(list, child, ctrlType)
    Next
    Return list
End Function

Your code:

Case "Table1"

    Dim allInputs As New List(Of Control)
    For Each txtBox As TextBox In FindControlRecursive(allInputs, Me, GetType(TextBox))
        If String.IsNullOrEmpty(txtBox.Text) Then
            txtBox.Text = "        "
        End If
    Next

    htmlWriter.RenderBeginTag(HtmlTextWriterTag.Table)
    Table1.RenderControl(htmlWriter)

Case "Table2"

'Rest of your code

By the way, I had put 8 spaces in my comment, it obviously got formatted into " ".

Upvotes: 1

Related Questions