徕卡手持测距仪 价格:一个VB.NET的问题..

'这里只实现简单的加减乘除
Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents btnNo1 As System.Windows.Forms.Button
Friend WithEvents btnNo2 As System.Windows.Forms.Button
Friend WithEvents btnNo5 As System.Windows.Forms.Button
Friend WithEvents btnNo4 As System.Windows.Forms.Button
Friend WithEvents btnNo3 As System.Windows.Forms.Button
Friend WithEvents btnNo7 As System.Windows.Forms.Button
Friend WithEvents btnNo8 As System.Windows.Forms.Button
Friend WithEvents btnNo6 As System.Windows.Forms.Button
Friend WithEvents btnNo9 As System.Windows.Forms.Button
Friend WithEvents btnDot As System.Windows.Forms.Button
Friend WithEvents btnSF As System.Windows.Forms.Button
Friend WithEvents btnNo0 As System.Windows.Forms.Button
Friend WithEvents btn加 As System.Windows.Forms.Button
Friend WithEvents btn除 As System.Windows.Forms.Button
Friend WithEvents btn乘 As System.Windows.Forms.Button
Friend WithEvents btn减 As System.Windows.Forms.Button
Friend WithEvents txtResult As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btn等于 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.btnNo1 = New System.Windows.Forms.Button
Me.btnNo2 = New System.Windows.Forms.Button
Me.btnNo5 = New System.Windows.Forms.Button
Me.btnNo4 = New System.Windows.Forms.Button
Me.btnNo3 = New System.Windows.Forms.Button
Me.btnNo7 = New System.Windows.Forms.Button
Me.btnNo8 = New System.Windows.Forms.Button
Me.btnNo6 = New System.Windows.Forms.Button
Me.btnNo9 = New System.Windows.Forms.Button
Me.btnDot = New System.Windows.Forms.Button
Me.btnSF = New System.Windows.Forms.Button
Me.btnNo0 = New System.Windows.Forms.Button
Me.btn加 = New System.Windows.Forms.Button
Me.btn除 = New System.Windows.Forms.Button
Me.btn乘 = New System.Windows.Forms.Button
Me.btn减 = New System.Windows.Forms.Button
Me.txtResult = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.btn等于 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'btnNo1
'
Me.btnNo1.Location = New System.Drawing.Point(8, 80)
Me.btnNo1.Name = "btnNo1"
Me.btnNo1.Size = New System.Drawing.Size(32, 20)
Me.btnNo1.TabIndex = 0
Me.btnNo1.Text = "1"
'
'btnNo2
'
Me.btnNo2.Location = New System.Drawing.Point(48, 80)
Me.btnNo2.Name = "btnNo2"
Me.btnNo2.Size = New System.Drawing.Size(32, 20)
Me.btnNo2.TabIndex = 1
Me.btnNo2.Text = "2"
'
'btnNo5
'
Me.btnNo5.Location = New System.Drawing.Point(48, 56)
Me.btnNo5.Name = "btnNo5"
Me.btnNo5.Size = New System.Drawing.Size(32, 20)
Me.btnNo5.TabIndex = 2
Me.btnNo5.Text = "5"
'
'btnNo4
'
Me.btnNo4.Location = New System.Drawing.Point(8, 56)
Me.btnNo4.Name = "btnNo4"
Me.btnNo4.Size = New System.Drawing.Size(32, 20)
Me.btnNo4.TabIndex = 3
Me.btnNo4.Text = "4"
'
'btnNo3
'
Me.btnNo3.Location = New System.Drawing.Point(88, 80)
Me.btnNo3.Name = "btnNo3"
Me.btnNo3.Size = New System.Drawing.Size(32, 20)
Me.btnNo3.TabIndex = 4
Me.btnNo3.Text = "3"
'
'btnNo7
'
Me.btnNo7.Location = New System.Drawing.Point(8, 32)
Me.btnNo7.Name = "btnNo7"
Me.btnNo7.Size = New System.Drawing.Size(32, 20)
Me.btnNo7.TabIndex = 5
Me.btnNo7.Text = "7"
'
'btnNo8
'
Me.btnNo8.Location = New System.Drawing.Point(48, 32)
Me.btnNo8.Name = "btnNo8"
Me.btnNo8.Size = New System.Drawing.Size(32, 20)
Me.btnNo8.TabIndex = 6
Me.btnNo8.Text = "8"
'
'btnNo6
'
Me.btnNo6.Location = New System.Drawing.Point(88, 56)
Me.btnNo6.Name = "btnNo6"
Me.btnNo6.Size = New System.Drawing.Size(32, 20)
Me.btnNo6.TabIndex = 7
Me.btnNo6.Text = "6"
'
'btnNo9
'
Me.btnNo9.Location = New System.Drawing.Point(88, 32)
Me.btnNo9.Name = "btnNo9"
Me.btnNo9.Size = New System.Drawing.Size(32, 20)
Me.btnNo9.TabIndex = 8
Me.btnNo9.Text = "9"
'
'btnDot
'
Me.btnDot.Location = New System.Drawing.Point(88, 104)
Me.btnDot.Name = "btnDot"
Me.btnDot.Size = New System.Drawing.Size(32, 20)
Me.btnDot.TabIndex = 9
Me.btnDot.Text = "."
'
'btnSF
'
Me.btnSF.Location = New System.Drawing.Point(48, 104)
Me.btnSF.Name = "btnSF"
Me.btnSF.Size = New System.Drawing.Size(32, 20)
Me.btnSF.TabIndex = 10
Me.btnSF.Text = "+/-"
'
'btnNo0
'
Me.btnNo0.Location = New System.Drawing.Point(8, 104)
Me.btnNo0.Name = "btnNo0"
Me.btnNo0.Size = New System.Drawing.Size(32, 20)
Me.btnNo0.TabIndex = 11
Me.btnNo0.Text = "0"
'
'btn加
'
Me.btn加.Location = New System.Drawing.Point(128, 104)
Me.btn加.Name = "btn加"
Me.btn加.Size = New System.Drawing.Size(32, 20)
Me.btn加.TabIndex = 15
Me.btn加.Text = "+"
'
'btn除
'
Me.btn除.Location = New System.Drawing.Point(128, 32)
Me.btn除.Name = "btn除"
Me.btn除.Size = New System.Drawing.Size(32, 20)
Me.btn除.TabIndex = 14
Me.btn除.Text = "/"
'
'btn乘
'
Me.btn乘.Location = New System.Drawing.Point(128, 56)
Me.btn乘.Name = "btn乘"
Me.btn乘.Size = New System.Drawing.Size(32, 20)
Me.btn乘.TabIndex = 13
Me.btn乘.Text = "*"
'
'btn减
'
Me.btn减.Location = New System.Drawing.Point(128, 80)
Me.btn减.Name = "btn减"
Me.btn减.Size = New System.Drawing.Size(32, 20)
Me.btn减.TabIndex = 12
Me.btn减.Text = "-"
'
'txtResult
'
Me.txtResult.Location = New System.Drawing.Point(8, 8)
Me.txtResult.Name = "txtResult"
Me.txtResult.ReadOnly = True
Me.txtResult.Size = New System.Drawing.Size(152, 21)
Me.txtResult.TabIndex = 16
Me.txtResult.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(128, 128)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(32, 23)
Me.Button1.TabIndex = 17
Me.Button1.Text = "C"
'
'btn等于
'
Me.btn等于.Location = New System.Drawing.Point(8, 128)
Me.btn等于.Name = "btn等于"
Me.btn等于.Size = New System.Drawing.Size(112, 23)
Me.btn等于.TabIndex = 18
Me.btn等于.Text = "="
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(168, 158)
Me.Controls.Add(Me.btn等于)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtResult)
Me.Controls.Add(Me.btn加)
Me.Controls.Add(Me.btn除)
Me.Controls.Add(Me.btn乘)
Me.Controls.Add(Me.btn减)
Me.Controls.Add(Me.btnNo0)
Me.Controls.Add(Me.btnSF)
Me.Controls.Add(Me.btnDot)
Me.Controls.Add(Me.btnNo9)
Me.Controls.Add(Me.btnNo6)
Me.Controls.Add(Me.btnNo8)
Me.Controls.Add(Me.btnNo7)
Me.Controls.Add(Me.btnNo3)
Me.Controls.Add(Me.btnNo4)
Me.Controls.Add(Me.btnNo5)
Me.Controls.Add(Me.btnNo2)
Me.Controls.Add(Me.btnNo1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)

End Sub

#End Region

Dim n1, n2, n3 As Double
Dim method As String
Private Sub btn等于_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn等于.Click

Select Case method
Case "加"
Me.txtResult.Text = n1 + CDbl(Me.txtResult.Text)
Case "减"
Me.txtResult.Text = n1 - CDbl(Me.txtResult.Text)
Case "乘"
Me.txtResult.Text = n1 * CDbl(Me.txtResult.Text)
Case "除"
Me.txtResult.Text = n1 / CDbl(Me.txtResult.Text)
Case Else
Throw New Exception("未知错误")
End Select
End Sub
Private Sub btn乘_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn乘.Click
method = "乘"
n1 = CDbl(Me.txtResult.Text)
Me.txtResult.Text = ""
End Sub

Private Sub btn除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn除.Click
method = "除"
n1 = CDbl(Me.txtResult.Text)
Me.txtResult.Text = ""
End Sub

Private Sub btn减_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn减.Click
method = "减"
n1 = CDbl(Me.txtResult.Text)
Me.txtResult.Text = ""
End Sub

Private Sub btn加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn加.Click
method = "加"
n1 = CDbl(Me.txtResult.Text)
Me.txtResult.Text = ""
End Sub
Private Sub btnNo1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo1.Click
Me.txtResult.AppendText(btnNo1.Text)
End Sub
Private Sub btnNo2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo2.Click
Me.txtResult.AppendText(btnNo2.Text)
End Sub

Private Sub btnNo3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo3.Click
Me.txtResult.AppendText(btnNo3.Text)
End Sub

Private Sub btnNo4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo4.Click
Me.txtResult.AppendText(btnNo4.Text)
End Sub

Private Sub btnNo5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo5.Click
Me.txtResult.AppendText(btnNo5.Text)
End Sub

Private Sub btnNo6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo6.Click
Me.txtResult.AppendText(btnNo6.Text)
End Sub

Private Sub btnNo7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo7.Click
Me.txtResult.AppendText(btnNo7.Text)
End Sub

Private Sub btnNo8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo8.Click
Me.txtResult.AppendText(btnNo8.Text)
End Sub

Private Sub btnNo9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo9.Click
Me.txtResult.AppendText(btnNo9.Text)
End Sub

Private Sub btnNo0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo0.Click
Me.txtResult.AppendText(btnNo0.Text)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.txtResult.ResetText()
End Sub

Private Sub btnDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDot.Click
Me.txtResult.AppendText(btnDot.Text)
End Sub

Private Sub btnSF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSF.Click
If CDbl(Me.txtResult.Text) < 0 Then
Me.txtResult.Text = Math.Abs(CDbl(Me.txtResult.Text))
ElseIf CDbl(Me.txtResult.Text) > 0 Then
Me.txtResult.Text = "-" & Me.txtResult.Text
End If
End Sub
End Class