_ 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 DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.最高容許溫度_lb = New System.Windows.Forms.Label() Me.最高容許溫度_cb = New System.Windows.Forms.ComboBox() Me.電線清單_dgv = New System.Windows.Forms.DataGridView() Me.配線方式_cb = New System.Windows.Forms.ComboBox() Me.配線方式_lb = New System.Windows.Forms.Label() Me.線別_cb = New System.Windows.Forms.ComboBox() Me.線別_lb = New System.Windows.Forms.Label() Me.公稱截面積_cb = New System.Windows.Forms.ComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.根數直徑_cb = New System.Windows.Forms.ComboBox() Me.根數直徑_lb = New System.Windows.Forms.Label() Me.導線數_cb = New System.Windows.Forms.ComboBox() Me.導線數_lb = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.周圍溫度_cb = New System.Windows.Forms.ComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.修正係數_tb = New System.Windows.Forms.TextBox() Me.表定安培容量_tb = New System.Windows.Forms.TextBox() Me.表定安培容量_lb = New System.Windows.Forms.Label() Me.安培容量_tb = New System.Windows.Forms.TextBox() Me.Label11 = New System.Windows.Forms.Label() Me.正向計算_ch = New System.Windows.Forms.CheckBox() Me.反向計算_ch = New System.Windows.Forms.CheckBox() Me.電線_cb = New System.Windows.Forms.ComboBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.反向計算1_ch = New System.Windows.Forms.CheckBox() Me.正向計算1_ch = New System.Windows.Forms.CheckBox() Me.施工方式_cb = New System.Windows.Forms.ComboBox() Me.Label6 = New System.Windows.Forms.Label() Me.電纜_cb = New System.Windows.Forms.ComboBox() Me.Label10 = New System.Windows.Forms.Label() Me.額定電壓_cb = New System.Windows.Forms.ComboBox() Me.Label12 = New System.Windows.Forms.Label() Me.管路_心數_cb = New System.Windows.Forms.ComboBox() Me.管路_心數_lb = New System.Windows.Forms.Label() Me.表定安培容量1_tb = New System.Windows.Forms.TextBox() Me.表定安培容量1_lb = New System.Windows.Forms.Label() Me.公稱截面積1_cb = New System.Windows.Forms.ComboBox() Me.公稱截面積1_lb = New System.Windows.Forms.Label() Me.修正係數1_tb = New System.Windows.Forms.TextBox() Me.周圍溫度1_cb = New System.Windows.Forms.ComboBox() Me.Label16 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.安培容量1_tb = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() Me.電纜清單_dgv = New System.Windows.Forms.DataGridView() CType(Me.電線清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.電纜清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '最高容許溫度_lb ' Me.最高容許溫度_lb.AutoSize = True Me.最高容許溫度_lb.ForeColor = System.Drawing.Color.Red Me.最高容許溫度_lb.Location = New System.Drawing.Point(3, 76) Me.最高容許溫度_lb.Name = "最高容許溫度_lb" Me.最高容許溫度_lb.Size = New System.Drawing.Size(80, 16) Me.最高容許溫度_lb.TabIndex = 0 Me.最高容許溫度_lb.Text = "最高容許溫度" ' '最高容許溫度_cb ' Me.最高容許溫度_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.最高容許溫度_cb.FormattingEnabled = True Me.最高容許溫度_cb.Items.AddRange(New Object() {"60", "75", "80", "90"}) Me.最高容許溫度_cb.Location = New System.Drawing.Point(85, 72) Me.最高容許溫度_cb.Name = "最高容許溫度_cb" Me.最高容許溫度_cb.Size = New System.Drawing.Size(46, 24) Me.最高容許溫度_cb.TabIndex = 999 ' '電線清單_dgv ' DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.電線清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 Me.電線清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.電線清單_dgv.BackgroundColor = System.Drawing.Color.White Me.電線清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.電線清單_dgv.Location = New System.Drawing.Point(496, 23) Me.電線清單_dgv.Name = "電線清單_dgv" Me.電線清單_dgv.RowHeadersWidth = 5 DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.電線清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6 Me.電線清單_dgv.RowTemplate.Height = 24 Me.電線清單_dgv.Size = New System.Drawing.Size(307, 153) Me.電線清單_dgv.TabIndex = 1000 ' '配線方式_cb ' Me.配線方式_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.配線方式_cb.FormattingEnabled = True Me.配線方式_cb.Items.AddRange(New Object() {"磁珠磁夾板配線", "導線管槽配線", "PVC管配線"}) Me.配線方式_cb.Location = New System.Drawing.Point(85, 99) Me.配線方式_cb.Name = "配線方式_cb" Me.配線方式_cb.Size = New System.Drawing.Size(168, 24) Me.配線方式_cb.TabIndex = 1002 ' '配線方式_lb ' Me.配線方式_lb.AutoSize = True Me.配線方式_lb.ForeColor = System.Drawing.Color.Red Me.配線方式_lb.Location = New System.Drawing.Point(3, 103) Me.配線方式_lb.Name = "配線方式_lb" Me.配線方式_lb.Size = New System.Drawing.Size(80, 16) Me.配線方式_lb.TabIndex = 1001 Me.配線方式_lb.Text = "配 線 方 式" ' '線別_cb ' Me.線別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.線別_cb.FormattingEnabled = True Me.線別_cb.Items.AddRange(New Object() {"單線", "絞線"}) Me.線別_cb.Location = New System.Drawing.Point(194, 72) Me.線別_cb.Name = "線別_cb" Me.線別_cb.Size = New System.Drawing.Size(59, 24) Me.線別_cb.TabIndex = 1004 ' '線別_lb ' Me.線別_lb.AutoSize = True Me.線別_lb.ForeColor = System.Drawing.Color.Red Me.線別_lb.Location = New System.Drawing.Point(161, 76) Me.線別_lb.Name = "線別_lb" Me.線別_lb.Size = New System.Drawing.Size(32, 16) Me.線別_lb.TabIndex = 1003 Me.線別_lb.Text = "線別" ' '公稱截面積_cb ' Me.公稱截面積_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.公稱截面積_cb.FormattingEnabled = True Me.公稱截面積_cb.Location = New System.Drawing.Point(407, 72) Me.公稱截面積_cb.Name = "公稱截面積_cb" Me.公稱截面積_cb.Size = New System.Drawing.Size(87, 24) Me.公稱截面積_cb.TabIndex = 1006 ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(337, 76) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(68, 16) Me.Label4.TabIndex = 1005 Me.Label4.Text = "公稱截面積" ' '根數直徑_cb ' Me.根數直徑_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.根數直徑_cb.FormattingEnabled = True Me.根數直徑_cb.Location = New System.Drawing.Point(85, 126) Me.根數直徑_cb.Name = "根數直徑_cb" Me.根數直徑_cb.Size = New System.Drawing.Size(87, 24) Me.根數直徑_cb.TabIndex = 1008 ' '根數直徑_lb ' Me.根數直徑_lb.AutoSize = True Me.根數直徑_lb.ForeColor = System.Drawing.Color.Red Me.根數直徑_lb.Location = New System.Drawing.Point(3, 130) Me.根數直徑_lb.Name = "根數直徑_lb" Me.根數直徑_lb.Size = New System.Drawing.Size(79, 16) Me.根數直徑_lb.TabIndex = 1007 Me.根數直徑_lb.Text = "根 數 / 直 徑" ' '導線數_cb ' Me.導線數_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.導線數_cb.FormattingEnabled = True Me.導線數_cb.Location = New System.Drawing.Point(407, 99) Me.導線數_cb.Name = "導線數_cb" Me.導線數_cb.Size = New System.Drawing.Size(87, 24) Me.導線數_cb.TabIndex = 1010 ' '導線數_lb ' Me.導線數_lb.AutoSize = True Me.導線數_lb.ForeColor = System.Drawing.Color.Red Me.導線數_lb.Location = New System.Drawing.Point(278, 103) Me.導線數_lb.Name = "導線數_lb" Me.導線數_lb.Size = New System.Drawing.Size(128, 16) Me.導線數_lb.TabIndex = 1009 Me.導線數_lb.Text = "同一導線管內之導線數" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(3, 50) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(80, 16) Me.Label7.TabIndex = 1011 Me.Label7.Text = "電 線 總 類" ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(178, 155) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(56, 16) Me.Label8.TabIndex = 1013 Me.Label8.Text = "修正係數" ' '周圍溫度_cb ' Me.周圍溫度_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.周圍溫度_cb.FormattingEnabled = True Me.周圍溫度_cb.Items.AddRange(New Object() {"35以下", "40", "45", "50", "55", "60", "65", "70", "75", "80", "85"}) Me.周圍溫度_cb.Location = New System.Drawing.Point(85, 152) Me.周圍溫度_cb.Name = "周圍溫度_cb" Me.周圍溫度_cb.Size = New System.Drawing.Size(87, 24) Me.周圍溫度_cb.TabIndex = 1016 ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(3, 156) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(80, 16) Me.Label9.TabIndex = 1015 Me.Label9.Text = "周 圍 溫 度" ' '修正係數_tb ' Me.修正係數_tb.Enabled = False Me.修正係數_tb.Location = New System.Drawing.Point(235, 151) Me.修正係數_tb.Name = "修正係數_tb" Me.修正係數_tb.Size = New System.Drawing.Size(68, 23) Me.修正係數_tb.TabIndex = 1017 Me.修正係數_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '表定安培容量_tb ' Me.表定安培容量_tb.Enabled = False Me.表定安培容量_tb.Location = New System.Drawing.Point(407, 125) Me.表定安培容量_tb.Name = "表定安培容量_tb" Me.表定安培容量_tb.Size = New System.Drawing.Size(87, 23) Me.表定安培容量_tb.TabIndex = 1019 Me.表定安培容量_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '表定安培容量_lb ' Me.表定安培容量_lb.AutoSize = True Me.表定安培容量_lb.Location = New System.Drawing.Point(325, 128) Me.表定安培容量_lb.Name = "表定安培容量_lb" Me.表定安培容量_lb.Size = New System.Drawing.Size(80, 16) Me.表定安培容量_lb.TabIndex = 1018 Me.表定安培容量_lb.Text = "表定安培容量" ' '安培容量_tb ' Me.安培容量_tb.Location = New System.Drawing.Point(407, 151) Me.安培容量_tb.Name = "安培容量_tb" Me.安培容量_tb.Size = New System.Drawing.Size(87, 23) Me.安培容量_tb.TabIndex = 1021 Me.安培容量_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label11 ' Me.Label11.AutoSize = True Me.Label11.ForeColor = System.Drawing.Color.Green Me.Label11.Location = New System.Drawing.Point(345, 154) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(56, 16) Me.Label11.TabIndex = 1020 Me.Label11.Text = "安培容量" ' '正向計算_ch ' Me.正向計算_ch.AutoSize = True Me.正向計算_ch.Checked = True Me.正向計算_ch.CheckState = System.Windows.Forms.CheckState.Checked Me.正向計算_ch.Location = New System.Drawing.Point(37, 23) Me.正向計算_ch.Name = "正向計算_ch" Me.正向計算_ch.Size = New System.Drawing.Size(203, 20) Me.正向計算_ch.TabIndex = 1022 Me.正向計算_ch.Text = "正向計算(選定條件算出安培容量)" Me.正向計算_ch.UseVisualStyleBackColor = True ' '反向計算_ch ' Me.反向計算_ch.AutoSize = True Me.反向計算_ch.Location = New System.Drawing.Point(296, 23) Me.反向計算_ch.Name = "反向計算_ch" Me.反向計算_ch.Size = New System.Drawing.Size(155, 20) Me.反向計算_ch.TabIndex = 1023 Me.反向計算_ch.Text = "反向計算(輸入安培容量)" Me.反向計算_ch.UseVisualStyleBackColor = True ' '電線_cb ' Me.電線_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.電線_cb.FormattingEnabled = True Me.電線_cb.Items.AddRange(New Object() {"磁珠磁夾板配線", "導線管槽配線", "PVC管配線"}) Me.電線_cb.Location = New System.Drawing.Point(85, 45) Me.電線_cb.Name = "電線_cb" Me.電線_cb.Size = New System.Drawing.Size(409, 24) Me.電線_cb.TabIndex = 1024 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(353, 3) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(112, 16) Me.Label1.TabIndex = 1025 Me.Label1.Text = "絕緣電線 -安培容量" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(3, 7) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(803, 16) Me.Label2.TabIndex = 1026 Me.Label2.Text = "_________________________________________________________________________________" & "______________________________________________________________________________" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(353, 190) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(112, 16) Me.Label3.TabIndex = 1027 Me.Label3.Text = "絕緣電纜 -安培容量" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(3, 194) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(803, 16) Me.Label5.TabIndex = 1028 Me.Label5.Text = "_________________________________________________________________________________" & "______________________________________________________________________________" ' '反向計算1_ch ' Me.反向計算1_ch.AutoSize = True Me.反向計算1_ch.Location = New System.Drawing.Point(296, 210) Me.反向計算1_ch.Name = "反向計算1_ch" Me.反向計算1_ch.Size = New System.Drawing.Size(155, 20) Me.反向計算1_ch.TabIndex = 1030 Me.反向計算1_ch.Text = "反向計算(輸入安培容量)" Me.反向計算1_ch.UseVisualStyleBackColor = True ' '正向計算1_ch ' Me.正向計算1_ch.AutoSize = True Me.正向計算1_ch.Checked = True Me.正向計算1_ch.CheckState = System.Windows.Forms.CheckState.Checked Me.正向計算1_ch.Location = New System.Drawing.Point(37, 210) Me.正向計算1_ch.Name = "正向計算1_ch" Me.正向計算1_ch.Size = New System.Drawing.Size(203, 20) Me.正向計算1_ch.TabIndex = 1029 Me.正向計算1_ch.Text = "正向計算(選定條件算出安培容量)" Me.正向計算1_ch.UseVisualStyleBackColor = True ' '施工方式_cb ' Me.施工方式_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.施工方式_cb.FormattingEnabled = True Me.施工方式_cb.Items.AddRange(New Object() {"空中架設", "暗渠敷設", "地下管路敷設", "直埋敷設"}) Me.施工方式_cb.Location = New System.Drawing.Point(85, 232) Me.施工方式_cb.Name = "施工方式_cb" Me.施工方式_cb.Size = New System.Drawing.Size(128, 24) Me.施工方式_cb.TabIndex = 1032 ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.ForeColor = System.Drawing.Color.Red Me.Label6.Location = New System.Drawing.Point(4, 236) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(80, 16) Me.Label6.TabIndex = 1031 Me.Label6.Text = "施 工 方 式" ' '電纜_cb ' Me.電纜_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.電纜_cb.FormattingEnabled = True Me.電纜_cb.Location = New System.Drawing.Point(85, 259) Me.電纜_cb.Name = "電纜_cb" Me.電纜_cb.Size = New System.Drawing.Size(240, 24) Me.電纜_cb.TabIndex = 1034 ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.ForeColor = System.Drawing.Color.Red Me.Label10.Location = New System.Drawing.Point(4, 263) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(80, 16) Me.Label10.TabIndex = 1033 Me.Label10.Text = "電 纜" ' '額定電壓_cb ' Me.額定電壓_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.額定電壓_cb.FormattingEnabled = True Me.額定電壓_cb.Items.AddRange(New Object() {"5001V-8000V", "601V-5000V", "8001V-15000V", "15001V-25000V"}) Me.額定電壓_cb.Location = New System.Drawing.Point(331, 232) Me.額定電壓_cb.Name = "額定電壓_cb" Me.額定電壓_cb.Size = New System.Drawing.Size(163, 24) Me.額定電壓_cb.TabIndex = 1036 ' 'Label12 ' Me.Label12.AutoSize = True Me.Label12.ForeColor = System.Drawing.Color.Red Me.Label12.Location = New System.Drawing.Point(274, 236) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(56, 16) Me.Label12.TabIndex = 1035 Me.Label12.Text = "額定電壓" ' '管路_心數_cb ' Me.管路_心數_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.管路_心數_cb.FormattingEnabled = True Me.管路_心數_cb.Location = New System.Drawing.Point(85, 286) Me.管路_心數_cb.Name = "管路_心數_cb" Me.管路_心數_cb.Size = New System.Drawing.Size(128, 24) Me.管路_心數_cb.TabIndex = 1038 ' '管路_心數_lb ' Me.管路_心數_lb.AutoSize = True Me.管路_心數_lb.ForeColor = System.Drawing.Color.Red Me.管路_心數_lb.Location = New System.Drawing.Point(3, 290) Me.管路_心數_lb.Name = "管路_心數_lb" Me.管路_心數_lb.Size = New System.Drawing.Size(79, 16) Me.管路_心數_lb.TabIndex = 1037 Me.管路_心數_lb.Text = "管路數 / 心數" ' '表定安培容量1_tb ' Me.表定安培容量1_tb.Enabled = False Me.表定安培容量1_tb.Location = New System.Drawing.Point(407, 287) Me.表定安培容量1_tb.Name = "表定安培容量1_tb" Me.表定安培容量1_tb.Size = New System.Drawing.Size(87, 23) Me.表定安培容量1_tb.TabIndex = 1042 Me.表定安培容量1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '表定安培容量1_lb ' Me.表定安培容量1_lb.AutoSize = True Me.表定安培容量1_lb.Location = New System.Drawing.Point(329, 290) Me.表定安培容量1_lb.Name = "表定安培容量1_lb" Me.表定安培容量1_lb.Size = New System.Drawing.Size(80, 16) Me.表定安培容量1_lb.TabIndex = 1041 Me.表定安培容量1_lb.Text = "表定安培容量" ' '公稱截面積1_cb ' Me.公稱截面積1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.公稱截面積1_cb.FormattingEnabled = True Me.公稱截面積1_cb.Location = New System.Drawing.Point(407, 259) Me.公稱截面積1_cb.Name = "公稱截面積1_cb" Me.公稱截面積1_cb.Size = New System.Drawing.Size(87, 24) Me.公稱截面積1_cb.TabIndex = 1040 ' '公稱截面積1_lb ' Me.公稱截面積1_lb.AutoSize = True Me.公稱截面積1_lb.ForeColor = System.Drawing.Color.Red Me.公稱截面積1_lb.Location = New System.Drawing.Point(329, 263) Me.公稱截面積1_lb.Name = "公稱截面積1_lb" Me.公稱截面積1_lb.Size = New System.Drawing.Size(80, 16) Me.公稱截面積1_lb.TabIndex = 1039 Me.公稱截面積1_lb.Text = "公 稱 截 面 積" ' '修正係數1_tb ' Me.修正係數1_tb.Enabled = False Me.修正係數1_tb.Location = New System.Drawing.Point(235, 313) Me.修正係數1_tb.Name = "修正係數1_tb" Me.修正係數1_tb.Size = New System.Drawing.Size(68, 23) Me.修正係數1_tb.TabIndex = 1046 Me.修正係數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' '周圍溫度1_cb ' Me.周圍溫度1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.周圍溫度1_cb.FormattingEnabled = True Me.周圍溫度1_cb.Items.AddRange(New Object() {"20", "25", "30", "35", "40", "45", "50"}) Me.周圍溫度1_cb.Location = New System.Drawing.Point(85, 313) Me.周圍溫度1_cb.Name = "周圍溫度1_cb" Me.周圍溫度1_cb.Size = New System.Drawing.Size(87, 24) Me.周圍溫度1_cb.TabIndex = 1045 ' 'Label16 ' Me.Label16.AutoSize = True Me.Label16.Location = New System.Drawing.Point(4, 317) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(80, 16) Me.Label16.TabIndex = 1044 Me.Label16.Text = "周 圍 溫 度" ' 'Label17 ' Me.Label17.AutoSize = True Me.Label17.Location = New System.Drawing.Point(178, 317) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(56, 16) Me.Label17.TabIndex = 1043 Me.Label17.Text = "修正係數" ' '安培容量1_tb ' Me.安培容量1_tb.Location = New System.Drawing.Point(407, 313) Me.安培容量1_tb.Name = "安培容量1_tb" Me.安培容量1_tb.Size = New System.Drawing.Size(87, 23) Me.安培容量1_tb.TabIndex = 1048 Me.安培容量1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'Label18 ' Me.Label18.AutoSize = True Me.Label18.ForeColor = System.Drawing.Color.Green Me.Label18.Location = New System.Drawing.Point(345, 316) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(56, 16) Me.Label18.TabIndex = 1047 Me.Label18.Text = "安培容量" ' '電纜清單_dgv ' DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) Me.電纜清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.電纜清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.電纜清單_dgv.BackgroundColor = System.Drawing.Color.White Me.電纜清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.電纜清單_dgv.Location = New System.Drawing.Point(496, 210) Me.電纜清單_dgv.Name = "電纜清單_dgv" Me.電纜清單_dgv.RowHeadersWidth = 5 DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.電纜清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8 Me.電纜清單_dgv.RowTemplate.Height = 24 Me.電纜清單_dgv.Size = New System.Drawing.Size(307, 126) Me.電纜清單_dgv.TabIndex = 1049 ' '安培容量計算 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(808, 343) Me.Controls.Add(Me.電纜清單_dgv) Me.Controls.Add(Me.安培容量1_tb) Me.Controls.Add(Me.Label18) Me.Controls.Add(Me.修正係數1_tb) Me.Controls.Add(Me.周圍溫度1_cb) Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.表定安培容量1_tb) Me.Controls.Add(Me.公稱截面積1_cb) Me.Controls.Add(Me.公稱截面積1_lb) Me.Controls.Add(Me.管路_心數_cb) Me.Controls.Add(Me.管路_心數_lb) Me.Controls.Add(Me.額定電壓_cb) Me.Controls.Add(Me.Label12) Me.Controls.Add(Me.電纜_cb) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.施工方式_cb) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.反向計算1_ch) Me.Controls.Add(Me.正向計算1_ch) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.電線_cb) Me.Controls.Add(Me.反向計算_ch) Me.Controls.Add(Me.正向計算_ch) Me.Controls.Add(Me.安培容量_tb) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.表定安培容量_tb) Me.Controls.Add(Me.表定安培容量_lb) Me.Controls.Add(Me.修正係數_tb) Me.Controls.Add(Me.周圍溫度_cb) Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.導線數_cb) Me.Controls.Add(Me.導線數_lb) Me.Controls.Add(Me.根數直徑_cb) Me.Controls.Add(Me.根數直徑_lb) Me.Controls.Add(Me.公稱截面積_cb) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.線別_cb) Me.Controls.Add(Me.線別_lb) Me.Controls.Add(Me.配線方式_cb) Me.Controls.Add(Me.配線方式_lb) Me.Controls.Add(Me.電線清單_dgv) Me.Controls.Add(Me.最高容許溫度_cb) Me.Controls.Add(Me.最高容許溫度_lb) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.表定安培容量1_lb) 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.電線清單_dgv, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.電纜清單_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 最高容許溫度_lb As Label Friend WithEvents 最高容許溫度_cb As ComboBox Friend WithEvents 電線清單_dgv As DataGridView Friend WithEvents 配線方式_cb As ComboBox Friend WithEvents 配線方式_lb As Label Friend WithEvents 線別_cb As ComboBox Friend WithEvents 線別_lb As Label Friend WithEvents 公稱截面積_cb As ComboBox Friend WithEvents Label4 As Label Friend WithEvents 根數直徑_cb As ComboBox Friend WithEvents 根數直徑_lb As Label Friend WithEvents 導線數_cb As ComboBox Friend WithEvents 導線數_lb As Label Friend WithEvents Label7 As Label Friend WithEvents Label8 As Label Friend WithEvents 周圍溫度_cb As ComboBox Friend WithEvents Label9 As Label Friend WithEvents 修正係數_tb As TextBox Friend WithEvents 表定安培容量_tb As TextBox Friend WithEvents 表定安培容量_lb As Label Friend WithEvents 安培容量_tb As TextBox Friend WithEvents Label11 As Label Friend WithEvents 正向計算_ch As CheckBox Friend WithEvents 反向計算_ch As CheckBox Friend WithEvents 電線_cb As ComboBox Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents Label3 As Label Friend WithEvents Label5 As Label Friend WithEvents 反向計算1_ch As CheckBox Friend WithEvents 正向計算1_ch As CheckBox Friend WithEvents 施工方式_cb As ComboBox Friend WithEvents Label6 As Label Friend WithEvents 電纜_cb As ComboBox Friend WithEvents Label10 As Label Friend WithEvents 額定電壓_cb As ComboBox Friend WithEvents Label12 As Label Friend WithEvents 管路_心數_cb As ComboBox Friend WithEvents 管路_心數_lb As Label Friend WithEvents 表定安培容量1_tb As TextBox Friend WithEvents 表定安培容量1_lb As Label Friend WithEvents 公稱截面積1_cb As ComboBox Friend WithEvents 公稱截面積1_lb As Label Friend WithEvents 修正係數1_tb As TextBox Friend WithEvents 周圍溫度1_cb As ComboBox Friend WithEvents Label16 As Label Friend WithEvents Label17 As Label Friend WithEvents 安培容量1_tb As TextBox Friend WithEvents Label18 As Label Friend WithEvents 電纜清單_dgv As DataGridView End Class