Android Question How to get current page?

[gacar]

i want an if condition like as

if currentpage("page1") then  
dont connect to database
else if currentpage("page2") then
connect to database
end if

 

[Erel]

Dim CurrentPageId As String = B4XPages.GetPageId(Me)

 

[teddybear]

i want an if condition like as

if currentpage("page1") then 
dont connect to database
else if currentpage("page2") then
connect to database
end if

I think you should set a boolean state for page1 in service. when the page1 Activity_Pause it is false, else true.

 

[gacar]

Dim CurrentPageId As String = B4XPages.GetPageId(Me)

This is not right for me.

I think you should set a boolean state for page1 in service. when the page1 Activity_Pause it is false, else true.

Yes, in a similar way. How can I do that?

 

[gacar]

Dim CurrentPageId As String = B4XPages.GetPageId(Me)

I have a chat window. If a user leave chat i want mark it leaved. But chat windows codes working behind still, i cant stop it. So if a user leave from chat page not working code.

 

[gacar]

 

[LucaMs]

Private Sub B4XPage_Appear
    'Connect
End Sub

Private Sub B4XPage_Disappear
    'Disconnect
End Sub

 

[teddybear]

View attachment 126271

To the picture,I could not understand your intent

but to the code.

i want an if condition like as

if currentpage("page1") then
dont connect to database
else if currentpage("page2") then
connect to database
end if

You can define a global variable IscurrentPage2 for page2 in code or service module. you can set the value is true when page2 is create or resume event, false is in pause event.

You can use the code to judge if page2 is current page

if yourmodule.IscurrentPage2 then
    connect database
    else
    disconnect
endif

 

[gacar]

Private Sub B4XPage_Appear
    'Connect
End Sub

Private Sub B4XPage_Disappear
    'Disconnect
End Sub

Thank you very much. It is worked

 

[jahswant]

Also use this to get TopPage

Dim TopPage As String = B4XPages.GetManager.GetTopPage.Id

 

[LucaMs]

Also use this to get TopPage

Dim TopPage As String = B4XPages.GetManager.GetTopPage.Id

... to get TopPageID