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
community 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![]()