[AccessD] RTF textbox results

[John Colby]

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