Ошибка 13

[kminas]

Если в программе тип переменной задан Single или Integer, а во время выполнения программы данные, например в TextBox не введены (и не надо вводить), программа определяет тип переменной String и выдает ошибку 13. Можно ли как-то обмануть прогу, не присваивая переменной тип Variant и не прибегая к обработчику ошибок?

Аналогично с плавающей точкой. Хотя эти типы и так называются, но у меня Single и Double определяются, когда число с запятой. Как быть с типом переменных в этом случае. Либо еще лучше, как сделать, чтобы введенные в этом случае точка, превращалась в запятую?

[Gemini]

Если я правильно понял...
Вот(на скорую руку):

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

Dim a As Double
Private Sub Command1_Click()
   If Len(Text1.Text) = 0 Then
     a = 0
   Else
    ///Раскомментируй для доп. проверки...
    ' If InStr(1, Text1.Text, ".") > 0 Then
        a = Replace(Text1.Text, ".", ",")
    ' Else
    '    a = Text1.Text
    ' End If
   End If
me.caption=a
End Sub


[Viper]

просто надо корректно преобразовывать в нужный тип, и при необходимости обрабатывать ошибку.

[sergey-911]

Нужно воспользоваться сторонними компонентами, вместо всяких проверок.
Например, инфрагристик и тп. Это сократит время на разработку и пользователь не сможет ввести данные, не соответствующие условию.

http://www.infragistics.com
http://www.ciatheco.com/Products/Index.php
http://www.componentone.com

[kminas]

Спасибо, буду пробовать.

[kminas]

Gemini
Спасибо! Из нескольких форумов, лучше всего подошел Ваш с небольшим уточнением.

[Gemini]

kminas
Всегда пожалуйста!