Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/14: Рейтинг темы: голосов - 14, средняя оценка - 4.86
0 / 0 / 2
Регистрация: 27.01.2013
Сообщений: 94
1

Запрет ввода определенных символов в TextBox

26.02.2013, 21:27. Показов 2700. Ответов 6
Метки нет (Все метки)

Пожалуйста помогите как написат программу чтобы в текстбоксе нельзя было бы ставить

1)ПРОБЕЛ,
2)ЗАПЯТАЯ,
3)ТОЧКА,
4)КОВЫЧКИ,
5)СКОБКИ
какой сможете помогите
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2013, 21:27
Ответы с готовыми решениями:

Запрет ввода определенных символов в TextBox
Можно ли в каком-то свойстве текстбокса выбрать тип вводимых данных? Т.е., допустим текстбокс нужен...

VBA запрет на ввод в TextBox определенных символов
Доброго времени суток. Нужно запретить ввод в TextBox символы /\:*?<>| так как далее из него будет...

Запрет ввода определенных символов в TextBox
Подскажите пожалуйста как с делать так чтобы при выборе в numericUpDown цифры 2 в textBox можно...

Запрет ввода в TextBox определенных символов
В общем проблема такая, пол дня уже пытаюсь выполнить небольшое задание... Нужно поставить защиту...

6
97 / 90 / 18
Регистрация: 09.06.2012
Сообщений: 215
26.02.2013, 21:48 2
Я делал так.
Тут есть проверка на цифры и запятую, надеюсь с остальным сами разберетесь
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function textboxproverka(txt As TextBox) As Boolean 'функция проверки правильности ввода в textBox
    Dim proverka&
    
    If txt.Text <> "" Then
        If IsNumeric(Trim(txt.Text)) = False Then
            MsgBox "Неправильно ввели!", vbInformation, "Внимание"
            txt.SetFocus
            textboxproverka = False
            Exit Function
        End If
        If InStr(1, Trim(txt.Text), ",", vbTextCompare) <> 0 Then
            MsgBox "Неправильно ввели!", vbInformation, "Внимание"
            txt.SetFocus
            textboxproverka = False
            Exit Function
        End If
    End If
    textboxproverka = True
End Function
Вешать на LostFocus
PureBasic
1
2
3
Private Sub txtGr_LostFocus()
    textboxproverka txtGr
End Sub
0
Модератор
Эксперт Python
28975 / 15769 / 3133
Регистрация: 12.02.2012
Сообщений: 25,910
Записей в блоге: 4
26.02.2013, 21:50 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
   Select Case (Chr$(KeyAscii))
   
          Case " ", ",", ".", """", "(", ")", "[", "]"
          
               KeyAscii = 0
   
   End Select
   
End Sub
1
Модератор
8626 / 3173 / 827
Регистрация: 22.02.2013
Сообщений: 4,702
Записей в блоге: 78
26.02.2013, 21:51 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Text_KeyPress(KeyAscii As Integer)
    Dim Txt As String, N As Long, T As String
    If KeyAscii = Asc(" ") Or _
       KeyAscii = Asc(",") Or _
       KeyAscii = Asc(".") Or _
       KeyAscii = 34 Or _
       KeyAscii = Asc("(") Or _
       KeyAscii = Asc(")") Then KeyAscii = 0
    If KeyAscii = 22 Then   ' Ctrl+V
        If Not Clipboard.GetFormat(vbCFText) Then Exit Sub
        Txt = Clipboard.GetText()
        Txt = Replace(Txt, " ", vbNullString)
        Txt = Replace(Txt, ",", vbNullString)
        Txt = Replace(Txt, ".", vbNullString)
        Txt = Replace(Txt, Chr$(34), vbNullString)
        Txt = Replace(Txt, "(", vbNullString)
        Txt = Replace(Txt, ")", vbNullString)
        Text.SelText = Txt
        KeyAscii = 0
    End If
End Sub
0
Модератор
Эксперт Python
28975 / 15769 / 3133
Регистрация: 12.02.2012
Сообщений: 25,910
Записей в блоге: 4
26.02.2013, 21:52 5
Вот код:
0
Вложения
Тип файла: zip t056.zip (4.0 Кб, 39 просмотров)
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
27.02.2013, 00:06 6
Visual Basic
1
2
3
Private Sub Text1_KeyPress(KeyAscii As Integer)
 KeyAscii = IIf(InStr(1, ".,()[]" & Chr(34) & Chr(32), Chr(KeyAscii)) > 0, 0, KeyAscii)
End Sub
2
Эксперт WindowsАвтор FAQ
17632 / 7475 / 885
Регистрация: 25.12.2011
Сообщений: 11,255
Записей в блоге: 16
27.02.2013, 00:42 7
Запрет через свойство Locked: Полезные коды
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2013, 00:42

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Запрет ввода определенных символов в dataGridView
У меня есть таблица. Хочу чтобы кроме цифр и запятой вводить в ячейки ничего нельзя было. Кто...

Запрет ввода определенных символов в dbgrid
Добрый вечер! Ввожу данные непосредственно dbgrid, как мне запретить ввод знаков кроме чисел в...

Запрет ввода определённых символов в scanf
всем привет, я тут впервые так что не пинайте за может глупые на ваш взгляд вопросы. я только...

Запрет ввода определенных символов в Edit
Я искал на форуме и в гугле, нашел разные варианты, но не нашел который мне бы подошел... Ведь у...

Запрет ввода определенных символов (перевод с Delphi)
Доброго времени суток!!! Ребята помогите перевести код с Дэлфы на C++...Пишу Курсач и мне осталось...

Перевод Delphi -> C++ - запрет ввода в эдит определенных символов
Помогите пожалуйста сделать перевод защиты из Delphi на C++. Нужно сделать так, чтобы нельзя было...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.