|
|
|
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, 06:15:32 |
|
||
|
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:22:30 |
|
||
|
Maxlength в Combobox
|
|||
|---|---|---|---|
|
#18+
Спасибо огромное. Супер решение. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.01.2006, 07:32:12 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=298&tid=2166561]: |
0ms |
get settings: |
7ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
29ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
| others: | 190ms |
| total: | 306ms |
| 0 / 0 |
