Android Question An error : Msgbox2Async + Wait for

[Eng. Nizar]

Hi,
When I use : Msgbox2Async + Wait for message_Result (Result As Int)
in my code module
error: Static code modules cannot handle events.
How to use it in my code module?
thanks

 

[DonManfred]

error: Static code modules cannot handle events.
How to use it in my code module?

you can NOT use waitfor in a code module.

Add the code to a class or an activity/b4xpage

 

[Eng. Nizar]

Thank you DonManfred

 

[Eng. Nizar]

is there an example please

 

[josejad]

Maybe this one you get using the search box

Msgbox2Async why doesn't it wait

In a class I have this: Sub ShowMsg(strPrompt As String, _ strTitle As String, _ iTitleColour As Int, _ iPromptColour As Int, _ csPrompt As CSBuilder, _ bmpIcon As Bitmap, _ bCancelable As Boolean, _ bWait As Boolean) Dim csTitle...

www.b4x.com

 

[Brian Dean]

is there an example please

If you want a simple example of using Msgbox2Async then look at this ...

 

[Eng. Nizar]

Thank you,
Sorry, it seems My aim was in my mind only...!
But i ask for another Problem

'  in Class Module (Class1):
Sub msgtest(msg As String) As ResumableSub ' Can't be String
    Private xui As XUI
    xui.Msgbox2Async(msg, "Test Me", "Yes", "Cancel", "No", Null)
    Wait For Msgbox_Result(result As Int)
    If result = xui.DialogResponse_Positive Then
        Return "Y"
    else If result = xui.DialogResponse_Negative Then
        Return "N"
    Else
        Return "C"
    End If
End Sub

'  in Code Module (test):
Sub get_YNCmsg(Msg As String) As String
    Dim Nc As class1
    Nc.Initialize
    Dim getit As String
    getit =Nc.msgtest("Y, C or N")
'Error is in getit:
'test - 20..: Cannot cast Type: {Type=ResumableSub,Rank=0, RemoteObject=True} To: {Type=String,Rank=0, RemoteObject=True}
'test - 20..: Object converted To String. This Is probably a programming mistake. (warning #7)
    Return getit
End Sub

'  I want to Use:
dim what as string = get_YNCmsg ("test it") 'Result : Y, N or C

So I want (get_YNCmsg) to Do it in Code Module (my Aim to replace Mesgbox2 with Msgbox2Async .
Note: In Mesgbox2 is OK

 

[Eng. Nizar]

mistake in line 20 : getit =Nc.msgtest(Msg) instead of getit =Nc.msgtest("Y, C or N")