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

@ROG1993 · Регистрация: 27.01.2013

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

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

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

@iptables · 26.02.2013, 21:48

Я делал так.
Тут есть проверка на цифры и запятую, надеюсь с остальным сами разберетесь

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

@Catstail · 26.02.2013, 21:50

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

@The trick · 26.02.2013, 21:51

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

@Catstail · 26.02.2013, 21:52

Вот код:

@gaw · 27.02.2013, 00:06

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

Dragokas · 27.02.2013, 00:42

Запрет через свойство Locked: Полезные коды

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@ROG1993 0 / 0 / 2 Регистрация: 27.01.2013 Сообщений: 94

	Запрет ввода определенных символов в TextBox 26.02.2013, 21:27. Показов 3583. Ответов 6 Метки нет (Все метки) Пожалуйста помогите как написат программу чтобы в текстбоксе нельзя было бы ставить 1)ПРОБЕЛ, 2)ЗАПЯТАЯ, 3)ТОЧКА, 4)КОВЫЧКИ, 5)СКОБКИ какой сможете помогите 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	27.02.2013, 00:42
	Запрет через свойство Locked: Полезные коды 0