Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Помогите обработать нажатие клавиш!!!! Добавлено: 29.10.03 14:53  

Автор вопроса:  amadeus | ICQ: 12567137 
У меня вопрос: как программно когда нажимается символ "запятая" вместо запятой ставить точку (то есть подменять нажатие запятых точками)????
 
СПАСИБО!

Ответить

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

Номер ответа: 1
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #1
Добавлено: 29.10.03 15:05
В обработчике события KeyPress нуэно изменять код символа (ИМХО,
что-то вроде KeyAscii или KeyCode).

Ответить

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



Хранитель чата

ICQ: 137392264 

Вопросов: 8
Ответов: 557
 Web-сайт: www.hypertech.ru
 Профиль | | #2
Добавлено: 29.10.03 15:06

Moжно заменять на KeyPress:

if chr(keyascii) = "," then keyascii = asc(".")

Ответить

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



ICQ: 12567137 

Вопросов: 4
Ответов: 4
 Профиль | | #3 Добавлено: 29.10.03 16:04

простите за тупой вопрос , а как это реализовать программно на vb.net ?????

 

СПАСИБО ЗА ПОНИМАНИЕ!!!

Ответить

Номер ответа: 4
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #4
Добавлено: 29.10.03 16:49
А почему вопрос фигурирует в разделе "Общий форум", а не ".NET"?
В .NET так же, как и в VB6, только нужно юзать не KeyAscii, а какое-то
свойство объекта e.

Ответить

Номер ответа: 5
Автор ответа:
 boevik



Хранитель чата

ICQ: 137392264 

Вопросов: 8
Ответов: 557
 Web-сайт: www.hypertech.ru
 Профиль | | #5
Добавлено: 29.10.03 17:06

Почти так же как и в VB6

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If e.KeyChar = "," Then

e.Handled = True

Dim s As SendKeys

s.Send(".")

End If

End Sub

 

Ответить

Номер ответа: 6
Автор ответа:
 Diss



Вопросов: 3
Ответов: 4
 Профиль | | #6 Добавлено: 30.10.03 01:33

Я новичок... Думаю - общая схема такова:

Private Sub Txt1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
   Case Asc("0") To Asc("9")
    
   Case Asc(".")

   Case Asc(",")
            KeyAscii = Asc(".") 'здесь случится то, что Вам надо
   Case else

            KeyAscii = 0

   End Select

End sub

 

Ответить

Страница: 1 |

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



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