数字的录入？再线等！着急！

Question

我要做一个类似小键盘的东西！窗体上有按钮代表1.2.3.4.5.6.7.8.9.0   
输入数字后。text1.text的值按顺序排列如：点command1、command2、command3、....command9
结果是text1.text="123...9"
按取消按钮删除右边第一个数字！如123456789删除后删除9？？
如何写代码！

Answer 1

if len(text1.text)>0 then
   text1.text=left(text1.text,len(text1.text)-1)
end if

Answer 2

这很简单啊，把command1到command9设成数组
Private Sub Command1_Click(Index As Integer)
Text1.Text=Text1.Text & Command1(Index).Caption
End SubPrivate Sub CancelButton_Click()
Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)
End Sub

Answer 3

完善一点就是
Private Sub Command1_Click(Index As Integer)
Text1.Text=Text1.Text & Command1(Index).Caption
End SubPrivate Sub CancelButton_Click()
If Text1.Text <> "" Then
   Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)
End If
End Sub