VB中如何实现文本框的刷新？例如在设
举例：
文本框名为txtSngInput,加法键名为cmdAdd,乘法键名为cmdMul,等于键为cmdOver。
Dim sngTempDo(2) As Single '(0)存储操作符，(1)存储操作结果
Private Sub cmdAdd_Click()
Dim sngTemp As Single
Select Case sngTempDo(0)
Case 1 '加法
txtSngInput。 Text = CStr(CSng(txtSngInput。Text) + sngTempDo(1))
Case 2 ...全部
举例：
文本框名为txtSngInput,加法键名为cmdAdd,乘法键名为cmdMul,等于键为cmdOver。
Dim sngTempDo(2) As Single '(0)存储操作符，(1)存储操作结果
Private Sub cmdAdd_Click()
Dim sngTemp As Single
Select Case sngTempDo(0)
Case 1 '加法
txtSngInput。
Text = CStr(CSng(txtSngInput。Text) + sngTempDo(1))
Case 2 '乘法
txtSngInput。
Text = CStr(CSng(txtSngInput。Text) * sngTempDo(1))
'Case 3 '减法
'Case 4 '除法
End Select
sngTempDo(1) = CSng(txtSngInput。
Text)
sngTempDo(0) = 1
End Sub
Private Sub cmdMul_Click()
Select Case sngTempDo(0)
Case 1 '加法
txtSngInput。
Text = CStr(CSng(txtSngInput。Text) + sngTempDo(1))
Case 2 '乘法
txtSngInput。
Text = CStr(CSng(txtSngInput。Text) * sngTempDo(1))
'Case 3 '减法
'Case 4 '除法
End Select
sngTempDo(1) = CSng(txtSngInput。
Text)
sngTempDo(0) = 2
End Sub
Private Sub cmdOver_Click()
Select Case sngTempDo(0)
Case 1 '加法
txtSngInput。
Text = CStr(CSng(txtSngInput。Text) + sngTempDo(1))
Case 2 '乘法
txtSngInput。
Text = CStr(CSng(txtSngInput。Text) * sngTempDo(1))
'Case 3 '减法
'Case 4 '除法
End Select
sngTempDo(1) = 0
sngTempDo(0) = 0
End Sub
Private Sub Form_Load()
sngTempDo(0) = 0
End Sub
'========================================================
以上的代码还没有写当你按下操作符以后，文本框的数字输入将变为重新开始。
这个你可以设置一个Boolean变量a，初始化为Ture，每个数字键按下事件中写上：
if a = ture then
a = flase
txtSngInput。text = ""
else
txtSngInput。
text = txtSngInput。text & 新的数字
endif
在txtsnginput的keypress事件中也是类似写法。然后在几个操作键的按下事件中添加令a=ture就可以了。
。收起
