Question

vb中，一个文本框内容变化了如何引起另一个文本框内容的变化？

比如我在文本框甲里面输入一个大于0的数，然后文本框乙的内容变成了0.2；如果在文本框甲里面输入一个小于等于0的数，文本框乙的内容变成0.3，请问如何实现呢？

Answer 1

vb中内容框变化使用Text1_Change。
Private Sub Text1_Change() 'Text1文本值只要一改变就会触发
If IsNumeric(Text1) = False Then MsgBox "不是数字，请输入数字", 0, "提示":exit sub
'==上面判断text1输入是否为数字
if val(text1)>0 then
text2="0.2" '如果text1输入大于0，text2 为0.2
elseif val(text1)<=0 then
text2="0.3" '如果输入小于0，则text2为0.3
End If
End Sub

Answer 2

Private Sub Text1_Change()'文本触发事件
    If IsNumeric(Text1) Then'判断是否为数字
    '文本输入最好单独处理。否则，程序首先输入负号或小数点会弹出讨厌的提示
        If Val(Text1) > 0 Then'该数大于0
            Text2 = "0.2": Exit Sub
        Else'该数小于或等于0
            Text2 = "0.3": Exit Sub
        End If
    End If
        MsgBox "不是数字，请输入数字", 0, "提示"'非数字提示
End Sub

Answer 3

在文本框1的text_change事件中更改文本框2的内容