Создан TextBox и кнопка
Прописан следующий текст

Private Sub G1_KeyPress(KeyAscii As Integer)
If Not Chr(KeyAscii) Like "[0-9,]" Then KeyAscii = 0
End Sub

То есть вводятся только цифры и "," остальные знаки игнорируются.

Кнопка CommandButton производит определенный расчет.
с десятичными и целыми числами.

Однако, на моем компьютере все работает нормально, то есть вводится, напимер число 525,66 при этом знак "," вводится с кнопки где расположена русская буква "Б" и расчет производится без ошибок
На другом компьютере знак "," вводится только с правой цифровой панели, кнопка под кнопкой с цифрой "3" и при расчете выдается ошибка (выкидывает из программы) Программа принимает число 525,66 за 525.66 то есть ошибка знака.

как исправить такой глюк?

ставь замену когда берёт как точку.. ставь замену на запятую

он берет как запятую, но выдает ошибку.
кстати, как производить замену?

я вот так заменяю можно попроще.. мне так хватает

Код

Private Sub Text1_Change() intdlina = Len(Text1.Text)    strTochka = Right(Text1.Text, 1) If strTochka = "." Then Text1.Text = Mid(Text1.Text, 1, intdlina - 1) Text1.Text = Text1.Text & "," Text1.SelStart = intdlina End If End Sub

а там сам подумай что и как

Это сообщение отредактировал(а) M.E.G.U.S - 10.9.2005, 23:38

не - можно проще:
в тот же кейпрес - if keyascii=... - не помню - код точки короче - then kodascii=код запятой
дёшево и сердито

Цитата(kulibin @ 10.9.2005, 23:27)

не помню - код точки короче

46