[AccessD] RTF textbox results

[Ryan W]

Very Cool.

How many optional arguments are you up to now?

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

> 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
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>