Differenze tra le versioni di "ComboBox che consente di posizionarsi sulla prima ricorrenza di un item quando si digitano le sue prime lettere"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per ottenere un ''ComboBox'' che consenta di posizionarsi sulla prima ricorrenza di un item quando si digitano le sue prime lettere, si può usare questa soluzione: '''Public...') |
|||
| Riga 9: | Riga 9: | ||
'''Public''' Sub ComboBox1_Change() | '''Public''' Sub ComboBox1_Change() | ||
| − | With ComboBox1 | + | Dim s As Short |
| − | + | ||
| − | + | With ComboBox1 | |
| − | + | s = .List.Find(String.Left(.Text, .Pos) & "*", gb.Like) | |
| + | If s > -1 Then | ||
| + | .Text = ComboBox1[s].Text | ||
| + | .Pos = .Tag | ||
| + | Endif | ||
| + | End With | ||
'''End''' | '''End''' | ||
Versione delle 12:12, 1 nov 2014
Per ottenere un ComboBox che consenta di posizionarsi sulla prima ricorrenza di un item quando si digitano le sue prime lettere, si può usare questa soluzione:
Public Sub Form_Open()
ComboBox1.Tag = 1
End
Public Sub ComboBox1_Change()
Dim s As Short
With ComboBox1
s = .List.Find(String.Left(.Text, .Pos) & "*", gb.Like)
If s > -1 Then
.Text = ComboBox1[s].Text
.Pos = .Tag
Endif
End With
End
Public Sub ComboBox1_KeyRelease()
If Key.Code < 127 Then
Inc ComboBox1.Tag
Else
ComboBox1.Tag = ComboBox1.Pos + 1
Endif
End
