Private Sub BuildMessage (Text As String, User As String) As List
Dim title As BCTextRun = Engine.CreateRun(User & CRLF)
title.TextFont = BBCodeView1.ParseData.DefaultBoldFont
Dim TextRun As BCTextRun = Engine.CreateRun(Text&CRLF)
Dim time As BCTextRun = Engine.CreateRun(DateTime.Time(DateTime.Now))
time.TextFont = xui.CreateDefaultFont(10)
time.TextColor = xui.Color_Gray
Return Array(title, TextRun, time)
End Sub
Private Sub BuildMessage (Text As String, User As String) As List
Dim title As BCTextRun = Engine.CreateRun(User & CRLF)
title.TextFont = BBCodeView1.ParseData.DefaultBoldFont
Dim TextRun As BCTextRun = Engine.CreateRun(Text & CRLF)
Dim time As BCTextRun = Engine.CreateRun(DateTime.Time(DateTime.Now))
time.TextFont = xui.CreateDefaultFont(10)
time.TextColor = xui.Color_Gray
time.HorizontalAlignment = "RIGHT"
Return Array(title, TextRun, time)
End Sub
Private Sub BuildMessage (Text As String, User As String) As List
Dim title As BCTextRun = Engine.CreateRun(User & CRLF)
title.TextFont = BBCodeView1.ParseData.DefaultBoldFont
Dim TextRun As BCTextRun = Engine.CreateRun(Text & CRLF)
Dim time As BCTextRun = Engine.CreateRun(DateTime.Time(DateTime.Now))
time.TextFont = xui.CreateDefaultFont(10)
time.TextColor = xui.Color_Gray
time.HorizontalAlignment = "RIGHT"
Return Array(title, TextRun, time)
End Sub