numeric - 如何在 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