Как создать цифровую клавиатуру в VB 2008

Question

Я занимаюсь разработкой приложения калькулятора для Windows. Я хочу создать цифровую клавиатуру, которая имеет ТОЛЬКО цифры и десятичные точки. Как мне создать его и всплывать, когда пользователь выбирает ЛЮБОЕ текстовое поле?

Спасибо и С наилучшими пожеланиями, S Sandeep

Answer 1

Ну, я думаю, я получил ответ сам:

Я добавил две логические переменные в декларации форм с именами yesfocusedtxtno1 и yesfocusedtxtno2. Я использовал их в методе GotFocus() обоих текстовых полей и продолжал соответственно изменять переменные. Например, если фокус имеет txtno1, я говорю yesfocusedtxtno2 = False и yesfocusedtxtno1 = true. Затем я добавил этот код в метод OnClick для каждой кнопки на клавиатуре. (Я только что дал один для образца.)

Dim keynum As String = "1"
    If yesfocusedtxtno1 = True Then
        txtNo1.Focus()
        txtNo1.Text = txtNo1.Text + keynum
    Else
        txtNo2.Focus()
        txtNo2.Text = txtNo2.Text + keynum
    End If