пытаюсь перехватить ошибку ввода в TextBox

[Glan]

Господа, помогите понять, как реализовать задачку.

условие:
Имеется некий TextBox который пользователь руками вводит число. Число может быть как целое, так и дробное. По событию after update введеный текст преобразуется в число при помощи CSng и используется в расчетах.

задача:
необходимо перехватить случай, когда пользователь водит в качестве разделителя не запятую, а точку тем самым вызывая type mismatch.
Перехватив же, необходимо эту точку заменить на запятую и продолжить выполнение кода.

что делалось:
пытался всячески преобразовывать вводимый текст. Избежать ошибки и остановки выполнения удалось только при использовании CVal но при это отрезается дробная часть, что недопустимо.
Тщательно рассматривались методы и свойства TextBox, однако среди них не найдено подходящего.

Прошу высказывать мысли.
Заранее благодаю.

[Viper]

Первоначально, пожалуйста, свою мысль в виде кода с указанием что и где не получилось.

[Чудовище под кроватью]

Если есть возможность, просто ставь на форму вместо Textbox'а Microsoft Masked Edit Control. Это по сути то же самое, с той лишь разницей, что можно в свойствах задать маску ввода. Просто поставишь нужную маску и все.
Что касается текстбокса:
Во-первых, почему CSng? Что за странный выбор типа?
Во-вторых, ошибка отслеживается:

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


'отключаем сообщения об ошибках
On Error Resume Next
'тут пишешь свою строку, которая может вызывать ошибку
'...
'проверяем, возникла ли ошибка:
If Err<>0 Then
'ну и далее твоя обработка ошибки

[KL]

может так ?:

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

Private Sub TextBox1_Change()
    With TextBox1
        Select Case IsNumeric(.Text)
        Case False: If Len(.Text) > 1 Then .Text = Left(.Text, Len(.Text) - 1) Else .Text = Empty
        Case Else: .Text = CStr(Replace(.Text, ",", "."))
        End Select
    End With
End Sub

[Чудовище под кроватью]

KL
Кстати! А не знаешь, где можно нормальную версию Masked Edit скачать? А то у меня на форму он отказывается лезть.

[KL]

KL
Кстати! А не знаешь, где можно нормальную версию Masked Edit скачать? А то у меня на форму он отказывается лезть.

Если не ошибаюсь, это лицензионный контрол в составе пакетов Visual Basic 6.0 и/или Visual Studio.

[Glan]

значится вот как это выглядит
вот обрабатываем событие и перехватываем ошибку с пустой строкой
Private Sub TextBox1_AfterUpdate()
If TextBox1.Value <> "" Then
Call p_update
End If
End Sub

потом зовем p_update, которая пересчитывает результаты расчетов.

Private Sub p_update()
rate = CSng(TextBox1.Value) ' если введна точка, затыкается тут с ошибкой type mismatch
profit = CSng(TextBox2.Value) / 100 + 1
.....
дальше неинтересно, там просто расчеты.

а Single выбрал исходя из того, что оно покороче, места жерт меньше.
В принципе все равно какое число, лишь бы не целое и чтоб не текст был иначе потом на него делить не получится.

с Masked Edit Control никогда не работал. Сейчас пойду искать что это такое

KL думал об этом. Есть загвоздка - неизвестно сколько будет знаков до и после запятой. А кроме того Change срабатывет всякий раз когда пользователь вводит новую цифру.. это ж пока наберешь условно говоря "175,67" шесть раз пересчитает. Ужас.

Чудовище под кроватью
а если написать if error = 17 оно будет отлавливать именно type mismatch?
мда... остается придумать, как отловить точку в строке. Это уже легче. Но все равно надо думать.

[dr.MIG]

Про точку и запятую:
http://bbs.vbstreets.ru/viewtopic.php?t=30044

[KL]

KL думал об этом. Есть загвоздка - неизвестно сколько будет знаков до и после запятой.

и... не вижу в чем проблема

А кроме того Change срабатывет всякий раз когда пользователь вводит новую цифру.. это ж пока наберешь условно говоря "175,67" шесть раз пересчитает. Ужас.

а что, долго считает? ты на всякий пожарный попробуй - вдруг понравится

[Glan]

победил вот таким образом, основываясь на рекомендации уважаемого KL.


Private Sub TextBox1_Change()
With TextBox1
Select Case IsNumeric(.Text)
Case False: .Text = CStr(Replace(.Text, ".", ","))
End Select
End With

End Sub