Ввод в TextBox только определенных символов

@Divil · Регистрация: 11.04.2012

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

Суть проблемы такова: что нужно прописать в окно TextBox, чтобы в поле можно было ввести только числа , знак -, и чтобы, если в поле введены не числа, то оно обнулялось.
Пробовал через функцию IsNumeric, но у меня где вылетает ошибка 2 раза, где вылетает ошибка, но поле не обновляется и т.д. Может кто посоветовать что-нибудь?! Заранее благодарен!

morgann55 · 11.04.2012, 01:03

Показал бы как ты пробовал...

SoftIce · 11.04.2012, 06:51

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' нажатие клавиши в поле
Private Sub Text1_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 48 To 57, 8  ' цифры 0 - 9 и <Backspace>
      ' обработка десятичного разделителя
      Case 44, 46       ' 44 - код запятой, 46 - код точки
         ' если в поле  введена запятая, то
         ' заменим ее на десятичный разделитель
         KeyAscii = 46
         ' проверим, введен ли уже в поле
         ' десятичный разделитель
         If InStr(Text1.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case Else
         KeyAscii = 0   ' остальные символы запрещены
   End Select
End Sub

@Divil · 11.04.2012, 15:19 **[ТС]**

morgann55, Вот код который у меня был:

VB.NET    
        
    Скопировано
1
2
3
If Not (IsNumeric(Text1.Text)) Then
Text1.Text = "": y = MsgBox("Ошибка", vbInformation + vbOKOnly, "Ввводите только число")
End If

SoftIce, спасибо

программа работает как надо!

@Divil · 20.05.2012, 20:54 **[ТС]**

вот мой код на vs2010 visual basic

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        Select Case KeyAscii
            Case 48 To 57, 8  ' цифры 0-9 и <Backspace>
                ' обработка десятичного разделителя
            Case 44, 46       ' 44 - код запятой, 46 - код точки
                ' если в поле введена запятая, то
                ' заменим ее на десятичный разделитель
                KeyAscii = 46
                ' проверим, введен ли уже в поле
                ' десятичный разделитель
                If InStr(TextBox4.Text, ".") <> 0 Then
                    KeyAscii = 0
                End If
            Case Else
                KeyAscii = 0   ' остальные символы запрещены
        End Select
    End Sub

куда и как мне надо вписать KeyAscii AS Integer чтобы выше указанный код работал?

dev.Free · 22.05.2012, 11:14

Так ты пиши сразу что VB 2010

Памирыч · 22.05.2012, 13:36

Комментарий модератора

Divil, повнимательнее с выбором раздела

@Divil · 22.05.2012, 15:47 **[ТС]**

Памирыч, извиняюсь, не знал что vb10 это vb.net...
inv.DS, а разница то какая? vs10 vb или просто vb10?
Так что может кто помоч???
а то мне срочно надо...сам я уже варианта 4 пробовал...но во всех какие либо ошибки выдавало(((

dev.Free · 22.05.2012, 16:55

Visual Studio - подразумевает собой набор компонентов для разработчика и визуальной разработки приложений в среде Windows.

Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка Бейсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.

Первое признание серьёзными разработчиками Visual Basic получил после выхода версии 3 — VB3. Окончательное признание как полноценного средства программирования для Windows — при выходе версии 5 — VB5. Версия VB6, входящая в состав Microsoft Visual Studio 6.0, стала по-настоящему зрелым и функционально богатым продуктом. После этого разработчики из Microsoft существенно изменили направление развития данной технологии.

Visual Basic .NET не позволяет программировать по-старому, ибо по сути является совершенно другим языком, таким же, как и любой другой язык программирования для платформы .NET. Индивидуальность языка, так же как и его преимущества (простота, скорость создания программ, лёгкость использования готовых компонент) при использовании в среде .NET не имеют такого значения, как раньше — всё сосредоточено на возможностях самой системы .NET, на её библиотеке классов. Поэтому сегодня (сентябрь 2010) нужно говорить о классическом Visual Basic, его диалектах Visual Basic for Applications (VBA) и Visual Basic Scripting Edition (VBScript) и о языке для платформы .NET — Visual Basic .NET.

Вот какая разница ! ! ! !

Прошу топик не редактировать, так для справки "ГОРЕ ПРОГРАММИСТАМ"

@Ajax-7 · 23.01.2013, 11:00

Решил отдельную тему не создавать, так как вопрос похожий. А если мне нужно такой же запрет на несколько текст боксов? Его можно прописать сразу, вроде text1 to text10? Или нужно писать для каждого?

@ZuMiks · 23.01.2013, 12:06

Divil, посмотри эту тему: Ввод в текстовое поле только цифр

@Jason · 23.01.2013, 15:24

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) = True Then
            e.Handled = False
        Else
            If e.KeyChar = "-" Then
                e.Handled = False
            Else
                e.Handled = True
            End If
        End If
    End Sub

Сообщение от Ajax-7

Решил отдельную тему не создавать, так как вопрос похожий. А если мне нужно такой же запрет на несколько текст боксов? Его можно прописать сразу, вроде text1 to text10? Или нужно писать для каждого?

В конце дописать надо:
Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress, TextBox5.KeyPress и т.д.
Т.е:

VB.NET    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub ALL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles _
        TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress, TextBox5.KeyPress
        'Работает для 5-ти тхтбоксов.
        If IsNumeric(e.KeyChar) = True Then
            e.Handled = False
        Else
            If e.KeyChar = "-" Then
                e.Handled = False
            Else
                e.Handled = True
            End If
        End If
    End Sub

28.04.2013, 15:04

Сообщение от SoftIce

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' нажатие клавиши в поле
Private Sub Text1_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 48 To 57, 8  ' цифры 0 - 9 и <Backspace>
      ' обработка десятичного разделителя
      Case 44, 46       ' 44 - код запятой, 46 - код точки
         ' если в поле  введена запятая, то
         ' заменим ее на десятичный разделитель
         KeyAscii = 46
         ' проверим, введен ли уже в поле
         ' десятичный разделитель
         If InStr(Text1.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case Else
         KeyAscii = 0   ' остальные символы запрещены
   End Select
End Sub

Как можно прописать этот код для нескольких текстовых полей? Vielen Dank...

@Gemorg · 28.04.2013, 19:25

Сообщение от yes_59

Как можно прописать этот код для нескольких текстовых полей? Vielen Dank...

Создать одно событие как обработчик для нескольких текстбоксов.

Новые блоги и статьи Все статьи Все блоги /
Результаты исследования от команды MCM (март 2025 г.) Programma_Boinc 07.04.2025 Результаты исследования от команды MCM (март 2025 г. ) В рамках наших текущих исследований мы продолжаем изучать гены, которые имеют наибольшую вероятность развития рака легких, выявленные в рамках. . .	Рекурсивные типы в Python py-thonny 07.04.2025 Рекурсивные типы - это типы данных, которые определяются через самих себя или в сочетании с другими типами, которые в свою очередь ссылаются на исходный тип. В мире программирования такие структуры. . .	C++26: Объединение и конкатенация последовательностей и диапазонов в std::ranges NullReferenced 07.04.2025 Работа с последовательностями данных – одна из фундаментальных задач, с которой сталкивается каждый разработчик. C++ прошел длинный путь в эволюции средств для манипуляции коллекциями – от. . .	Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .
Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .	Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .

@Divil 8 / 8 / 10 Регистрация: 11.04.2012 Сообщений: 611

	Ввод в TextBox только определенных символов 11.04.2012, 00:35. Показов 17494. Ответов 13 Метки нет (Все метки) Суть проблемы такова: что нужно прописать в окно TextBox, чтобы в поле можно было ввести только числа , знак -, и чтобы, если в поле введены не числа, то оно обнулялось. Пробовал через функцию IsNumeric, но у меня где вылетает ошибка 2 раза, где вылетает ошибка, но поле не обновляется и т.д. Может кто посоветовать что-нибудь?! Заранее благодарен! 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	11.04.2012, 01:03
	Показал бы как ты пробовал... 0

dev.Free Заблокирован
	22.05.2012, 11:14
	Так ты пиши сразу что VB 2010 0

@Divil 8 / 8 / 10 Регистрация: 11.04.2012 Сообщений: 611
	22.05.2012, 15:47 [ТС]
	Памирыч, извиняюсь, не знал что vb10 это vb.net... inv.DS, а разница то какая? vs10 vb или просто vb10? Так что может кто помоч??? а то мне срочно надо...сам я уже варианта 4 пробовал...но во всех какие либо ошибки выдавало((( 0

dev.Free Заблокирован
	22.05.2012, 16:55
	Visual Studio - подразумевает собой набор компонентов для разработчика и визуальной разработки приложений в среде Windows. Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка Бейсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса. Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows. Первое признание серьёзными разработчиками Visual Basic получил после выхода версии 3 — VB3. Окончательное признание как полноценного средства программирования для Windows — при выходе версии 5 — VB5. Версия VB6, входящая в состав Microsoft Visual Studio 6.0, стала по-настоящему зрелым и функционально богатым продуктом. После этого разработчики из Microsoft существенно изменили направление развития данной технологии. Visual Basic .NET не позволяет программировать по-старому, ибо по сути является совершенно другим языком, таким же, как и любой другой язык программирования для платформы .NET. Индивидуальность языка, так же как и его преимущества (простота, скорость создания программ, лёгкость использования готовых компонент) при использовании в среде .NET не имеют такого значения, как раньше — всё сосредоточено на возможностях самой системы .NET, на её библиотеке классов. Поэтому сегодня (сентябрь 2010) нужно говорить о классическом Visual Basic, его диалектах Visual Basic for Applications (VBA) и Visual Basic Scripting Edition (VBScript) и о языке для платформы .NET — Visual Basic .NET. Вот какая разница ! ! ! ! Прошу топик не редактировать, так для справки "ГОРЕ ПРОГРАММИСТАМ" 1

@Ajax-7 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 10
	23.01.2013, 11:00
	Решил отдельную тему не создавать, так как вопрос похожий. А если мне нужно такой же запрет на несколько текст боксов? Его можно прописать сразу, вроде text1 to text10? Или нужно писать для каждого? 0

@ZuMiks 124 / 102 / 5 Регистрация: 25.03.2012 Сообщений: 153
	23.01.2013, 12:06
	Divil, посмотри эту тему: Ввод в текстовое поле только цифр 0

@Gemorg 178 / 153 / 10 Регистрация: 08.11.2012 Сообщений: 224
	28.04.2013, 19:25
	Сообщение от yes_59 Как можно прописать этот код для нескольких текстовых полей? Vielen Dank... Создать одно событие как обработчик для нескольких текстбоксов. 1

Ввод в TextBox только определенных символов

Решение