_ Partial Class frmCalculator Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCalculator)) Me.btnOne = New System.Windows.Forms.Button() Me.btnTwo = New System.Windows.Forms.Button() Me.btnThree = New System.Windows.Forms.Button() Me.btnFour = New System.Windows.Forms.Button() Me.btnFive = New System.Windows.Forms.Button() Me.btnSix = New System.Windows.Forms.Button() Me.btnSeven = New System.Windows.Forms.Button() Me.btnEight = New System.Windows.Forms.Button() Me.btnNine = New System.Windows.Forms.Button() Me.btnZero = New System.Windows.Forms.Button() Me.btnResult = New System.Windows.Forms.Button() Me.btnDivide = New System.Windows.Forms.Button() Me.btnClear = New System.Windows.Forms.Button() Me.btnMultiply = New System.Windows.Forms.Button() Me.btnPoint = New System.Windows.Forms.Button() Me.btnAdd = New System.Windows.Forms.Button() Me.btnSubstract = New System.Windows.Forms.Button() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.mnuFile = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFileExit = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettings = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColor = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColorDefault = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColorRed = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColorYellow = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColorGreen = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColorBlue = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColorPink = New System.Windows.Forms.ToolStripMenuItem() Me.mnuSettingsColorBlack = New System.Windows.Forms.ToolStripMenuItem() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.RichTextBox1 = New System.Windows.Forms.RichTextBox() Me.MenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'btnOne ' Me.btnOne.BackColor = System.Drawing.Color.White Me.btnOne.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnOne.Location = New System.Drawing.Point(7, 143) Me.btnOne.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnOne.Name = "btnOne" Me.btnOne.Size = New System.Drawing.Size(32, 34) Me.btnOne.TabIndex = 3 Me.btnOne.Text = "1" Me.btnOne.UseVisualStyleBackColor = False ' 'btnTwo ' Me.btnTwo.BackColor = System.Drawing.Color.White Me.btnTwo.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnTwo.Location = New System.Drawing.Point(43, 143) Me.btnTwo.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnTwo.Name = "btnTwo" Me.btnTwo.Size = New System.Drawing.Size(32, 34) Me.btnTwo.TabIndex = 4 Me.btnTwo.Text = "2" Me.btnTwo.UseVisualStyleBackColor = False ' 'btnThree ' Me.btnThree.BackColor = System.Drawing.Color.White Me.btnThree.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnThree.Location = New System.Drawing.Point(79, 143) Me.btnThree.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnThree.Name = "btnThree" Me.btnThree.Size = New System.Drawing.Size(32, 34) Me.btnThree.TabIndex = 5 Me.btnThree.Text = "3" Me.btnThree.UseVisualStyleBackColor = False ' 'btnFour ' Me.btnFour.BackColor = System.Drawing.Color.White Me.btnFour.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnFour.Location = New System.Drawing.Point(7, 179) Me.btnFour.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnFour.Name = "btnFour" Me.btnFour.Size = New System.Drawing.Size(32, 34) Me.btnFour.TabIndex = 6 Me.btnFour.Text = "4" Me.btnFour.UseVisualStyleBackColor = False ' 'btnFive ' Me.btnFive.BackColor = System.Drawing.Color.White Me.btnFive.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnFive.Location = New System.Drawing.Point(43, 179) Me.btnFive.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnFive.Name = "btnFive" Me.btnFive.Size = New System.Drawing.Size(32, 34) Me.btnFive.TabIndex = 7 Me.btnFive.Text = "5" Me.btnFive.UseVisualStyleBackColor = False ' 'btnSix ' Me.btnSix.BackColor = System.Drawing.Color.White Me.btnSix.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnSix.Location = New System.Drawing.Point(79, 179) Me.btnSix.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnSix.Name = "btnSix" Me.btnSix.Size = New System.Drawing.Size(32, 34) Me.btnSix.TabIndex = 8 Me.btnSix.Text = "6" Me.btnSix.UseVisualStyleBackColor = False ' 'btnSeven ' Me.btnSeven.BackColor = System.Drawing.Color.White Me.btnSeven.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnSeven.Location = New System.Drawing.Point(7, 216) Me.btnSeven.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnSeven.Name = "btnSeven" Me.btnSeven.Size = New System.Drawing.Size(32, 34) Me.btnSeven.TabIndex = 9 Me.btnSeven.Text = "7" Me.btnSeven.UseVisualStyleBackColor = False ' 'btnEight ' Me.btnEight.BackColor = System.Drawing.Color.White Me.btnEight.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnEight.Location = New System.Drawing.Point(43, 216) Me.btnEight.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnEight.Name = "btnEight" Me.btnEight.Size = New System.Drawing.Size(32, 34) Me.btnEight.TabIndex = 10 Me.btnEight.Text = "8" Me.btnEight.UseVisualStyleBackColor = False ' 'btnNine ' Me.btnNine.BackColor = System.Drawing.Color.White Me.btnNine.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnNine.Location = New System.Drawing.Point(79, 216) Me.btnNine.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnNine.Name = "btnNine" Me.btnNine.Size = New System.Drawing.Size(32, 34) Me.btnNine.TabIndex = 11 Me.btnNine.Text = "9" Me.btnNine.UseVisualStyleBackColor = False ' 'btnZero ' Me.btnZero.BackColor = System.Drawing.Color.White Me.btnZero.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnZero.Location = New System.Drawing.Point(119, 179) Me.btnZero.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnZero.Name = "btnZero" Me.btnZero.Size = New System.Drawing.Size(68, 34) Me.btnZero.TabIndex = 16 Me.btnZero.Text = "0" Me.btnZero.UseVisualStyleBackColor = False ' 'btnResult ' Me.btnResult.BackColor = System.Drawing.Color.White Me.btnResult.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnResult.Location = New System.Drawing.Point(119, 216) Me.btnResult.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnResult.Name = "btnResult" Me.btnResult.Size = New System.Drawing.Size(68, 34) Me.btnResult.TabIndex = 17 Me.btnResult.Text = "=" Me.btnResult.UseVisualStyleBackColor = False ' 'btnDivide ' Me.btnDivide.BackColor = System.Drawing.Color.White Me.btnDivide.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnDivide.Location = New System.Drawing.Point(155, 143) Me.btnDivide.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnDivide.Name = "btnDivide" Me.btnDivide.Size = New System.Drawing.Size(32, 34) Me.btnDivide.TabIndex = 15 Me.btnDivide.Text = "/" Me.btnDivide.UseVisualStyleBackColor = False ' 'btnClear ' Me.btnClear.BackColor = System.Drawing.Color.White Me.btnClear.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnClear.Location = New System.Drawing.Point(7, 107) Me.btnClear.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnClear.Name = "btnClear" Me.btnClear.Size = New System.Drawing.Size(68, 34) Me.btnClear.TabIndex = 1 Me.btnClear.Text = "C" Me.btnClear.UseVisualStyleBackColor = False ' 'btnMultiply ' Me.btnMultiply.BackColor = System.Drawing.Color.White Me.btnMultiply.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnMultiply.Location = New System.Drawing.Point(119, 143) Me.btnMultiply.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnMultiply.Name = "btnMultiply" Me.btnMultiply.Size = New System.Drawing.Size(32, 34) Me.btnMultiply.TabIndex = 14 Me.btnMultiply.Text = "x" Me.btnMultiply.UseVisualStyleBackColor = False ' 'btnPoint ' Me.btnPoint.BackColor = System.Drawing.Color.White Me.btnPoint.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnPoint.Location = New System.Drawing.Point(79, 107) Me.btnPoint.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnPoint.Name = "btnPoint" Me.btnPoint.Size = New System.Drawing.Size(32, 34) Me.btnPoint.TabIndex = 2 Me.btnPoint.Text = "." Me.btnPoint.UseVisualStyleBackColor = False ' 'btnAdd ' Me.btnAdd.BackColor = System.Drawing.Color.White Me.btnAdd.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnAdd.Location = New System.Drawing.Point(119, 107) Me.btnAdd.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnAdd.Name = "btnAdd" Me.btnAdd.Size = New System.Drawing.Size(32, 34) Me.btnAdd.TabIndex = 12 Me.btnAdd.Text = "+" Me.btnAdd.UseVisualStyleBackColor = False ' 'btnSubstract ' Me.btnSubstract.BackColor = System.Drawing.Color.White Me.btnSubstract.Font = New System.Drawing.Font("MS Reference Sans Serif", 12.0!) Me.btnSubstract.Location = New System.Drawing.Point(155, 107) Me.btnSubstract.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnSubstract.Name = "btnSubstract" Me.btnSubstract.Size = New System.Drawing.Size(32, 34) Me.btnSubstract.TabIndex = 13 Me.btnSubstract.Text = "-" Me.btnSubstract.UseVisualStyleBackColor = False ' 'MenuStrip1 ' Me.MenuStrip1.Font = New System.Drawing.Font("MS Reference Sans Serif", 8.0!) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFile, Me.mnuSettings}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(7, 3, 0, 3) Me.MenuStrip1.Size = New System.Drawing.Size(195, 25) Me.MenuStrip1.TabIndex = 0 Me.MenuStrip1.Text = "MenuStrip1" ' 'mnuFile ' Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileExit}) Me.mnuFile.Name = "mnuFile" Me.mnuFile.Size = New System.Drawing.Size(38, 19) Me.mnuFile.Text = "&File" ' 'mnuFileExit ' Me.mnuFileExit.Name = "mnuFileExit" Me.mnuFileExit.Size = New System.Drawing.Size(95, 22) Me.mnuFileExit.Text = "&Exit" ' 'mnuSettings ' Me.mnuSettings.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuSettingsColor}) Me.mnuSettings.Name = "mnuSettings" Me.mnuSettings.Size = New System.Drawing.Size(65, 19) Me.mnuSettings.Text = "&Settings" ' 'mnuSettingsColor ' Me.mnuSettingsColor.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuSettingsColorDefault, Me.mnuSettingsColorRed, Me.mnuSettingsColorYellow, Me.mnuSettingsColorGreen, Me.mnuSettingsColorBlue, Me.mnuSettingsColorPink, Me.mnuSettingsColorBlack}) Me.mnuSettingsColor.Name = "mnuSettingsColor" Me.mnuSettingsColor.Size = New System.Drawing.Size(105, 22) Me.mnuSettingsColor.Text = "&Color" ' 'mnuSettingsColorDefault ' Me.mnuSettingsColorDefault.Checked = True Me.mnuSettingsColorDefault.CheckOnClick = True Me.mnuSettingsColorDefault.CheckState = System.Windows.Forms.CheckState.Checked Me.mnuSettingsColorDefault.Name = "mnuSettingsColorDefault" Me.mnuSettingsColorDefault.Size = New System.Drawing.Size(117, 22) Me.mnuSettingsColorDefault.Text = "&Default" ' 'mnuSettingsColorRed ' Me.mnuSettingsColorRed.CheckOnClick = True Me.mnuSettingsColorRed.Name = "mnuSettingsColorRed" Me.mnuSettingsColorRed.Size = New System.Drawing.Size(117, 22) Me.mnuSettingsColorRed.Text = "&Tomato" ' 'mnuSettingsColorYellow ' Me.mnuSettingsColorYellow.CheckOnClick = True Me.mnuSettingsColorYellow.Name = "mnuSettingsColorYellow" Me.mnuSettingsColorYellow.Size = New System.Drawing.Size(117, 22) Me.mnuSettingsColorYellow.Text = "&Yellow" ' 'mnuSettingsColorGreen ' Me.mnuSettingsColorGreen.CheckOnClick = True Me.mnuSettingsColorGreen.Name = "mnuSettingsColorGreen" Me.mnuSettingsColorGreen.Size = New System.Drawing.Size(117, 22) Me.mnuSettingsColorGreen.Text = "&Green" ' 'mnuSettingsColorBlue ' Me.mnuSettingsColorBlue.CheckOnClick = True Me.mnuSettingsColorBlue.Name = "mnuSettingsColorBlue" Me.mnuSettingsColorBlue.Size = New System.Drawing.Size(117, 22) Me.mnuSettingsColorBlue.Text = "&Blue" ' 'mnuSettingsColorPink ' Me.mnuSettingsColorPink.CheckOnClick = True Me.mnuSettingsColorPink.Name = "mnuSettingsColorPink" Me.mnuSettingsColorPink.Size = New System.Drawing.Size(117, 22) Me.mnuSettingsColorPink.Text = "&Pink" ' 'mnuSettingsColorBlack ' Me.mnuSettingsColorBlack.CheckOnClick = True Me.mnuSettingsColorBlack.Name = "mnuSettingsColorBlack" Me.mnuSettingsColorBlack.Size = New System.Drawing.Size(117, 22) Me.mnuSettingsColorBlack.Text = "Blac&k" ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(89, 61) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(84, 22) Me.TextBox1.TabIndex = 3 Me.TextBox1.Visible = False ' 'RichTextBox1 ' Me.RichTextBox1.BackColor = System.Drawing.Color.White Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.Arrow Me.RichTextBox1.Font = New System.Drawing.Font("MS Reference Sans Serif", 15.0!) Me.RichTextBox1.Location = New System.Drawing.Point(7, 39) Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.RichTextBox1.Name = "RichTextBox1" Me.RichTextBox1.ReadOnly = True Me.RichTextBox1.Size = New System.Drawing.Size(180, 60) Me.RichTextBox1.TabIndex = 1 Me.RichTextBox1.Text = "" ' 'frmCalculator ' Me.AcceptButton = Me.btnClear Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.SystemColors.Control Me.ClientSize = New System.Drawing.Size(195, 258) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.RichTextBox1) Me.Controls.Add(Me.btnResult) Me.Controls.Add(Me.btnAdd) Me.Controls.Add(Me.btnMultiply) Me.Controls.Add(Me.btnSubstract) Me.Controls.Add(Me.btnDivide) Me.Controls.Add(Me.btnClear) Me.Controls.Add(Me.btnPoint) Me.Controls.Add(Me.btnZero) Me.Controls.Add(Me.btnNine) Me.Controls.Add(Me.btnEight) Me.Controls.Add(Me.btnSeven) Me.Controls.Add(Me.btnSix) Me.Controls.Add(Me.btnFive) Me.Controls.Add(Me.btnFour) Me.Controls.Add(Me.btnThree) Me.Controls.Add(Me.btnTwo) Me.Controls.Add(Me.btnOne) Me.Controls.Add(Me.MenuStrip1) Me.Font = New System.Drawing.Font("MS Reference Sans Serif", 9.0!) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.MainMenuStrip = Me.MenuStrip1 Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmCalculator" Me.Text = "Calculator" Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents btnOne As System.Windows.Forms.Button Friend WithEvents btnTwo As System.Windows.Forms.Button Friend WithEvents btnThree As System.Windows.Forms.Button Friend WithEvents btnFour As System.Windows.Forms.Button Friend WithEvents btnFive As System.Windows.Forms.Button Friend WithEvents btnSix As System.Windows.Forms.Button Friend WithEvents btnSeven As System.Windows.Forms.Button Friend WithEvents btnEight As System.Windows.Forms.Button Friend WithEvents btnNine As System.Windows.Forms.Button Friend WithEvents btnZero As System.Windows.Forms.Button Friend WithEvents btnResult As System.Windows.Forms.Button Friend WithEvents btnDivide As System.Windows.Forms.Button Friend WithEvents btnClear As System.Windows.Forms.Button Friend WithEvents btnMultiply As System.Windows.Forms.Button Friend WithEvents btnPoint As System.Windows.Forms.Button Friend WithEvents btnAdd As System.Windows.Forms.Button Friend WithEvents btnSubstract As System.Windows.Forms.Button Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip Friend WithEvents mnuFile As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuFileExit As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettings As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColor As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColorDefault As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColorRed As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColorYellow As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColorGreen As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColorBlue As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColorPink As System.Windows.Forms.ToolStripMenuItem Friend WithEvents mnuSettingsColorBlack As System.Windows.Forms.ToolStripMenuItem Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox End Class