Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
17.01.2006, 06:15:32
|
|||
|---|---|---|---|
Maxlength в Combobox |
|||
|
#18+
Странно, но у combo нет свойства maxlength. Мне надо его правильно сэмитировать из кода. Делаю так Private Sub Combo2_KeyPress(KeyAscii As Integer) If Len(Combo2.Text) < 10 Then Combo2.Locked = False Else Combo2.Text = Left(Combo2.Text, Len(Combo2.Text) - 1) Combo2.Locked = True End If End Sub Это не очень хорошее решение, т.к. при обрезании лишнего символа курсор переходит в начало и начинает там печатать буквы. Подскажите, есть ли более хорошая реализация данного алгоритма? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.01.2006, 07:22:30
|
|||
|---|---|---|---|
|
|||
Maxlength в Combobox |
|||
|
#18+
Если уж использовать при событиии Combo2_KeyPress(KeyAscii As Integer) то грех не использовать KeyAscii If Len(Combo2.Text) < 10 Then Else If KeyAscii = vbKeyBack Then Else KeyAscii = 0 End If End If ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.01.2006, 07:32:12
|
|||
|---|---|---|---|
Maxlength в Combobox |
|||
|
#18+
Спасибо огромное. Супер решение. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&tablet=1&tid=2166561]: |
0ms |
get settings: |
5ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
182ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
40ms |
get tp. blocked users: |
1ms |
| others: | 185ms |
| total: | 442ms |
| 0 / 0 |
