Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ComboBox - поле со списком Добавлено: 12.12.08 00:05  

Автор вопроса:  chanchikela
В VB 6.0 сделал ComboBox, именем LLL соответственно присвоил значения списку

 With LLL
        .AddItem "Иван"
        .AddItem "Борис"
        .AddItem "Петя"
        .AddItem "Саша"
        .AddItem "Дима"
        .AddItem "Толик"
End With

В свойстве Style выбрал 2-Dropdown List. Не могу сделать следующее

1. Хочу что при нажатии первой буквы оно сам прокручивался на соответствующий значение, как в Access – е при работе с поле со списком
2. чтоб кроме указанного значении мог добавлять другие значения, тоже как в Access – е при работе с поле со списком
Заранее благодарю,
  

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
  Профиль | | #1 Добавлено: 12.12.08 12:33
Private Sub LLL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    LLL.AddItem LLL.Text
End If
End Sub
тока свойство - Style = 0

Ответить

Номер ответа: 2
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
  Профиль | | #2 Добавлено: 12.12.08 12:35
или чтоб добавлять - текстбокс повесь рядом - тогда Dropdown List можно оставить - а поиск по нажатой клавише - это АПИ нужно рыть, гдето встречал - но не помню

Ответить

Номер ответа: 3
Автор ответа:
 chanchikela



Вопросов: 12
Ответов: 21
  Профиль | | #3 Добавлено: 13.12.08 21:56
Всем спасибо, помог DIS на форуме

http://kbyte.ru/Forum/Show.aspx?id=9511&lang=ru

Вот приважу код который выложил DIS

  1.  
  2. Option Explicit
  3. Option Compare Text
  4.  
  5. Private Sub Form_Load()
  6.  With LLL
  7.   .AddItem "Иван"
  8.   .AddItem "Борис"
  9.   .AddItem "Петя"
  10.   .AddItem "Саша"
  11.   .AddItem "Дима"
  12.   .AddItem "Толик"
  13.  End With
  14. End Sub
  15.  
  16. Private Sub LLL_Change()
  17.  Dim i&, l&
  18.  
  19.  l = Len(LLL.Text)
  20.  If l = 0 Then Exit Sub
  21.  For i = 0 To LLL.ListCount - 1
  22.   If Len(LLL.List(i)) >= l Then
  23.    If Left$(LLL.List(i), l) = LLL.Text Then
  24.     LLL.ListIndex = i
  25.     LLL.SelStart = l
  26.     LLL.SelLength = Len(LLL.Text) - l
  27.     Exit For
  28.    End If
  29.   End If
  30.  Next
  31. End Sub
  32.  
  33. Private Sub LLL_KeyPress(KeyAscii As Integer)
  34.  Select Case KeyAscii
  35.  Case 8
  36.   If LLL.SelStart > 0 And LLL.SelLength > 0 Then
  37.    KeyAscii = 0
  38.    LLL.Text = Left(LLL.Text, LLL.SelStart - 1)
  39.   End If
  40.  Case 13
  41.   LLL.AddItem LLL.Text
  42.  End Select
  43. End Sub



Еше раз всем огромное спасибо!!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам