Other IIF! Yes! Thanks!!!

[giggetto71]

I have just downloaded latest B4j and started using IIF. sooooo good! 5 minutes after the download I HAD to make a donation as a tangible way to thank Erel and Anywhere SW for all the incredible work and support they provide to the platform and to the users!
Thanks.

 

[LucaMs]

Public Sub Test
    Dim sf As Object = xui.Msgbox2Async("Do you like B4X?", "", "Yes", "", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    Dim TestResult As String
    TestResult = IIf(Result = xui.DialogResponse_Positive, "You are smart!", "You are quite stupid!")
    xui.MsgboxAsync(TestResult, "Test result")
End Sub

 

[cklester]

    ...
    TestResult = IIf(Result = xui.DialogResponse_Positive, "You are smart!", "You are quite stupid!")
    ...

@LucaMs be nice! ?