[求助]关于相互求值，简单问题请教！！

loozhi · 发表于 2004-4-4 15:51:00

在VB中我做了两个文本框，前面用了单选按钮来控制，目的是控制哪一个文本框是Focus。
现在要求在第一个文本框上填数字，然后通过公式可以在第二个文本框中显示结果；
同样，在第二个框中填数字，第一个框就可以出来结果；
两文本框中就这样的一种关系。
请教，我应该用什么事件才可以实现啊？
程序代码又应该怎么写啊？？
谢谢好心人帮我一下吧~！！谢谢~！！

wdiinxl5lmo.jpg

mccad · 发表于 2004-4-4 20:02:00

copy


Private Sub TextBox1_Change()
       If IsNumeric(Me.TextBox1.Value) Then
               Me.TextBox2.Value = Me.TextBox1.Value + 5
       Else
               Me.TextBox2.Value = 0
       End If
End Sub
Private Sub TextBox2_Change()
       If IsNumeric(Me.TextBox2.Value) Then
               Me.TextBox1.Value = Me.TextBox2.Value - 5
       Else
               Me.TextBox1.Value = 0
       End If
End Sub

my_computer · 发表于 2004-4-5 23:23:00

Dim IfChange As Boolean
Private Sub TextBox1_Change()
If IfChange Then
   IfChange = False
   If IsNumeric(Me.TextBox1.Value) Then
   Me.TextBox2.Value = Me.TextBox1.Value + 5
   Else
   Me.TextBox2.Value = 0
   End If
   IfChange = True
End If
End Sub
Private Sub TextBox2_Change()
If IfChange Then
   IfChange = False
   If IsNumeric(Me.TextBox2.Value) Then
   Me.TextBox1.Value = Me.TextBox2.Value - 5
   Else
   Me.TextBox1.Value = 0
   End If
End If
End Sub
建议添加 Ifchange变量控制修改的进入问题。change属性经常使程序混乱。你监视一下运行过程就会明白。

loozhi · 发表于 2004-4-11 22:20:00

奇怪，为什么我按你们给的写的却实现不了啊！！！！求助了！！！

kv0iaufmlz2.jpg

我把".value"改为了".Text"好像都不行，是我的VB6.0有问题？还是什么问题了？
要在什么环境下实现吗？还是说控件属性要怎么设置啊？？

雪山飞狐_lzh · 发表于 2004-4-12 00:01:00

你不用搞的那么复杂
只要一个文本框和两个单选按钮就可以搞定，还简单些

mccad · 发表于 2004-4-12 07:19:00

这是VB中的写法：

copy


Private Sub Text1_Change()
       If IsNumeric(Me.Text1) Then
               Me.Text2 = Me.Text1 + 5
       Else
               Me.Text2 = 0
       End If
End Sub
Private Sub Text2_Change()
If IsNumeric(Me.Text2) Then
               Me.Text1 = Me.Text2 - 5
       Else
               Me.Text1 = 0
       End If
End Sub

loozhi · 发表于 2004-4-12 18:21:00

谢谢指导~！！但还有点小疑问，我把里面公式变为了：
Me.Text2 = Me.Text1 * 9550 / 450
Me.Text1 = Me.Text2 * 450 / 9550
之后我在Text1中输入了“5”，就下面这样显示了，要加点什么东西来控制吗？？

登录/注册后可看大图

我按三楼的方法写如下：请教怎么我运行不出来，哪里错了吗？求助一下~！！
Dim IfChange As Boolean
Private Sub Text1_Change()
   If IfChange Then
   IfChange = False
   If IsNumeric(Me.Text1) Then
   Me.Text2 = Me.Text1 + 5
   Else
   Me.Text2 = 0
   End If
   IfChange = True
   End If
End Sub
Private Sub Text2_Change()
   If IfChange Then
   IfChange = False
   If IsNumeric(Me.Text2) Then
   Me.Text1 = Me.Text2 - 5
   Else
   Me.Text1 = 0
   End If
   IfChange = True
   End If
End Sub
注：我才学会了点VB而已，见笑了。。