[AccessD] RTF textbox results

John Colby jwcolby at gmail.com
Tue Jul 12 11:05:15 CDT 2022


This is a test

This is a BOLD test

This is an ITALICS test

This is an UNDERLINE test

This is a FONT SIZE test

This is a FONT SIZE test

This is a FONT SIZE test

This is a FONT SIZE test

This is a FONT SIZE test

This is a FONT COLOR test

This is a FONT COLOR test

On Tue, Jul 12, 2022 at 11:37 AM John Colby <jwcolby at gmail.com> wrote:

> The following ate lines written to my class.
>
>     mclsLicenseStatusText.fWriteTextBox "This is a test"
>     mclsLicenseStatusText.fWriteTextBox "This is a BOLD test", True
>     mclsLicenseStatusText.fWriteTextBox "This is an ITALICS test", , True
>     mclsLicenseStatusText.fWriteTextBox "This is an  <u>UNDERLINE</u> test"
>
> This is a test
>
> This is a BOLD test
>
> This is an ITALICS test
>
> This is an UNDERLINE test
>
> The underline test was created by embedding the tags directly inside of
> the line.
>
> mclsLicenseStatusText.fWriteTextBox "This is an  <u>UNDERLINE</u> test".
> Hardly smooth but at least it can be done.
>
>
> What the code looks like now:
>
> Function fWriteTextBox(lstrMsg As String, _
>                             Optional blnBold As Boolean = False, _
>                             Optional blnItalics As Boolean = False, _
>                             Optional blnUnderline As Boolean = False)
>     On Error GoTo fWriteTextBox_Error
> Dim lstr As String
>     lstr = lstrMsg
>     If blnBold Then
>         lstr = "<b>" & lstr & "</b>"
>     End If
>     If blnItalics Then
>         lstr = "<i>" & lstr & "</i>"
>     End If
>     If blnUnderline Then
>         lstr = "<u>" & lstr & "</u>"
>     End If
>     If mLineCnt > 0 Then
>         lstr = "<br>" & lstr
>     End If
>     mstrHTMLMsg = mstrHTMLMsg & lstr
>     mtxtStatus.SetFocus
>     mtxtStatus.Text = mstrHTMLMsg
>     mLineCnt = mLineCnt + 1
> --
> John W. Colby
> Colby Consulting
>


-- 
John W. Colby
Colby Consulting


More information about the AccessD mailing list