form1.vb

visual basic课程设计案例精编

        Me._lblSyntax_25 = New System.Windows.Forms.Label
        Me._lblSyntax_26 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_24 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_25 = New System.Windows.Forms.Label
        Me.fraTrig = New System.Windows.Forms.GroupBox
        Me._lblSyntax_5 = New System.Windows.Forms.Label
        Me._lblSyntax_6 = New System.Windows.Forms.Label
        Me._lblSyntax_28 = New System.Windows.Forms.Label
        Me._lblSyntax_31 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_30 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_31 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_32 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_29 = New System.Windows.Forms.Label
        Me._lblSyntax_27 = New System.Windows.Forms.Label
        Me._lblSyntax_33 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_26 = New System.Windows.Forms.Label
        Me._lblSyntaxDescrip_33 = New System.Windows.Forms.Label
        Me.TabControl1.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.fraEntry.SuspendLayout()
        Me.fraAnswer.SuspendLayout()
        Me.fraDecimal.SuspendLayout()
        Me.fraAnsType.SuspendLayout()
        Me.fraLogBase.SuspendLayout()
        Me.fraAngMode.SuspendLayout()
        Me.TabPage2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me._fraSyntax_6.SuspendLayout()
        Me._fraSyntax_1.SuspendLayout()
        Me._fraSyntax_2.SuspendLayout()
        Me._fraSyntax_3.SuspendLayout()
        Me._fraSyntax_4.SuspendLayout()
        Me._fraSyntax_5.SuspendLayout()
        Me.fraTrig.SuspendLayout()
        Me.SuspendLayout()
        '
        'TabControl1
        '
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Controls.Add(Me.TabPage3)
        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(552, 334)
        Me.TabControl1.TabIndex = 0
        '
        'TabPage1
        '
        Me.TabPage1.Controls.Add(Me.fraEntry)
        Me.TabPage1.Controls.Add(Me.fraAnswer)
        Me.TabPage1.Location = New System.Drawing.Point(4, 21)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(544, 309)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "计算器"
        '
        'fraEntry
        '
        Me.fraEntry.Anchor = System.Windows.Forms.AnchorStyles.None
        Me.fraEntry.BackColor = System.Drawing.SystemColors.Control
        Me.fraEntry.Controls.Add(Me.txtEntry)
        Me.fraEntry.ForeColor = System.Drawing.SystemColors.ControlText
        Me.fraEntry.Location = New System.Drawing.Point(12, 24)
        Me.fraEntry.Name = "fraEntry"
        Me.fraEntry.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.fraEntry.Size = New System.Drawing.Size(520, 57)
        Me.fraEntry.TabIndex = 16
        Me.fraEntry.TabStop = False
        Me.fraEntry.Text = "输入计算公式"
        '
        'txtEntry
        '
        Me.txtEntry.AcceptsReturn = True
        Me.txtEntry.Anchor = System.Windows.Forms.AnchorStyles.None
        Me.txtEntry.AutoSize = False
        Me.txtEntry.BackColor = System.Drawing.SystemColors.Window
        Me.txtEntry.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtEntry.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtEntry.Location = New System.Drawing.Point(8, 16)
        Me.txtEntry.MaxLength = 0
        Me.txtEntry.Name = "txtEntry"
        Me.txtEntry.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtEntry.Size = New System.Drawing.Size(504, 35)
        Me.txtEntry.TabIndex = 0
        Me.txtEntry.Text = ""
        '
        'fraAnswer
        '
        Me.fraAnswer.Anchor = System.Windows.Forms.AnchorStyles.None
        Me.fraAnswer.BackColor = System.Drawing.SystemColors.Control
        Me.fraAnswer.Controls.Add(Me.BtReset)
        Me.fraAnswer.Controls.Add(Me.BtCalculate)
        Me.fraAnswer.Controls.Add(Me.fraDecimal)
        Me.fraAnswer.Controls.Add(Me.fraAnsType)
        Me.fraAnswer.Controls.Add(Me.fraLogBase)
        Me.fraAnswer.Controls.Add(Me.fraAngMode)
        Me.fraAnswer.Controls.Add(Me.txtAnswer)
        Me.fraAnswer.ForeColor = System.Drawing.SystemColors.ControlText
        Me.fraAnswer.Location = New System.Drawing.Point(12, 104)
        Me.fraAnswer.Name = "fraAnswer"
        Me.fraAnswer.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.fraAnswer.Size = New System.Drawing.Size(520, 192)
        Me.fraAnswer.TabIndex = 15
        Me.fraAnswer.TabStop = False
        Me.fraAnswer.Text = "计算结果"
        '
        'BtReset
        '
        Me.BtReset.Enabled = False
        Me.BtReset.Location = New System.Drawing.Point(208, 152)
        Me.BtReset.Name = "BtReset"
        Me.BtReset.Size = New System.Drawing.Size(72, 24)
        Me.BtReset.TabIndex = 27
        Me.BtReset.Text = "清零"
        '
        'BtCalculate
        '
        Me.BtCalculate.BackColor = System.Drawing.SystemColors.Control
        Me.BtCalculate.Cursor = System.Windows.Forms.Cursors.Default
        Me.BtCalculate.Enabled = False
        Me.BtCalculate.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BtCalculate.Location = New System.Drawing.Point(208, 120)
        Me.BtCalculate.Name = "BtCalculate"
        Me.BtCalculate.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BtCalculate.Size = New System.Drawing.Size(73, 24)
        Me.BtCalculate.TabIndex = 26
        Me.BtCalculate.Text = "计算"
        '
        'fraDecimal
        '
        Me.fraDecimal.BackColor = System.Drawing.SystemColors.Control
        Me.fraDecimal.Controls.Add(Me.DemcialUpDown)
        Me.fraDecimal.ForeColor = System.Drawing.SystemColors.ControlText
        Me.fraDecimal.Location = New System.Drawing.Point(304, 120)
        Me.fraDecimal.Name = "fraDecimal"
        Me.fraDecimal.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.fraDecimal.Size = New System.Drawing.Size(72, 57)
        Me.fraDecimal.TabIndex = 25
        Me.fraDecimal.TabStop = False
        Me.fraDecimal.Text = "有效数字"
        '
        'DemcialUpDown
        '
        Me.DemcialUpDown.Items.Add("10")
        Me.DemcialUpDown.Items.Add("9")
        Me.DemcialUpDown.Items.Add("8")
        Me.DemcialUpDown.Items.Add("7")
        Me.DemcialUpDown.Items.Add("6")
        Me.DemcialUpDown.Items.Add("5")
        Me.DemcialUpDown.Items.Add("4")
        Me.DemcialUpDown.Items.Add("3")
        Me.DemcialUpDown.Items.Add("2")
        Me.DemcialUpDown.Items.Add("1")
        Me.DemcialUpDown.Location = New System.Drawing.Point(24, 17)
        Me.DemcialUpDown.Name = "DemcialUpDown"
        Me.DemcialUpDown.Size = New System.Drawing.Size(32, 21)
        Me.DemcialUpDown.TabIndex = 0
        Me.DemcialUpDown.Text = "10"
        '
        'fraAnsType
        '
        Me.fraAnsType.BackColor = System.Drawing.SystemColors.Control
        Me.fraAnsType.Controls.Add(Me.RbtHex)
        Me.fraAnsType.Controls.Add(Me.RbtOct)
        Me.fraAnsType.Controls.Add(Me.RbtBin)
        Me.fraAnsType.Controls.Add(Me.RbtDec)
        Me.fraAnsType.ForeColor = System.Drawing.SystemColors.ControlText
        Me.fraAnsType.Location = New System.Drawing.Point(392, 120)
        Me.fraAnsType.Name = "fraAnsType"
        Me.fraAnsType.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.fraAnsType.Size = New System.Drawing.Size(113, 57)
        Me.fraAnsType.TabIndex = 24
        Me.fraAnsType.TabStop = False
        Me.fraAnsType.Text = "进制"
        '
        'RbtHex
        '
        Me.RbtHex.BackColor = System.Drawing.SystemColors.Control
        Me.RbtHex.Cursor = System.Windows.Forms.Cursors.Default
        Me.RbtHex.ForeColor = System.Drawing.SystemColors.ControlText
        Me.RbtHex.Location = New System.Drawing.Point(64, 16)
        Me.RbtHex.Name = "RbtHex"
        Me.RbtHex.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.RbtHex.Size = New System.Drawing.Size(44, 17)
        Me.RbtHex.TabIndex = 7
        Me.RbtHex.TabStop = True
        Me.RbtHex.Text = "Hex"
        '
        'RbtOct
        '
        Me.RbtOct.BackColor = System.Drawing.SystemColors.Control
        Me.RbtOct.Cursor = System.Windows.Forms.Cursors.Default
        Me.RbtOct.ForeColor = System.Drawing.SystemColors.ControlText
        Me.RbtOct.Location = New System.Drawing.Point(64, 33)
        Me.RbtOct.Name = "RbtOct"
        Me.RbtOct.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.RbtOct.Size = New System.Drawing.Size(44, 17)
        Me.RbtOct.TabIndex = 8
        Me.RbtOct.TabStop = True
        Me.RbtOct.Text = "Oct"
        '
        'RbtBin
        '
        Me.RbtBin.BackColor = System.Drawing.SystemColors.Control
        Me.RbtBin.Cursor = System.Windows.Forms.Cursors.Default
        Me.RbtBin.ForeColor = System.Drawing.SystemColors.ControlText
        Me.RbtBin.Location = New System.Drawing.Point(8, 33)
        Me.RbtBin.Name = "RbtBin"
        Me.RbtBin.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.RbtBin.Size = New System.Drawing.Size(44, 17)
        Me.RbtBin.TabIndex = 6
        Me.RbtBin.TabStop = True
        Me.RbtBin.Text = "Bin"
        '
        'RbtDec
        '
        Me.RbtDec.BackColor = System.Drawing.SystemColors.Control
        Me.RbtDec.Checked = True
        Me.RbtDec.Cursor = System.Windows.Forms.Cursors.Default
        Me.RbtDec.ForeColor = System.Drawing.SystemColors.ControlText
        Me.RbtDec.Location = New System.Drawing.Point(8, 16)
        Me.RbtDec.Name = "RbtDec"
        Me.RbtDec.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.RbtDec.Size = New System.Drawing.Size(44, 17)
        Me.RbtDec.TabIndex = 5
        Me.RbtDec.TabStop = True
        Me.RbtDec.Text = "Dec"
        '
        'fraLogBase
        '
        Me.fraLogBase.BackColor = System.Drawing.SystemColors.Control
        Me.fraLogBase.Controls.Add(Me.txtLogBase)
        Me.fraLogBase.ForeColor = System.Drawing.SystemColors.ControlText
        Me.fraLogBase.Location = New System.Drawing.Point(112, 120)
        Me.fraLogBase.Name = "fraLogBase"
        Me.fraLogBase.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.fraLogBase.Size = New System.Drawing.Size(73, 57)
        Me.fraLogBase.TabIndex = 23
        Me.fraLogBase.TabStop = False
        Me.fraLogBase.Text = "对数底数"
        '
        'txtLogBase
        '
        Me.txtLogBase.AcceptsReturn = True
        Me.txtLogBase.AutoSize = False
        Me.txtLogBase.BackColor = System.Drawing.SystemColors.Window
        Me.txtLogBase.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.txtLogBase.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtLogBase.Location = New System.Drawing.Point(16, 24)
        Me.txtLogBase.MaxLength = 0
        Me.txtLogBase.Name = "txtLogBase"
        Me.txtLogBase.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.txtLogBase.Size = New System.Drawing.Size(41, 19)
        Me.txtLogBase.TabIndex = 4
        Me.txtLogBase.Text = "10"
        Me.txtLogBase.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'fraAngMode
        '
        Me.fraAngMode.BackColor = System.Drawing.SystemColors.Control
        Me.fraAngMode.Controls.Add(Me.RbtRadian)
        Me.fraAngMode.Controls.Add(Me.RbtDegree)