Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  .NET  
     
  Автозаполнение в ComboBox'e  
  Как добавить автозаполнение в ComboBox
Public Sub AutoCompleteCombo_KeyUp(ByVal cbo As ComboBox, ByVal e As KeyEventArgs)
Dim sTypedText As String
Dim iFoundIndex As Integer
Dim oFoundItem As Object
Dim sFoundText As String
Dim sAppendText As String

'Не использовать автозаполнение
Select Case e.KeyCode
Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down
Return
End Select

'Получить напечатаный текст, и найти его в списке
sTypedText = cbo.Text
iFoundIndex = cbo.FindString(sTypedText)

'Если текст найден, то добавить недостающие символы
If iFoundIndex >= 0 Then
'Получить нужный пункт из списка
oFoundItem = cbo.Items(iFoundIndex)
'Получить текст найденого пункта
sFoundText = cbo.GetItemText(oFoundItem)
'Добавить и выделить недостающие символы
sAppendText = sFoundText.Substring(sTypedText.Length)
cbo.Text = sTypedText & sAppendText
cbo.SelectionStart = sTypedText.Length
cbo.SelectionLength = sAppendText.Length
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComboBox1.Items
.Add("www.vbnet.ru")
.Add("hello")
.Add("hi")
.Add("привет")
.Add("дарова!!!")
End With
ComboBox1.Sorted = True
End Sub

Private Sub ComboBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
'Использовать автозаполнение
AutoCompleteCombo_KeyUp(ComboBox1, e)
End Sub

 
     
  VBNet online (всего: 51616)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам