....
Activity.LoadLayout("layout")
webview1.Color = Colors.Yellow
webview1.Zoom(False)
Dim cs As CSBuilder
cs.Initialize.Size(22).Alignment("ALIGN_CENTER").append("Ti aspettiamo! ").append(CRLF).Append(CreateClickableWord("https://www.b4x.com")).PopAll
label1.Text = cs
cs.EnableClickEvents(label1)
End Sub
Sub CreateClickableWord(Text As String) As CSBuilder
Dim cs As CSBuilder
Return cs.Initialize.Underline.Color(0xFF00D0FF).Clickable("word", Text).Append(Text).PopAll
End Sub
Sub Word_Click (Tag As Object)
webview1.LoadUrl(Tag)
End Sub
) che deve inserire la url memorizzandola nel db con una edit text, che alla bisogna richiamo leggo ed eventualmente modifico. Vorrei capire se esiste un modo per rendere questa url, alla successiva rilettura dal dal db sempre tramite edit text, cliccabile ed aprisse il browser di default. Spero di essere stato chiaro.
Hai ragione, ma forse @Luigi S non ha voluto dilungare troppo la domanda e il significato era interpretabile.
Si fà che l'EditText dovrebbe essere usata per aggiungere record al DB, e in fase di lettura dovresti mettere il record in una Label e usare il CSBuilder come detto da @drgottjr
quindi estrarre dalla stringa come nell'esempio appena postasto (#7) tutti i possibili link,Si fà che l'EditText dovrebbe essere usata per aggiungere record al DB, e in fase di lettura dovresti mettere il record in una Label e usare il CSBuilder come detto da @drgottjr
Poi ci potrebbero essere anche altre soluzioni, ma senza sapere come e cosa deve fare l'app sono solo supposizioni.
Avevo capito male io.
Magari mi prendo il tempo per commentarla.
Private Sub Button1_Click
Dim pieces() As String 'Prepara un array di stringhe senza definirne la grandezza
Dim cs As CSBuilder 'Dichiarazione del CSBuilder
cs.Initialize 'Inizializzazione CsBuilder
pieces = Regex.Split(" ", EditText1.Text) 'Spezzetta il testo di EditText in parole singole (divide ad ogni SPAZIO) e riempie l'array
For x = 0 To pieces.Length - 1 'Effettua un ciclo in tutto l'array e verifica se la parola inizia con WWW. o meno per capire se è un link
If pieces(x).ToUpperCase.StartsWith("WWW.") Then 'Controlla se la parola inizia con WWW. Il ToUpperCase è per rendere tutto maiuscolo per avere solo una caso (WWW.)
cs.Underline.Color(0xFF00D0FF).Clickable("word", pieces(x)).Append(pieces(x) & " ").PopAll 'Se la parola inizia con WWW. la aggiunge al CSBuilder come Link. "word" è il nome dell'evento che gestirà il Click sui Link. Se lo cambi devi modificare anche il nome della SUB che troverai dopo
Else
cs.Color(Colors.Black).Append(pieces(x) & " ") 'Se non inizia con WWW. la aggiunge come testo semplice
End If
Next
cs.PopAll 'Chiude il CSbuilder
EditText1.Text = cs 'Assegna alla EditText il testo prodotto dal CSBuilder con i Link Cliccabili
cs.EnableClickEvents(EditText1) 'Abilita i Link Cliccabili nel testo della EditText
End Sub
'QUESTA SUB ERA RIMASTA DA UN TEST PRECEDENTE, NON SERVE
'Sub CreateClickableWord(Text As String) As CSBuilder
' Dim cs As CSBuilder
' Return cs.Initialize.Underline.Color(0xFF00D0FF).Clickable("word", Text).Append(Text).PopAll
'End Sub
Private Sub word_Click (tag As Object) 'Questa Sub gestisce cosa deve accadere con i Link Cliccabili
Dim url As String 'Stringa per contenere l'URL definitivo
If tag.As(String).ToUpperCase.StartsWith("HTTP") Then 'Se il link non inizia con HTTP:// glielo aggiunge perchè altrimenti a me non si apriva il browser
url = tag.As(String)
Else
url = "http://" & tag.As(String)
End If
Dim ph As PhoneIntents 'Questa parte fà aprire il browser al link indicato
Dim i As Intent
i = ph.OpenBrowser(url)
StartActivity(i)
End SubHai ragione, ma io ho dato. ?
Sul sito ci sono già esempi di Label con link clickabili, belli e pronti. E' la faccenda EditText che non mi convince; consentire all'utente di inserire l'url nel db ma anche di testarlo?
