Как в ComboBoxe’e сделать автоподстановк -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.119.131.178]

Модераторы: SCINER, B.V.

Как в ComboBoxe’e сделать автоподстановк

D[u]fa

Сообщ. #1 , 30.03.04, 17:20

Master

Рейтинг (т): 112

Dim i As Integer, j As Integer, Letter As String

Private Sub Combo1_Change()

Letter = Mid$(Combo1.Text, 1, j)

For i = 0 To Combo1.ListCount - 1

If Letter = Mid$(Combo1.List(i), 1, j) Then Combo1.Text = Combo1.List(i): Exit For

Next i

Combo1.SelStart = j

End Sub

Private Sub Combo1_Click()

Letter = ""

j = 0

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 8

j = j - 1

If j < 0 Then j = 0

Exit Sub

Case Else

j = j + 1

Exit Sub

End Select

End Sub

Сообщение отредактировано: B.V. - 20.11.06, 22:39

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0143 ] [ 16 queries used ] [ Generated: 19.04.24, 23:59 GMT ]