Selezione testo

lunedì 23 ottobre 2006 - 08.45

Slave Profilo | Junior Member

allora...il mio problema è un po difficile da spiegare...io utilizzo questo codice all'interno di una combo:

Private Sub Combondl_Change()
Dim X

For X = -1 To ComboNDL.ListCount
If ComboNDL.Text = ComboNDL.List(X) Then

ComboNDL.ListIndex = X
Exit For
End If
Next X
ComboLancio.ListIndex = ComboNDL.ListIndex
If (Len(ComboNDL.Text) = 2) And (ComboLancio.ListIndex = -1) Then
MsgBox "Elemento non esistente"
ComboNDL.ListIndex = -1
End If

End Sub


in questo modo collego questa combo con un altra dove viene automaticamente visualizzata la descrizione della'analogo ID:...e fino a qui tutto bene...

il problema sorge quando devo selezionare un id con due cifre... se voglio ad esempio 67 inizio a digitare ovviamente il 6....il mio programma vede che il 6 che ho inserito corrisponde gia ad un id esistente,e quindi mi scrive nell'altra combo la descrizione del numero 6....il problema pero e che cosi appena inserisco il 6 questo viene subito autoselezionato e se voglio scrivere anche il 7 per completare il mio id questo va a sustituire il 6(in quanto appunto selezionato....)
per farlo andare adesso dovrei prima scrivere il 6,poi spostaremi con la freccia e dopo inserire il 7,cosa un po scomoda....volevo sapere se c'era un modo per far si che una volta scritto il sei il testo all'interno non venga selezionato ma si possa subito continuare a scrivere.....


Sono solo uno sballato in un mondo di sballati....



fato....ho risolta cosi...:

Dim X, a

For X = -1 To ComboNDL.ListCount
If ComboNDL.Text = ComboNDL.List(X) Then

ComboNDL.ListIndex = X
SendKeys ("{RIGHT}")
Exit For

End If
Next X
ComboLancio.ListIndex = ComboNDL.ListIndex
a = Len(ComboNDL.Text)
If (Len(ComboNDL.Text) = a) And (ComboLancio.ListIndex = -1) Then
MsgBox "Elemento non esistente"
ComboNDL.ListIndex = -1
End If

fasol Profilo | Junior Member

devi farlo nn nel change ma nel lost focus



meglio i perdenti xkè hanno la speranza di vincere...cosa che i vincenti nn hanno....
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5