[AccessD] Moving on to Fonts

Stuart McLachlan stuart at lexacorp.com.pg
Tue Jul 12 22:15:12 CDT 2022


On 12 Jul 2022 at 22:31, John Colby wrote:

> yesy but... mod it with the editor and then try to get back whatever
> is now being rendered!
> 


Hmm, works fine for me:
Click Command5. Sets bound and unbound text boxes
Click Command6.  Debug prints set text
Add a bit of text to each
Click Command6.  Debug prints new text



Private Sub Command5_Click()
txtUBRTF = "<div><font face=Algerian>This is a rich </font><font face=Calibri 
color=""#ED1C24"">text</font><font face=Algerian> field</font></div>"
txtRTF2 = "<div><font face=Algerian>This is a rich </font><font face=Calibri 
color=""#ED1C24"">text</font><font face=Algerian> field</font></div>"
End Sub

Private Sub Command6_Click()
Debug.Print " Unbound: " & txtUBRTF
Debug.Print
Debug.Print "Bound:" & txtRTF2
Debug.Print "----------------------------"
End Sub
 
--------------------------------------------------
 Unbound: <div><font face=Algerian>This is a rich </font><font face=Calibri 
color="#ED1C24">text</font><font face=Algerian> field</font></div>

Bound:<div><font face=Algerian>This is a rich </font><font face=Calibri 
color="#ED1C24">text</font><font face=Algerian> field</font></div>
----------------------------
 Unbound: <div><font face=Algerian>This is a rich </font><font 
color="#ED1C24">text</font><font
face=Algerian> field with an addition</font></div>

Bound:<div><font face=Algerian>This is a rich </font><font 
color="#ED1C24">text</font><font
face=Algerian> field with extra text</font></div>
----------------------------





More information about the AccessD mailing list