问题描述
请高手帮忙：我做了一个窗体，上面有“单价”、“数量”、“金额”三个文本框，我想要让“金额”文本框自动计算，代码中的公式如下行不行？是否需要先声明变量，用变量代入公式，然后再向文本框赋值？还有文本框能否设置数据类型格式？金额.text=单价.text*数量.text
解决方案
解决方案二：
文本框就是文本框,设不了别的数据类型
解决方案三：
PublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.TextBox金额.ReadOnly=TrueEndSubPrivateSubTextBox数量_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesTextBox数量.TextChanged,TextBox单价.TextChangedMe.TextBox金额.Text=(ToDecimal(Me.TextBox单价.Text)*ToDecimal(Me.TextBox数量.Text)).ToStringEndSubPrivateFunctionToDecimal(ByValValueAsString)AsDecimalDimresultAsDecimalDecimal.TryParse(Value,result)ReturnresultEndFunctionEndClass
解决方案四：
VB中可以自动转换数据类型
解决方案五：
有点难度哦
解决方案六：
该回复于2008-05-26 19:35:31被版主删除
解决方案七：
PublicClassForm1PrivateSub计算_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles计算.ClickIfIsNumeric(Me.单价.Text)=TrueAndIsNumeric(Me.数量.Text)=TrueThenMe.金额.Text=Me.单价.Text*Me.数量.TextElseMessageBox.Show("数据输入错误，请重新输入！","错误",MessageBoxButtons.OK,MessageBoxIcon.Error,MessageBoxDefaultButton.Button1)Me.单价.Text=""Me.数量.Text=""Me.单价.Focus()EndIfEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.金额.ReadOnly=TrueEndSubEndClass这里有一个button,neme属性＝计算。在click事件中，使用isnumeric判断“单价”和“数量”的值数否为数值。文本框不能设置你说的数据类型格式。如果你真要一个这样固定格式的输入框，你可以添加MaskedTextBox控件，选择指定的掩码即可。