Ввод текста в Combobox

[Марина]

Моя задача- ввести в Combobox и при вводе первая буква переводилась в прописную. Я написала процедуру, которая работает если я ввожу английский текст, но в случае русского текста выскакивает ошибка. Просьба помочь мне разобраться.

Private Sub cbo1_KeyPress(KeyAscii As Integer)
Dim strCharacter As String
If Len(cbo1.Text) = 0 Or Len(cbo1.Text) < 1 Then
strCharacter = Chr(KeyAscii)
KeyAscii = Asc(UCase(strCharacter))
Else
strCharacter = Chr(KeyAscii)
KeyAscii = Asc(LCase(strCharacter))
End If
End Sub

[GSerg]

Никаких ошибок, всё прекрасно!

[skiperski]

А зачем выдумывать велосипед? Есть же стандартная функция.

Код: Выделить всё

Private Sub cbo1_Change()
    cbo1.Text = StrConv(cbo1.Text, vbProperCase)
End Sub

[Марина]

Ну насчёт "Никаких ошибок всё прекрасно"-это ответ для галочки то бишь для звёздочки, а что касается велосипеда - тут событие Change работает не корректно

[GSerg]

Ну ни фига себе...
Скопипастил себе код, проверил в обоих языках, всё работает, первая буква делается большая, ничего не вылетает... Сказал об этом - и такая неадекватная реакция.

[skiperski]

а что касается велосипеда - тут событие Change работает не корректно

А что именно некорректно? Вот событие KeyPress() действительно некорректно, т.к. ты обрабатываешь текст который был до нажатия клавиши. Т.е. если комбобокс не пуст, то тичего не происходит. Или можно набрать текст и перейти в первую позицию и заменить или добавить символ. Ещё вопрос: какой Style комбобокса?