VPF::замена символа в textbox - Форум программистов

Petro123

Дата 10.9.2009, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 6.4.2007

Репутация: нет
Всего: нет

Вопрос по VB.Net.
Как в TextBox- е сделать, чтобы при нажатии одного символа на клавиатуре печатался другой

Например, нажимаю клавишу "0" печатается символ "1"
e.keycode readonly

diadiavova

Дата 10.9.2009, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Код


    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "0"c Then
            e.KeyChar = "1"c
        End If
    End Sub

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

Akina

Дата 10.9.2009, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454

Типа

Код


Private Sub textBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles textBox1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D0) Then
    e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.D1)
ElseIf  e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.NumPad0) Then
    e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.NumPad1)
End If
End Sub

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Petro123

Дата 10.9.2009, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 6.4.2007

Репутация: нет
Всего: нет

Хм, я так пробовал
ругается что keychar readonly

Petro123

Дата 10.9.2009, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 6.4.2007

Репутация: нет
Всего: нет

Цитата

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Kcd = 106 Then
            TextBox1.Text = Microsoft.VisualBasic.Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1) & "."
            TextBox1.SelectionStart = Len(TextBox1.Text)
        End If
    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Kcd = e.KeyCode
    End Sub

только так получается,
но по идее должен ваш вариант катить,...

Pilger

Дата 10.9.2009, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 257
Регистрация: 10.5.2008
Где: Германия

Репутация: нет
Всего: нет

Он катит... тебе надо проверять символ, который вводится в поле. Например если вводится "f", то вводить что то другое. Посмотри, что выдает KeyChar при нажатии на нужную тебе кнопку.

Это сообщение отредактировал(а) Pilger - 10.9.2009, 21:40

--------------------

Ein Leben nach der Schleife existiert, nur wenn die Schleife terminiert.

diadiavova

Дата 10.9.2009, 21:59 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(Petro123 @ 10.9.2009, 14:48

)

Хм, я так пробовал
ругается что keychar readonly

Я свой код тоже пробовал и всё работает. А кичар не ридонли, посмотри документацию по этому свойству.
http://msdn.microsoft.com/ru-ru/library/sy...gs.keychar.aspx

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »