Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Проверка на ввод данных и т.д. Добавлено: 25.02.10 23:06  

Автор вопроса:  Spam
Доброго времени суток!
У меня есть несколько вопросов:
1. Как сделать так чтобы в текстовое поле нельзя было вводить ничего кроме русских букв?
2. Как сделать так чтобы в текстовое поле нельзя было вводить ничего кроме цифр?
3. Как сделать запись в текстовый файл определенной инф-ии, а потом считывание её в ListBox?
Желательно примеры кода.
Работаю в ВБ 6.0
Спасибо!

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | | #1 Добавлено: 26.02.10 09:21
  1.  
  2. Private Sub Text1_KeyPress(KeyAscii As Integer)
  3.   If KeyAscii = 8 Or KeyAscii = 13 Then Exit Sub ' backspace или enter
  4.   If KeyAscii < 192 Or KeyAscii > 255 Then KeyAscii = 0
  5. End Sub
  6.  
  7.  
  8. Private Sub Text2_KeyPress(KeyAscii As Integer)
  9.   If KeyAscii = 8 Or KeyAscii = 13 Then Exit Sub ' backspace или enter
  10.   If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
  11. End Sub
  12.  
  13.  
  14. Private Sub Command1_Click()
  15. Dim Count1 As Long, Count2 As Long, str1() As String
  16.  
  17. str1 = Split(Text1.text, vbCrLf)
  18. Count1 = UBound(str1)
  19.  
  20. Do Until Count2 > Count1
  21.   List1.AddItem str1(Count2)
  22.   Count2 = Count2 + 1
  23. Loop
  24. End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам