Message Box 3 Not Working

[jmeuse2]

I happily began to implement this code I found in the forum. But when I retyped the embedded tokens it didn't format the sentence anymore. I even closed the program and reopened it and still it won't work as intended. I can implement code far better than I can figure it up. Heres the code. Can anyone help explain what the problem is? Thanks!

Dim rs As RichString
rs.Initialize("(R){T}{Blue}This{Blue}{T}{R} {U}is{U} another {Red}{BI}Rich{Red}String{BI}")
rs.Color2(Colors.Blue,"{Blue}")
rs.RelativeSize2(3.5, "{R}")
rs.Typeface2("serif", "{T}")
rs.Underscore2("{U}")
rs.Color2(Colors.Red, "{Red}")
rs.Style2(rs.STYLE_BOLD_ITALIC, "{BI}")

Dim msg As Msgbox3
msg.Show(rs, "RichString Demo", "OK", "", "", Null)

 

[Widiar]

As it seems to work just fine when copy-pasted into my project, I would guess you don't have either of the libraries needed, either the SPDialogs or RichString library? If you have them downloaded into your libraries folder, then you also need to remember to activate them from the Libs -view in B4A.

- Wid

 

[jmeuse2]

Message Box 3 still not working

SPDialogs1.01 & Richstring 1.3 are both checked off in my libs. It worked 100% when I first copied and pasted it but then when I simply retype any embedded token - such as changing '(U)' to '(U)' it doesn't work again, ever.

 

[jmeuse2]

Message Box 3 is working

)))))))))}}}}}}}} Parenthesis and Curly brackets look alike in the forms editor. I was typing the wrong character.

My first thought was that my keyboard ran out of U's and was trying to get away with substituting sideways C's then that made me think of how one letter can look like another and perhaps the real problem is that I'm the one whose typing in the wrong character.

)))))))}}}}}}}}}

:BangHead:

 

[Widiar]

Haha.. :sign0148: .. I know how you feel. I spent 5 hours debugging silly problem which Klaus solved in like.. a few minutes. But good thing that it solved, time to make some new mistakes

- Wid