锐客网

  1. 首页 > 睿知 > it技术 > >

计算器vb.net 计算器免费下载( 四 )

IT技术winapi


btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim btn As Button
btn = sender
'在文本框的Text属性后连接一个空格、本按钮的Text属性值和一个空格
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""'清空文本框
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
'发生错误转移到标号“ErrorPro”指定的行去执行错误处理程序
On Error GoTo ErrorPro
Dim r As Decimal'保存计算结果的变量
Dim t As String = TextBox1.Text'用于保存文本框中的算术表达式
Dim space As Integer = t.IndexOf(" ")'搜索空格位置,如果没有空格计算器vb.net，返回值为0
'字符串的取子符方法 ， 第二个参数小于0，则将产生错误号为5的异常 ， 即过程参数不正确
Dim s1 As String = t.Substring(0, space)'通过取子串方法获得第一个运算数
Dim op As String = t.Substring(space + 1, 1)'通过取子串方法获得运算符
Dim s2 As String = t.Substring(space + 3)'通过取子串方法获得第二个运算数
Dim arg1, arg2 As Integer
arg1 = Val(s1) : arg2 = Val(s2)
Select Case op
Case "+" : r = arg1 + arg2
Case "-" : r = arg1 - arg2
Case "*" : r = arg1 * arg2
Case "/" : r = arg1 / arg2
Case Else
MsgBox("输入的运算符有误！")
Exit Sub
End Select
TextBox1.Text = CStr(r)'显示结果
Exit Sub'退出过程
ErrorPro:'错误处理程序块
Select Case Err.Number
Case 6'除数为零时，或运算溢出时的错误号
MsgBox("算术运算溢出！", , "溢出提示")
TextBox1.Focus()
Exit Sub
Case 5' Substring过程的参数不符合要求的错误号
MsgBox("必须输入运算符和第二个运算数！", , "运算数少")
Exit Sub
Case Else
'其它情况显示错误号和错误原因
MsgBox("错误号为"Err.NumberChr(10)Chr(13)"错误原因："Err.Description)
Exit Sub
End Select
End Sub
End Class
用VB.net编计算器的问题1、把文本框的属性TextAlign设置为Right，数字就可以在文本框的右边显示了；
2、FormBordetStyle的值设置为FixedSingle窗口的大小就不可调整了 。
3、给文本框添加先面的方法，就可以禁止文本框输入字符 。

推荐阅读


上一篇：oracle数据库审计作用，oracle关闭数据库审计

下一篇：安娜卖直播设备，抖音主播安娜