Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. Visual Studio 6.0
Selezione testo
lunedì 23 ottobre 2006 - 08.45
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
Slave
Profilo
| Junior Member
101
messaggi | Data Invio:
lun 23 ott 2006 - 08:45
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
125
messaggi | Data Invio:
ven 27 ott 2006 - 11:55
devi farlo nn nel change ma nel lost focus
meglio i perdenti xkè hanno la speranza di vincere...cosa che i vincenti nn hanno....
Torna su
Stanze Forum
Elenco Threads
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 !