По ограниченному вводу символов

@t0r0l · Регистрация: 28.12.2014

Студворк — интернет-сервис помощи студентам

Добрый вечер. Прошу помощи в коде. Надо что бы результат был только 2 числа и если дробь то ещё 2 числа (12,34).

Т.е Максимум можно ввести два чила, но если ставим запятую то ещё два.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Text1_KeyPress(KeyAscii As Integer)
    txt = Text1 
    Select Case KeyAscii
        Case 13: Text1 = FormatNumber(txt, 2)
        Case 8: 
        Case 44, 46: KeyAscii = IIf(InStr(1, txt, ".") > 0, 0, 46)
        Case 48 To 57: KeyAscii = IIf(InStr(1, txt, ".") > 0 And Len(txt) - InStrRev(txt, ".") > 1, 0, KeyAscii)
        Case Else:   KeyAscii = 0 
    End Select
End Sub

Добавлено через 10 минут
Вообще: хотел отключить всё кроме цифр, точки и Backspace

@zink0000 · 29.12.2014, 15:06

У меня это было так реализовано, правда без ограничений на количество символов:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub txtNumInp_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    ' [Enter]
    lblTest.Caption = "Введено число - " & txtNumInp.Text
  ElseIf KeyAscii >= 48 And KeyAscii <= 57 Then
    ' Числа 0123456789
  ElseIf KeyAscii = 46 And Not (InStr(txtNumInp.Text, ".") <> 0) Then
    ' Десятичная точка
  ElseIf KeyAscii = 8 Then
    ' BackSpace
  Else
    KeyAscii = 0
    Beep
  End If
End Sub

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

Добавлено через 2 часа 58 минут
Как-то так:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub txtNumInp_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    ' [Enter]
    lblTest.Caption = "Введено число - " & txtNumInp.Text
  ElseIf KeyAscii >= 48 And KeyAscii <= 57 Then
    ' Числа 0123456789
  ElseIf KeyAscii = 46 And Not (InStr(txtNumInp.Text, ".") <> 0) Then
    ' Десятичная точка
  ElseIf KeyAscii = 8 Then
    ' BackSpace
  Else
    KeyAscii = 0
    Beep
  End If
End Sub

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub txtNumInp_Change()
  Dim iCursorPos As Integer
  '
  ' Отбрасываем ноль в первой позиции!
  iCursorPos = txtNumInp.SelStart
  If "0" = Left$(txtNumInp.Text, 1) Then
    txtNumInp.Text = Right$(txtNumInp.Text, Len(txtNumInp.Text) - 1)
  End If
  If 0 = InStr(txtNumInp.Text, ".") Then
    If 2 < Len(txtNumInp.Text) Then
      txtNumInp.Text = Left$(txtNumInp.Text, 2)
    End If
  Else
    If 5 < Len(txtNumInp.Text) Then
      txtNumInp.Text = Left$(txtNumInp.Text, 5)
    End If
  End If
  txtNumInp.SelStart = iCursorPos
End Sub

Понятное дело, если ТекстБокс у Вас с другим именем - соответствующие правки сделать надо.
txtNumInp замените везде на Ваше имя соответствующего объекта.

@zink0000 · 29.12.2014, 15:10

Ловите проект:
Text01I.zip

Проверьте.
Всё должно работать, как Вам хотелось... или по крайней мере, как Вы описывали, что Вам хотелось.

@t0r0l · 04.01.2015, 01:33 **[ТС]**

Большое спасибо. Очень помогло. А главное теперь самому понятно стало

@zink0000 · 04.01.2015, 10:03

А главное теперь самому понятно стало.

Вот это, t0r0l, самое главное.

@gaw · 04.01.2015, 12:47

вариант

Visual Basic
1
2
3
4
5
Private Sub Text1_Change()
t = Text1.Text
If (t Like "" Or t Like "#" Or t Like "##" Or t Like "##." Or t Like "##.#" Or t Like "##.##") = False Then Text1 = Mid(t, 1, Len(t) - 1)
Text1.SelStart = Len(Text1.Text)
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

По ограниченному вводу символов

Решение

Решение

@zink0000 258 / 107 / 26 Регистрация: 15.03.2012 Сообщений: 353 Записей в блоге: 35
	29.12.2014, 15:10
	Сообщение было отмечено t0r0l как решение Решение Ловите проект: Text01I.zip Проверьте. Всё должно работать, как Вам хотелось... или по крайней мере, как Вы описывали, что Вам хотелось. 1

@t0r0l 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 2
	04.01.2015, 01:33 [ТС]
	Большое спасибо. Очень помогло. А главное теперь самому понятно стало 0

Опции темы