Correttore ortografico (per la lingua spagnola)

[vuott]

https://www.gambas-es.org/viewtopic.php?f=1&t=6017

[Gianluigi]

Gli ho già risposto sulla ML suggerendo l'uso di SendKeys (del componente gb.desktop).
Si potrebbe usare una cosa del genere, magari migliorata, tutto dipende anche da come funziona il suo correttore ortografico:

Codice: [Seleziona]

Public Sub Button1_Click()

  Dim ar As String[]
  Dim s, c As String
  Dim i, a As Integer
  
  ar = Split(WebView1.Text, " ", Null, True)
  WebView1.html = Replace(WebView1.html, ar[ar.max], "<span style=\"background-color: rgb(254, 254, 126);\">" & ar[ar.max] & "</span>")
  ' occorre ricostruire la stringa fino al punto di errore'
  For Each c In ar
    s &= c & " "
  Next
  i = Len(s)  
  WebView1.SetFocus
  'Aquí el cursor queda al principo del texto. Lo queremos al final'
  For a = 1 To i
    Desktop.SendKeys("[Right]")
  Next
  
End

Ho corretto in modo che sia più comprensibile, almeno lo spero