1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

диапазон чисел(textbox)

Тема в разделе "Visual Basic", создана пользователем kaskad755, 13 фев 2009.

  1. kaskad755

    kaskad755 Active Member

    Репутация:
    0
    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
    введение чисел в диапазоне от1 до 12 в textbox, 13 и более запретить?
     
  2. Tanya

    Tanya Гость

    Репутация:
    0
    Код:
    Private Sub Text1_GotFocus()
    Me.Text1.Tag = Me.Text1.Text
    End Sub
    
    Private Sub Text1_LostFocus()
    Dim s As String
    
    With Me.Text1
    
    s = .Text
    
    If Not (s Like "[1-9]" Or s Like "1[1-2]") Then
    
    .SelStart = 0
    .SelLength = Len(s)
    
    MsgBox "[1 .. 12]", vbCritical, "Error"
    
    .SetFocus
    End If
    
    End With
    End Sub
     
  3. kaskad755

    kaskad755 Active Member

    Репутация:
    0
    Регистрация:
    13 фев 2009
    Сообщения:
    34
    Симпатии:
    0
    Таня огромное спасибо, н рождается другой вопрос (на который, я просто не знаю ответ).

    5 текстовых полей в которые вводятся цыфры от 1 до 12, но есть поля в которые ничего не вводится (т. е. они пустые). Незнаю как добавить проверку перед запретом, если подскажете спасибо (или подскажите, где это можно прочитать, чтоб понять, хочется разобраться, а не ездить людям по ушам).

    Private Sub Text1_GotFocus()
    Me.Text1.Tag = Me.Text1.Text
    End Sub
    Private Sub Text1_LostFocus()
    Dim s As String
    With Me.Text1
    s = .Text
    +++++++++++++++++++++Что вставить просто не знаю+++++++++++++
    If Not (s Like "[1-9]" Or s Like "1[1-2]") Then
    .SelStart = 0
    .SelLength = Len(s)
    MsgBox "ВОЗМОЖНЫ ТОЛЬКО ЦЫФРЫ ОТ 1 ДО 12", vbCritical, "Error"
    .SetFocus
    End If
    End With
    End Sub
     
Загрузка...

Поделиться этой страницей