Dear All,
I use "Text area" for show string (as attachment).
Some one can help me to setting font name of "Text Area" to font Name = "Consolas"
Code:
Dim klst as List , txtaReport as TextArea
klst.Initialize
klst.Add("")
klst.Add("Element Design : " & edtFtgName.Text)
klst.Add("Design Code : " & "xxxxxxxxxxxxxxxxxxxxxxxxxxxx")
klst.Add("Project Name : " & "xxxxxxxxxxxxxx In-house Program")
klst.Add("Project No. : " & "13-4444")
klst.Add("Project Location : " & "xxxxxxxxxxxxxxxxxxxxxx")
klst.Add("Owner : " & "In-House Program")
klst.Add("Engineer : " & "xxxxxxxxxxxxxx")
klst.Add("Checker : " & "xxxxxxxxxxxxxx")
klst.Add("Date : " & "2013-Dec-25")
klst.Add(" * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ")
Dim i As Int
For i = 1 To 10
txtaReport.Text = txtaReport.Text & klst.Get(i) & CRLF
Next
Sorry for my English
Best Regard
I use "Text area" for show string (as attachment).
Some one can help me to setting font name of "Text Area" to font Name = "Consolas"
Code:
Dim klst as List , txtaReport as TextArea
klst.Initialize
klst.Add("")
klst.Add("Element Design : " & edtFtgName.Text)
klst.Add("Design Code : " & "xxxxxxxxxxxxxxxxxxxxxxxxxxxx")
klst.Add("Project Name : " & "xxxxxxxxxxxxxx In-house Program")
klst.Add("Project No. : " & "13-4444")
klst.Add("Project Location : " & "xxxxxxxxxxxxxxxxxxxxxx")
klst.Add("Owner : " & "In-House Program")
klst.Add("Engineer : " & "xxxxxxxxxxxxxx")
klst.Add("Checker : " & "xxxxxxxxxxxxxx")
klst.Add("Date : " & "2013-Dec-25")
klst.Add(" * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ")
Dim i As Int
For i = 1 To 10
txtaReport.Text = txtaReport.Text & klst.Get(i) & CRLF
Next
Sorry for my English
Best Regard