spostare cursore

[dex]

ciao raga

sto completando una funzione di autocompletamento per delle text durante l'immissione dei dati.

mi occorre sapere come faccio a posizionare il cursore in un punto preciso della text?
In pratica immaginiamo che nella tex ci sia la parola Tommaso io vorrei posizionare il cursore fra le 2 m quindi al terzo posto, e dovrei avere nella tex la scritta Tom cursore maso, e se possibile maso selezionato blu.

[milio]

Codice: gambas [Seleziona]

  ME.TextBox1.Pos = 3
  ME.TextBox1.Select(3, Len(ME.TextBox1.Text))

[dex]

@milio
grazie delle dritte , ho buttato giù del codice e sembra che funzioni

Codice: [Seleziona]

PUBLIC SUB TextBox2_KeyRelease()

  DIM sqlc AS String
DIM StrIm, StrRis AS String

SELECT Key.code
      CASE Key.Enter, Key.Return, Key.Down, Key.up, Key.Left, Key.Right, Key.Delete, Key.BackSpace, Key.BackTab, Key.Tab
    
      RETURN
      STOP EVENT 
      
      END SELECT


StrIm = Mid(TextBox2.text, 1, textbox2.Pos)


  IF FasMod AND Len(StrIm) > 2 AND RadioButton1.value THEN 
  
  sqlc = "SELECT * FROM clienti WHERE cognome LIKE '" & StrIm & "%'"
          MyRsc = MODMain.MyConn.Exec(sqlc)
  
  IF MyRsc.Available THEN 
  StrRis = MyRsc!cognome
  TextBox2.text = StrRis
  TextBox2.Select(Len(StrIm), Len(StrRis))
  ELSE 
  TextBox2.text = StrIm
  ENDIF
  
  ENDIF

END