Ссылка на объект Ошибка при попытке поместить тег <hr>в stringBuilderObject.Append () VB.net - PullRequest
0 голосов
/ 08 октября 2018

Моя главная цель - подчеркнуть некоторые слова в pdf синим цветом, используя VB.net.Код показан ниже:

strSignHTML.Append("<TD class=""TBLDATA"" width=""25%"" align=left><br /><br>")
strSignHTML.Append("<hr color=""midnightblue"">")
strSignHTML.Append("</TD>")
strSignHTML.Append("<td width=50%>&nbsp;</td>")
strSignHTML.Append("<td class=""TBLDATA"" width=""25%"" align=left> <br>")
strSignHTML.Append("<hr color=""midnightblue"">")
strSignHTML.Append("</td>")
strSignHTML.Append("</tr>")
strSignHTML.Append("<tr>")
strSignHTML.Append("<td class=""TBLDATA"">")
strSignHTML.Append("<font color=""midnightblue""><b>Signature</b></font>")
strSignHTML.Append("</td>")
strSignHTML.Append("<td width=50%>&nbsp;</td>")
strSignHTML.Append("<td class=""TBLDATA"">")
strSignHTML.Append("<font color=""midnightblue""><b>Date</b></font>")
strSignHTML.Append("</td>")
strSignHTML.Append("</tr>")
strSignHTML.Append("<tr>")

1 Ответ

0 голосов
/ 08 октября 2018

После того, как вы выполните импорт библиотеки

Imports System.Text

И на самом деле установите strSignHTML как StringBuilder, вы готовы идти

    Dim strSignHTML As New StringBuilder
    strSignHTML.Append("<TD class=""TBLDATA"" width=""25%"" align=left><br /><br>")
    strSignHTML.Append("<hr color=""midnightblue"">")
    strSignHTML.Append("</TD>")
    strSignHTML.Append("<td width=50%>&nbsp;</td>")
    strSignHTML.Append("<td class=""TBLDATA"" width=""25%"" align=left> <br>")
    strSignHTML.Append("<hr color=""midnightblue"">")
    strSignHTML.Append("</td>")
    strSignHTML.Append("</tr>")
    strSignHTML.Append("<tr>")
    strSignHTML.Append("<td class=""TBLDATA"">")
    strSignHTML.Append("<font color=""midnightblue""><b>Signature</b></font>")
    strSignHTML.Append("</td>")
    strSignHTML.Append("<td width=50%>&nbsp;</td>")
    strSignHTML.Append("<td class=""TBLDATA"">")
    strSignHTML.Append("<font color=""midnightblue""><b>Date</b></font>")
    strSignHTML.Append("</td>")
    strSignHTML.Append("</tr>")
    strSignHTML.Append("<tr>")

    Dim myString As String = strSignHTML.ToString

Несмотря на это, я бы предпочел использовать CDATA

Dim myString As String = <![CDATA[
                <TD class="TBLDATA" width="25%" align=left><br /><br>
                <hr color="midnightblue">
                </TD>
                <td width=50%>&nbsp;</td>
                <td class="TBLDATA" width="25%" align=left> <br>
                <hr color="midnightblue">
                </td>
                </tr>
                <tr>
                <td class="TBLDATA">
                <font color = "midnightblue"><b>Signature</b></font>
                </td>
                <td width = 50% >& nbsp;</td>
                <td class="TBLDATA">
                <font color = "midnightblue"><b>Date</b></font>
                </td>
                </tr>
                <tr>]]>.Value
...