vb6.0 updown控制text问题

Question

用updown控制text，使text的值加减
Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value
End Sub这段代码只能加减updown控制默认的value值。
现在要实现在text中写人一个数值，按updown控制，在输入的数值上加减，并显示在text上，代码怎么实现？

Answer 1

Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value
End SubPrivate Sub Text1_Change()
 UpDown1.Value = Text1.Text
End Sub

Answer 2

cjzchian
 
(cjzchian) 等　级： 
结帖率：0.00% 

Answer 3

把UpDown控件的BuddyControl属性设为TextBox的名称，
把UpDown控件的BuddyProperty属性设为Text