B4J Question DialogResponse.Positive

[sdawilson]

Hi all,

I'm new to B4X and I'm struggling with this code block... I'm getting an error on line 4.

    Dim sf As Object
    sf = xui.Msgbox2Async("Delete?", "Title", "Yes", "Cancel", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse.POSITIVE Then
        xui.MsgboxAsync("Confirmed", "B4X")
    End If

 

[Mahares]

Msgbox2Async("Question?", "Title", "Yes", "Cancel", "No", Null, False)

Search Results

www.b4x.com

You are missing the word 'False' in the line: xui.Msgbox2Async(

 

[PaulMeuris]

In B4J version 9.8 (64 bit) the IDE shows the following:

And the copied code is:

    Dim sf As Object = xui.Msgbox2Async("Delete file?", "Title", "Yes", "Cancel", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Log("Deleted!!!")
    End If

In line 3 you can see that there is an underscore (_) and not a dot (.)

 

[sdawilson]

Thanks folks. Well spotted, Paul. It's the little things that trip me up!