ServanteS87
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ладно, как смог быдлокодер разобрался. на двойной клик повесил следующее:
Код: Private Sub rtwtrsppltxtbx_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtwtrsppltxtbx.DoubleClick
Dim value1 As String
Dim number1 As Double
Dim value2 As String
Dim number2 As Double
value1 = rtwtrspplndstxtbx.Text
value2 = ndstxtbx.Text
If Double.TryParse(value1, number1) And Double.TryParse(value2, number2) Then
Else : MsgBox("херь")
End If
End Sub |
Специально не стал писать обработку на if, решил проверить. Все работает. Ошибок нет. Выдает "херь".
Добавлено:
Цитата: цифрового в каком виде?
что используется для разделителя целой и дробных частей?
это же зависит от локали - точку вместо запятой пробовали использовать? |
Да ни в каком, стоит ввести одну цифру - сразу ошибка.
Перевесил обработку на процедуру потери фокуса, вводил и с точкой и с запятой, все одно.
Добавлено:
Вдруг кому понадобится, вот решение:
Код: Private Sub rtwtrsppltxtbx_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtwtrsppltxtbx.TextChanged
'Это наш код который будет обрабатывать всё что мы вводим в обоих TextBox
_BB()
End Sub
Public Sub _BB()
If rtwtrsppltxtbx.Text = String.Empty Then Exit Sub 'Определяем введено ли у нас число в TextBox "rtwtrsppltxtbx"
If ndstxtbx.Text = String.Empty Then Exit Sub 'Определяем введено ли у нас число в TextBox "ndstxtbx"
'если нет, то завершаем событие через оператор Exit Sub
'дальше проверяем ввели мы правильно числа или нет
Try
' правильно
rtwtrspplndstxtbx.Text = Convert.ToDouble(rtwtrsppltxtbx.Text) * (Convert.ToInt32(ndstxtbx.Text) / 100)
Catch ex As Exception
' неправильно
End Try
End Sub
Private Sub ndstxtbx_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ndstxtbx.TextChanged
'Это наш код который будет обрабатывать всё что мы вводим в обоих TextBox
_BB()
End Sub |
Не буду расписывать, сплю на ходу... |
