Mynak
New Member
#Region Project Attributes
#ApplicationLabel: Ningen
#VersionCode: 3
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
Sub Process_Globals
Private PreviousPages As List
Private xui As XUI
End Sub
Sub Globals
Private WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
PreviousPages.Initialize ' PreviousPages listesini başlat
Activity.LoadLayout("wv")
Dim webViewExtras As WebViewExtras
webViewExtras.Initialize(WebView1)
WebView1.LoadUrl("https://website.com")
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then ' Kullanıcı geri düğmesine bastığında
If PreviousPages.Size > 1 Then ' En az bir önceki sayfa varsa
' Şu anki sayfayı listeden kaldır
PreviousPages.RemoveAt(PreviousPages.Size - 1)
' Önceki sayfaya geri dön
WebView1.LoadUrl(PreviousPages.Get(PreviousPages.Size - 1))
Return True ' Geri tuşunun varsayılan işlevini engelle
End If
End If
Return False ' Diğer tuş vuruşlarını işlemek için varsayılan geri dönüş değeri
End Sub
Sub WebView1_PageFinished (Url As String)
If PreviousPages.Size = 0 Or PreviousPages.Get(PreviousPages.Size - 1) <> Url Then
' Eğer listede hiç URL yoksa veya son eklenen URL şu anki URL'den farklı ise
PreviousPages.Add(Url) ' URL'yi önceki sayfalar listesine ekle
End If
End Sub
so when I remove about localstorage commands on my website page is working but if page have local storage commands page not working
#ApplicationLabel: Ningen
#VersionCode: 3
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
Sub Process_Globals
Private PreviousPages As List
Private xui As XUI
End Sub
Sub Globals
Private WebView1 As WebView
End Sub
Sub Activity_Create(FirstTime As Boolean)
PreviousPages.Initialize ' PreviousPages listesini başlat
Activity.LoadLayout("wv")
Dim webViewExtras As WebViewExtras
webViewExtras.Initialize(WebView1)
WebView1.LoadUrl("https://website.com")
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then ' Kullanıcı geri düğmesine bastığında
If PreviousPages.Size > 1 Then ' En az bir önceki sayfa varsa
' Şu anki sayfayı listeden kaldır
PreviousPages.RemoveAt(PreviousPages.Size - 1)
' Önceki sayfaya geri dön
WebView1.LoadUrl(PreviousPages.Get(PreviousPages.Size - 1))
Return True ' Geri tuşunun varsayılan işlevini engelle
End If
End If
Return False ' Diğer tuş vuruşlarını işlemek için varsayılan geri dönüş değeri
End Sub
Sub WebView1_PageFinished (Url As String)
If PreviousPages.Size = 0 Or PreviousPages.Get(PreviousPages.Size - 1) <> Url Then
' Eğer listede hiç URL yoksa veya son eklenen URL şu anki URL'den farklı ise
PreviousPages.Add(Url) ' URL'yi önceki sayfalar listesine ekle
End If
End Sub
so when I remove about localstorage commands on my website page is working but if page have local storage commands page not working