简单计算器Button控件使用。
Private Sub btn0_Click( Byval sender As System.Object,Byval ex As System.EventArgs) Handles btn0_Click
Dim se As double = CType (sender ,TextBox ).Text
txtDisplay.Text =txtDisplay.Text + se
.
.
.
Exit Sub
如果点击按钮触发 btn0_Click事件,此时会报错:
无法将类型 System.Windows.Forms.Button 的对象强制转换为 类型
System.Windows.Forms.TextBox .
小菜鸟,求大神老鸟指导,谢谢。
[解决办法]
错了点,改改
dim se as double
double.tryparse(textbox.text,se)
txdisplay.text=(double.parse(txdisplay.text)+se).tostring
[解决办法]
Dim se As double = CType (sender ,Button ).Text
txtDisplay.Text =txtDisplay.Text + se