Message Box bewilderment!

[Robert Allan]

Message Box bewilderment!​

Still green, still learning. Now I am on Message Boxes. I think I have them petty well figured out, except for formatting. I could not find very much on the actual formatting, except for the following:

With cFmsgBox
    .Title = "Message Box supporting formatted text. Example 1"
    .Msg = "This is the first " & _
     .b("Test ") & "message spanning over several lines and paragraphs. The default margins, spaces, and font size had been used. " & _
                   "No need to say that the form width had been adjusted manually in order to have an optimum appearance." & _
     .Lf & _
     .Lf & "The formats " & _
     .b("bold") & ", " & _
     .u("underline") & ", and " & _
     .i("italic ") & "and may be combined with any of the colours " & _
     .b(.i(.u(.red("red")))) & ", " & _
     .b(.i(.u(.blue("blue")))) & ", and " & _
     .b(.i(.u(.green("green")))) & "." & _
     .Lf & .Lf & _
           "5 different links may be included in the message text, either in the full form like " & _
     .link("[URL='http://www.google.com']www.google.com[/URL]") & " or with a friendly name like " & .link("[URL='http://www.google.com']www.google.com[/URL]", "google.com") & ", which masks the url behind it." & _
     .Lf & _
     .Lf & _
        "Also it shows 2 of the 6 possible reply buttons and that they may contain any text. Since the number of lines is maximized to 3 their width will be adjusted " & _
        "automatically - but will remain the same for all buttons. The string returned by the display call is identical with the string of the clicked reply button."

    .Reply1 = "Click this reply to continue with the next example"
    .Reply2 = "Click this reply to finish with the Message Box solution's features"
    .Dsply 318

    If .Reply = .Reply1 Then Example2
End With

The thing that I don’t understand about it is how to use the “ .?? (.Lf, .b.)” in this example. If I could figure that out, my problems would be over, and I would have this whole thing about formatting Message Boxes under control. In that example, he petty much has all the bases covered. I did not see any way to get in contact with the guy that put that out there, so I hit a dead end. Obviously I need help.

 

[Yongle]

1. Please post a fuller explanation of your code including everything it takes to make it run so that anyone trying to help you does not need to figure that out
- perhaps you used a class module - if so, post the complete code

2. Post#1 contains a fragment of your code which cannot run without being edited - post the complete procedure

3. Clicking on the <vba/> icon brings up code tags
- posting your code using code tags makes the code much easier to read as it maintains the original VBA layout etc
- please do not format anything within VBA code tags

[ CODE=vba ] paste code here [/CODE ]

Example output which is automatically formatted

Sub XX() 
    With cFmsgBox
        .Title = "Message Box supporting formatted text. Example 1"
        'etc
    End With
End Sub

.
.

thanks

 

[Fluff]

Where did you find that code?

 

[RoryA]

That is not a VBA messagebox. It's a custom class using a userform (I'm assuming you got it here: Formatting text in messagebox excel Vba)