html在文本框中输出结果,在vb中,怎样才能在文本框中输出相应的结果 – 手机爱问...

2005-04-02

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就可以了。

。收起