Ciao a tutti,
dove posso trovare un programmatore (a pagamento) esperto in B4i?
Grazie
dove posso trovare un programmatore (a pagamento) esperto in B4i?
Grazie
io non ci sonocommunity map: http://www.communitywalk.com/B4X , e poi email
io non ci sono
Sub myw_OverrideUrl (Url As String) As Boolean
'URL Indirizzo da cui ricavare le coordinate
Dim Intent1 As Intent
Dim temp As String
Dim Coordinate() As String
Dim result As Int
If Url.EndsWith (".pdf") Then
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
'Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)
Else If Url.StartsWith("https://maps.google.it/?") Then
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
'Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)
myw.Back
myw.Forward
Else If Url.StartsWith("https://www.google.com/maps/dir//") Then
temp = Url.substring(Url.IndexOf("www"))
temp = temp.substring(temp.IndexOf("//")+2)
Coordinate = Regex.Split("[,]",temp)
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
'Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)
myw.Back
myw.Forward
myw.Forward
' result = Msgbox2("Registrare un commento?","Titolo: x Commento","Si","","No",Null )
' If result = -1 Then
' VR.Listen 'calls the voice recognition external activity
' End If
End If
End Sub
Version=4
NumberOfModules=0
Build1=Default,com.docartis.webview
NumberOfFiles=3
File1=homepage.html
File2=icon.png
File3=main.bil
NumberOfLibraries=1
Library1=icore
@EndOfDesignText@
'Code module
#Region Project Attributes
#ApplicationLabel: Label
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#QueriesSchemes: comgooglemapsurl
#ATSEnabled: false
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private WebView1 As WebView
End Sub
Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Titolo"
Page1.RootPanel.LoadLayout("main")
NavControl.ShowPage(Page1)
WebView1.LoadUrl("http://www.miosito.it")
End Sub
Sub WebView1_OverrideUrl (Url As String) As Boolean
If Url.StartsWith("https://maps.google") Then
Dim fixed As String = Url.Replace("https://", "comgooglemapsurl://")
If App.CanOpenURL(fixed) Then
App.OpenURL(fixed)
Return True
End If
End If
Return False
End Sub
Sub myw_OverrideUrl (Url As String) As Boolean
'URL Indirizzo da cui ricavare le coordinate
Dim Intent1 As Intent
Dim temp As String
Dim Coordinate() As String
Dim result As Int
If Url.EndsWith (".pdf") Then
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
'Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)
Else If Url.StartsWith("https://maps.google.it/?") Then
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
'Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)
myw.Back
myw.Forward
Else If Url.StartsWith("https://www.google.com/maps/dir//") Then
temp = Url.substring(Url.IndexOf("www"))
temp = temp.substring(temp.IndexOf("//")+2)
Coordinate = Regex.Split("[,]",temp)
Intent1.Initialize(Intent1.ACTION_VIEW, Url)
'Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)
myw.Back
myw.Forward
myw.Forward
' result = Msgbox2("Registrare un commento?","Titolo: x Commento","Si","","No",Null )
' If result = -1 Then
' VR.Listen 'calls the voice recognition external activity
' End If
End If
End Sub
Version=4
NumberOfModules=0
Build1=Default,com.docartis.webview
NumberOfFiles=3
File1=homepage.html
File2=icon.png
File3=main.bil
NumberOfLibraries=1
Library1=icore
@EndOfDesignText@
'Code module
#Region Project Attributes
#ApplicationLabel: Label
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#QueriesSchemes: comgooglemapsurl
#ATSEnabled: false
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private WebView1 As WebView
End Sub
Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Titolo"
Page1.RootPanel.LoadLayout("main")
NavControl.ShowPage(Page1)
WebView1.LoadUrl("http://www.miosito.it")
End Sub
Sub WebView1_OverrideUrl (Url As String) As Boolean
If Url.StartsWith("https://maps.google") Then
Dim fixed As String = Url.Replace("https://", "comgooglemapsurl://")
If App.CanOpenURL(fixed) Then
App.OpenURL(fixed)
Return True
End If
End If
Return False
End Sub
una compagna meno prolissasono allergico anche io... mi serve solo per salvare la chat della mia compagna che è chilometrica