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

   
   
     

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

Страница: 1 |

 

  Вопрос: Новое сообщение без темы Добавлено: 08.10.02 22:15  

Автор вопроса:  Synax | Web-сайт: elance.ru/sands

Ещё бы разрешить ввод минуса и запятой!

А за этот код огромное спасибо!!!

Ответить

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

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



Вопросов: 20
Ответов: 61
  Web-сайт: elance.ru/sands
 Профиль | | #1 		Добавлено: 08.10.02 22:20

Надеюсь все поняли к чему я это:

Private Sub Text1_KeyPress(KeyAscii As Integer)
      Select Case KeyAscii
        Case 0, 8, 48 To 57
        Case Else
            KeyAscii = 0
            Beep
        End Select
End Sub

так вот я хочу разрешить ввод запятой и минуса.

Ответить

Номер ответа: 2
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #2 		Добавлено: 08.10.02 23:00

Найди код минуса и запятой и вставь его в селект касе.

MinCode=asc("-")

ZptCode=asc(",")

Case 0, 8,MinCode,ZptCode, 48 To 57

Ответить

Номер ответа: 3
Автор ответа:
 Synax



Вопросов: 20
Ответов: 61
  Web-сайт: elance.ru/sands
 Профиль | | #3 		Добавлено: 08.10.02 23:04

А где взять эти коды?

Ответить

Номер ответа: 4
Автор ответа:
 Synax



Вопросов: 20
Ответов: 61
  Web-сайт: elance.ru/sands
 Профиль | | #4 		Добавлено: 08.10.02 23:44

Всё нашёл! 44 и 45. Да я просто прогу маленькую написал

Private sub form_keyPress

label1.cabtion=acs("-")

end sub

Ответить

Страница: 1 |

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



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