B4J Tutorial Msgbox / InputList

Discussion in 'B4J Tutorials' started by Erel, Dec 17, 2015.

Similar threads

Other B4J v4.01 is available for download
B4J Tutorial Customized ListView
B4J Tutorial Unhandled exceptions
B4J Tutorial SQL Tutorial
B4J Tutorial Modal dialogs
  1. Erel

    Erel Administrator Staff Member Licensed User

    Simple message box:
    fx.Msgbox(MainForm, "This is the message""This is the title")

    Message box with result:
    Dim res As Int = fx.Msgbox2(MainForm, "Do you want to save changes?""Save", _
    "Yes""Cancel""No", fx.MSGBOX_WARNING)
    If res = fx.DialogResponse.POSITIVE Then
    Log("Saving changes...")   
    End If

    Note that you can pass "" as the button text to hide a button.
    fx.Msgbox2(MainForm, "Invalid value!""Error""I will not do it again""""", fx.MSGBOX_ERROR)

    Dim items As List = Array("Item #1""Item #2""Item #3""Item #4")
    Dim res As Int = fx.InputList(MainForm, items, "Please choose an item""Items"0)
    If res >= 0 Then
    Log($"Selected item: ${items.Get(res)}"$)
    Log("User didn't select any item.")
    End If

    The message icon is the same as the owner form icon.
    Beja, Matias Ferrer, GGSoft and 11 others like this.
  2. ThRuST

    ThRuST Active Member Licensed User

    Does this also work as the inputbox in VB6? i.e. possible to input text in a textfield?
  3. Erel

    Erel Administrator Staff Member Licensed User

    ThRuST likes this.