Wish MsgBox(3) with fontawesome/material icons support

Erel

B4X founder
Staff member
Licensed User
Longtime User
Now with images:



B4X:
Sub Activity_Click
   Dim cs As CSBuilder
   cs.Initialize.Color(0xFF00FFF3).Size(30).Append("Before ")
   cs.Image(LoadBitmap(File.DirAssets,"smiley.png"), 30dip, 30dip, False)
   cs.Typeface(Typeface.FONTAWESOME).Append(" ").Color(Colors.Red).Append(Chr(0xF17B)).PopAll
   ToastMessageShow(cs, True)
   Activity.Title = cs
   Msgbox(cs, cs)
End Sub
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…