Partial Class 計算機 Inherits System.Windows.Forms.Form 'Form 覆寫 Dispose 以清除元件清單。 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 '為 Windows Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(計算機)) Me.零_bt = New System.Windows.Forms.Button() Me.九_bt = New System.Windows.Forms.Button() Me.八_bt = New System.Windows.Forms.Button() Me.七_bt = New System.Windows.Forms.Button() Me.六_bt = New System.Windows.Forms.Button() Me.五_bt = New System.Windows.Forms.Button() Me.四_bt = New System.Windows.Forms.Button() Me.三_bt = New System.Windows.Forms.Button() Me.二_bt = New System.Windows.Forms.Button() Me.一_bt = New System.Windows.Forms.Button() Me.計算後_tb = New System.Windows.Forms.TextBox() Me.計算前_tb = New System.Windows.Forms.TextBox() Me.除_bt = New System.Windows.Forms.Button() Me.乘_bt = New System.Windows.Forms.Button() Me.減_bt = New System.Windows.Forms.Button() Me.加_bt = New System.Windows.Forms.Button() Me.消除_bt = New System.Windows.Forms.Button() Me.小數點_bt = New System.Windows.Forms.Button() Me.清空_bt = New System.Windows.Forms.Button() Me.等於_bt = New System.Windows.Forms.Button() Me.計算式_tb = New System.Windows.Forms.TextBox() Me.答案_tb = New System.Windows.Forms.TextBox() Me.SuspendLayout() ' '零_bt ' Me.零_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.零_bt.Location = New System.Drawing.Point(12, 301) Me.零_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.零_bt.Name = "零_bt" Me.零_bt.Size = New System.Drawing.Size(58, 67) Me.零_bt.TabIndex = 828 Me.零_bt.Text = "0" Me.零_bt.UseVisualStyleBackColor = True ' '九_bt ' Me.九_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.九_bt.Location = New System.Drawing.Point(143, 77) Me.九_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.九_bt.Name = "九_bt" Me.九_bt.Size = New System.Drawing.Size(58, 67) Me.九_bt.TabIndex = 827 Me.九_bt.Text = "9" Me.九_bt.UseVisualStyleBackColor = True ' '八_bt ' Me.八_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.八_bt.Location = New System.Drawing.Point(77, 77) Me.八_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.八_bt.Name = "八_bt" Me.八_bt.Size = New System.Drawing.Size(58, 67) Me.八_bt.TabIndex = 826 Me.八_bt.Text = "8" Me.八_bt.UseVisualStyleBackColor = True ' '七_bt ' Me.七_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.七_bt.Location = New System.Drawing.Point(12, 77) Me.七_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.七_bt.Name = "七_bt" Me.七_bt.Size = New System.Drawing.Size(58, 67) Me.七_bt.TabIndex = 825 Me.七_bt.Text = "7" Me.七_bt.UseVisualStyleBackColor = True ' '六_bt ' Me.六_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.六_bt.Location = New System.Drawing.Point(143, 152) Me.六_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.六_bt.Name = "六_bt" Me.六_bt.Size = New System.Drawing.Size(58, 67) Me.六_bt.TabIndex = 824 Me.六_bt.Text = "6" Me.六_bt.UseVisualStyleBackColor = True ' '五_bt ' Me.五_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.五_bt.Location = New System.Drawing.Point(77, 152) Me.五_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.五_bt.Name = "五_bt" Me.五_bt.Size = New System.Drawing.Size(58, 67) Me.五_bt.TabIndex = 823 Me.五_bt.Text = "5" Me.五_bt.UseVisualStyleBackColor = True ' '四_bt ' Me.四_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.四_bt.Location = New System.Drawing.Point(12, 152) Me.四_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.四_bt.Name = "四_bt" Me.四_bt.Size = New System.Drawing.Size(58, 67) Me.四_bt.TabIndex = 822 Me.四_bt.Text = "4" Me.四_bt.UseVisualStyleBackColor = True ' '三_bt ' Me.三_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.三_bt.Location = New System.Drawing.Point(143, 227) Me.三_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.三_bt.Name = "三_bt" Me.三_bt.Size = New System.Drawing.Size(58, 67) Me.三_bt.TabIndex = 821 Me.三_bt.Text = "3" Me.三_bt.UseVisualStyleBackColor = True ' '二_bt ' Me.二_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.二_bt.Location = New System.Drawing.Point(77, 227) Me.二_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.二_bt.Name = "二_bt" Me.二_bt.Size = New System.Drawing.Size(58, 67) Me.二_bt.TabIndex = 820 Me.二_bt.Text = "2" Me.二_bt.UseVisualStyleBackColor = True ' '一_bt ' Me.一_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.一_bt.Location = New System.Drawing.Point(12, 227) Me.一_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.一_bt.Name = "一_bt" Me.一_bt.Size = New System.Drawing.Size(58, 67) Me.一_bt.TabIndex = 819 Me.一_bt.Text = "1" Me.一_bt.UseVisualStyleBackColor = True ' '計算後_tb ' Me.計算後_tb.Location = New System.Drawing.Point(12, 4) Me.計算後_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.計算後_tb.Name = "計算後_tb" Me.計算後_tb.Size = New System.Drawing.Size(80, 23) Me.計算後_tb.TabIndex = 818 Me.計算後_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '計算前_tb ' Me.計算前_tb.Location = New System.Drawing.Point(188, 4) Me.計算前_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.計算前_tb.Name = "計算前_tb" Me.計算前_tb.Size = New System.Drawing.Size(80, 23) Me.計算前_tb.TabIndex = 817 Me.計算前_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '除_bt ' Me.除_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.除_bt.Location = New System.Drawing.Point(208, 165) Me.除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.除_bt.Name = "除_bt" Me.除_bt.Size = New System.Drawing.Size(58, 40) Me.除_bt.TabIndex = 816 Me.除_bt.Text = "/" Me.除_bt.UseVisualStyleBackColor = True ' '乘_bt ' Me.乘_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.乘_bt.Location = New System.Drawing.Point(208, 121) Me.乘_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.乘_bt.Name = "乘_bt" Me.乘_bt.Size = New System.Drawing.Size(58, 40) Me.乘_bt.TabIndex = 815 Me.乘_bt.Text = "X" Me.乘_bt.UseVisualStyleBackColor = True ' '減_bt ' Me.減_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.減_bt.Location = New System.Drawing.Point(208, 254) Me.減_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.減_bt.Name = "減_bt" Me.減_bt.Size = New System.Drawing.Size(58, 40) Me.減_bt.TabIndex = 814 Me.減_bt.Text = "-" Me.減_bt.UseVisualStyleBackColor = True ' '加_bt ' Me.加_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.加_bt.Location = New System.Drawing.Point(208, 209) Me.加_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.加_bt.Name = "加_bt" Me.加_bt.Size = New System.Drawing.Size(58, 40) Me.加_bt.TabIndex = 813 Me.加_bt.Text = "+" Me.加_bt.UseVisualStyleBackColor = True ' '消除_bt ' Me.消除_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.消除_bt.Location = New System.Drawing.Point(208, 77) Me.消除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.消除_bt.Name = "消除_bt" Me.消除_bt.Size = New System.Drawing.Size(58, 40) Me.消除_bt.TabIndex = 832 Me.消除_bt.Text = "➨" Me.消除_bt.UseVisualStyleBackColor = True ' '小數點_bt ' Me.小數點_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.小數點_bt.Location = New System.Drawing.Point(77, 301) Me.小數點_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.小數點_bt.Name = "小數點_bt" Me.小數點_bt.Size = New System.Drawing.Size(58, 67) Me.小數點_bt.TabIndex = 833 Me.小數點_bt.Text = "." Me.小數點_bt.UseVisualStyleBackColor = True ' '清空_bt ' Me.清空_bt.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.清空_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.清空_bt.Location = New System.Drawing.Point(144, 301) Me.清空_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.清空_bt.Name = "清空_bt" Me.清空_bt.Size = New System.Drawing.Size(58, 67) Me.清空_bt.TabIndex = 834 Me.清空_bt.Text = "AC" Me.清空_bt.UseVisualStyleBackColor = True ' '等於_bt ' Me.等於_bt.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.等於_bt.Location = New System.Drawing.Point(208, 301) Me.等於_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.等於_bt.Name = "等於_bt" Me.等於_bt.Size = New System.Drawing.Size(58, 67) Me.等於_bt.TabIndex = 835 Me.等於_bt.Text = "=" Me.等於_bt.UseVisualStyleBackColor = True ' '計算式_tb ' Me.計算式_tb.Location = New System.Drawing.Point(100, 4) Me.計算式_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.計算式_tb.Name = "計算式_tb" Me.計算式_tb.Size = New System.Drawing.Size(80, 23) Me.計算式_tb.TabIndex = 836 Me.計算式_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '答案_tb ' Me.答案_tb.Font = New System.Drawing.Font("微軟正黑體", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.答案_tb.Location = New System.Drawing.Point(12, 30) Me.答案_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.答案_tb.Name = "答案_tb" Me.答案_tb.Size = New System.Drawing.Size(256, 39) Me.答案_tb.TabIndex = 837 Me.答案_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' '計算機 ' Me.AcceptButton = Me.等於_bt Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.清空_bt Me.ClientSize = New System.Drawing.Size(280, 374) Me.Controls.Add(Me.答案_tb) Me.Controls.Add(Me.計算式_tb) Me.Controls.Add(Me.等於_bt) Me.Controls.Add(Me.清空_bt) Me.Controls.Add(Me.小數點_bt) Me.Controls.Add(Me.消除_bt) Me.Controls.Add(Me.零_bt) Me.Controls.Add(Me.九_bt) Me.Controls.Add(Me.八_bt) Me.Controls.Add(Me.七_bt) Me.Controls.Add(Me.六_bt) Me.Controls.Add(Me.五_bt) Me.Controls.Add(Me.四_bt) Me.Controls.Add(Me.三_bt) Me.Controls.Add(Me.二_bt) Me.Controls.Add(Me.一_bt) Me.Controls.Add(Me.計算後_tb) Me.Controls.Add(Me.計算前_tb) Me.Controls.Add(Me.除_bt) Me.Controls.Add(Me.乘_bt) Me.Controls.Add(Me.減_bt) Me.Controls.Add(Me.加_bt) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.KeyPreview = True Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "計算機" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "計算機" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 零_bt As Button Friend WithEvents 九_bt As Button Friend WithEvents 八_bt As Button Friend WithEvents 七_bt As Button Friend WithEvents 六_bt As Button Friend WithEvents 五_bt As Button Friend WithEvents 四_bt As Button Friend WithEvents 三_bt As Button Friend WithEvents 二_bt As Button Friend WithEvents 一_bt As Button Friend WithEvents 計算後_tb As TextBox Friend WithEvents 計算前_tb As TextBox Friend WithEvents 除_bt As Button Friend WithEvents 乘_bt As Button Friend WithEvents 減_bt As Button Friend WithEvents 加_bt As Button Friend WithEvents 消除_bt As Button Friend WithEvents 小數點_bt As Button Friend WithEvents 清空_bt As Button Friend WithEvents 等於_bt As Button Friend WithEvents 計算式_tb As TextBox Friend WithEvents 答案_tb As TextBox End Class