Question

如何用VB做一个软件键盘?主要是数字键盘就行了!

我想做一个计算器就是不知道如何实现用软键盘输入数字及符号

Answer 1

在窗体上放置以下控件：
1、lblResult Label控件 设置lblResult.Caption = 0
2、btnNum(0)~btnNum(9) 按钮控件数组，下标对应齐数字（如：btnNum(0).Caption=0，依次类推）
3、添加btnAdd（加法）、btnSub（减法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等于号）、btnReset（清除键）六个按钮。

在窗体代码中输入以下内容：

Dim byteOperation As Byte '操作符
Dim byteTmp As Byte '临时操作符
Dim intNum As Double '输入的数字
Sub Calc()
Select Case byteOperation
Case 1 'Add
lblResult.Caption = CDbl(lblResult.Caption) + intNum
Case 2 'Sub
lblResult.Caption = intNum - CDbl(lblResult.Caption)
Case 3 'Mul
lblResult.Caption = CDbl(lblResult.Caption) * intNum
Case 4 'Div
lblResult.Caption = intNum / CDbl(lblResult.Caption)
Case Else

End Select
End Sub

Private Sub btnNum_Click(Index As Integer)
If byteTmp <> 0 Then
intNum = lblResult.Caption
lblResult.Caption = 0
byteTmp = 0
End If
If lblResult.Caption = 0 Then
lblResult.Caption = Index
Else
If Len(lblResult.Caption) < 9 Then
lblResult.Caption = lblResult.Caption & Index
End If
End If
End Sub

Private Sub btnAdd_Click()
If byteOperation <> 0 Then
Call Calc
End If
byteOperation = 1
byteTmp = 1
End Sub

Private Sub btnReset_Click()
byteTmp = 0
byteOperation = 0
intNum = 0
lblResult.Caption = 0
End Sub

Private Sub btnSub_Click()
If byteOperation <> 0 Then
Call Calc
End If
byteOperation = 2
byteTmp = 2
End Sub

Private Sub btnMul_Click()
If byteOperation <> 0 Then
Call Calc
End If
byteOperation = 3
byteTmp = 3
End Sub

Private Sub btnDiv_Click()
If byteOperation <> 0 Then
Call Calc
End If
byteOperation = 4
byteTmp = 4
End Sub

Private Sub btnEnter_Click()
Call Calc
byteTmp = 0
End Sub

Answer 2

给你个思路，用按钮和文本框来实现。每个按钮对应一个数字或者符号。按下按钮，在文本框显示对应的数字即可。一个简单的代码

Private Sub Command1_Click()
Text1.Text = "1"
End Sub
就是这么简单...

Answer 3

没用过条码设备吧？
条码扫描仪就是一个键盘，插在键盘口上的，懂了？
条码打印仪就是一个打印机，不过只看到过DOS下使用，我没在Windows下使用过，据说就是打印一串数字即可。

Answer 4

是只在输入眶里输入吗？