' facebook = fb://publish/?text=posso ospitare cani di media e grande taglia presso la mia abitazione publicato su job2go il 25112014140556
Dim s As String = "fb://publish/?text=" & colRoot.Get(3) & """ publicato su job2go il " & colRoot.Get(13)
CallFacebookPublish(s)
B4X:
Sub CallFacebookPublish(s As String)
Dim app As Application
If app.CanOpenUrl(s) Then
app.OpenUrl(s)
Else
Dim mhud As HUD
mhud.ToastMessageShow(s,True)
End If
End Sub
using all of the examples, the pattern fb does not pass, it always returns false
B4X:
Dim s As String = "fb://publish/profile/me?text=" & colRoot.Get(3) & " publicato su job2go il " & colRoot.Get(13)
CallFacebookPublish(s)
Sub CallFacebookPublish(s As String)
Dim app As Application
If app.CanOpenUrl(s) Then
app.OpenUrl(s)
Else
Dim mhud As HUD
mhud.ToastMessageShow(s,True)
End If
End Sub
Sub CallFacebookPublish(s As String)
Dim su As StringUtils
s = su.EncodeUrl(s,"UTF8")
Dim app As Application
If app.CanOpenUrl(s) Then
app.OpenUrl(s)
Else
Dim mhud As HUD
mhud.ToastMessageShow(s,True)
End If
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.