Android Question [resolved] DateDialogs - Resumable subs return type must be ResumableSub

[stingrae]

hi,

I just opened one of my B4A projects for the first time in few months (ie, been a few updates since I last worked on it), and am now getting the following error:

Resumable subs return type must be ResumableSub (or none).
Error occurred on line: 324 (DateDialogs)

i have this object declared in my code:

Dim D As DateDialogs

And here is the line in the DateDialogs class which is causing the error:

' Error occurs here on first line 
Public Sub Show(Title As String) As Int
       
    Pa.Initialize("Pa")
    Pa.Color=Colors.ARGB(200,0,0,0)
   
    Cale.Initialize("Cale")
    Cale.Color=Colors.White
   
    Testa.Initialize("Testa")
    Testa. Color=Colore
   
    FillCalendar
    FillTesta(Title)
       
    If 100%y>100%x Then 
        'verticale -250 +280 = 530
        Pa.AddView(Testa,50%x-140dip,50%y-265dip,280dip,250dip)
        Pa.AddView(Cale,50%x-140dip,50%y-15dip,280dip,280dip)
        MyAct.AddView(Pa,0dip,0dip,100%x,100%y)
    Else
        'orizzontale
        Pa.AddView(Testa,50%x-280dip,50%y-140dip,280dip,280dip)
        Pa.AddView(Cale,50%x,50%y-140dip,280dip,280dip)
        MyAct.AddView(Pa,0dip,0dip,100%x,100%y)
    End If
   
    Do While Ret=0
'        DoEvents
        Sleep(0)
    Loop
   
    Pa.RemoveView
    Return Ret
End Sub

Has something changed in the past few months that I need to add?

Thanks in advance.

 

[Erel]

Your code could have never worked. Once you changed DoEvents to Sleep(0) the sub becomes a resumable sub. Watch the resumable subs video tutorial.

 

[stingrae]

Ahh, I must've been playing around with it from another project and then discarded it.
But what you said worked. Thank you.