Числа...Числа..

[Dex]

У меня возникло две проблемки:
1.Как запретить писать в TextBox (при работе программы) все символы
кроме чисел
2.Как сделать чтоб когда в TextBox заносилось например число
1,1284629084682 это число округлялось до десятых, ну тоесть чтоб
после запятой был один знак
Заранее ГРОМАДНЕЩЕЕ спасибо

[Ennor]

Контрол такой есть - MaskEdit. Вот в нем это все и делается. Ну а если не хочешь его - тогда лови у своего текста событие Change() и проверяй пользовательский ввод. Ну и Validate() для верности тоже не помешает.

[-=TsA=-]

Для запрета используй
KeyPress() TextBox'a
где отсеиваеш ненужные клавиши

Округление
Private Sub TextBox_LostFocus()
TextBox.Value=ROUND(TextBox.Value, ЧислоЗнаковПослеЗапятой)
End Sub

[Шурик]

1.

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String
s = "qwertyuiop"
If InStr(1, s, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub


'qwertyuiop...' и т.д. - какие символы игнорировать

[SHURUP]

'qwertyuiop...' и т.д. - какие символы игнорировать

Если ввести все символы от А до Я, от а до я, от A до Z, от a до z, все знаки препинания и символы "Alt+???", то строка получится порядка 220±5 символов.
По-моему лучше проверять входят ли введенные символы в диапазон разрешимых, а не игнорируемых
Например так:

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case Asc("0") To Asc("9"), Asc(",")
    Case Else: KeyAscii = 0
End Select
End Sub

[tyomitch]

Очень в тему ссылка:
http://thedailywtf.com/archive/2004/09/20/1889.aspx

[GSerg]

Какое удовольствие я получил
alibek, тоже обязательно зайди

[Ennor]

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

[SHURUP]

Не нраится Select Case, можно и через IF:

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = Asc(","))  Then KeyAscii = 0
End Sub

[Dex]

Спасибо всем за помощь в моём первом вопросе но всё что вы
написали я знал но раз нет другогог способа значит буду делать так.
И всё таки спасибо.

[GSerg]

Ну почему же

Мы когда поприкалываемся, у нас настроение повышается

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

Option Explicit

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const ES_NUMBER As Long = &H2000&
Private Const GWL_STYLE As Long = -16

Private Sub Form_Load()
  Text1.Text = vbNullString
  SetWindowLong Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER
End Sub

[SHURUP]

на 2-й вопрос:

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

Private Sub Text1_LostFocus()
    Text1.Text = Format$(Text1.Text, "#.#")
End Sub

[Zer]

Хм... Ещё один вариант по 2-му вопросу:
a-Число
b-Оно округлённое
n-до какого знака после запятой

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

b=(int((10^n)*a))/(10^n)

[Zer]

По-поводу ссылки. Это чего за изврат?

[Andrey Fedorov]

Для запрета используй
KeyPress() TextBox'a
где отсеиваеш ненужные клавиши

А ведь можно еще и из буфера обмена скопировать в TextBox...

Округление
Private Sub TextBox_LostFocus()

Вообще-то LostFocus использовать в данном случае неверно. Контрол может не терять фокус (например, при нажатии на Enter при наличии Default-ной кнопки OK).
Для проверки введенного (ну и форматирования после ввода) лучше пользовать событие Validate контрола. Ну а при нажатии на ту-же OK делать ValidateControls...

[GM]

Еще один вариант ответа на первый вопрос:

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If  (isnumeric(chr(KeyAscii)) or KeyAscii = Asc(",")) =false   Then KeyAscii = 0
End Sub