Android Question Send B4xPage to a sub

[mrumball]

Hi,

I have a common sub routine that operates on 2 different pages, how do I send the page information to the sub?

I am currently using a string to hold the sender page then use SELECT to work out which page to operate on, this works but is messy, I am sure that there is a cleaner way. Can anyone help?

Public Sub TestSub(senderpage As String)
    
    Select senderpage
                
                
        Case "STOCK_LOCATE"
                
            B4XPages.MainPage.Page_STOCK_LOCATE.LblPartDescription.Text = "Part number not found"
        Case "STOCK_OUT"
                    
            B4XPages.MainPage.Page_STOCK_OUT.LblPartDescription.Text = "Part number not found"
            
    End Select
    
End Sub

 

[Erel]

Public Sub TestSub(senderpage As Object)
 CallSub2(senderpage, "SetDescription", "Part number not found")
End Sub

 

[mrumball]

Thanks for your quick reply Erel, I may have not explained what I am looking to achieve,

I want to send 'B4XPages.MainPage.Page_STOCK_LOCATE' or 'B4XPages.MainPage.Page_STOCK_OUT' to the sub

Public Sub TestSub(senderpage As Object)
    

                
            senderpage.LblPartDescription.Text = "Part number not found"
    
                    
    
End Sub

The above does not work
Thanks

 

[LucaMs]

Do not send the page id, send directly the label.

Public Sub TestSub(LblPartDescription As B4XView)
    LblPartDescription.Text = "Part number not found"
End Sub

 

[Erel]

You can pass the label directly as suggested above. What I meant, is that you will add a "SetDescription" sub in each of the pages and call it with CallSub.