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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.TextBox5 = 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.搜尋1_bt = New System.Windows.Forms.Button() Me.型體名稱_tb = New System.Windows.Forms.TextBox() Me.型體名稱_lb = New System.Windows.Forms.Label() Me.型體號碼_tb = New System.Windows.Forms.TextBox() Me.型體號碼_lb = New System.Windows.Forms.Label() Me.客戶簡稱_tb = New System.Windows.Forms.TextBox() Me.客戶簡稱_lb = New System.Windows.Forms.Label() Me.清單2_dgv = New System.Windows.Forms.DataGridView() Me.搜尋_bt = New System.Windows.Forms.Button() Me.新增客戶清單_bt = New System.Windows.Forms.Button() Me.客戶簡稱清單_lb = New System.Windows.Forms.Label() Me.清單1_dgv = New System.Windows.Forms.DataGridView() CType(Me.清單2_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'TextBox4 ' Me.TextBox4.Location = New System.Drawing.Point(876, 14) Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(214, 23) Me.TextBox4.TabIndex = 675 ' 'TextBox5 ' Me.TextBox5.Location = New System.Drawing.Point(876, 43) Me.TextBox5.Name = "TextBox5" Me.TextBox5.Size = New System.Drawing.Size(214, 23) Me.TextBox5.TabIndex = 674 ' '刪除_bt ' Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.刪除_bt.ForeColor = System.Drawing.Color.Red Me.刪除_bt.Location = New System.Drawing.Point(775, 12) Me.刪除_bt.Name = "刪除_bt" Me.刪除_bt.Size = New System.Drawing.Size(95, 84) Me.刪除_bt.TabIndex = 673 Me.刪除_bt.Text = "刪除" Me.刪除_bt.UseVisualStyleBackColor = True ' '新增_bt ' Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.新增_bt.ForeColor = System.Drawing.Color.Blue Me.新增_bt.Location = New System.Drawing.Point(573, 12) Me.新增_bt.Name = "新增_bt" Me.新增_bt.Size = New System.Drawing.Size(95, 84) Me.新增_bt.TabIndex = 671 Me.新增_bt.Text = "新增" Me.新增_bt.UseVisualStyleBackColor = True ' '修改_bt ' Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.修改_bt.ForeColor = System.Drawing.Color.DarkGreen Me.修改_bt.Location = New System.Drawing.Point(674, 12) Me.修改_bt.Name = "修改_bt" Me.修改_bt.Size = New System.Drawing.Size(95, 84) Me.修改_bt.TabIndex = 672 Me.修改_bt.Text = "修改" Me.修改_bt.UseVisualStyleBackColor = True ' '搜尋1_bt ' Me.搜尋1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.搜尋1_bt.ForeColor = System.Drawing.Color.Black Me.搜尋1_bt.Location = New System.Drawing.Point(472, 12) Me.搜尋1_bt.Name = "搜尋1_bt" Me.搜尋1_bt.Size = New System.Drawing.Size(95, 84) Me.搜尋1_bt.TabIndex = 670 Me.搜尋1_bt.Text = "搜尋" Me.搜尋1_bt.UseVisualStyleBackColor = True ' '型體名稱_tb ' Me.型體名稱_tb.Location = New System.Drawing.Point(252, 73) Me.型體名稱_tb.Name = "型體名稱_tb" Me.型體名稱_tb.Size = New System.Drawing.Size(214, 23) Me.型體名稱_tb.TabIndex = 669 ' '型體名稱_lb ' Me.型體名稱_lb.AutoSize = True Me.型體名稱_lb.Location = New System.Drawing.Point(190, 76) Me.型體名稱_lb.Name = "型體名稱_lb" Me.型體名稱_lb.Size = New System.Drawing.Size(56, 16) Me.型體名稱_lb.TabIndex = 668 Me.型體名稱_lb.Text = "型體名稱" ' '型體號碼_tb ' Me.型體號碼_tb.Location = New System.Drawing.Point(252, 44) Me.型體號碼_tb.Name = "型體號碼_tb" Me.型體號碼_tb.Size = New System.Drawing.Size(214, 23) Me.型體號碼_tb.TabIndex = 667 ' '型體號碼_lb ' Me.型體號碼_lb.AutoSize = True Me.型體號碼_lb.Location = New System.Drawing.Point(190, 47) Me.型體號碼_lb.Name = "型體號碼_lb" Me.型體號碼_lb.Size = New System.Drawing.Size(56, 16) Me.型體號碼_lb.TabIndex = 666 Me.型體號碼_lb.Text = "型體號碼" ' '客戶簡稱_tb ' Me.客戶簡稱_tb.Location = New System.Drawing.Point(252, 14) Me.客戶簡稱_tb.Name = "客戶簡稱_tb" Me.客戶簡稱_tb.Size = New System.Drawing.Size(214, 23) Me.客戶簡稱_tb.TabIndex = 665 ' '客戶簡稱_lb ' Me.客戶簡稱_lb.AutoSize = True Me.客戶簡稱_lb.Location = New System.Drawing.Point(190, 16) Me.客戶簡稱_lb.Name = "客戶簡稱_lb" Me.客戶簡稱_lb.Size = New System.Drawing.Size(56, 16) Me.客戶簡稱_lb.TabIndex = 664 Me.客戶簡稱_lb.Text = "客戶簡稱" ' '清單2_dgv ' DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.清單2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.清單2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.清單2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.清單2_dgv.Location = New System.Drawing.Point(186, 105) Me.清單2_dgv.Name = "清單2_dgv" Me.清單2_dgv.RowHeadersWidth = 5 Me.清單2_dgv.RowTemplate.Height = 24 Me.清單2_dgv.Size = New System.Drawing.Size(685, 699) Me.清單2_dgv.TabIndex = 663 ' '搜尋_bt ' Me.搜尋_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.搜尋_bt.ForeColor = System.Drawing.Color.Black Me.搜尋_bt.Location = New System.Drawing.Point(9, 42) Me.搜尋_bt.Name = "搜尋_bt" Me.搜尋_bt.Size = New System.Drawing.Size(172, 25) Me.搜尋_bt.TabIndex = 662 Me.搜尋_bt.Text = "搜尋" Me.搜尋_bt.UseVisualStyleBackColor = True ' '新增客戶清單_bt ' Me.新增客戶清單_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.新增客戶清單_bt.ForeColor = System.Drawing.Color.Olive Me.新增客戶清單_bt.Location = New System.Drawing.Point(9, 73) Me.新增客戶清單_bt.Name = "新增客戶清單_bt" Me.新增客戶清單_bt.Size = New System.Drawing.Size(172, 25) Me.新增客戶清單_bt.TabIndex = 661 Me.新增客戶清單_bt.Text = "新增客戶清單" Me.新增客戶清單_bt.UseVisualStyleBackColor = True ' '客戶簡稱清單_lb ' Me.客戶簡稱清單_lb.AutoSize = True Me.客戶簡稱清單_lb.Location = New System.Drawing.Point(9, 16) Me.客戶簡稱清單_lb.Name = "客戶簡稱清單_lb" Me.客戶簡稱清單_lb.Size = New System.Drawing.Size(80, 16) Me.客戶簡稱清單_lb.TabIndex = 660 Me.客戶簡稱清單_lb.Text = "客戶簡稱清單" ' '清單1_dgv ' DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.清單1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.清單1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.清單1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.清單1_dgv.Location = New System.Drawing.Point(6, 104) Me.清單1_dgv.Name = "清單1_dgv" Me.清單1_dgv.RowHeadersWidth = 5 Me.清單1_dgv.RowTemplate.Height = 24 Me.清單1_dgv.Size = New System.Drawing.Size(175, 699) Me.清單1_dgv.TabIndex = 659 ' '型體控制表 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(876, 815) Me.Controls.Add(Me.TextBox4) Me.Controls.Add(Me.TextBox5) Me.Controls.Add(Me.刪除_bt) Me.Controls.Add(Me.新增_bt) Me.Controls.Add(Me.修改_bt) Me.Controls.Add(Me.搜尋1_bt) Me.Controls.Add(Me.型體名稱_tb) Me.Controls.Add(Me.型體名稱_lb) Me.Controls.Add(Me.型體號碼_tb) Me.Controls.Add(Me.型體號碼_lb) Me.Controls.Add(Me.客戶簡稱_tb) Me.Controls.Add(Me.客戶簡稱_lb) Me.Controls.Add(Me.清單2_dgv) Me.Controls.Add(Me.搜尋_bt) Me.Controls.Add(Me.新增客戶清單_bt) Me.Controls.Add(Me.客戶簡稱清單_lb) Me.Controls.Add(Me.清單1_dgv) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "型體控制表" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "型體控制表" CType(Me.清單2_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TextBox4 As TextBox Friend WithEvents TextBox5 As TextBox Friend WithEvents 刪除_bt As Button Friend WithEvents 新增_bt As Button Friend WithEvents 修改_bt As Button Friend WithEvents 搜尋1_bt As Button Friend WithEvents 型體名稱_tb As TextBox Friend WithEvents 型體名稱_lb As Label Friend WithEvents 型體號碼_tb As TextBox Friend WithEvents 型體號碼_lb As Label Friend WithEvents 客戶簡稱_tb As TextBox Friend WithEvents 客戶簡稱_lb As Label Friend WithEvents 清單2_dgv As DataGridView Friend WithEvents 搜尋_bt As Button Friend WithEvents 新增客戶清單_bt As Button Friend WithEvents 客戶簡稱清單_lb As Label Friend WithEvents 清單1_dgv As DataGridView End Class