Уоквирени само слова (валидација)

Здраво, Овде сам оставио веома једноставан пример у Висуал Басиц нето. да процени притисака на тастере приликом уноса података у тектбок и дозвољава само слова занемарујући све што није слово. То је основни, али ће послужити као полазна тачка да бисте проверили било какав приход. Следећи код ....

 ТектБок1_КеиПресс Привате Суб (БиВал сендер Ас Објецт и БиВал е Ас Систем.Виндовс.Формс.КеиПрессЕвентАргс) Хандлес ТектБок1.КеиПресс
     Ако (не Цхар.ИсЛеттер (е.КеиЦхар) И е.КеиЦхар <> Мицрософт.ВисуалБасиц.ЦхрВ (8)) Онда
         е.Хандлед = Труе
     Енд Иф
 Енд Суб

Цхар тип има неколико својстава да ћемо бити веома корисно приликом вршења провера. У примеру видимо власништво ИсЛеттер ... Ево још мало да се сети.:

ИсЦонтрол: Показује да ли прецизирао Уникод карактер је категорисан као контролни карактер

ИсДигит: Показује да ли прецизирао Уникод карактер је категорисан као Децимални Цифра

ИСНУМБЕР: Показује да ли прецизирао Уникод карактер је категорисан као број

ИсЛеттерОрДигит: Показује да ли прецизирао Уникод карактер је категорисан као алфабетски знак или децимални број

и још много тога ... дајем ти добар савет ... увек консултовати помоћ.

18 Респонсес то "тектбок само слова (валидација)"

  1. Информације Битацорас.цом ...

    Ако желите, можете да кликнете да бисте оценили овај пост Битацорас.цом. Хвала ....

  2. Флуирееми каже:

    Хвала!

  3. к4рлоз каже:

    хвала за помоћ, ја сам инициандоме у ВБ.Нет и ја сам учио на овај начин:

    If Not (Char.IsLetter(e.KeyChar) Or Asc(e.KeyChar) = 32 Or Asc(e.KeyChar) = 8) Then
    e.Handled = True

    сте користили мицрософт.висуал ... итд, реците пријатељима који више одговара и једноставан за коришћење?

    • ЛОШЕ КОД каже:

      ЈАЈАЈЈААЈАЈА НИЈЕ ТАКО сам лако могао да меморишете бројеве и симболе

  4. Едуардо каже:

    Поздрав, Ја сам нови на ово и ја не видим начин притиском на тастер, могу да урадим?

    • Јелисије каже:

      При разматрању дизајн двоструко кликнете на контролу, идете на преглед и код случају да ова контрола има подразумевану. На пример, ако двоструко кликнете на ТектБок1'ре иде на контроле код ТектБок1_ТектЦханге, затим са курсором унутар те функције је цомбокуе отворите горњи десни тамо у коду прозору где су наведене све методе контроле у ​​питању . И руке бирате притиском тастера рутину.
      Постоји још један начин да то урадите. Ако то не да ме обавестите.

  5. блабла каже:

    Хвала за код веома добри људи, да се стави више од онога што је потребно ..

  6. јованни каже:

    Ваш допринос је веома добра, али надамо се могли ставити све то код има везе са софтвером за нострификација.

    поздрав

  7. Схикилл0 каже:

    хвала за унос
    Ја сам само почетак и морам сву могућу помоћ

  8. Паулиина је рекао:

    Помозите ...! Нецесиито потврди нека поља на форми да добије само слова, али ја то помоћу функције .. ико зна како да то урадите?
    Цуалкиер допринос аиудари мене ..!

    • ЛОШЕ КОД каже:

      Фун_ВалидарДатос Јавни Функција (БиВал цамповалидар Ас Стринг) Ас Боолеан
      ЛсРесултадо Дим Ас Стринг = "Валидатед"
      Ако Цхар.ИсЛеттер (лсУсуарио) Онда
      ретурн
      Друго
      ретурн фалсе
      Енд Иф
      Енд Фунцтион
      Овде се завршава функција позове да га заузме овако:
      Фун_ВалидарДатос ("Ово ће вратити труе и потврдиш да има број 96")
      Висуал Басиц добијем поспано, туп Леарн Јава

      • ЛОШЕ КОД каже:

        То јест:
        Фун_ВалидарДатос Јавни Функција (БиВал цамповалидар Ас Стринг) Ас Боолеан
        Ако Цхар.ИсЛеттер (цамповалидар) Онда
        ретурн
        Друго
        ретурн фалсе
        Енд Иф
        Енд Фунцтион
        Овде се завршава функција позове да га заузме овако:
        Фун_ВалидарДатос ("Ово ће вратити труе и потврдиш да има број 96")
        Висуал Басиц добијем поспано, туп Леарн Јава

  9. Лин каже:

    само добра "ЗНА"

    ХВАЛА ...:>

  10. аркутх каже:

    Таласи кн код обезбеђује визуелни конзолу .. али .. Ја само валидне бројеве (12345679), али ако сам ставио да прихвата бројеве и слова (абц123). Такође сам схватио да су бројеви 48 до 57 представљају бројеве од 1 до 9. Могу да користим ово, али сигурност код би био предуг ..!

    Мицрософт.ВисуалБасиц.ЦхрВ (48)) -> 0
    ...
    Мицрософт.ВисуалБасиц.ЦхрВ (57)) -> 9

    Ово је код у конзоли ..!

    наме = ИнпутБок ("Унесите своје име:")
    До Док (не Цхар.ИсЛеттер (име) И име Мицрософт.ВисуалБасиц.ЦхрВ (32))
    наме = ИнпутБок ("Унесите своје име поново види")
    петља

    се да је форум за тектбок, али види исти проблем нострификације, открио сам да је корисно да питам, оцекујем одговор ... хвала унапред ...!

  11. Иван каже:

    Врло једноставна и ефикасна. Ја само потребно у мом случају не прихватам бројеве, без обзира да ли сте унели још једну чудну симбол.

    ТектБок1_КеиПресс Привате Суб (БиВал сендер Ас Објецт и БиВал е Ас Систем.Виндовс.Формс.КеиПрессЕвентАргс) Хандлес ТектБок1.КеиПресс
    Ако Цхар.ИсНумбер (е.КеиЦхар) Онда
    е.Хандлед = Труе
    Енд Иф
    Енд Суб

    Хвала.

  12. Вилмер РОБИНСОН ОРТИЗ МЕДИНА рекао:

    код у ВБ.НЕТ 2005 која прихвата само бројеве
    напише писмо кад добијем поруку да прихвата само бројеве
    такође случај са било којим цор пример: -., '{>, само бројеви

  13. ЛОШЕ КОД каже:

    КРЕИРАНЕ овим закоником не ради за ПОЧЕТНИКЕ Сваки корисник може лако да унесете бројеве!. Копирање и лепљење
    Престаните да користите овај код или цонфигуренле догађај КеиДовн и миша право манифестацијом кликните на дугме Копирај и Пасте.
    Атт. Програмер

  14. Р. Фернандез каже:

    Хвала! Поново сам служио!

Коментар