Option Strict Off Imports Microsoft.Office.Interop.Word Imports Microsoft.Office.Interop Public Class 合約本文 ReadOnly ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds15 As New DataSet Dim EDR, YR As Integer Dim YY(3), X(35), Y(35) As Integer Dim 條件選擇 As String ReadOnly 本文數 As Integer = 757 Dim 最終數1 As Integer Dim 自動移動, 放大, 簽回檔 As Boolean Const x0 As Integer = 70 Const y0 As Integer = 350 Const h As Integer = 10 Const hd As Integer = 10 Const cnt As Integer = 4 Private Sub Set_合約範例() 範例文本_dgv.DataSource = Nothing : ds7.Clear() 範例文本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 範例文本_dgv.ColumnHeadersHeight = 25 : 範例文本_dgv.AllowUserToAddRows = False SQL_合約清單_範本() da.Fill(ds7) : 範例文本_dgv.DataSource = ds7.Tables(0) : conn.Close() Dim OLY As Integer For no As Integer = 1 To 本文數 Dim LBS As Label = CType(Me.Controls.Find("LB" + (no).ToString(), True)(0), Label) If 範例文本_dgv.Rows.Count < no Then : Else LBS.Text = 範例文本_dgv("內容", no - 1).Value : OLY = LBS.Location.Y : LBS.Location = New Drawing.Point(範例文本_dgv("座標X", no - 1).Value, OLY) End If Next 自動移動 = True LB7_移動() : LB8_移動() : LB9_移動() : LB10_移動() : LB11_移動() : LB12_移動() : LB13_移動() : LB14_移動() : LB15_移動() : LB16_移動() : LB17_移動() : LB18_移動() : LB19_移動() LB20_移動() : LB31_移動() : LB32_移動() : LB35_移動() : LB36_移動() : LB37_移動() : LB38_移動() : LB86_移動() : LB87_移動() : LB88_移動() : LB89_移動() : LB90_移動() LB91_移動() : LB92_移動() : LB93_移動() : LB103_移動() : LB104_移動() : LB105_移動() : LB106_移動() : LB107_移動() : LB108_移動() : LB109_移動() : LB110_移動() : LB111_移動() LB112_移動() : LB113_移動() : LB114_移動() : LB115_移動() : LB116_移動() : LB117_移動() : LB118_移動() : LB119_移動() : LB120_移動() : LB121_移動() : LB122_移動() : LB123_移動() LB124_移動() : LB125_移動() : LB126_移動() : LB127_移動() : LB129_移動() : LB131_移動() : LB132_移動() : LB133_移動() : LB134_移動() : LB135_移動() : LB136_移動() : LB137_移動() LB138_移動() : LB140_移動() : LB141_移動() : LB142_移動() : LB143_移動() : LB144_移動() : LB145_移動() : LB147_移動() : LB149_移動() : LB150_移動() : LB152_移動() : LB159_移動() LB160_移動() : LB161_移動() : LB163_移動() : LB164_移動() : LB167_移動() : LB168_移動() : LB170_移動() : LB171_移動() : LB173_移動() : LB174_移動() : LB176_移動() : LB177_移動() LB179_移動() : LB180_移動() : LB182_移動() : LB183_移動() : LB191_移動() : LB192_移動() : LB194_移動() : LB195_移動() : LB197_移動() : LB198_移動() : LB200_移動() : LB201_移動() LB203_移動() : LB204_移動() : LB206_移動() : LB207_移動() : LB209_移動() : LB210_移動() : LB212_移動() : LB213_移動() : LB215_移動() : LB216_移動() : LB218_移動() : LB219_移動() LB221_移動() : LB222_移動() : LB224_移動() : LB235_移動() : LB236_移動() : LB238_移動() : LB239_移動() : LB241_移動() : LB242_移動() : LB244_移動() : LB245_移動() : LB247_移動() LB248_移動() : LB250_移動() : LB251_移動() : LB253_移動() : LB254_移動() : LB256_移動() : LB257_移動() : LB259_移動() : LB260_移動() : LB262_移動() : LB263_移動() : LB265_移動() LB277_移動() : LB278_移動() : LB280_移動() : LB281_移動() : LB283_移動() : LB284_移動() : LB286_移動() : LB287_移動() : LB289_移動() : LB290_移動() : LB292_移動() : LB293_移動() LB295_移動() : LB296_移動() : LB298_移動() : LB299_移動() : LB301_移動() : LB307_移動() : LB308_移動() : LB310_移動() : LB311_移動() : LB313_移動() : LB314_移動() : LB316_移動() LB317_移動() : LB319_移動() : LB320_移動() : LB322_移動() : LB323_移動() : LB325_移動() : LB326_移動() : LB328_移動() : LB331_移動() : LB332_移動() : LB334_移動() : LB335_移動() LB337_移動() : LB338_移動() : LB340_移動() : LB341_移動() : LB343_移動() : LB344_移動() : LB346_移動() : LB352_移動() : LB353_移動() : LB355_移動() : LB356_移動() : LB358_移動() LB359_移動() : LB361_移動() : LB362_移動() : LB364_移動() : LB365_移動() : LB367_移動() : LB368_移動() : LB370_移動() : LB371_移動() : LB373_移動() : LB374_移動() : LB376_移動() LB377_移動() : LB379_移動() : LB380_移動() : LB382_移動() : LB383_移動() : LB385_移動() : LB386_移動() : LB388_移動() : LB389_移動() : LB391_移動() : LB397_移動() : LB398_移動() LB400_移動() : LB401_移動() : LB403_移動() : LB404_移動() : LB406_移動() : LB407_移動() : LB409_移動() : LB410_移動() : LB412_移動() : LB413_移動() : LB415_移動() : LB416_移動() LB418_移動() : LB419_移動() : LB421_移動() : LB422_移動() : LB424_移動() : LB425_移動() : LB427_移動() : LB428_移動() : LB430_移動() : LB431_移動() : LB433_移動() : LB434_移動() LB436_移動() : LB442_移動() : LB443_移動() : LB445_移動() : LB446_移動() : LB448_移動() : LB449_移動() : LB451_移動() : LB452_移動() : LB454_移動() : LB455_移動() : LB457_移動() LB458_移動() : LB460_移動() : LB461_移動() : LB463_移動() : LB464_移動() : LB466_移動() : LB467_移動() : LB469_移動() : LB470_移動() : LB472_移動() : LB473_移動() : LB475_移動() LB476_移動() : LB478_移動() : LB479_移動() : LB481_移動() : LB489_移動() : LB490_移動() : LB492_移動() : LB493_移動() : LB495_移動() : LB496_移動() : LB498_移動() : LB499_移動() LB501_移動() : LB502_移動() : LB504_移動() : LB505_移動() : LB507_移動() : LB508_移動() : LB510_移動() : LB511_移動() : LB513_移動() : LB514_移動() : LB516_移動() : LB517_移動() LB519_移動() : LB520_移動() : LB522_移動() : LB529_移動() : LB530_移動() : LB532_移動() : LB533_移動() : LB535_移動() : LB536_移動() : LB538_移動() : LB539_移動() : LB541_移動() LB542_移動() : LB544_移動() : LB545_移動() : LB547_移動() : LB548_移動() : LB550_移動() : LB551_移動() : LB553_移動() : LB554_移動() : LB556_移動() : LB557_移動() : LB559_移動() LB560_移動() : LB562_移動() : LB563_移動() : LB565_移動() : LB577_移動() : LB578_移動() : LB580_移動() : LB581_移動() : LB583_移動() : LB584_移動() : LB586_移動() : LB587_移動() LB589_移動() : LB590_移動() : LB592_移動() : LB593_移動() : LB595_移動() : LB596_移動() : LB598_移動() : LB604_移動() : LB605_移動() : LB607_移動() : LB608_移動() : LB610_移動() LB611_移動() : LB613_移動() : LB614_移動() : LB616_移動() : LB617_移動() : LB619_移動() : LB620_移動() : LB622_移動() : LB623_移動() : LB625_移動() : LB626_移動() : LB628_移動() LB629_移動() : LB631_移動() : LB632_移動() : LB634_移動() : LB635_移動() : LB637_移動() : LB638_移動() : LB640_移動() : LB641_移動() : LB643_移動() : LB649_移動() : LB650_移動() LB652_移動() : LB653_移動() : LB655_移動() : LB656_移動() : LB658_移動() : LB659_移動() : LB661_移動() : LB662_移動() : LB664_移動() : LB665_移動() : LB667_移動() : LB668_移動() LB670_移動() : LB671_移動() : LB673_移動() : LB674_移動() : LB676_移動() : LB677_移動() : LB679_移動() : LB680_移動() : LB682_移動() : LB693_移動() : LB694_移動() : LB696_移動() LB697_移動() : LB699_移動() : LB700_移動() : LB702_移動() : LB703_移動() : LB705_移動() : LB706_移動() : LB708_移動() : LB709_移動() : LB711_移動() : LB712_移動() : LB714_移動() LB715_移動() : LB717_移動() : LB722_移動() : LB723_移動() : LB725_移動() : LB726_移動() : LB728_移動() : LB729_移動() : LB731_移動() : LB732_移動() : LB734_移動() : LB735_移動() LB737_移動() : LB738_移動() : LB740_移動() : LB750_移動() : LB751_移動() : LB753_移動() : LB754_移動() : LB756_移動() 自動移動 = False End Sub Private Sub Set_存檔比較用() 存檔比較_dgv.DataSource = Nothing : ds8.Clear() 存檔比較_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 存檔比較_dgv.ColumnHeadersHeight = 25 : 存檔比較_dgv.AllowUserToAddRows = False SQL_合約本文清單() da.Fill(ds8) : 存檔比較_dgv.DataSource = ds8.Tables(0) : conn.Close() End Sub Private Sub Set_合約清單() 合約_dgv.DataSource = Nothing : ds6.Clear() 合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text SQL_合約清單_未語轉() da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close() 合約_dgv.Columns(0).FillWeight = 160 : 合約_dgv.Columns(1).Visible = False : 合約_dgv.Columns(2).Visible = False : 合約_dgv.Columns(3).Visible = False 合約_dgv.Columns(4).Visible = False : 合約_dgv.Columns(5).Visible = False : 合約_dgv.Columns(6).Visible = False : 合約_dgv.Columns(7).Visible = False 合約_dgv.Columns(8).Visible = False : 合約_dgv.Columns(9).Visible = False : 合約_dgv.Columns(10).Visible = False : 合約_dgv.Columns(11).Visible = False 合約_dgv.Columns(12).Visible = False : 合約_dgv.Columns(13).Visible = False : 合約_dgv.Columns(14).Visible = False : 合約_dgv.Columns(15).Visible = False 合約_dgv.Columns(16).Visible = False : 合約_dgv.Columns(17).Visible = False : 合約_dgv.Columns(18).Visible = False : 合約_dgv.Columns(19).Visible = False 合約_dgv.Columns(20).Visible = False : 合約_dgv.Columns(21).Visible = False : 合約_dgv.Columns(22).Visible = False : 合約_dgv.Columns(23).Visible = False 合約_dgv.Columns(24).FillWeight = 100 : 合約_dgv.Columns(25).Visible = False : 合約_dgv.Columns(26).Visible = False : 合約_dgv.Columns(27).Visible = False 合約_dgv.Columns(28).Visible = False : 合約_dgv.Columns("工程名稱_中").FillWeight = 300 : 合約_dgv.Columns("簽回檔圖庫").Visible = False 合約_dgv.Columns("簽回").FillWeight = 40 合約_dgv.Columns(0).ReadOnly = True : 合約_dgv.Columns("工程名稱_中").ReadOnly = True If 放大 = True Then 合約_dgv.Columns("工程名稱_中").Visible = True Else 合約_dgv.Columns("工程名稱_中").Visible = False End If For no As Integer = 0 To 35 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no), Y(no)) : Next For i As Integer = 0 To 合約_dgv.Rows.Count - 1 : If IsDBNull(合約_dgv("簽回", i).Value) = True Then : 合約_dgv("簽回", i).Value = False : End If : Next PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5() End Sub Private Sub Set_合約明細1() 第1期_dgv.DataSource = Nothing : ds1.Clear() 第1期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 第1期_dgv.ColumnHeadersHeight = 25 : 第1期_dgv.AllowUserToAddRows = False SQL_合約明細讀取() da.Fill(ds1) : 第1期_dgv.DataSource = ds1.Tables(0) : conn.Close() 第1期_dgv.Columns(0).Visible = False : 第1期_dgv.Columns(1).Visible = False : 第1期_dgv.Columns(2).FillWeight = 20 : 第1期_dgv.Columns(3).FillWeight = 140 第1期_dgv.Columns(4).FillWeight = 20 : 第1期_dgv.Columns(5).FillWeight = 50 : 第1期_dgv.Columns(2).ReadOnly = True : 第1期_dgv.Columns(5).ReadOnly = True 第1期_dgv.EditMode = DataGridViewEditMode.EditOnEnter 第1期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第1期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第1期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" 第1期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 第1期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight YY(0) = 0 : Dim NN1, NY As Integer For no As Integer = 1 To 40 : Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False : Next For I As Integer = 0 To 第1期_dgv.Rows.Count - 1 YY(0) += YR For no As Integer = 0 To 35 Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no), Y(no) + YY(0)) Next Next For I As Integer = 0 To 第1期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True NLBS1.Location = New Drawing.Point(73, 149 + NY) : NLBS2.Location = New Drawing.Point(102, 149 + NY) NLBS3.Location = New Drawing.Point(529, 149 + NY) : NLBS4.Location = New Drawing.Point(610, 149 + NY) NLBS2.Text = 第1期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第1期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第1期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20 Next End Sub Private Sub Set_合約明細2() 第2期_dgv.DataSource = Nothing : ds2.Clear() 第2期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 第2期_dgv.ColumnHeadersHeight = 25 : 第2期_dgv.AllowUserToAddRows = False SQL_合約明細讀取() da.Fill(ds2) : 第2期_dgv.DataSource = ds2.Tables(0) : conn.Close() 第2期_dgv.Columns(0).Visible = False : 第2期_dgv.Columns(1).Visible = False : 第2期_dgv.Columns(2).FillWeight = 20 : 第2期_dgv.Columns(3).FillWeight = 140 第2期_dgv.Columns(4).FillWeight = 20 : 第2期_dgv.Columns(5).FillWeight = 50 : 第2期_dgv.Columns(2).ReadOnly = True : 第2期_dgv.Columns(5).ReadOnly = True 第2期_dgv.EditMode = DataGridViewEditMode.EditOnEnter 第2期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第2期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第2期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" 第2期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 第2期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight YY(1) = 0 : Dim NN1, NY, OY As Integer For no As Integer = 41 To 80 : Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False : Next For I As Integer = 0 To 第2期_dgv.Rows.Count - 1 YY(1) += YR For no As Integer = 0 To 26 Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 59).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no + 9), Y(no + 9) + YY(0) + YY(1)) Next Next OY = LB52.Location.Y + 20 : NN1 = 40 For I As Integer = 0 To 第2期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY) NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY) NLBS2.Text = 第2期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第2期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第2期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20 Next End Sub Private Sub Set_合約明細3() 第3期_dgv.DataSource = Nothing : ds3.Clear() 第3期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 第3期_dgv.ColumnHeadersHeight = 25 : 第3期_dgv.AllowUserToAddRows = False SQL_合約明細讀取() da.Fill(ds3) : 第3期_dgv.DataSource = ds3.Tables(0) : conn.Close() 第3期_dgv.Columns(0).Visible = False : 第3期_dgv.Columns(1).Visible = False : 第3期_dgv.Columns(2).FillWeight = 20 : 第3期_dgv.Columns(3).FillWeight = 140 第3期_dgv.Columns(4).FillWeight = 20 : 第3期_dgv.Columns(5).FillWeight = 50 : 第3期_dgv.Columns(2).ReadOnly = True : 第3期_dgv.Columns(5).ReadOnly = True 第3期_dgv.EditMode = DataGridViewEditMode.EditOnEnter 第3期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第3期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第3期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" 第3期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 第3期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight YY(2) = 0 : Dim NN1, NY, OY As Integer For no As Integer = 81 To 120 : Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False : Next For I As Integer = 0 To 第3期_dgv.Rows.Count - 1 YY(2) += YR For no As Integer = 0 To 17 Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 68).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no + 18), Y(no + 18) + YY(0) + YY(1) + YY(2)) Next Next OY = LB61.Location.Y + 20 : NN1 = 80 For I As Integer = 0 To 第3期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY) NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY) NLBS2.Text = 第3期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第3期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第3期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20 Next End Sub Private Sub Set_合約明細4() 第4期_dgv.DataSource = Nothing : ds4.Clear() 第4期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 第4期_dgv.ColumnHeadersHeight = 25 : 第4期_dgv.AllowUserToAddRows = False SQL_合約明細讀取() da.Fill(ds4) : 第4期_dgv.DataSource = ds4.Tables(0) : conn.Close() 第4期_dgv.Columns(0).Visible = False : 第4期_dgv.Columns(1).Visible = False : 第4期_dgv.Columns(2).FillWeight = 20 : 第4期_dgv.Columns(3).FillWeight = 140 第4期_dgv.Columns(4).FillWeight = 20 : 第4期_dgv.Columns(5).FillWeight = 50 : 第4期_dgv.Columns(2).ReadOnly = True : 第4期_dgv.Columns(5).ReadOnly = True 第4期_dgv.EditMode = DataGridViewEditMode.EditOnEnter 第4期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第4期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第4期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" 第4期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 第4期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight YY(3) = 0 : Dim NN1, NY, OY As Integer For no As Integer = 121 To 160 Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False Next For I As Integer = 0 To 第4期_dgv.Rows.Count - 1 YY(3) += YR For no As Integer = 0 To 8 Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 77).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no + 27), Y(no + 27) + YY(0) + YY(1) + YY(2) + YY(3)) Next Next OY = LB70.Location.Y + 20 : NN1 = 120 For I As Integer = 0 To 第4期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY) NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY) NLBS2.Text = 第4期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第4期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第4期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20 Next End Sub Private Sub Set_合約明細5() 第5期_dgv.DataSource = Nothing : ds5.Clear() 第5期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 第5期_dgv.ColumnHeadersHeight = 25 : 第5期_dgv.AllowUserToAddRows = False SQL_合約明細讀取() da.Fill(ds5) : 第5期_dgv.DataSource = ds5.Tables(0) : conn.Close() 第5期_dgv.Columns(0).Visible = False : 第5期_dgv.Columns(1).Visible = False : 第5期_dgv.Columns(2).FillWeight = 20 : 第5期_dgv.Columns(3).FillWeight = 140 第5期_dgv.Columns(4).FillWeight = 20 : 第5期_dgv.Columns(5).FillWeight = 50 : 第5期_dgv.Columns(2).ReadOnly = True : 第5期_dgv.Columns(5).ReadOnly = True 第5期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第5期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第5期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0" 第5期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight 第5期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight Dim NN1, NY, OY As Integer For no As Integer = 161 To 200 Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False Next OY = LB79.Location.Y + 20 : NN1 = 160 For I As Integer = 0 To 第5期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY) NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY) NLBS2.Text = 第5期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第5期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第5期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20 Next End Sub Private Sub Set_合約報價總表() 報價總表_dgv.DataSource = Nothing : ds15.Clear() 報價總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 報價總表_dgv.ColumnHeadersHeight = 40 : 報價總表_dgv.AllowUserToAddRows = False : 報價總表_dgv.RowTemplate.Height = 45 報價總表_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True SQL_合約報價總表() da.Fill(ds15) : 報價總表_dgv.DataSource = ds15.Tables(0) : conn.Close() 報價總表_dgv.Columns(0).Visible = False : 報價總表_dgv.Columns(8).Visible = False : 報價總表_dgv.Columns(9).Visible = False 報價總表_dgv.Columns(0).FillWeight = 50 : 報價總表_dgv.Columns(1).FillWeight = 50 : 報價總表_dgv.Columns(2).FillWeight = 210 報價總表_dgv.Columns(3).FillWeight = 50 : 報價總表_dgv.Columns(4).FillWeight = 50 : 報價總表_dgv.Columns(5).FillWeight = 80 報價總表_dgv.Columns(6).FillWeight = 80 : 報價總表_dgv.Columns(7).FillWeight = 90 For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : Next For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Next For i As Integer = 0 To 7 : 報價總表_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Next 報價總表_dgv.Columns(1).ReadOnly = True : 報價總表_dgv.Columns(2).ReadOnly = True : 報價總表_dgv.Columns(6).ReadOnly = True 報價總表_dgv.EditMode = DataGridViewEditMode.EditOnEnter End Sub Private Sub 合約種類下拉清單讀取() SQL_合約種類讀取() : 合約種類_cb.Items.Clear() : While (dr.Read()) : 合約種類_cb.Items.Add(dr("中")) : End While : conn.Close() End Sub Private Sub 客戶名稱下拉清單讀取() SQL_客戶名稱讀取() : 客戶名稱_tb.Items.Clear() : While (dr.Read()) : 客戶名稱_tb.Items.Add(dr("客戶名稱")) : End While : conn.Close() End Sub Private Sub 我司負責人下拉清單讀取() SQL負責人B讀取() : 負責人_B_cb.Items.Clear() : While (dr.Read()) : 負責人_B_cb.Items.Add(dr("負責人B")) : End While : conn.Close() End Sub Private Sub 合約編號() 合約編號中_lb.Text = "合約編號 : " & 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text 合約編號英_lb.Text = "Contract Number : " & 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text End Sub Private Sub 甲方條件下拉清單讀取() SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close() End Sub Private Sub 浮水印() If 合約編號_cb.Text = "HX" Then : 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" For I As Integer = 1 To Val(最末頁_cb.Text) Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel) : PanelS.BackgroundImage = My.Resources.黑白hx Next Else : 選擇公司_cb.Text = "PT PUNCAK GEMILANG SEMESTA" : Panel1.BackgroundImage = My.Resources.黑白hx For I As Integer = 1 To Val(最末頁_cb.Text) Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel) : PanelS.BackgroundImage = My.Resources.黑白pgs Next End If End Sub Private Sub 預設資料() 合約種類_cb.Text = "" : 合約種類_tb.Text = "" : 客戶名稱_tb.Text = "" : 負責人_A_cb.Text = "" 工程地點_tb.Text = "" : 客戶地址_tb.Text = "" : 工程名稱_中_tb.Text = "" : 工程名稱_英_tb.Text = "" : 負責人_B_cb.Text = "" : CH2.Checked = True : 立約日期_dtp.Value = Today() 我司地址_tb.Text = "Kawasan Industri Terpadu Indonesia China ( KITIC ) Kav. 42 Lantai 4 Desa Nagasari Kec. Serang Baru Kab. Bekasi – Jawa Barat" : 廠區_中文_tb.Text = "" NUD3.Value = 0 : 工程款1_nud.Value = 30 : 工程款2_nud.Value = 40 : 工程款3_nud.Value = 20 : 工程款4_nud.Value = 5 : 工程款5_nud.Value = 5 : 工期_nud.Value = 180 b中01_lb.Text = " (以下稱為B方)" : b英01_lb.Text = " (hereafter will be referred as Party B)" : A中09_lb.Text = "0" : A中10_lb.Text = "0" : A英10_lb.Text = "0" SLB21.Text = "" : SLB9.Text = "" : SLB18.Text = "" : 最末頁_cb.Text = "16" : 最高扣款_英_bt.Text = "5 (five)%." : 逾期_bt.Text = "0.0005% (萬分之五)" 最高扣款_bt.Text = "5% (百分之五)" : 逾期_英_bt.Text = "0.0005% (null point null null null five percent)" : 頁數_bt.Text = "16" Set_合約清單() : 合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取() : 合約種類_cb.SelectedIndex = 0 第1期_dgv.DataSource = Nothing : ds1.Clear() : 第2期_dgv.DataSource = Nothing : ds2.Clear() : 第3期_dgv.DataSource = Nothing : ds3.Clear() 第4期_dgv.DataSource = Nothing : ds4.Clear() : 第5期_dgv.DataSource = Nothing : ds5.Clear() End Sub Private Sub 預設資料1() 工程地點_tb.Text = "" : 工程名稱_中_tb.Text = "" : 工程名稱_英_tb.Text = "" : 負責人_B_cb.Text = "" : CH2.Checked = True : 立約日期_dtp.Value = Today() 我司地址_tb.Text = "Kawasan Industri Terpadu Indonesia China ( KITIC ) Kav. 42 Lantai 4 Desa Nagasari Kec. Serang Baru Kab. Bekasi – Jawa Barat" : 廠區_中文_tb.Text = "" NUD3.Value = 0 : 工程款1_nud.Value = 30 : 工程款2_nud.Value = 40 : 工程款3_nud.Value = 20 : 工程款4_nud.Value = 5 : 工程款5_nud.Value = 5 : 工期_nud.Value = 180 b中01_lb.Text = " (以下稱為B方)" : b英01_lb.Text = " (hereafter will be referred as Party B)" : A中09_lb.Text = "0" : A中10_lb.Text = "0" : A英10_lb.Text = "0" SLB21.Text = "" : SLB9.Text = "" : SLB18.Text = "" : 最末頁_cb.Text = "16" : 最高扣款_英_bt.Text = "5 (five)%." : 逾期_bt.Text = "0.0005% (萬分之五)" 最高扣款_bt.Text = "5% (百分之五)" : 逾期_英_bt.Text = "0.0005% (null point null null null five percent)" : 頁數_bt.Text = "16" Set_合約清單() : 合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取() : 合約種類_cb.SelectedIndex = 0 第1期_dgv.DataSource = Nothing : ds1.Clear() : 第2期_dgv.DataSource = Nothing : ds2.Clear() : 第3期_dgv.DataSource = Nothing : ds3.Clear() 第4期_dgv.DataSource = Nothing : ds4.Clear() : 第5期_dgv.DataSource = Nothing : ds5.Clear() End Sub Private Sub 合約管理系統_Load(sender As Object, e As EventArgs) Handles MyBase.Load HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True If CInt(登入人級別) <= 3 Then : 刪除合約_bt.Enabled = True : Else : 刪除合約_bt.Enabled = False : End If 合約編號2_tb.Enabled = False : 合約編號3_tb.Enabled = False : CH1.Checked = False : CH2.Checked = True : NUD1.Enabled = False : NUD3.Enabled = True 列印_bt.Enabled = False : Me.PrintPreviewControl1.Visible = False : Me.PrintPreviewControl1.SendToBack() : Panel1.BringToFront() End Sub Private Sub 合約管理系統_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown 甲方條件下拉清單讀取() : PA = "範本" : Set_合約範例() : YR = 20 For no As Integer = 0 To 35 Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : X(no) = LBS.Location.X : Y(no) = LBS.Location.Y Next 預設資料() '----------合約範本設定-CC101-------------------------------------------------------------------------------------------------------------------------- 讀取合約範本_bt.Enabled = CC(101) : 合約範本存檔_bt.Enabled = CC(101) '----------合約修改權限-CC102-------------------------------------------------------------------------------------------------------------------------- 最末頁_cb.Enabled = CC(102) : 去除_bt.Enabled = CC(102) : 新增_bt.Enabled = CC(102) : 自動讀取_bt.Enabled = CC(102) : 手動輸入_bt.Enabled = CC(102) 新增資料_bt.Enabled = CC(102) : 刪除資料_bt.Enabled = CC(102) : 刪除合約_bt.Enabled = CC(102) : 存檔_tb.Enabled = CC(102) '----------合約列印權限-CC103-------------------------------------------------------------------------------------------------------------------------- 預覽_bt.Enabled = CC(103) : 上一頁_bt.Enabled = CC(103) : 下一頁_bt.Enabled = CC(103) 合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) End Sub Private Sub 合約管理系統_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed HX_PGS_ERP_SYS.WindowState = 0 : MyModule1.虛擬桌面開啟() End Sub Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick If e.RowIndex = -1 Then : Else If 放大 = True Then : 縮放2_bt.PerformClick() : End If 合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取() If Strings.Left(合約_dgv("合約編號", e.RowIndex).Value.ToString, 2) = "HX" Then : 合約編號_cb.Text = "HX" : Else : 合約編號_cb.Text = "PGS" : End If 合約編號1_tb.Text = 合約_dgv("約號甲方", e.RowIndex).Value.ToString : 合約編號2_tb.Text = 合約_dgv("約號排序", e.RowIndex).Value.ToString 合約編號3_tb.Text = 合約_dgv("約號尾序", e.RowIndex).Value.ToString For no As Integer = 0 To 35 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no), Y(no)) : Next PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5() Set_合約報價總表() : Set_合約範例() 客戶名稱_tb.Text = 合約_dgv("客戶名稱", e.RowIndex).Value.ToString : 負責人_A_cb.Text = 合約_dgv("負責人A", e.RowIndex).Value.ToString 工程地點_tb.Text = 合約_dgv("工程地點", e.RowIndex).Value.ToString : 客戶地址_tb.Text = 合約_dgv("客戶地址", e.RowIndex).Value.ToString 工程名稱_中_tb.Text = 合約_dgv("工程名稱_中", e.RowIndex).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv("工程名稱_英", e.RowIndex).Value.ToString 負責人_B_cb.Text = 合約_dgv("負責人B", e.RowIndex).Value.ToString : 我司地址_tb.Text = 合約_dgv("我司地址", e.RowIndex).Value.ToString CH2.Checked = True : NUD3.Value = 合約_dgv("工程總價", e.RowIndex).Value : 工程款1_nud.Value = 合約_dgv("第一期比例", e.RowIndex).Value 工程款2_nud.Value = 合約_dgv("第二期比例", e.RowIndex).Value : 工程款3_nud.Value = 合約_dgv("第三期比例", e.RowIndex).Value 工程款4_nud.Value = 合約_dgv("第四期比例", e.RowIndex).Value : 工程款5_nud.Value = 合約_dgv("第五期比例", e.RowIndex).Value 工期_nud.Value = 合約_dgv("工期", e.RowIndex).Value : 逾期_bt.Text = 合約_dgv("逾期_中", e.RowIndex).Value.ToString 最高扣款_bt.Text = 合約_dgv("最高扣罰_中", e.RowIndex).Value.ToString : 逾期_英_bt.Text = 合約_dgv("逾期_英", e.RowIndex).Value.ToString 最高扣款_英_bt.Text = 合約_dgv("最高扣罰_英", e.RowIndex).Value.ToString : 減價_bt.Text = 合約_dgv("減價", e.RowIndex).Value.ToString 廠區_中文_tb.Text = 合約_dgv("工程廠區", e.RowIndex).Value.ToString : 最末頁_cb.Text = 合約_dgv("頁數", e.RowIndex).Value.ToString 立約日期_dtp.Value = 合約_dgv("立約日期", e.RowIndex).Value : 合約種類_cb.Text = 合約_dgv("合約種類", e.RowIndex).Value.ToString 合約編號_tb.Text = 合約_dgv("合約編號", e.RowIndex).Value.ToString 圖片庫 = 合約_dgv("簽回檔圖庫", e.RowIndex).Value.ToString : 簽回檔 = 合約_dgv("簽回", e.RowIndex).Value For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1 If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 10% Tax" Then 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " : LB25.Text = "PPN 10%稅額 = Rp. " : LB26.Text = "Value added Tax 10% = Rp. " LB29.Text = "上述d.工程總價包括PPN 10%稅額，詳情載於報價中。" LB30.Text = "Point d at above Total Price of the Project is included 10% of Value added Tax, detail is in the quotation. " ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 11% Tax" Then 稅額顯示_lb.Text = "PPN 11%稅額 = Rp. " : LB25.Text = "PPN 11%稅額 = Rp. " : LB26.Text = "Value added Tax 11% = Rp. " LB29.Text = "上述d.工程總價包括PPN 11%稅額，詳情載於報價中。" LB30.Text = "Point d at above Total Price of the Project is included 11% of Value added Tax, detail is in the quotation. " End If If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "總計 Grand Total" Then : NUD3.Value = 報價總表_dgv.Rows(i).Cells("AMOUNT (RP)").Value : End If Next End If End Sub Private Sub 第1期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellEnter If Not IsNumeric(第1期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If 第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else Dim nn As Integer : Dim NN1 As Integer = 0 For i As Integer = 0 To 第1期_dgv.Rows.Count - 1 : nn += 第1期_dgv.Rows(i).Cells("比例").Value : Next If nn > 工程款1_nud.Value Then Dim SS As String If 系統語言 = "繁體中文" Then : SS = "第一期的細項比例不可大於 " : Else : SS = "Proporsi detail fase pertama tidak boleh lebih dari " : End If MsgBox(SS & Format(工程款1_nud.Value, "#,##0.00") & " % !!") 第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else For i As Integer = 0 To 第1期_dgv.Rows.Count - 1 第1期_dgv.Rows(i).Cells("金額").Value = 第1期_dgv.Rows(i).Cells("比例").Value * 金額1_und.Value / 工程款1_nud.Value Next i End If For I As Integer = 0 To 第1期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS2.Text = 第1期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第1期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第1期_dgv("金額", I).Value, "#,##0") : NN1 += 3 Next End If End Sub Private Sub 第2期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellEnter If Not IsNumeric(第2期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If 第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else Dim nn As Integer : Dim NN1 As Integer = 40 For i As Integer = 0 To 第2期_dgv.Rows.Count - 1 : nn += 第2期_dgv.Rows(i).Cells("比例").Value : Next If nn > 工程款2_nud.Value Then Dim SS As String If 系統語言 = "繁體中文" Then : SS = "第二期的細項比例不可大於 " : Else : SS = "Proporsi detail fase kedua tidak boleh lebih besar dari " : End If MsgBox(SS & Format(工程款2_nud.Value, "#,##0.00") & " % !!") 第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else For i As Integer = 0 To 第2期_dgv.Rows.Count - 1 第2期_dgv.Rows(i).Cells("金額").Value = 第2期_dgv.Rows(i).Cells("比例").Value * 金額2_und.Value / 工程款2_nud.Value Next i End If For I As Integer = 0 To 第2期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS2.Text = 第2期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第2期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第2期_dgv("金額", I).Value, "#,##0") : NN1 += 3 Next End If End Sub Private Sub 第3期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellEnter If Not IsNumeric(第3期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If 第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else Dim nn As Integer : Dim NN1 As Integer = 80 For i As Integer = 0 To 第3期_dgv.Rows.Count - 1 : nn += 第3期_dgv.Rows(i).Cells("比例").Value : Next If nn > 工程款3_nud.Value Then Dim SS As String If 系統語言 = "繁體中文" Then : SS = "第三期的細項比例不可大於 " : Else : SS = "Proporsi rincian periode ketiga tidak boleh lebih besar dari " : End If MsgBox(SS & Format(工程款3_nud.Value, "#,##0.00") & " % !!") 第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else For i As Integer = 0 To 第3期_dgv.Rows.Count - 1 第3期_dgv.Rows(i).Cells("金額").Value = 第3期_dgv.Rows(i).Cells("比例").Value * 金額3_und.Value / 工程款3_nud.Value Next i End If For I As Integer = 0 To 第3期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS2.Text = 第3期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第3期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第3期_dgv("金額", I).Value, "#,##0") : NN1 += 3 Next End If End Sub Private Sub 第4期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellEnter If Not IsNumeric(第4期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If 第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else Dim nn As Integer : Dim NN1 As Integer = 120 For i As Integer = 0 To 第4期_dgv.Rows.Count - 1 : nn += 第4期_dgv.Rows(i).Cells("比例").Value : Next If nn > 工程款4_nud.Value Then Dim SS As String If 系統語言 = "繁體中文" Then : SS = "第四期的細項比例不可大於 " : Else : SS = "Proporsi rincian periode ke-4 tidak boleh lebih besar dari " : End If MsgBox(SS & Format(工程款4_nud.Value, "#,##0.00") & " % !!") 第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else For i As Integer = 0 To 第4期_dgv.Rows.Count - 1 第4期_dgv.Rows(i).Cells("金額").Value = 第4期_dgv.Rows(i).Cells("比例").Value * 金額4_und.Value / 工程款4_nud.Value Next i End If For I As Integer = 0 To 第4期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS2.Text = 第4期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第4期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第4期_dgv("金額", I).Value, "#,##0") : NN1 += 3 Next End If End Sub Private Sub 第5期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellEnter If Not IsNumeric(第5期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If 第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else Dim nn As Integer : Dim NN1 As Integer = 160 For i As Integer = 0 To 第5期_dgv.Rows.Count - 1 : nn += 第5期_dgv.Rows(i).Cells("比例").Value : Next If nn > 工程款5_nud.Value Then Dim SS As String If 系統語言 = "繁體中文" Then : SS = "第五期的細項比例不可大於 " : Else : SS = "Proporsi rincian periode kelima tidak boleh lebih besar dari " : End If MsgBox(SS & Format(工程款5_nud.Value, "#,##0.00") & " % !!") 第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0" Else For i As Integer = 0 To 第5期_dgv.Rows.Count - 1 第5期_dgv.Rows(i).Cells("金額").Value = 第5期_dgv.Rows(i).Cells("比例").Value * 金額5_und.Value / 工程款5_nud.Value Next i End If For I As Integer = 0 To 第5期_dgv.Rows.Count - 1 Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label) Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label) Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label) Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label) NLBS2.Text = 第5期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第5期_dgv("比例", I).Value, "#,##0.00") & " %" NLBS4.Text = Format(第5期_dgv("金額", I).Value, "#,##0") : NN1 += 3 Next End If End Sub Private Sub 第1期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellClick If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第1期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If End Sub Private Sub 第2期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellClick If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第2期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If End Sub Private Sub 第3期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellClick If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第3期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If End Sub Private Sub 第4期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellClick If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第4期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If End Sub Private Sub 第5期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellClick If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第5期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If End Sub Private Sub 選擇公司_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇公司_cb.SelectedIndexChanged If 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" Then : 合約編號_cb.Text = "HX" : Else : 合約編號_cb.Text = "PGS" : End If b中01_lb.Text = 選擇公司_cb.Text & vbCrLf & " (以下稱為B方)" b英01_lb.Text = 選擇公司_cb.Text & vbCrLf & " (hereafter will be referred as Party B)" SLB18.Text = 選擇公司_cb.Text End Sub Private Sub 合約編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號_cb.SelectedIndexChanged 浮水印() : 合約編號() End Sub Private Sub 合約編號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb.TextChanged 合約編號() : PA30 = 合約編號1_tb.Text : SQL_客戶資料讀取() If dr.Read() Then : 客戶名稱_tb.Text = dr("客戶名稱").ToString : 負責人_A_cb.Text = dr("負責人").ToString : 客戶地址_tb.Text = dr("地址").ToString : End If : conn.Close() End Sub Private Sub 合約編號2_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號2_tb.TextChanged 合約編號() End Sub Private Sub 合約編號3_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號3_tb.TextChanged 合約編號() End Sub Private Sub 查閱文件_bt_Click(sender As Object, e As EventArgs) Handles 查閱文件_bt.Click If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約!!") : Else : MsgBox("Silakan pilih kontrak terlebih dahulu!!") : End If : Else If 簽回檔 = False Then : If 系統語言 = "繁體中文" Then : MsgBox("該合約還沒有建立簽回文件!!") : Else : MsgBox("Kontrak belum membuat file sign-back!!") : End If : Else PA1 = 合約編號_tb.Text : PA2 = "合約" : 文件查閱視窗.ShowDialog() End If End If End Sub Private Sub 自動讀取_bt_Click(sender As Object, e As EventArgs) Handles 自動讀取_bt.Click If 客戶名稱_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇客戶名稱!!") : Else : MsgBox("Silakan pilih nama pelanggan terlebih dahulu!!") : End If : Else If 系統語言 = "繁體中文" Then : MsgBox("進入編輯狀態，合約清單已鎖定不可選擇，鎖定狀態在合約存檔後解除!!") Else : MsgBox("Masuk ke status edit, daftar kontrak sudah terkunci dan tidak bisa dipilih, status terkunci akan dilepas setelah kontrak diarsipkan!!") : End If 合約_dgv.Enabled = False PA30 = 合約編號1_tb.Text : SQL_客戶資料讀取() : If dr.Read() Then : 合約編號1_tb.Text = dr("簡稱") : End If : conn.Close() If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成合約編號!!") : Else : MsgBox("Informasi tidak cukup untuk menghasilkan nomor kontrak!!") : End If Else 合約編號2_tb.Enabled = False : 合約編號3_tb.Enabled = False PA = Strings.Mid(Format(Today(), "yyyy/MM/dd"), 3, 2) & Strings.Mid(Format(Today(), "yyyy/MM/dd"), 6, 2) & Strings.Right(Format(Today(), "yyyy/MM/dd"), 2) SQL_合約流水號_最後一筆資料() If dr.Read() Then If Val(Strings.Right(dr("合約編號").ToString, 2)) > 9 Then : EDR = Strings.Right(dr("合約編號").ToString, 2) : Else : EDR = Strings.Right(dr("合約編號").ToString, 1) : End If End If : conn.Close() : EDR += 1 : 合約編號2_tb.Text = PA : 合約編號3_tb.Text = EDR : 預設資料1() End If End If End Sub Private Sub 手動輸入_bt_Click(sender As Object, e As EventArgs) Handles 手動輸入_bt.Click If 系統語言 = "繁體中文" Then : MsgBox("進入編輯狀態，合約清單已鎖定不可選擇，鎖定狀態在合約存檔後解除!!") Else : MsgBox("Masuk ke status edit, daftar kontrak sudah terkunci dan tidak bisa dipilih, status terkunci akan dilepas setelah kontrak diarsipkan!!") : End If 合約_dgv.Enabled = False : 合約編號2_tb.Enabled = True : 合約編號3_tb.Enabled = True : 預設資料1() End Sub Private Sub 合約種類_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約種類_cb.TextChanged A中01_lb.Text = 合約種類_cb.Text : Dim X1, Y1, X2 As Integer : Y1 = A中01_lb.Location.Y : X2 = A中01_lb.Size.Width : X1 = (930 - X2) / 2 : A中01_lb.Location = New Drawing.Point(X1, Y1) End Sub Private Sub 合約種類_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 合約種類_cb.SelectedIndexChanged PA10 = 合約種類_cb.Text : SQL_合約種類英文讀取() : If dr.Read() Then : 合約種類_tb.Text = dr("英") : End If : conn.Close() End Sub Private Sub 合約種類_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約種類_tb.TextChanged A英01_lb.Text = 合約種類_tb.Text : Dim X1, Y1, X2 As Integer : Y1 = A英01_lb.Location.Y : X2 = A英01_lb.Size.Width : X1 = (930 - X2) / 2 : A英01_lb.Location = New Drawing.Point(X1, Y1) End Sub Private Sub 客戶名稱_tb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 客戶名稱_tb.TextChanged A中02_lb.Text = 客戶名稱_tb.Text : A英02_lb.Text = 客戶名稱_tb.Text A中03_lb.Text = 客戶名稱_tb.Text & vbCrLf & " (以下稱為A方)" A英03_lb.Text = 客戶名稱_tb.Text & vbCrLf & " (hereafter will be referred as Party A)" A中05_lb.Text = 客戶名稱_tb.Text & " " & 工程名稱_中_tb.Text A英05_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text A02_lb.Text = 客戶名稱_tb.Text & " - " & 工程名稱_中_tb.Text A04_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text LB159.Text = 客戶名稱_tb.Text : LB164.Text = 客戶名稱_tb.Text : SLB6.Text = 客戶名稱_tb.Text Dim X1, Y1, X2 As Integer Y1 = A中02_lb.Location.Y : X2 = A中02_lb.Size.Width : X1 = (930 - X2) / 2 : A中02_lb.Location = New Drawing.Point(X1, Y1) Y1 = A英02_lb.Location.Y : X2 = A英02_lb.Size.Width : X1 = (930 - X2) / 2 : A英02_lb.Location = New Drawing.Point(X1, Y1) End Sub Private Sub 工程名稱_中_tb_TextChanged(sender As Object, e As EventArgs) Handles 工程名稱_中_tb.TextChanged A中04_lb.Text = 工程名稱_中_tb.Text : A中05_lb.Text = 客戶名稱_tb.Text & " " & 工程名稱_中_tb.Text A02_lb.Text = 客戶名稱_tb.Text & " - " & 工程名稱_中_tb.Text : LB161.Text = 工程名稱_中_tb.Text Dim X1, Y1, X2 As Integer : Y1 = A中04_lb.Location.Y : X2 = A中04_lb.Size.Width : X1 = (930 - X2) / 2 : A中04_lb.Location = New Drawing.Point(X1, Y1) End Sub Private Sub 工程名稱_英_tb_TextChanged(sender As Object, e As EventArgs) Handles 工程名稱_英_tb.TextChanged A英04_lb.Text = 工程名稱_英_tb.Text & " of " A英05_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text A04_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text LB163.Text = 工程名稱_英_tb.Text Dim X1, Y1, X2 As Integer : Y1 = A英04_lb.Location.Y : X2 = A英04_lb.Size.Width : X1 = (930 - X2) / 2 : A英04_lb.Location = New Drawing.Point(X1, Y1) End Sub Private Sub 工程地點_tb_TextChanged(sender As Object, e As EventArgs) Handles 工程地點_tb.TextChanged A中06_lb.Text = 工程地點_tb.Text : A英06_lb.Text = 工程地點_tb.Text End Sub Private Sub 客戶地址_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶地址_tb.TextChanged A中07_lb.Text = 客戶地址_tb.Text : A英07_lb.Text = 客戶地址_tb.Text : A01_lb.Text = 客戶地址_tb.Text : A03_lb.Text = 客戶地址_tb.Text : SLB12.Text = 客戶地址_tb.Text End Sub Private Sub 我司地址_tb_TextChanged(sender As Object, e As EventArgs) Handles 我司地址_tb.TextChanged A13_lb.Text = 我司地址_tb.Text : A14_lb.Text = 我司地址_tb.Text : SLB24.Text = 我司地址_tb.Text End Sub Private Sub 廠區_中文_tb_TextChanged(sender As Object, e As EventArgs) Handles 廠區_中文_tb.TextChanged LB160.Text = 廠區_中文_tb.Text End Sub Private Sub 負責人_A_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 負責人_A_cb.TextChanged SLB9.Text = 負責人_A_cb.Text End Sub Private Sub 負責人_B_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 負責人_B_cb.TextChanged SLB21.Text = 負責人_B_cb.Text End Sub Private Sub NUD3_ValueChanged(sender As Object, e As EventArgs) Handles NUD3.ValueChanged If CH2.Checked = True Then If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 110 * 10 : Else : NUD2.Value = NUD3.Value / 111 * 11 : End If NUD1.Value = NUD3.Value - NUD2.Value 金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value 金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value 金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value A中08_lb.Text = Format(NUD1.Value, "#,##0") : A英08_lb.Text = Format(NUD1.Value, "#,##0") : A中09_lb.Text = Format(NUD2.Value, "#,##0") A英09_lb.Text = Format(NUD2.Value, "#,##0") : A中10_lb.Text = Format(NUD3.Value, "#,##0") : A英10_lb.Text = Format(NUD3.Value, "#,##0") LB47.Text = Format(金額1_und.Value, "#,##0") : LB49.Text = Format(金額1_und.Value, "#,##0") : LB58.Text = Format(金額2_und.Value, "#,##0") LB56.Text = Format(金額2_und.Value, "#,##0") : LB67.Text = Format(金額3_und.Value, "#,##0") : LB65.Text = Format(金額3_und.Value, "#,##0") LB76.Text = Format(金額4_und.Value, "#,##0") : LB74.Text = Format(金額4_und.Value, "#,##0") : LB83.Text = Format(金額5_und.Value, "#,##0") LB85.Text = Format(金額5_und.Value, "#,##0") End If End Sub Private Sub NUD1_ValueChanged(sender As Object, e As EventArgs) Handles NUD1.ValueChanged If CH1.Checked = True Then NUD2.Value = NUD1.Value / 100 * 10 : NUD3.Value = NUD1.Value + NUD2.Value 金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value 金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value 金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value A中08_lb.Text = Format(NUD1.Value, "#,##0") : A英08_lb.Text = Format(NUD1.Value, "#,##0") : A中09_lb.Text = Format(NUD2.Value, "#,##0") A英09_lb.Text = Format(NUD2.Value, "#,##0") : A中10_lb.Text = Format(NUD3.Value, "#,##0") : A英10_lb.Text = Format(NUD3.Value, "#,##0") LB47.Text = Format(金額1_und.Value, "#,##0") : LB49.Text = Format(金額1_und.Value, "#,##0") : LB58.Text = Format(金額2_und.Value, "#,##0") LB56.Text = Format(金額2_und.Value, "#,##0") : LB67.Text = Format(金額3_und.Value, "#,##0") : LB65.Text = Format(金額3_und.Value, "#,##0") LB76.Text = Format(金額4_und.Value, "#,##0") : LB74.Text = Format(金額4_und.Value, "#,##0") : LB83.Text = Format(金額5_und.Value, "#,##0") LB85.Text = Format(金額5_und.Value, "#,##0") End If End Sub Private Sub CH1_CheckedChanged(sender As Object, e As EventArgs) Handles CH1.Click CH1.Checked = True : CH2.Checked = False : NUD1.Enabled = True : NUD3.Enabled = False End Sub Private Sub CH2_CheckedChanged(sender As Object, e As EventArgs) Handles CH2.Click CH1.Checked = False : CH2.Checked = True : NUD1.Enabled = False : NUD3.Enabled = True End Sub Private Sub 頁數_bt_TextChanged(sender As Object, e As EventArgs) Handles 頁數_bt.TextChanged LB165.Text = 頁數_bt.Text : LB162.Text = 頁數_bt.Text End Sub Private Sub 減價_bt_TextChanged(sender As Object, e As EventArgs) Handles 減價_bt.TextChanged LB274.Text = 減價_bt.Text : LB275.Text = 減價_bt.Text End Sub Private Sub 工期_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工期_nud.ValueChanged A19_lb.Text = Format(工期_nud.Value, "#,##0") : A20_lb.Text = Format(工期_nud.Value, "#,##0") End Sub Private Sub 逾期_bt_TextChanged(sender As Object, e As EventArgs) Handles 逾期_bt.TextChanged A21_lb.Text = 逾期_bt.Text End Sub Private Sub 最高扣款_bt_TextChanged(sender As Object, e As EventArgs) Handles 最高扣款_bt.TextChanged A22_lb.Text = 最高扣款_bt.Text End Sub Private Sub 逾期_英_bt_TextChanged(sender As Object, e As EventArgs) Handles 逾期_英_bt.TextChanged A23_lb.Text = 逾期_英_bt.Text End Sub Private Sub 最高扣款_英_bt_TextChanged(sender As Object, e As EventArgs) Handles 最高扣款_英_bt.TextChanged A24_lb.Text = 最高扣款_英_bt.Text End Sub Private Sub 工程款1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款1_nud.ValueChanged 工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value If 工程款1_nud.Value = 0 Then : LB46.Text = "" : LB48.Text = "" : Else : LB46.Text = Format(工程款1_nud.Value, "#,##0") & "%" : LB48.Text = Format(工程款1_nud.Value, "#,##0") & "%" : End If If 金額1_und.Value = 0 Then : LB47.Text = "" : LB49.Text = "" : Else : LB47.Text = 金額1_und.Text : LB49.Text = 金額1_und.Text : End If End Sub Private Sub 工程款2_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款2_nud.ValueChanged 工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value If 工程款2_nud.Value = 0 Then : LB55.Text = "" : LB57.Text = "" : Else : LB55.Text = Format(工程款2_nud.Value, "#,##0") & "%" : LB57.Text = Format(工程款2_nud.Value, "#,##0") & "%" : End If If 金額2_und.Value = 0 Then : LB58.Text = "" : LB56.Text = "" : Else : LB58.Text = 金額2_und.Text : LB56.Text = 金額2_und.Text : End If End Sub Private Sub 工程款3_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款3_nud.ValueChanged 工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value If 工程款3_nud.Value = 0 Then : LB64.Text = "" : LB66.Text = "" : Else : LB64.Text = Format(工程款3_nud.Value, "#,##0") & "%" : LB66.Text = Format(工程款3_nud.Value, "#,##0") & "%" : End If If 金額3_und.Value = 0 Then : LB67.Text = "" : LB65.Text = "" : Else : LB67.Text = 金額3_und.Text : LB65.Text = 金額3_und.Text : End If End Sub Private Sub 工程款4_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款4_nud.ValueChanged 工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value If 工程款4_nud.Value = 0 Then : LB73.Text = "" : LB75.Text = "" : Else : LB73.Text = Format(工程款4_nud.Value, "#,##0") & "%" : LB75.Text = Format(工程款4_nud.Value, "#,##0") & "%" : End If If 金額4_und.Value = 0 Then : LB76.Text = "" : LB74.Text = "" : Else : LB76.Text = 金額4_und.Text : LB74.Text = 金額4_und.Text : End If End Sub Private Sub 工程款5_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款5_nud.ValueChanged 工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value 金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value If 工程款5_nud.Value = 0 Then : LB82.Text = "" : LB84.Text = "" : Else : LB82.Text = Format(工程款5_nud.Value, "#,##0") & "%" : LB84.Text = Format(工程款5_nud.Value, "#,##0") & "%" : End If If 金額5_und.Value = 0 Then : LB83.Text = "" : LB85.Text = "" : Else : LB83.Text = 金額5_und.Text : LB85.Text = 金額5_und.Text : End If End Sub Private Sub 立約日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 立約日期_dtp.ValueChanged SLB15.Text = 立約日期_dtp.Text : SLB27.Text = 立約日期_dtp.Text End Sub Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height If 放大 = True Then 合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False : 合約_dgv.Columns("工程名稱_中").Visible = False Else 合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True : 合約_dgv.Columns("工程名稱_中").Visible = True End If End Sub Private Sub 刪除合約_bt_Click(sender As Object, e As EventArgs) Handles 刪除合約_bt.Click Dim SS As String If 系統語言 = "繁體中文" Then : SS = "是否要刪除這筆資料?" : Else : SS = "Apakah Anda ingin menghapus data ini?" : End If Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then Dim SS1 As String If 系統語言 = "繁體中文" Then : SS1 = "確定刪除資料請輸入 [YES] !!" : Else : SS1 = "Silakan masukkan [YES] untuk mengonfirmasi penghapusan data!!" : End If Dim SSA As String = InputBox(SS1) If SSA = "YES" Then PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text SQL_合約刪除() : SQL_合約本文刪除_依合約() : SQL_合約明細刪除_全部() : SQL_合約試算分表刪除() : SQL_合約試算控制表刪除() : SQL_合約試算明細表刪除() If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If Set_合約清單() : 預設資料() End If End If End Sub Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click Dim 合約編號條件 As Boolean = True If 合約編號_cb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇我方公司!!") : Else : MsgBox("Silakan pilih perusahaan kami!!") : End If : 合約編號條件 = False : End If If 合約編號1_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("沒有甲方公司英文縮寫!!") : Else : MsgBox("Silakan masukkan singkatan dari perusahaan Pihak A!!") : End If : 合約編號條件 = False : Else Dim d As Int32 For index = 0 To 合約編號1_tb.Text.Length - 1 d = Asc(合約編號1_tb.Text(index)) : Dim 可能不行 As Boolean = False If (d < 65 Or d > 90) Then : 可能不行 = True : End If 'c變數若在65~90是大寫的英文字母 If 可能不行 = True Then If (d < 97 Or d > 122) Then : 可能不行 = True : Else : 可能不行 = False : End If 'c變數若在97~122是小寫的英文字母 If 可能不行 = True Then '然後查表， c變數若在48~57， 表示它是數字， If (d < 48 Or d > 57) Then If 系統語言 = "繁體中文" Then : MsgBox("甲方公司簡稱需要英文或是數字，不可以是中文或其他符號!!") Else : MsgBox("Singkatan dari perusahaan Pihak A harus dalam bahasa Inggris atau angka, bukan dalam bahasa Cina atau simbol lainnya!!") : End If 合約編號條件 = False : Exit For End If End If End If Next End If If 合約編號2_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("沒有立約日期!!") : Else : MsgBox("Tidak ada tanggal kontrak!!") : End If : 合約編號條件 = False : End If Dim c As Int32 '然後查表， c變數若在48~57， 表示它是數字， For index = 0 To 合約編號2_tb.Text.Length - 1 c = Asc(合約編號2_tb.Text(index)) If c < 48 Or c > 57 Then If 系統語言 = "繁體中文" Then : MsgBox("立約日期只能是數字!!") : Else : MsgBox("Tanggal perjanjian hanya bisa berupa angka!!") : End If 合約編號條件 = False : Exit For : Else If Len(合約編號2_tb.Text) <> 6 Then If 系統語言 = "繁體中文" Then : MsgBox("立約日期的格式為YYMMDD (年兩位，月兩位，日兩位)，數字規格不符!!") Else : MsgBox("Format tanggal kontrak adalah YYMMDD (dua digit untuk tahun, dua digit untuk bulan, dan dua digit untuk hari), dan spesifikasi numerik tidak cocok!!") : End If 合約編號條件 = False : Exit For End If End If Next If 合約編號3_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("沒有合約序號!!") : Else : MsgBox("Tidak ada nomor kontrak!!") : End If : 合約編號條件 = False ElseIf IsNumeric(合約編號3_tb.Text) = False Then If 系統語言 = "繁體中文" Then : MsgBox("序號只能是數字!!") : Else : MsgBox("Nomor seri hanya bisa berupa angka!!") : End If : 合約編號條件 = False End If If 合約編號條件 = False Then : Else If 工程款6_nud.Value <> 100 Then If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Penilaian biaya proyek tidak sama dengan 100%!!") : End If Else Dim AN1, AN2, AN3, AN4, AN5 As Integer Dim STST1 As String = "" : Dim STST2 As String = "" : Dim STST3 As String = "" : Dim STST4 As String = "" : Dim STST5 As String = "" Dim SS1, SS2, SS3, SS4, SS5 As String If 系統語言 = "繁體中文" Then SS1 = "第一期工程款細項不吻合!!" : SS2 = "第二期工程款細項不吻合!!" : SS3 = "第三期工程款細項不吻合!!" : SS4 = "第四期工程款細項不吻合!!" : SS5 = "第五期工程款細項不吻合!!" Else SS1 = "Detail proyek fase 1 tidak cocok!!" : SS2 = "Detail proyek fase 2 tidak cocok!!" : SS3 = "Detail proyek fase 3 tidak cocok!!" SS4 = "Detail proyek fase 4 tidak cocok!!" : SS5 = "Detail proyek fase 5 tidak cocok!!" End If For I As Integer = 0 To 第1期_dgv.Rows.Count - 1 : AN1 += 第1期_dgv.Rows(I).Cells("比例").Value : Next For I As Integer = 0 To 第2期_dgv.Rows.Count - 1 : AN2 += 第2期_dgv.Rows(I).Cells("比例").Value : Next For I As Integer = 0 To 第3期_dgv.Rows.Count - 1 : AN3 += 第3期_dgv.Rows(I).Cells("比例").Value : Next For I As Integer = 0 To 第4期_dgv.Rows.Count - 1 : AN4 += 第4期_dgv.Rows(I).Cells("比例").Value : Next For I As Integer = 0 To 第5期_dgv.Rows.Count - 1 : AN5 += 第5期_dgv.Rows(I).Cells("比例").Value : Next If AN1 <> 工程款1_nud.Value And 第1期_dgv.Rows.Count > 0 Then : STST1 = SS1 : End If If AN2 <> 工程款2_nud.Value And 第2期_dgv.Rows.Count > 0 Then : STST2 = SS2 : End If If AN3 <> 工程款3_nud.Value And 第3期_dgv.Rows.Count > 0 Then : STST3 = SS3 : End If If AN4 <> 工程款4_nud.Value And 第4期_dgv.Rows.Count > 0 Then : STST4 = SS4 : End If If AN5 <> 工程款5_nud.Value And 第5期_dgv.Rows.Count > 0 Then : STST5 = SS5 : End If If STST1 <> "" Or STST2 <> "" Or STST3 <> "" Or STST4 <> "" Or STST5 <> "" Then MsgBox(STST1 & vbCrLf & STST2 & vbCrLf & STST3 & vbCrLf & STST4 & vbCrLf & STST5) Else PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text SQL_合約查詢() If dr.Read() Then Dim SS As String If 系統語言 = "繁體中文" Then : SS = "系統內已有相同單號，請問是否存檔(會覆蓋舊資料)?" Else : SS = "Nomor pelacakan yang sama sudah ada di sistem, apakah Anda ingin mengarsipkannya (data lama akan ditimpa)?" : End If Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then : 合約存檔() : End If Else : 合約存檔() : End If : 甲方條件下拉清單讀取() : 合約編號1_cb.Text = 條件選擇 End If End If End If End Sub Private Sub 合約存檔() PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text SQL_合約查詢() If dr.Read() Then '-----判斷是否新增客戶資料---------------------------------------------------------------------------------- PA30 = 合約編號1_tb.Text : Dim 供應商編號 As String : SQL_客戶資料讀取() If dr.Read() Then If 負責人_A_cb.Text <> dr("負責人").ToString And 負責人_A_cb.Text <> "" And dr("負責人").ToString <> "" Then Dim SS As String If 系統語言 = "繁體中文" Then : SS = "合約上的負責人與系統中的資料不吻合，是否要更新系統中的負責人資料?" Else : SS = "Penanggung jawab kontrak tidak sesuai dengan informasi dalam sistem. Apakah Anda ingin memperbarui penanggung jawab dalam sistem?" : End If Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then : PA43 = 負責人_A_cb.Text : PA42 = 客戶名稱_tb.Text : conn.Close() : SQL_客戶資料表_修改負責人() : End If ElseIf 負責人_A_cb.Text <> "" And dr("負責人").ToString = "" Then PA43 = 負責人_A_cb.Text : PA42 = 客戶名稱_tb.Text : conn.Close() : SQL_客戶資料表_修改負責人() End If Else conn.Close() : SQL_客戶資料表_最後一筆資料() : If dr.Read() Then : 供應商編號 = dr("流水號").ToString : Else : 供應商編號 = "CL000" : End If : conn.Close() Dim NUM1 As Integer NUM1 = Double.Parse(Strings.Right(供應商編號, 3)) + 1 If NUM1 < 10 Then : 供應商編號 = "CL" & "00" & NUM1 ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號 = "CL" & "0" & NUM1 ElseIf NUM1 > 99 Then : 供應商編號 = "CL" & NUM1 : End If PA29 = 供應商編號 : PA41 = 合約編號1_tb.Text : PA40 = 客戶名稱_tb.Text : PA39 = 客戶地址_tb.Text : PA38 = 負責人_A_cb.Text : SQL_合約系統中新增客戶資料() : conn.Close() End If : conn.Close() PA37 = 合約種類_cb.Text : PA36 = 合約種類_tb.Text SQL_合約種類查詢() : If dr.Read() Then : Else : SQL_合約種類新增() : conn.Close() : End If : conn.Close() PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text PA36 = 客戶名稱_tb.Text : PA35 = 負責人_A_cb.Text : PA34 = 工程地點_tb.Text : PA33 = 客戶地址_tb.Text : PA32 = 工程名稱_中_tb.Text : PA31 = 工程名稱_英_tb.Text PA30 = 選擇公司_cb.Text : PA29 = 負責人_B_cb.Text : PA28 = 我司地址_tb.Text : PA27 = NUD3.Value : PA26 = 工程款1_nud.Value : PA25 = 工程款2_nud.Value PA24 = 工程款3_nud.Value : PA23 = 工程款4_nud.Value : PA22 = 工程款5_nud.Value : PA21 = 工期_nud.Value : PA20 = 逾期_bt.Text : PA19 = 最高扣款_bt.Text PA18 = 逾期_英_bt.Text : PA17 = 最高扣款_英_bt.Text : PA16 = 減價_bt.Text : PA15 = 廠區_中文_tb.Text : PA14 = 頁數_bt.Text : PA12 = 合約種類_cb.Text PA13 = Format(立約日期_dtp.Value, "yyyy/MM/dd") : PA44 = 合約編號2_tb.Text : PA45 = 合約編號3_tb.Text : PA46 = 合約編號1_tb.Text : PA47 = 工程期_ch.Text SQL_合約修改() : 合約明細存檔() PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : Set_存檔比較用() For no As Integer = 1 To 本文數 資料數 = 本文數 : MyModule1.進度條() Dim LBS As Label = CType(Me.Controls.Find("LB" + no.ToString(), True)(0), Label) : PA1 = LBS.Name : PA2 = LBS.Text : PA3 = LBS.Location.X If 存檔比較_dgv.Rows.Count = 0 Then SQL_合約本文新增() Else For I As Integer = 0 To 存檔比較_dgv.Rows.Count - 1 資料數 = 存檔比較_dgv.Rows.Count : 進度條1() If 存檔比較_dgv("控件", I).Value = PA1 And 存檔比較_dgv("內容", I).Value = PA2 And 存檔比較_dgv("座標X", I).Value = PA3 Then ElseIf 存檔比較_dgv("控件", I).Value = PA1 And (存檔比較_dgv("內容", I).Value <> PA2 Or 存檔比較_dgv("座標X", I).Value <> PA3) Then : SQL_合約本文修改() : End If Next : ProgressBar1.Value = 0 : 最終數1 = 0 End If Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 If 系統語言 = "繁體中文" Then : MsgBox("存檔完成，合約清單鎖定解除!!") : Else : MsgBox("Arsip selesai, dan kunci daftar kontrak dilepaskan!!") : End If Set_合約清單() : 合約_dgv.Enabled = True Else If 系統語言 = "繁體中文" Then : MsgBox("請先建立合約報價單，才能製作合約本文!!") Else : MsgBox("Harap buat kutipan kontrak terlebih dahulu sebelum membuat teks kontrak!!") : End If End If End Sub Private Sub 進度條1() 平均數 = 10000 / 資料數 : 最終數1 += 平均數 : If 最終數1 > 10000 Then : 最終數1 = 10000 : End If : ProgressBar1.Value = 最終數1 End Sub Private Sub 合約範本存檔_bt_Click(sender As Object, e As EventArgs) Handles 合約範本存檔_bt.Click SQL_合約本文刪除() : PA = "範本" : Dim QQ As Integer = 本文數 For no As Integer = 1 To QQ 資料數 = QQ : MyModule1.進度條() : Dim LBS As Label = CType(Me.Controls.Find("LB" + no.ToString(), True)(0), Label) PA1 = LBS.Name : PA2 = LBS.Text : PA3 = LBS.Location.X : SQL_合約本文新增() Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Arsip selesai!!") : End If End Sub Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged 明細選項_bt.Text = "" End Sub Private Sub 新增資料_bt_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成明細!!") : Else : MsgBox("Tidak cukup informasi untuk menghasilkan detail!!") : End If : Else If 工程款6_nud.Value <> 100 Then If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Penilaian biaya proyek tidak sama dengan 100%!!") : End If : Else PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約明細存檔() Dim SS As String If 系統語言 = "繁體中文" Then : SS = "合約工期款項細分不可大於10筆!!" : Else : SS = "Pembagian pembayaran durasi kontrak tidak boleh lebih dari 10 !!" : End If If TabControl1.SelectedIndex = 0 Then If 第1期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "1" : PA2 = 第1期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If ElseIf TabControl1.SelectedIndex = 1 Then If 第2期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "2" : PA2 = 第2期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If ElseIf TabControl1.SelectedIndex = 2 Then If 第3期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "3" : PA2 = 第3期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If ElseIf TabControl1.SelectedIndex = 3 Then If 第4期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "4" : PA2 = 第4期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If ElseIf TabControl1.SelectedIndex = 4 Then If 第5期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "5" : PA2 = 第5期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If End If PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5() If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If End If End If End Sub Private Sub 刪除資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除資料_bt.Click If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Or 明細選項_bt.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成明細!!") : Else : MsgBox("Tidak cukup informasi untuk menghasilkan detail!!") : End If : Else If 工程款6_nud.Value <> 100 Then If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Penilaian biaya proyek tidak sama dengan 100%!!") : End If : Else PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約明細存檔() If TabControl1.SelectedIndex = 0 Then : PA1 = "1" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除() ElseIf TabControl1.SelectedIndex = 1 Then : PA1 = "2" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除() ElseIf TabControl1.SelectedIndex = 2 Then : PA1 = "3" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除() ElseIf TabControl1.SelectedIndex = 3 Then : PA1 = "4" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除() ElseIf TabControl1.SelectedIndex = 4 Then : PA1 = "5" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除() End If PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5() If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If End If End If End Sub Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged 條件選擇 = 合約編號1_cb.Text : Set_合約清單() End Sub Private Sub 讀取合約範本_bt_Click(sender As Object, e As EventArgs) Handles 讀取合約範本_bt.Click PA = "範本" : Set_合約範例() End Sub Private Sub 合約明細存檔() For i As Integer = 0 To 第1期_dgv.Rows.Count - 1 PA1 = "1" : PA2 = 第1期_dgv.Rows(i).Cells("細項").Value : PA3 = 第1期_dgv.Rows(i).Cells("內容").Value NU1 = 第1期_dgv.Rows(i).Cells("比例").Value : NU2 = 第1期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改() Next For i As Integer = 0 To 第2期_dgv.Rows.Count - 1 PA1 = "2" : PA2 = 第2期_dgv.Rows(i).Cells("細項").Value : PA3 = 第2期_dgv.Rows(i).Cells("內容").Value NU1 = 第2期_dgv.Rows(i).Cells("比例").Value : NU2 = 第2期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改() Next For i As Integer = 0 To 第3期_dgv.Rows.Count - 1 PA1 = "3" : PA2 = 第3期_dgv.Rows(i).Cells("細項").Value : PA3 = 第3期_dgv.Rows(i).Cells("內容").Value NU1 = 第3期_dgv.Rows(i).Cells("比例").Value : NU2 = 第3期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改() Next For i As Integer = 0 To 第4期_dgv.Rows.Count - 1 PA1 = "4" : PA2 = 第4期_dgv.Rows(i).Cells("細項").Value : PA3 = 第4期_dgv.Rows(i).Cells("內容").Value NU1 = 第4期_dgv.Rows(i).Cells("比例").Value : NU2 = 第4期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改() Next For i As Integer = 0 To 第5期_dgv.Rows.Count - 1 PA1 = "5" : PA2 = 第5期_dgv.Rows(i).Cells("細項").Value : PA3 = 第5期_dgv.Rows(i).Cells("內容").Value NU1 = 第5期_dgv.Rows(i).Cells("比例").Value : NU2 = 第5期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改() Next End Sub Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click Dim SS As String If 系統語言 = "繁體中文" Then : SS = "本頁空白條文最多新增到第14條!!" : Else : SS = "Klausa kosong di halaman ini hanya dapat ditambahkan ke klausa 14 !!" : End If If 翻頁_nud.Value = Val(最末頁_cb.Text) Then '---------------------------------------最末頁------------------------------------------------------------------------------------- If 系統語言 = "繁體中文" Then : MsgBox("最末頁無法新增空白條文!!") : Else : MsgBox("Tidak dapat menambahkan klausa kosong di halaman terakhir!!") : End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 1 Then '---------------------------------------第十一章------------------------------------------------------------------------------------- If LB166.Text = "" Then : LB166.Text = "X、" : LB167.Text = "XXXXX。" : LB168.Text = "XXXXX." ElseIf LB169.Text = "" Then : LB169.Text = "X、" : LB170.Text = "XXXXX。" : LB171.Text = "XXXXX." ElseIf LB172.Text = "" Then : LB172.Text = "X、" : LB173.Text = "XXXXX。" : LB174.Text = "XXXXX." ElseIf LB175.Text = "" Then : LB175.Text = "X、" : LB176.Text = "XXXXX。" : LB177.Text = "XXXXX." ElseIf LB178.Text = "" Then : LB178.Text = "X、" : LB179.Text = "XXXXX。" : LB180.Text = "XXXXX." ElseIf LB181.Text = "" Then : LB181.Text = "X、" : LB182.Text = "XXXXX。" : LB183.Text = "XXXXX." ElseIf LB184.Text = "" Then : LB184.Text = "X、" : LB185.Text = "XXXXX。" : LB186.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 2 Then '---------------------------------------第十章------------------------------------------------------------------------------------- If LB187.Text = "" Then : LB187.Text = "第X條、XXXX" : LB188.Text = "Article X (XXX) XXXXXXXXXX" LB189.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB226.Text = "" Then : LB226.Text = "X、" : LB137.Text = "XXXXX。" : LB138.Text = "XXXXX." ElseIf LB227.Text = "" Then : LB227.Text = "X、" : LB139.Text = "XXXXX。" : LB140.Text = "XXXXX." ElseIf LB190.Text = "" Then : LB190.Text = "X、" : LB191.Text = "XXXXX。" : LB192.Text = "XXXXX." ElseIf LB193.Text = "" Then : LB193.Text = "X、" : LB194.Text = "XXXXX。" : LB195.Text = "XXXXX." ElseIf LB196.Text = "" Then : LB196.Text = "X、" : LB197.Text = "XXXXX。" : LB198.Text = "XXXXX." ElseIf LB199.Text = "" Then : LB199.Text = "X、" : LB200.Text = "XXXXX。" : LB201.Text = "XXXXX." ElseIf LB202.Text = "" Then : LB202.Text = "X、" : LB203.Text = "XXXXX。" : LB204.Text = "XXXXX." ElseIf LB205.Text = "" Then : LB205.Text = "X、" : LB206.Text = "XXXXX。" : LB207.Text = "XXXXX." ElseIf LB208.Text = "" Then : LB208.Text = "X、" : LB209.Text = "XXXXX。" : LB210.Text = "XXXXX." ElseIf LB211.Text = "" Then : LB211.Text = "X、" : LB212.Text = "XXXXX。" : LB213.Text = "XXXXX." ElseIf LB214.Text = "" Then : LB214.Text = "X、" : LB215.Text = "XXXXX。" : LB216.Text = "XXXXX." ElseIf LB217.Text = "" Then : LB217.Text = "X、" : LB218.Text = "XXXXX。" : LB219.Text = "XXXXX." ElseIf LB220.Text = "" Then : LB220.Text = "X、" : LB221.Text = "XXXXX。" : LB222.Text = "XXXXX." ElseIf LB223.Text = "" Then : LB223.Text = "X、" : LB224.Text = "XXXXX。" : LB225.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 3 Then '---------------------------------------第九章------------------------------------------------------------------------------------- If LB228.Text = "" Then : LB228.Text = "第X條、XXXX" : LB229.Text = "Article X (XXX) XXXXXXXXXX" LB230.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB231.Text = "" Then : LB231.Text = "X、" : LB131.Text = "XXXXX。" : LB132.Text = "XXXXX." ElseIf LB232.Text = "" Then : LB232.Text = "X、" : LB133.Text = "XXXXX。" : LB134.Text = "XXXXX." ElseIf LB233.Text = "" Then : LB233.Text = "X、" : LB135.Text = "XXXXX。" : LB136.Text = "XXXXX." ElseIf LB234.Text = "" Then : LB234.Text = "X、" : LB235.Text = "XXXXX。" : LB236.Text = "XXXXX." ElseIf LB237.Text = "" Then : LB237.Text = "X、" : LB238.Text = "XXXXX。" : LB239.Text = "XXXXX." ElseIf LB240.Text = "" Then : LB240.Text = "X、" : LB241.Text = "XXXXX。" : LB242.Text = "XXXXX." ElseIf LB243.Text = "" Then : LB243.Text = "X、" : LB244.Text = "XXXXX。" : LB245.Text = "XXXXX." ElseIf LB246.Text = "" Then : LB246.Text = "X、" : LB247.Text = "XXXXX。" : LB248.Text = "XXXXX." ElseIf LB249.Text = "" Then : LB249.Text = "X、" : LB250.Text = "XXXXX。" : LB251.Text = "XXXXX." ElseIf LB252.Text = "" Then : LB252.Text = "X、" : LB253.Text = "XXXXX。" : LB254.Text = "XXXXX." ElseIf LB255.Text = "" Then : LB255.Text = "X、" : LB256.Text = "XXXXX。" : LB257.Text = "XXXXX." ElseIf LB258.Text = "" Then : LB258.Text = "X、" : LB259.Text = "XXXXX。" : LB260.Text = "XXXXX." ElseIf LB261.Text = "" Then : LB261.Text = "X、" : LB262.Text = "XXXXX。" : LB263.Text = "XXXXX." ElseIf LB264.Text = "" Then : LB264.Text = "X、" : LB265.Text = "XXXXX。" : LB266.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 4 Then '---------------------------------------第八章------------------------------------------------------------------------------------- If LB276.Text = "" Then : LB276.Text = "X、" : LB277.Text = "XXXXX。" : LB278.Text = "XXX." ElseIf LB279.Text = "" Then : LB279.Text = "X、" : LB280.Text = "XXXXX。" : LB281.Text = "XXXXX." ElseIf LB282.Text = "" Then : LB282.Text = "X、" : LB283.Text = "XXXXX。" : LB284.Text = "XXXXX." ElseIf LB285.Text = "" Then : LB285.Text = "X、" : LB286.Text = "XXXXX。" : LB287.Text = "XXXXX." ElseIf LB288.Text = "" Then : LB288.Text = "X、" : LB289.Text = "XXXXX。" : LB290.Text = "XXXXX." ElseIf LB291.Text = "" Then : LB291.Text = "X、" : LB292.Text = "XXXXX。" : LB293.Text = "XXXXX." ElseIf LB294.Text = "" Then : LB294.Text = "X、" : LB295.Text = "XXXXX。" : LB296.Text = "XXXXX." ElseIf LB297.Text = "" Then : LB297.Text = "X、" : LB298.Text = "XXXXX。" : LB299.Text = "XXXXX." ElseIf LB300.Text = "" Then : LB300.Text = "X、" : LB301.Text = "XXXXX。" : LB302.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15 Then '---------------------------------------第15頁------------------------------------------------------------------------------------- If LB303.Text = "" Then : LB303.Text = "第X條、XXXX" : LB304.Text = "Article X (XXX) XXXXXXXXXX" LB305.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB306.Text = "" Then : LB306.Text = "X、" : LB307.Text = "XXXXX。" : LB308.Text = "XXXXX." ElseIf LB309.Text = "" Then : LB309.Text = "X、" : LB310.Text = "XXXXX。" : LB311.Text = "XXXXX." ElseIf LB312.Text = "" Then : LB312.Text = "X、" : LB313.Text = "XXXXX。" : LB314.Text = "XXXXX." ElseIf LB315.Text = "" Then : LB315.Text = "X、" : LB316.Text = "XXXXX。" : LB317.Text = "XXXXX." ElseIf LB318.Text = "" Then : LB318.Text = "X、" : LB319.Text = "XXXXX。" : LB320.Text = "XXXXX." ElseIf LB321.Text = "" Then : LB321.Text = "X、" : LB322.Text = "XXXXX。" : LB323.Text = "XXXXX." ElseIf LB324.Text = "" Then : LB324.Text = "X、" : LB325.Text = "XXXXX。" : LB326.Text = "XXXXX." ElseIf LB327.Text = "" Then : LB327.Text = "X、" : LB328.Text = "XXXXX。" : LB329.Text = "XXXXX." ElseIf LB330.Text = "" Then : LB330.Text = "X、" : LB331.Text = "XXXXX。" : LB332.Text = "XXXXX." ElseIf LB333.Text = "" Then : LB333.Text = "X、" : LB334.Text = "XXXXX。" : LB335.Text = "XXXXX." ElseIf LB336.Text = "" Then : LB336.Text = "X、" : LB337.Text = "XXXXX。" : LB338.Text = "XXXXX." ElseIf LB339.Text = "" Then : LB339.Text = "X、" : LB340.Text = "XXXXX。" : LB341.Text = "XXXXX." ElseIf LB342.Text = "" Then : LB342.Text = "X、" : LB343.Text = "XXXXX。" : LB344.Text = "XXXXX." ElseIf LB345.Text = "" Then : LB345.Text = "X、" : LB346.Text = "XXXXX。" : LB347.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then '---------------------------------------第14頁------------------------------------------------------------------------------------- If LB348.Text = "" Then : LB348.Text = "第X條、XXXX" : LB349.Text = "Article X (XXX) XXXXXXXXXX" LB350.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB351.Text = "" Then : LB351.Text = "X、" : LB352.Text = "XXXXX。" : LB353.Text = "XXXXX." ElseIf LB354.Text = "" Then : LB354.Text = "X、" : LB355.Text = "XXXXX。" : LB356.Text = "XXXXX." ElseIf LB357.Text = "" Then : LB357.Text = "X、" : LB358.Text = "XXXXX。" : LB359.Text = "XXXXX." ElseIf LB360.Text = "" Then : LB360.Text = "X、" : LB361.Text = "XXXXX。" : LB362.Text = "XXXXX." ElseIf LB363.Text = "" Then : LB363.Text = "X、" : LB364.Text = "XXXXX。" : LB365.Text = "XXXXX." ElseIf LB366.Text = "" Then : LB366.Text = "X、" : LB367.Text = "XXXXX。" : LB368.Text = "XXXXX." ElseIf LB369.Text = "" Then : LB369.Text = "X、" : LB370.Text = "XXXXX。" : LB371.Text = "XXXXX." ElseIf LB372.Text = "" Then : LB372.Text = "X、" : LB373.Text = "XXXXX。" : LB374.Text = "XXXXX." ElseIf LB375.Text = "" Then : LB375.Text = "X、" : LB376.Text = "XXXXX。" : LB377.Text = "XXXXX." ElseIf LB378.Text = "" Then : LB378.Text = "X、" : LB379.Text = "XXXXX。" : LB380.Text = "XXXXX." ElseIf LB381.Text = "" Then : LB381.Text = "X、" : LB382.Text = "XXXXX。" : LB383.Text = "XXXXX." ElseIf LB384.Text = "" Then : LB384.Text = "X、" : LB385.Text = "XXXXX。" : LB386.Text = "XXXXX." ElseIf LB387.Text = "" Then : LB387.Text = "X、" : LB388.Text = "XXXXX。" : LB389.Text = "XXXXX." ElseIf LB390.Text = "" Then : LB390.Text = "X、" : LB391.Text = "XXXXX。" : LB392.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13 Then '---------------------------------------第13頁------------------------------------------------------------------------------------- If LB393.Text = "" Then : LB393.Text = "第X條、XXXX" : LB394.Text = "Article X (XXX) XXXXXXXXXX" LB395.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB396.Text = "" Then : LB396.Text = "X、" : LB397.Text = "XXXXX。" : LB398.Text = "XXXXX." ElseIf LB399.Text = "" Then : LB399.Text = "X、" : LB400.Text = "XXXXX。" : LB401.Text = "XXXXX." ElseIf LB402.Text = "" Then : LB402.Text = "X、" : LB403.Text = "XXXXX。" : LB404.Text = "XXXXX." ElseIf LB405.Text = "" Then : LB405.Text = "X、" : LB406.Text = "XXXXX。" : LB407.Text = "XXXXX." ElseIf LB408.Text = "" Then : LB408.Text = "X、" : LB409.Text = "XXXXX。" : LB410.Text = "XXXXX." ElseIf LB411.Text = "" Then : LB411.Text = "X、" : LB412.Text = "XXXXX。" : LB413.Text = "XXXXX." ElseIf LB414.Text = "" Then : LB414.Text = "X、" : LB415.Text = "XXXXX。" : LB416.Text = "XXXXX." ElseIf LB417.Text = "" Then : LB417.Text = "X、" : LB418.Text = "XXXXX。" : LB419.Text = "XXXXX." ElseIf LB420.Text = "" Then : LB420.Text = "X、" : LB421.Text = "XXXXX。" : LB422.Text = "XXXXX." ElseIf LB423.Text = "" Then : LB423.Text = "X、" : LB424.Text = "XXXXX。" : LB425.Text = "XXXXX." ElseIf LB426.Text = "" Then : LB426.Text = "X、" : LB427.Text = "XXXXX。" : LB428.Text = "XXXXX." ElseIf LB429.Text = "" Then : LB429.Text = "X、" : LB430.Text = "XXXXX。" : LB431.Text = "XXXXX." ElseIf LB432.Text = "" Then : LB432.Text = "X、" : LB433.Text = "XXXXX。" : LB434.Text = "XXXXX." ElseIf LB435.Text = "" Then : LB435.Text = "X、" : LB436.Text = "XXXXX。" : LB437.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12 Then '---------------------------------------第12頁------------------------------------------------------------------------------------- If LB438.Text = "" Then : LB438.Text = "第X條、XXXX" : LB439.Text = "Article X (XXX) XXXXXXXXXX" LB440.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB441.Text = "" Then : LB441.Text = "X、" : LB442.Text = "XXXXX。" : LB443.Text = "XXXXX." ElseIf LB444.Text = "" Then : LB444.Text = "X、" : LB445.Text = "XXXXX。" : LB446.Text = "XXXXX." ElseIf LB447.Text = "" Then : LB447.Text = "X、" : LB448.Text = "XXXXX。" : LB449.Text = "XXXXX." ElseIf LB450.Text = "" Then : LB450.Text = "X、" : LB451.Text = "XXXXX。" : LB452.Text = "XXXXX." ElseIf LB453.Text = "" Then : LB453.Text = "X、" : LB454.Text = "XXXXX。" : LB455.Text = "XXXXX." ElseIf LB456.Text = "" Then : LB456.Text = "X、" : LB457.Text = "XXXXX。" : LB458.Text = "XXXXX." ElseIf LB459.Text = "" Then : LB459.Text = "X、" : LB460.Text = "XXXXX。" : LB461.Text = "XXXXX." ElseIf LB462.Text = "" Then : LB462.Text = "X、" : LB463.Text = "XXXXX。" : LB464.Text = "XXXXX." ElseIf LB465.Text = "" Then : LB465.Text = "X、" : LB466.Text = "XXXXX。" : LB467.Text = "XXXXX." ElseIf LB468.Text = "" Then : LB468.Text = "X、" : LB469.Text = "XXXXX。" : LB470.Text = "XXXXX." ElseIf LB471.Text = "" Then : LB471.Text = "X、" : LB472.Text = "XXXXX。" : LB473.Text = "XXXXX." ElseIf LB474.Text = "" Then : LB474.Text = "X、" : LB475.Text = "XXXXX。" : LB476.Text = "XXXXX." ElseIf LB477.Text = "" Then : LB477.Text = "X、" : LB478.Text = "XXXXX。" : LB479.Text = "XXXXX." ElseIf LB480.Text = "" Then : LB480.Text = "X、" : LB481.Text = "XXXXX。" : LB482.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 11 Then '---------------------------------------第11頁------------------------------------------------------------------------------------- If LB483.Text = "" Then : LB483.Text = "第X條、XXXX" : LB484.Text = "Article X (XXX) XXXXXXXXXX" LB485.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB486.Text = "" Then : LB486.Text = "X、" : LB117.Text = "XXXXX。" : LB118.Text = "XXXXX." ElseIf LB487.Text = "" Then : LB487.Text = "X、" : LB119.Text = "XXXXX。" : LB120.Text = "XXXXX." ElseIf LB488.Text = "" Then : LB488.Text = "X、" : LB489.Text = "XXXXX。" : LB490.Text = "XXXXX." ElseIf LB491.Text = "" Then : LB491.Text = "X、" : LB492.Text = "XXXXX。" : LB493.Text = "XXXXX." ElseIf LB494.Text = "" Then : LB494.Text = "X、" : LB495.Text = "XXXXX。" : LB496.Text = "XXXXX." ElseIf LB497.Text = "" Then : LB497.Text = "X、" : LB498.Text = "XXXXX。" : LB499.Text = "XXXXX." ElseIf LB500.Text = "" Then : LB500.Text = "X、" : LB501.Text = "XXXXX。" : LB502.Text = "XXXXX." ElseIf LB503.Text = "" Then : LB503.Text = "X、" : LB504.Text = "XXXXX。" : LB505.Text = "XXXXX." ElseIf LB506.Text = "" Then : LB506.Text = "X、" : LB507.Text = "XXXXX。" : LB508.Text = "XXXXX." ElseIf LB509.Text = "" Then : LB509.Text = "X、" : LB510.Text = "XXXXX。" : LB511.Text = "XXXXX." ElseIf LB512.Text = "" Then : LB512.Text = "X、" : LB513.Text = "XXXXX。" : LB514.Text = "XXXXX." ElseIf LB515.Text = "" Then : LB515.Text = "X、" : LB516.Text = "XXXXX。" : LB517.Text = "XXXXX." ElseIf LB518.Text = "" Then : LB518.Text = "X、" : LB519.Text = "XXXXX。" : LB520.Text = "XXXXX." ElseIf LB521.Text = "" Then : LB521.Text = "X、" : LB522.Text = "XXXXX。" : LB523.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 10 Then '---------------------------------------第10頁------------------------------------------------------------------------------------- If LB524.Text = "" Then : LB524.Text = "第X條、XXXX" : LB525.Text = "Article X (XXX) XXXXXXXXXX" LB526.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB527.Text = "" Then : LB527.Text = "X、" : LB115.Text = "XXXXX。" : LB116.Text = "XXXXX." ElseIf LB528.Text = "" Then : LB528.Text = "X、" : LB529.Text = "XXXXX。" : LB530.Text = "XXXXX." ElseIf LB531.Text = "" Then : LB531.Text = "X、" : LB532.Text = "XXXXX。" : LB533.Text = "XXXXX." ElseIf LB534.Text = "" Then : LB534.Text = "X、" : LB535.Text = "XXXXX。" : LB536.Text = "XXXXX." ElseIf LB537.Text = "" Then : LB537.Text = "X、" : LB538.Text = "XXXXX。" : LB539.Text = "XXXXX." ElseIf LB540.Text = "" Then : LB540.Text = "X、" : LB541.Text = "XXXXX。" : LB542.Text = "XXXXX." ElseIf LB543.Text = "" Then : LB543.Text = "X、" : LB544.Text = "XXXXX。" : LB545.Text = "XXXXX." ElseIf LB546.Text = "" Then : LB546.Text = "X、" : LB547.Text = "XXXXX。" : LB548.Text = "XXXXX." ElseIf LB549.Text = "" Then : LB549.Text = "X、" : LB550.Text = "XXXXX。" : LB551.Text = "XXXXX." ElseIf LB552.Text = "" Then : LB552.Text = "X、" : LB553.Text = "XXXXX。" : LB554.Text = "XXXXX." ElseIf LB555.Text = "" Then : LB555.Text = "X、" : LB556.Text = "XXXXX。" : LB557.Text = "XXXXX." ElseIf LB558.Text = "" Then : LB558.Text = "X、" : LB559.Text = "XXXXX。" : LB560.Text = "XXXXX." ElseIf LB561.Text = "" Then : LB561.Text = "X、" : LB562.Text = "XXXXX。" : LB563.Text = "XXXXX." ElseIf LB564.Text = "" Then : LB564.Text = "X、" : LB565.Text = "XXXXX。" : LB566.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 9 Then '---------------------------------------第9頁------------------------------------------------------------------------------------- If LB567.Text = "" Then : LB567.Text = "第X條、XXXX" : LB568.Text = "Article X (XXX) XXXXXXXXXX" LB569.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB570.Text = "" Then : LB570.Text = "X、" : LB103.Text = "XXXXX。" : LB104.Text = "XXXXX." ElseIf LB571.Text = "" Then : LB571.Text = "X、" : LB105.Text = "XXXXX。" : LB106.Text = "XXXXX." ElseIf LB572.Text = "" Then : LB572.Text = "X、" : LB107.Text = "XXXXX。" : LB108.Text = "XXXXX." ElseIf LB573.Text = "" Then : LB573.Text = "X、" : LB109.Text = "XXXXX。" : LB110.Text = "XXXXX." ElseIf LB574.Text = "" Then : LB574.Text = "X、" : LB111.Text = "XXXXX。" : LB112.Text = "XXXXX." ElseIf LB575.Text = "" Then : LB575.Text = "X、" : LB113.Text = "XXXXX。" : LB114.Text = "XXXXX." ElseIf LB576.Text = "" Then : LB576.Text = "X、" : LB577.Text = "XXXXX。" : LB578.Text = "XXXXX." ElseIf LB579.Text = "" Then : LB579.Text = "X、" : LB580.Text = "XXXXX。" : LB581.Text = "XXXXX." ElseIf LB582.Text = "" Then : LB582.Text = "X、" : LB583.Text = "XXXXX。" : LB584.Text = "XXXXX." ElseIf LB585.Text = "" Then : LB585.Text = "X、" : LB586.Text = "XXXXX。" : LB587.Text = "XXXXX." ElseIf LB588.Text = "" Then : LB588.Text = "X、" : LB589.Text = "XXXXX。" : LB590.Text = "XXXXX." ElseIf LB591.Text = "" Then : LB591.Text = "X、" : LB592.Text = "XXXXX。" : LB593.Text = "XXXXX." ElseIf LB594.Text = "" Then : LB594.Text = "X、" : LB595.Text = "XXXXX。" : LB596.Text = "XXXXX." ElseIf LB597.Text = "" Then : LB597.Text = "X、" : LB598.Text = "XXXXX。" : LB599.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 8 Then '---------------------------------------第8頁------------------------------------------------------------------------------------- If LB600.Text = "" Then : LB600.Text = "第X條、XXXX" : LB601.Text = "Article X (XXX) XXXXXXXXXX" LB602.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB603.Text = "" Then : LB603.Text = "X、" : LB604.Text = "XXXXX。" : LB605.Text = "XXXXX." ElseIf LB606.Text = "" Then : LB606.Text = "X、" : LB607.Text = "XXXXX。" : LB608.Text = "XXXXX." ElseIf LB609.Text = "" Then : LB609.Text = "X、" : LB610.Text = "XXXXX。" : LB611.Text = "XXXXX." ElseIf LB612.Text = "" Then : LB612.Text = "X、" : LB613.Text = "XXXXX。" : LB614.Text = "XXXXX." ElseIf LB615.Text = "" Then : LB615.Text = "X、" : LB616.Text = "XXXXX。" : LB617.Text = "XXXXX." ElseIf LB618.Text = "" Then : LB618.Text = "X、" : LB619.Text = "XXXXX。" : LB620.Text = "XXXXX." ElseIf LB621.Text = "" Then : LB621.Text = "X、" : LB622.Text = "XXXXX。" : LB623.Text = "XXXXX." ElseIf LB624.Text = "" Then : LB624.Text = "X、" : LB625.Text = "XXXXX。" : LB626.Text = "XXXXX." ElseIf LB627.Text = "" Then : LB627.Text = "X、" : LB628.Text = "XXXXX。" : LB629.Text = "XXXXX." ElseIf LB630.Text = "" Then : LB630.Text = "X、" : LB631.Text = "XXXXX。" : LB632.Text = "XXXXX." ElseIf LB633.Text = "" Then : LB633.Text = "X、" : LB634.Text = "XXXXX。" : LB635.Text = "XXXXX." ElseIf LB636.Text = "" Then : LB636.Text = "X、" : LB637.Text = "XXXXX。" : LB638.Text = "XXXXX." ElseIf LB639.Text = "" Then : LB639.Text = "X、" : LB640.Text = "XXXXX。" : LB641.Text = "XXXXX." ElseIf LB642.Text = "" Then : LB642.Text = "X、" : LB643.Text = "XXXXX。" : LB644.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 7 Then '---------------------------------------第7頁------------------------------------------------------------------------------------- If LB648.Text = "" Then : LB648.Text = "X、" : LB649.Text = "XXXXX。" : LB650.Text = "XXXXX." ElseIf LB651.Text = "" Then : LB651.Text = "X、" : LB652.Text = "XXXXX。" : LB653.Text = "XXXXX." ElseIf LB654.Text = "" Then : LB654.Text = "X、" : LB655.Text = "XXXXX。" : LB656.Text = "XXXXX." ElseIf LB657.Text = "" Then : LB657.Text = "X、" : LB658.Text = "XXXXX。" : LB659.Text = "XXXXX." ElseIf LB660.Text = "" Then : LB660.Text = "X、" : LB661.Text = "XXXXX。" : LB662.Text = "XXXXX." ElseIf LB663.Text = "" Then : LB663.Text = "X、" : LB664.Text = "XXXXX。" : LB665.Text = "XXXXX." ElseIf LB666.Text = "" Then : LB666.Text = "X、" : LB667.Text = "XXXXX。" : LB668.Text = "XXXXX." ElseIf LB669.Text = "" Then : LB669.Text = "X、" : LB670.Text = "XXXXX。" : LB671.Text = "XXXXX." ElseIf LB672.Text = "" Then : LB672.Text = "X、" : LB673.Text = "XXXXX。" : LB674.Text = "XXXXX." ElseIf LB675.Text = "" Then : LB675.Text = "X、" : LB676.Text = "XXXXX。" : LB677.Text = "XXXXX." ElseIf LB678.Text = "" Then : LB678.Text = "X、" : LB679.Text = "XXXXX。" : LB680.Text = "XXXXX." ElseIf LB681.Text = "" Then : LB681.Text = "X、" : LB682.Text = "XXXXX。" : LB683.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 6 Then '---------------------------------------第6頁------------------------------------------------------------------------------------- If LB684.Text = "" Then : LB684.Text = "第X條、XXXX" : LB685.Text = "Article X (XXX) XXXXXXXXXX" LB686.Text = "__________________________________________________________________________________________________________________________________________________________________________________" ElseIf LB687.Text = "" Then : LB687.Text = "X、" : LB37.Text = "XXXXX。" : LB38.Text = "XXXXX." ElseIf LB688.Text = "" Then : LB688.Text = "X、" : LB86.Text = "XXXXX。" : LB87.Text = "XXXXX." ElseIf LB689.Text = "" Then : LB689.Text = "X、" : LB88.Text = "XXXXX。" : LB89.Text = "XXXXX." ElseIf LB690.Text = "" Then : LB690.Text = "X、" : LB90.Text = "XXXXX。" : LB91.Text = "XXXXX." ElseIf LB691.Text = "" Then : LB691.Text = "X、" : LB92.Text = "XXXXX。" : LB93.Text = "XXXXX." ElseIf LB692.Text = "" Then : LB692.Text = "X、" : LB693.Text = "XXXXX。" : LB694.Text = "XXXXX." ElseIf LB695.Text = "" Then : LB695.Text = "X、" : LB696.Text = "XXXXX。" : LB697.Text = "XXXXX." ElseIf LB698.Text = "" Then : LB698.Text = "X、" : LB699.Text = "XXXXX。" : LB700.Text = "XXXXX." ElseIf LB701.Text = "" Then : LB701.Text = "X、" : LB702.Text = "XXXXX。" : LB703.Text = "XXXXX." ElseIf LB704.Text = "" Then : LB704.Text = "X、" : LB705.Text = "XXXXX。" : LB706.Text = "XXXXX." ElseIf LB707.Text = "" Then : LB707.Text = "X、" : LB708.Text = "XXXXX。" : LB709.Text = "XXXXX." ElseIf LB710.Text = "" Then : LB710.Text = "X、" : LB711.Text = "XXXXX。" : LB712.Text = "XXXXX." ElseIf LB713.Text = "" Then : LB713.Text = "X、" : LB714.Text = "XXXXX。" : LB715.Text = "XXXXX." ElseIf LB716.Text = "" Then : LB716.Text = "X、" : LB717.Text = "XXXXX。" : LB718.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 4 Then '---------------------------------------第4頁------------------------------------------------------------------------------------- If LB719.Text = "" Then : LB719.Text = "X、" : LB31.Text = "XXXXX。" : LB32.Text = "XXXXX." ElseIf LB720.Text = "" Then : LB720.Text = "X、" : LB35.Text = "XXXXX。" : LB36.Text = "XXXXX." ElseIf LB721.Text = "" Then : LB721.Text = "X、" : LB722.Text = "XXXXX。" : LB723.Text = "XXXXX." ElseIf LB724.Text = "" Then : LB724.Text = "X、" : LB725.Text = "XXXXX。" : LB726.Text = "XXXXX." ElseIf LB727.Text = "" Then : LB727.Text = "X、" : LB728.Text = "XXXXX。" : LB729.Text = "XXXXX." ElseIf LB730.Text = "" Then : LB730.Text = "X、" : LB731.Text = "XXXXX。" : LB732.Text = "XXXXX." ElseIf LB733.Text = "" Then : LB733.Text = "X、" : LB734.Text = "XXXXX。" : LB735.Text = "XXXXX." ElseIf LB736.Text = "" Then : LB736.Text = "X、" : LB737.Text = "XXXXX。" : LB738.Text = "XXXXX." ElseIf LB739.Text = "" Then : LB739.Text = "X、" : LB740.Text = "XXXXX。" : LB741.Text = "XXXXX." Else : MsgBox(SS) End If ElseIf 翻頁_nud.Value = 3 Then '---------------------------------------第3頁------------------------------------------------------------------------------------- If LB742.Text = "" Then : LB742.Text = "X、" : LB7.Text = "XXXXX。" : LB8.Text = "XXXXX." ElseIf LB743.Text = "" Then : LB743.Text = "X、" : LB9.Text = "XXXXX。" : LB10.Text = "XXXXX." ElseIf LB744.Text = "" Then : LB744.Text = "X、" : LB11.Text = "XXXXX。" : LB12.Text = "XXXXX." ElseIf LB745.Text = "" Then : LB745.Text = "X、" : LB13.Text = "XXXXX。" : LB14.Text = "XXXXX." ElseIf LB746.Text = "" Then : LB746.Text = "X、" : LB15.Text = "XXXXX。" : LB16.Text = "XXXXX." ElseIf LB747.Text = "" Then : LB747.Text = "X、" : LB17.Text = "XXXXX。" : LB18.Text = "XXXXX." ElseIf LB748.Text = "" Then : LB748.Text = "X、" : LB19.Text = "XXXXX。" : LB20.Text = "XXXXX." ElseIf LB749.Text = "" Then : LB749.Text = "X、" : LB750.Text = "XXXXX。" : LB751.Text = "XXXXX." ElseIf LB752.Text = "" Then : LB752.Text = "X、" : LB753.Text = "XXXXX。" : LB754.Text = "XXXXX." ElseIf LB755.Text = "" Then : LB755.Text = "X、" : LB756.Text = "XXXXX。" : LB757.Text = "XXXXX." Else : MsgBox(SS) End If End If End Sub Private Sub 去除_bt_Click(sender As Object, e As EventArgs) Handles 去除_bt.Click Dim SS As String If 系統語言 = "繁體中文" Then : SS = "整頁都空白了!!" : Else : SS = "Seluruh halaman kosong!!" : End If If 翻頁_nud.Value = Val(最末頁_cb.Text) Then '---------------------------------------最末頁------------------------------------------------------------------------------------- If 系統語言 = "繁體中文" Then : MsgBox("最末頁無法去除空白條文!!") : Else : MsgBox("Tidak dapat menghapus coretan kosong di halaman terakhir!!") : End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 1 Then '---------------------------------------第十一章------------------------------------------------------------------------------------- If LB184.Text <> "" Then : LB186.Text = "" : LB185.Text = "" : LB184.Text = "" : ElseIf LB181.Text <> "" Then : LB183.Text = "" : LB182.Text = "" : LB181.Text = "" ElseIf LB178.Text <> "" Then : LB178.Text = "" : LB179.Text = "" : LB180.Text = "" : ElseIf LB175.Text <> "" Then : LB175.Text = "" : LB176.Text = "" : LB177.Text = "" ElseIf LB172.Text <> "" Then : LB172.Text = "" : LB173.Text = "" : LB174.Text = "" : ElseIf LB169.Text <> "" Then : LB169.Text = "" : LB170.Text = "" : LB171.Text = "" ElseIf LB166.Text <> "" Then : LB166.Text = "" : LB167.Text = "" : LB168.Text = "" : Else If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第4條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 4 !!") : End If End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 2 Then '---------------------------------------第十章------------------------------------------------------------------------------------- If LB223.Text <> "" Then : LB223.Text = "" : LB224.Text = "" : LB225.Text = "" : ElseIf LB220.Text <> "" Then : LB220.Text = "" : LB221.Text = "" : LB222.Text = "" ElseIf LB217.Text <> "" Then : LB217.Text = "" : LB218.Text = "" : LB219.Text = "" : ElseIf LB214.Text <> "" Then : LB214.Text = "" : LB215.Text = "" : LB216.Text = "" ElseIf LB211.Text <> "" Then : LB211.Text = "" : LB212.Text = "" : LB213.Text = "" : ElseIf LB208.Text <> "" Then : LB208.Text = "" : LB209.Text = "" : LB210.Text = "" ElseIf LB205.Text <> "" Then : LB205.Text = "" : LB206.Text = "" : LB207.Text = "" : ElseIf LB202.Text <> "" Then : LB202.Text = "" : LB203.Text = "" : LB204.Text = "" ElseIf LB199.Text <> "" Then : LB199.Text = "" : LB200.Text = "" : LB201.Text = "" : ElseIf LB196.Text <> "" Then : LB196.Text = "" : LB197.Text = "" : LB198.Text = "" ElseIf LB193.Text <> "" Then : LB193.Text = "" : LB194.Text = "" : LB195.Text = "" : ElseIf LB190.Text <> "" Then : LB190.Text = "" : LB191.Text = "" : LB192.Text = "" ElseIf LB227.Text <> "" Then : LB227.Text = "" : LB139.Text = "" : LB140.Text = "" : ElseIf LB226.Text <> "" Then : LB226.Text = "" : LB137.Text = "" : LB138.Text = "" ElseIf LB187.Text <> "" Then : LB187.Text = "" : LB188.Text = "" : LB189.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 3 Then '---------------------------------------第九章------------------------------------------------------------------------------------- If LB264.Text <> "" Then : LB264.Text = "" : LB265.Text = "" : LB266.Text = "" : ElseIf LB261.Text <> "" Then : LB261.Text = "" : LB262.Text = "" : LB263.Text = "" ElseIf LB258.Text <> "" Then : LB258.Text = "" : LB259.Text = "" : LB260.Text = "" : ElseIf LB255.Text <> "" Then : LB255.Text = "" : LB256.Text = "" : LB257.Text = "" ElseIf LB252.Text <> "" Then : LB252.Text = "" : LB253.Text = "" : LB254.Text = "" : ElseIf LB249.Text <> "" Then : LB249.Text = "" : LB250.Text = "" : LB251.Text = "" ElseIf LB246.Text <> "" Then : LB246.Text = "" : LB247.Text = "" : LB248.Text = "" : ElseIf LB243.Text <> "" Then : LB243.Text = "" : LB244.Text = "" : LB245.Text = "" ElseIf LB240.Text <> "" Then : LB240.Text = "" : LB241.Text = "" : LB242.Text = "" : ElseIf LB237.Text <> "" Then : LB237.Text = "" : LB238.Text = "" : LB239.Text = "" ElseIf LB234.Text <> "" Then : LB234.Text = "" : LB235.Text = "" : LB236.Text = "" : ElseIf LB233.Text <> "" Then : LB233.Text = "" : LB135.Text = "" : LB136.Text = "" ElseIf LB232.Text <> "" Then : LB232.Text = "" : LB133.Text = "" : LB134.Text = "" : ElseIf LB231.Text <> "" Then : LB231.Text = "" : LB131.Text = "" : LB132.Text = "" ElseIf LB228.Text <> "" Then : LB228.Text = "" : LB229.Text = "" : LB230.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 4 Then '---------------------------------------第八章------------------------------------------------------------------------------------- If LB300.Text <> "" Then : LB300.Text = "" : LB301.Text = "" : LB302.Text = "" : ElseIf LB297.Text <> "" Then : LB297.Text = "" : LB298.Text = "" : LB299.Text = "" ElseIf LB294.Text <> "" Then : LB294.Text = "" : LB295.Text = "" : LB296.Text = "" : ElseIf LB291.Text <> "" Then : LB291.Text = "" : LB292.Text = "" : LB293.Text = "" ElseIf LB288.Text <> "" Then : LB288.Text = "" : LB289.Text = "" : LB290.Text = "" : ElseIf LB285.Text <> "" Then : LB285.Text = "" : LB286.Text = "" : LB287.Text = "" ElseIf LB282.Text <> "" Then : LB282.Text = "" : LB283.Text = "" : LB284.Text = "" : ElseIf LB279.Text <> "" Then : LB279.Text = "" : LB280.Text = "" : LB281.Text = "" ElseIf LB276.Text <> "" Then : LB276.Text = "" : LB277.Text = "" : LB278.Text = "" : Else If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第2條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 2 !!") : End If End If ElseIf Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15 Then '---------------------------------------第15頁------------------------------------------------------------------------------------- If LB345.Text <> "" Then : LB345.Text = "" : LB346.Text = "" : LB347.Text = "" : ElseIf LB342.Text <> "" Then : LB342.Text = "" : LB343.Text = "" : LB344.Text = "" ElseIf LB339.Text <> "" Then : LB339.Text = "" : LB340.Text = "" : LB341.Text = "" : ElseIf LB336.Text <> "" Then : LB336.Text = "" : LB337.Text = "" : LB338.Text = "" ElseIf LB333.Text <> "" Then : LB333.Text = "" : LB334.Text = "" : LB335.Text = "" : ElseIf LB330.Text <> "" Then : LB330.Text = "" : LB331.Text = "" : LB332.Text = "" ElseIf LB327.Text <> "" Then : LB327.Text = "" : LB328.Text = "" : LB329.Text = "" : ElseIf LB324.Text <> "" Then : LB324.Text = "" : LB325.Text = "" : LB326.Text = "" ElseIf LB321.Text <> "" Then : LB321.Text = "" : LB322.Text = "" : LB323.Text = "" : ElseIf LB318.Text <> "" Then : LB318.Text = "" : LB319.Text = "" : LB320.Text = "" ElseIf LB315.Text <> "" Then : LB315.Text = "" : LB316.Text = "" : LB317.Text = "" : ElseIf LB312.Text <> "" Then : LB312.Text = "" : LB313.Text = "" : LB314.Text = "" ElseIf LB309.Text <> "" Then : LB309.Text = "" : LB310.Text = "" : LB311.Text = "" : ElseIf LB306.Text <> "" Then : LB306.Text = "" : LB307.Text = "" : LB308.Text = "" ElseIf LB303.Text <> "" Then : LB303.Text = "" : LB304.Text = "" : LB305.Text = "" : Else : MsgBox(SS) : End If ElseIf Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14 Then '---------------------------------------第14頁------------------------------------------------------------------------------------- If LB390.Text <> "" Then : LB390.Text = "" : LB391.Text = "" : LB392.Text = "" : ElseIf LB387.Text <> "" Then : LB387.Text = "" : LB388.Text = "" : LB389.Text = "" ElseIf LB384.Text <> "" Then : LB384.Text = "" : LB385.Text = "" : LB386.Text = "" : ElseIf LB381.Text <> "" Then : LB381.Text = "" : LB382.Text = "" : LB383.Text = "" ElseIf LB378.Text <> "" Then : LB378.Text = "" : LB379.Text = "" : LB380.Text = "" : ElseIf LB375.Text <> "" Then : LB375.Text = "" : LB376.Text = "" : LB377.Text = "" ElseIf LB372.Text <> "" Then : LB372.Text = "" : LB373.Text = "" : LB374.Text = "" : ElseIf LB369.Text <> "" Then : LB369.Text = "" : LB370.Text = "" : LB371.Text = "" ElseIf LB366.Text <> "" Then : LB366.Text = "" : LB367.Text = "" : LB368.Text = "" : ElseIf LB363.Text <> "" Then : LB363.Text = "" : LB364.Text = "" : LB365.Text = "" ElseIf LB360.Text <> "" Then : LB360.Text = "" : LB361.Text = "" : LB362.Text = "" : ElseIf LB357.Text <> "" Then : LB357.Text = "" : LB358.Text = "" : LB359.Text = "" ElseIf LB354.Text <> "" Then : LB354.Text = "" : LB355.Text = "" : LB356.Text = "" : ElseIf LB351.Text <> "" Then : LB351.Text = "" : LB352.Text = "" : LB353.Text = "" ElseIf LB348.Text <> "" Then : LB348.Text = "" : LB349.Text = "" : LB350.Text = "" : Else : MsgBox(SS) : End If ElseIf Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13 Then '---------------------------------------第13頁------------------------------------------------------------------------------------- If LB435.Text <> "" Then : LB435.Text = "" : LB436.Text = "" : LB437.Text = "" : ElseIf LB432.Text <> "" Then : LB432.Text = "" : LB433.Text = "" : LB434.Text = "" ElseIf LB429.Text <> "" Then : LB429.Text = "" : LB430.Text = "" : LB431.Text = "" : ElseIf LB426.Text <> "" Then : LB426.Text = "" : LB427.Text = "" : LB428.Text = "" ElseIf LB423.Text <> "" Then : LB423.Text = "" : LB424.Text = "" : LB425.Text = "" : ElseIf LB420.Text <> "" Then : LB420.Text = "" : LB421.Text = "" : LB422.Text = "" ElseIf LB417.Text <> "" Then : LB417.Text = "" : LB418.Text = "" : LB419.Text = "" : ElseIf LB414.Text <> "" Then : LB414.Text = "" : LB415.Text = "" : LB416.Text = "" ElseIf LB411.Text <> "" Then : LB411.Text = "" : LB412.Text = "" : LB413.Text = "" : ElseIf LB408.Text <> "" Then : LB408.Text = "" : LB409.Text = "" : LB410.Text = "" ElseIf LB405.Text <> "" Then : LB405.Text = "" : LB406.Text = "" : LB407.Text = "" : ElseIf LB402.Text <> "" Then : LB402.Text = "" : LB403.Text = "" : LB404.Text = "" ElseIf LB399.Text <> "" Then : LB399.Text = "" : LB400.Text = "" : LB401.Text = "" : ElseIf LB396.Text <> "" Then : LB396.Text = "" : LB397.Text = "" : LB398.Text = "" ElseIf LB393.Text <> "" Then : LB393.Text = "" : LB394.Text = "" : LB395.Text = "" : Else : MsgBox(SS) : End If ElseIf Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12 Then '---------------------------------------第12頁------------------------------------------------------------------------------------- If LB480.Text <> "" Then : LB480.Text = "" : LB481.Text = "" : LB482.Text = "" : ElseIf LB477.Text <> "" Then : LB477.Text = "" : LB478.Text = "" : LB479.Text = "" ElseIf LB474.Text <> "" Then : LB474.Text = "" : LB475.Text = "" : LB476.Text = "" : ElseIf LB471.Text <> "" Then : LB471.Text = "" : LB472.Text = "" : LB473.Text = "" ElseIf LB468.Text <> "" Then : LB468.Text = "" : LB469.Text = "" : LB470.Text = "" : ElseIf LB465.Text <> "" Then : LB465.Text = "" : LB466.Text = "" : LB467.Text = "" ElseIf LB462.Text <> "" Then : LB462.Text = "" : LB463.Text = "" : LB464.Text = "" : ElseIf LB459.Text <> "" Then : LB459.Text = "" : LB460.Text = "" : LB461.Text = "" ElseIf LB456.Text <> "" Then : LB456.Text = "" : LB457.Text = "" : LB458.Text = "" : ElseIf LB453.Text <> "" Then : LB453.Text = "" : LB454.Text = "" : LB455.Text = "" ElseIf LB450.Text <> "" Then : LB450.Text = "" : LB451.Text = "" : LB452.Text = "" : ElseIf LB447.Text <> "" Then : LB447.Text = "" : LB448.Text = "" : LB449.Text = "" ElseIf LB444.Text <> "" Then : LB444.Text = "" : LB445.Text = "" : LB446.Text = "" : ElseIf LB441.Text <> "" Then : LB441.Text = "" : LB442.Text = "" : LB443.Text = "" ElseIf LB438.Text <> "" Then : LB438.Text = "" : LB439.Text = "" : LB440.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = 11 Then '---------------------------------------第11頁------------------------------------------------------------------------------------- If LB521.Text <> "" Then : LB521.Text = "" : LB522.Text = "" : LB523.Text = "" : ElseIf LB518.Text <> "" Then : LB518.Text = "" : LB519.Text = "" : LB520.Text = "" ElseIf LB515.Text <> "" Then : LB515.Text = "" : LB516.Text = "" : LB517.Text = "" : ElseIf LB512.Text <> "" Then : LB512.Text = "" : LB513.Text = "" : LB514.Text = "" ElseIf LB509.Text <> "" Then : LB509.Text = "" : LB510.Text = "" : LB511.Text = "" : ElseIf LB506.Text <> "" Then : LB506.Text = "" : LB507.Text = "" : LB508.Text = "" ElseIf LB503.Text <> "" Then : LB503.Text = "" : LB504.Text = "" : LB505.Text = "" : ElseIf LB500.Text <> "" Then : LB500.Text = "" : LB501.Text = "" : LB502.Text = "" ElseIf LB497.Text <> "" Then : LB497.Text = "" : LB498.Text = "" : LB499.Text = "" : ElseIf LB494.Text <> "" Then : LB494.Text = "" : LB495.Text = "" : LB496.Text = "" ElseIf LB491.Text <> "" Then : LB491.Text = "" : LB492.Text = "" : LB493.Text = "" : ElseIf LB488.Text <> "" Then : LB488.Text = "" : LB489.Text = "" : LB490.Text = "" ElseIf LB487.Text <> "" Then : LB487.Text = "" : LB119.Text = "" : LB120.Text = "" : ElseIf LB486.Text <> "" Then : LB486.Text = "" : LB117.Text = "" : LB118.Text = "" ElseIf LB483.Text <> "" Then : LB483.Text = "" : LB484.Text = "" : LB485.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = 10 Then '---------------------------------------第10頁------------------------------------------------------------------------------------- If LB564.Text <> "" Then : LB564.Text = "" : LB565.Text = "" : LB566.Text = "" : ElseIf LB561.Text <> "" Then : LB561.Text = "" : LB562.Text = "" : LB563.Text = "" ElseIf LB558.Text <> "" Then : LB558.Text = "" : LB559.Text = "" : LB560.Text = "" : ElseIf LB555.Text <> "" Then : LB555.Text = "" : LB556.Text = "" : LB557.Text = "" ElseIf LB552.Text <> "" Then : LB552.Text = "" : LB553.Text = "" : LB554.Text = "" : ElseIf LB549.Text <> "" Then : LB549.Text = "" : LB550.Text = "" : LB551.Text = "" ElseIf LB546.Text <> "" Then : LB546.Text = "" : LB547.Text = "" : LB548.Text = "" : ElseIf LB543.Text <> "" Then : LB543.Text = "" : LB544.Text = "" : LB545.Text = "" ElseIf LB540.Text <> "" Then : LB540.Text = "" : LB541.Text = "" : LB542.Text = "" : ElseIf LB537.Text <> "" Then : LB537.Text = "" : LB538.Text = "" : LB539.Text = "" ElseIf LB534.Text <> "" Then : LB534.Text = "" : LB535.Text = "" : LB536.Text = "" : ElseIf LB531.Text <> "" Then : LB531.Text = "" : LB532.Text = "" : LB533.Text = "" ElseIf LB528.Text <> "" Then : LB528.Text = "" : LB529.Text = "" : LB530.Text = "" : ElseIf LB527.Text <> "" Then : LB527.Text = "" : LB115.Text = "" : LB116.Text = "" ElseIf LB524.Text <> "" Then : LB524.Text = "" : LB525.Text = "" : LB526.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = 9 Then '---------------------------------------第9頁------------------------------------------------------------------------------------- If LB597.Text <> "" Then : LB597.Text = "" : LB598.Text = "" : LB599.Text = "" : ElseIf LB594.Text <> "" Then : LB594.Text = "" : LB595.Text = "" : LB596.Text = "" ElseIf LB591.Text <> "" Then : LB591.Text = "" : LB592.Text = "" : LB593.Text = "" : ElseIf LB588.Text <> "" Then : LB588.Text = "" : LB589.Text = "" : LB590.Text = "" ElseIf LB585.Text <> "" Then : LB585.Text = "" : LB586.Text = "" : LB587.Text = "" : ElseIf LB582.Text <> "" Then : LB582.Text = "" : LB583.Text = "" : LB584.Text = "" ElseIf LB579.Text <> "" Then : LB579.Text = "" : LB580.Text = "" : LB581.Text = "" : ElseIf LB576.Text <> "" Then : LB576.Text = "" : LB577.Text = "" : LB578.Text = "" ElseIf LB575.Text <> "" Then : LB575.Text = "" : LB113.Text = "" : LB114.Text = "" : ElseIf LB574.Text <> "" Then : LB574.Text = "" : LB111.Text = "" : LB112.Text = "" ElseIf LB573.Text <> "" Then : LB573.Text = "" : LB109.Text = "" : LB110.Text = "" : ElseIf LB572.Text <> "" Then : LB572.Text = "" : LB107.Text = "" : LB108.Text = "" ElseIf LB571.Text <> "" Then : LB571.Text = "" : LB105.Text = "" : LB106.Text = "" : ElseIf LB570.Text <> "" Then : LB570.Text = "" : LB103.Text = "" : LB104.Text = "" ElseIf LB567.Text <> "" Then : LB567.Text = "" : LB568.Text = "" : LB569.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = 8 Then '---------------------------------------第8頁------------------------------------------------------------------------------------- If LB642.Text <> "" Then : LB642.Text = "" : LB643.Text = "" : LB644.Text = "" : ElseIf LB639.Text <> "" Then : LB639.Text = "" : LB640.Text = "" : LB641.Text = "" ElseIf LB636.Text <> "" Then : LB636.Text = "" : LB637.Text = "" : LB638.Text = "" : ElseIf LB633.Text <> "" Then : LB633.Text = "" : LB634.Text = "" : LB635.Text = "" ElseIf LB630.Text <> "" Then : LB630.Text = "" : LB631.Text = "" : LB632.Text = "" : ElseIf LB627.Text <> "" Then : LB627.Text = "" : LB628.Text = "" : LB629.Text = "" ElseIf LB624.Text <> "" Then : LB624.Text = "" : LB625.Text = "" : LB626.Text = "" : ElseIf LB621.Text <> "" Then : LB621.Text = "" : LB622.Text = "" : LB623.Text = "" ElseIf LB618.Text <> "" Then : LB618.Text = "" : LB619.Text = "" : LB620.Text = "" : ElseIf LB615.Text <> "" Then : LB615.Text = "" : LB616.Text = "" : LB617.Text = "" ElseIf LB612.Text <> "" Then : LB612.Text = "" : LB613.Text = "" : LB614.Text = "" : ElseIf LB609.Text <> "" Then : LB609.Text = "" : LB610.Text = "" : LB611.Text = "" ElseIf LB606.Text <> "" Then : LB606.Text = "" : LB607.Text = "" : LB608.Text = "" : ElseIf LB603.Text <> "" Then : LB603.Text = "" : LB604.Text = "" : LB605.Text = "" ElseIf LB600.Text <> "" Then : LB600.Text = "" : LB601.Text = "" : LB602.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = 7 Then '---------------------------------------第7頁------------------------------------------------------------------------------------- If LB681.Text <> "" Then : LB681.Text = "" : LB682.Text = "" : LB683.Text = "" : ElseIf LB678.Text <> "" Then : LB678.Text = "" : LB679.Text = "" : LB680.Text = "" ElseIf LB675.Text <> "" Then : LB675.Text = "" : LB676.Text = "" : LB677.Text = "" : ElseIf LB672.Text <> "" Then : LB672.Text = "" : LB673.Text = "" : LB674.Text = "" ElseIf LB669.Text <> "" Then : LB669.Text = "" : LB670.Text = "" : LB671.Text = "" : ElseIf LB666.Text <> "" Then : LB666.Text = "" : LB667.Text = "" : LB668.Text = "" ElseIf LB663.Text <> "" Then : LB663.Text = "" : LB664.Text = "" : LB665.Text = "" : ElseIf LB660.Text <> "" Then : LB660.Text = "" : LB661.Text = "" : LB662.Text = "" ElseIf LB657.Text <> "" Then : LB657.Text = "" : LB658.Text = "" : LB659.Text = "" : ElseIf LB654.Text <> "" Then : LB654.Text = "" : LB655.Text = "" : LB656.Text = "" ElseIf LB651.Text <> "" Then : LB651.Text = "" : LB652.Text = "" : LB653.Text = "" : ElseIf LB648.Text <> "" Then : LB648.Text = "" : LB649.Text = "" : LB650.Text = "" Else If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第3條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 3 !!") : End If End If ElseIf 翻頁_nud.Value = 6 Then '---------------------------------------第6頁------------------------------------------------------------------------------------- If LB716.Text <> "" Then : LB716.Text = "" : LB717.Text = "" : LB718.Text = "" : ElseIf LB713.Text <> "" Then : LB713.Text = "" : LB714.Text = "" : LB715.Text = "" ElseIf LB710.Text <> "" Then : LB710.Text = "" : LB711.Text = "" : LB712.Text = "" : ElseIf LB707.Text <> "" Then : LB707.Text = "" : LB708.Text = "" : LB709.Text = "" ElseIf LB704.Text <> "" Then : LB704.Text = "" : LB705.Text = "" : LB706.Text = "" : ElseIf LB701.Text <> "" Then : LB701.Text = "" : LB702.Text = "" : LB703.Text = "" ElseIf LB698.Text <> "" Then : LB698.Text = "" : LB699.Text = "" : LB700.Text = "" : ElseIf LB695.Text <> "" Then : LB695.Text = "" : LB696.Text = "" : LB697.Text = "" ElseIf LB692.Text <> "" Then : LB692.Text = "" : LB693.Text = "" : LB694.Text = "" : ElseIf LB691.Text <> "" Then : LB691.Text = "" : LB92.Text = "" : LB93.Text = "" ElseIf LB690.Text <> "" Then : LB690.Text = "" : LB90.Text = "" : LB91.Text = "" : ElseIf LB689.Text <> "" Then : LB689.Text = "" : LB88.Text = "" : LB89.Text = "" ElseIf LB688.Text <> "" Then : LB688.Text = "" : LB86.Text = "" : LB87.Text = "" : ElseIf LB687.Text <> "" Then : LB687.Text = "" : LB37.Text = "" : LB38.Text = "" ElseIf LB684.Text <> "" Then : LB684.Text = "" : LB685.Text = "" : LB686.Text = "" : Else : MsgBox(SS) : End If ElseIf 翻頁_nud.Value = 4 Then '---------------------------------------第4頁------------------------------------------------------------------------------------- If LB739.Text <> "" Then : LB739.Text = "" : LB740.Text = "" : LB741.Text = "" : ElseIf LB736.Text <> "" Then : LB736.Text = "" : LB737.Text = "" : LB738.Text = "" ElseIf LB733.Text <> "" Then : LB733.Text = "" : LB734.Text = "" : LB735.Text = "" : ElseIf LB730.Text <> "" Then : LB730.Text = "" : LB731.Text = "" : LB732.Text = "" ElseIf LB727.Text <> "" Then : LB727.Text = "" : LB728.Text = "" : LB729.Text = "" : ElseIf LB724.Text <> "" Then : LB724.Text = "" : LB725.Text = "" : LB726.Text = "" ElseIf LB721.Text <> "" Then : LB721.Text = "" : LB722.Text = "" : LB723.Text = "" : ElseIf LB720.Text <> "" Then : LB720.Text = "" : LB35.Text = "" : LB36.Text = "" ElseIf LB719.Text <> "" Then : LB719.Text = "" : LB31.Text = "" : LB32.Text = "" : Else If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第6條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 6 !!") : End If End If ElseIf 翻頁_nud.Value = 3 Then '---------------------------------------第3頁------------------------------------------------------------------------------------- If LB755.Text <> "" Then : LB755.Text = "" : LB756.Text = "" : LB757.Text = "" : ElseIf LB752.Text <> "" Then : LB752.Text = "" : LB753.Text = "" : LB754.Text = "" ElseIf LB749.Text <> "" Then : LB749.Text = "" : LB750.Text = "" : LB751.Text = "" : ElseIf LB748.Text <> "" Then : LB748.Text = "" : LB19.Text = "" : LB20.Text = "" ElseIf LB747.Text <> "" Then : LB747.Text = "" : LB17.Text = "" : LB18.Text = "" : ElseIf LB746.Text <> "" Then : LB746.Text = "" : LB15.Text = "" : LB16.Text = "" ElseIf LB745.Text <> "" Then : LB745.Text = "" : LB13.Text = "" : LB14.Text = "" : ElseIf LB744.Text <> "" Then : LB744.Text = "" : LB11.Text = "" : LB12.Text = "" ElseIf LB743.Text <> "" Then : LB743.Text = "" : LB9.Text = "" : LB10.Text = "" : ElseIf LB742.Text <> "" Then : LB742.Text = "" : LB7.Text = "" : LB8.Text = "" Else If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第5條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 5 !!") : End If End If End If End Sub Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click PA = 關鍵字搜尋_tb.Text : Set_合約清單() End Sub Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" (ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As _ Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As System.Int32) As Long Dim memoryImage1, memoryImage2, memoryImage3, memoryImage4, memoryImage5, memoryImage6, memoryImage7, memoryImage8, memoryImage9, memoryImage10, memoryImage11, memoryImage12, memoryImage13, memoryImage14, memoryImage15, memoryImage16, memoryImage17, memoryImage18, memoryImage19, memoryImage20 As Bitmap Private pageNum As Integer Private Sub CaptureScreen1() Dim mygraphics As Graphics = Panel1.CreateGraphics() : Dim s As Size = Me.Size : memoryImage1 = New Bitmap(Panel1.Width, Panel1.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage1) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen2() Dim mygraphics As Graphics = Panel2.CreateGraphics() : Dim s As Size = Me.Size : memoryImage2 = New Bitmap(Panel2.Width, Panel2.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage2) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen3() Dim mygraphics As Graphics = Panel3.CreateGraphics() : Dim s As Size = Me.Size : memoryImage3 = New Bitmap(Panel3.Width, Panel3.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage3) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen4() Dim mygraphics As Graphics = Panel4.CreateGraphics() : Dim s As Size = Me.Size : memoryImage4 = New Bitmap(Panel4.Width, Panel4.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage4) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen5() Dim mygraphics As Graphics = Panel5.CreateGraphics() : Dim s As Size = Me.Size : memoryImage5 = New Bitmap(Panel5.Width, Panel5.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage5) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen6() Dim mygraphics As Graphics = Panel6.CreateGraphics() : Dim s As Size = Me.Size : memoryImage6 = New Bitmap(Panel6.Width, Panel6.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage6) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen7() Dim mygraphics As Graphics = Panel7.CreateGraphics() : Dim s As Size = Me.Size : memoryImage7 = New Bitmap(Panel7.Width, Panel7.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage7) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen8() Dim mygraphics As Graphics = Panel8.CreateGraphics() : Dim s As Size = Me.Size : memoryImage8 = New Bitmap(Panel8.Width, Panel8.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage8) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen9() Dim mygraphics As Graphics = Panel9.CreateGraphics() : Dim s As Size = Me.Size : memoryImage9 = New Bitmap(Panel9.Width, Panel9.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage9) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen10() Dim mygraphics As Graphics = Panel10.CreateGraphics() : Dim s As Size = Me.Size : memoryImage10 = New Bitmap(Panel10.Width, Panel10.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage10) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen11() Dim mygraphics As Graphics = Panel11.CreateGraphics() : Dim s As Size = Me.Size : memoryImage11 = New Bitmap(Panel11.Width, Panel11.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage11) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen12() Dim mygraphics As Graphics = Panel12.CreateGraphics() : Dim s As Size = Me.Size : memoryImage12 = New Bitmap(Panel12.Width, Panel12.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage12) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen13() Dim mygraphics As Graphics = Panel13.CreateGraphics() : Dim s As Size = Me.Size : memoryImage13 = New Bitmap(Panel13.Width, Panel13.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage13) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen14() Dim mygraphics As Graphics = Panel14.CreateGraphics() : Dim s As Size = Me.Size : memoryImage14 = New Bitmap(Panel14.Width, Panel14.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage14) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen15() Dim mygraphics As Graphics = Panel15.CreateGraphics() : Dim s As Size = Me.Size : memoryImage15 = New Bitmap(Panel15.Width, Panel15.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage15) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen16() Dim mygraphics As Graphics = Panel16.CreateGraphics() : Dim s As Size = Me.Size : memoryImage16 = New Bitmap(Panel16.Width, Panel16.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage16) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen17() Dim mygraphics As Graphics = Panel17.CreateGraphics() : Dim s As Size = Me.Size : memoryImage17 = New Bitmap(Panel17.Width, Panel17.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage17) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen18() Dim mygraphics As Graphics = Panel18.CreateGraphics() : Dim s As Size = Me.Size : memoryImage18 = New Bitmap(Panel18.Width, Panel18.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage18) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen19() Dim mygraphics As Graphics = Panel19.CreateGraphics() : Dim s As Size = Me.Size : memoryImage19 = New Bitmap(Panel19.Width, Panel19.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage19) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub CaptureScreen20() Dim mygraphics As Graphics = Panel20.CreateGraphics() : Dim s As Size = Me.Size : memoryImage20 = New Bitmap(Panel20.Width, Panel20.Height, mygraphics) Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage20) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2) End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage If pageNum = 1 Then : e.Graphics.DrawImage(memoryImage1, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 2 Then : e.Graphics.DrawImage(memoryImage2, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 3 Then : e.Graphics.DrawImage(memoryImage3, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 4 Then : e.Graphics.DrawImage(memoryImage4, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 5 Then : e.Graphics.DrawImage(memoryImage5, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 6 Then : e.Graphics.DrawImage(memoryImage6, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 7 Then : e.Graphics.DrawImage(memoryImage7, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 8 Then : e.Graphics.DrawImage(memoryImage8, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 9 Then : e.Graphics.DrawImage(memoryImage9, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 10 Then : e.Graphics.DrawImage(memoryImage10, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 11 Then : e.Graphics.DrawImage(memoryImage11, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 12 Then : e.Graphics.DrawImage(memoryImage12, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 13 Then : e.Graphics.DrawImage(memoryImage13, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 14 Then : e.Graphics.DrawImage(memoryImage14, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 15 Then : e.Graphics.DrawImage(memoryImage15, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1 ElseIf pageNum = 16 Then : e.Graphics.DrawImage(memoryImage16, 1, 1, 680, 962) : e.HasMorePages = True If Val(最末頁_cb.Text) = 16 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 16 Then : pageNum += 1 : End If ElseIf pageNum = 17 And Val(最末頁_cb.Text) >= 17 Then : e.Graphics.DrawImage(memoryImage17, 1, 1, 680, 962) : e.HasMorePages = True If Val(最末頁_cb.Text) = 17 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 17 Then : pageNum += 1 : End If ElseIf pageNum = 18 And Val(最末頁_cb.Text) >= 18 Then : e.Graphics.DrawImage(memoryImage18, 1, 1, 680, 962) : e.HasMorePages = True If Val(最末頁_cb.Text) = 18 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 18 Then : pageNum += 1 : End If ElseIf pageNum = 19 And Val(最末頁_cb.Text) >= 19 Then : e.Graphics.DrawImage(memoryImage19, 1, 1, 680, 962) : e.HasMorePages = True If Val(最末頁_cb.Text) = 19 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 19 Then : pageNum += 1 : End If ElseIf pageNum = 20 And Val(最末頁_cb.Text) >= 20 Then : e.Graphics.DrawImage(memoryImage20, 1, 1, 680, 962) : End If End Sub Public Sub Delay(ByRef Interval As Double) 'Interval单位为毫秒 Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : System.Windows.Forms.Application.DoEvents() : End While End Sub Private Sub 列印_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 列印_bt.Click PrintDialog1.Document = PrintDocument1 PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings PrintDialog1.AllowSomePages = True PrintDialog1.Document.DocumentName = 工程名稱_中_tb.Text & ".pdf" If PrintDialog1.ShowDialog = DialogResult.OK Then pageNum = 1 PrintPreviewControl1.Visible = False : PrintPreviewControl1.SendToBack() : Delay(50) Panel1.BringToFront() : Delay(50) : CaptureScreen1() : Panel2.BringToFront() : Delay(50) : CaptureScreen2() : Panel3.BringToFront() : Delay(50) : CaptureScreen3() Panel4.BringToFront() : Delay(50) : CaptureScreen4() : Panel5.BringToFront() : Delay(50) : CaptureScreen5() : Panel6.BringToFront() : Delay(50) : CaptureScreen6() Panel7.BringToFront() : Delay(50) : CaptureScreen7() : Panel8.BringToFront() : Delay(50) : CaptureScreen8() : Panel9.BringToFront() : Delay(50) : CaptureScreen9() Panel10.BringToFront() : Delay(50) : CaptureScreen10() : Panel11.BringToFront() : Delay(50) : CaptureScreen11() : Panel12.BringToFront() : Delay(50) : CaptureScreen12() Panel13.BringToFront() : Delay(50) : CaptureScreen13() : Panel14.BringToFront() : Delay(50) : CaptureScreen14() : Panel15.BringToFront() : Delay(50) : CaptureScreen15() Panel16.BringToFront() : Delay(50) : CaptureScreen16() If Val(最末頁_cb.Text) >= 17 Then : Panel17.BringToFront() : Delay(50) : CaptureScreen17() : End If If Val(最末頁_cb.Text) >= 18 Then : Panel18.BringToFront() : Delay(50) : CaptureScreen18() : End If If Val(最末頁_cb.Text) >= 19 Then : Panel19.BringToFront() : Delay(50) : CaptureScreen19() : End If If Val(最末頁_cb.Text) >= 20 Then : Panel20.BringToFront() : Delay(50) : CaptureScreen20() : End If PrintDocument1.DocumentName = 工程名稱_中_tb.Text & ".pdf" : PrintDocument1.Print() End If End Sub Private Sub 預覽_bt_Click(sender As Object, e As EventArgs) Handles 預覽_bt.Click 關閉預覽_tb.Enabled = True : 預覽_bt.Enabled = False : 列印_bt.Enabled = True : 預覽_nud.Value = 1.4 pageNum = 1 Panel1.BringToFront() : Delay(50) : CaptureScreen1() : Panel2.BringToFront() : Delay(50) : CaptureScreen2() : Panel3.BringToFront() : Delay(50) : CaptureScreen3() Panel4.BringToFront() : Delay(50) : CaptureScreen4() : Panel5.BringToFront() : Delay(50) : CaptureScreen5() : Panel6.BringToFront() : Delay(50) : CaptureScreen6() Panel7.BringToFront() : Delay(50) : CaptureScreen7() : Panel8.BringToFront() : Delay(50) : CaptureScreen8() : Panel9.BringToFront() : Delay(50) : CaptureScreen9() Panel10.BringToFront() : Delay(50) : CaptureScreen10() : Panel11.BringToFront() : Delay(50) : CaptureScreen11() : Panel12.BringToFront() : Delay(50) : CaptureScreen12() Panel13.BringToFront() : Delay(50) : CaptureScreen13() : Panel14.BringToFront() : Delay(50) : CaptureScreen14() : Panel15.BringToFront() : Delay(50) : CaptureScreen15() Panel16.BringToFront() : Delay(50) : CaptureScreen16() If Val(最末頁_cb.Text) >= 17 Then : Panel17.BringToFront() : Delay(50) : CaptureScreen17() : End If If Val(最末頁_cb.Text) >= 18 Then : Panel18.BringToFront() : Delay(50) : CaptureScreen18() : End If If Val(最末頁_cb.Text) >= 19 Then : Panel19.BringToFront() : Delay(50) : CaptureScreen19() : End If If Val(最末頁_cb.Text) >= 20 Then : Panel20.BringToFront() : Delay(50) : CaptureScreen20() : End If PrintPreviewControl1.Visible = True : PrintPreviewControl1.BringToFront() : PrintPreviewControl1.Document = PrintDocument1 End Sub Private Sub 關閉預覽_tb_Click(sender As Object, e As EventArgs) Handles 關閉預覽_tb.Click 關閉預覽_tb.Enabled = False : 預覽_bt.Enabled = True : 列印_bt.Enabled = False : PrintPreviewControl1.Visible = False : PrintPreviewControl1.SendToBack() End Sub Private Sub 上一頁_bt_Click(sender As Object, e As EventArgs) Handles 上一頁_bt.Click If (PrintPreviewControl1.StartPage > 0) Then PrintPreviewControl1.StartPage -= 1 End Sub Private Sub 下一頁_bt_Click(sender As Object, e As EventArgs) Handles 下一頁_bt.Click PrintPreviewControl1.StartPage += 1 End Sub Private Sub 上1頁_bt_Click(sender As Object, e As EventArgs) Handles 上1頁_bt.Click 翻頁_nud.Value -= 1 : 轉跳_cb.Text = 翻頁_nud.Value End Sub Private Sub 下1頁_bt_Click(sender As Object, e As EventArgs) Handles 下1頁_bt.Click 翻頁_nud.Value += 1 : 轉跳_cb.Text = 翻頁_nud.Value End Sub Private Sub 轉跳_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 轉跳_cb.SelectedIndexChanged 翻頁_nud.Value = 轉跳_cb.Text End Sub Private Sub 最末頁_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 最末頁_cb.SelectedIndexChanged 轉跳_cb.Items.Clear() : For I As Integer = 1 To 最末頁_cb.SelectedItem : 轉跳_cb.Items.Add(I) : Next : 頁數_bt.Text = 最末頁_cb.Text For I As Integer = 1 To Val(最末頁_cb.Text) Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel) '---------------------------------------第八章------------------------------------------------------------------------------------- If Val(最末頁_cb.Text) - 4 = I Then For ii As Integer = 121 To 130 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next For ii As Integer = 267 To 302 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next End If '---------------------------------------第九章------------------------------------------------------------------------------------- If Val(最末頁_cb.Text) - 3 = I Then For ii As Integer = 131 To 136 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next For ii As Integer = 228 To 266 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next End If '---------------------------------------第十章------------------------------------------------------------------------------------- If Val(最末頁_cb.Text) - 2 = I Then For ii As Integer = 137 To 140 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next For ii As Integer = 187 To 227 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next End If '---------------------------------------第十一章------------------------------------------------------------------------------------- If Val(最末頁_cb.Text) - 1 = I Then For ii As Integer = 141 To 186 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next End If '---------------------------------------最末頁------------------------------------------------------------------------------------- If Val(最末頁_cb.Text) = I Then For ii As Integer = 1 To 28 : Dim SLBS As Label = CType(Me.Controls.Find("SLB" + (ii).ToString(), True)(0), Label) : SLBS.Parent = PanelS : Next End If Next If Val(最末頁_cb.Text) = 16 Then For ii As Integer = 303 To 482 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next ElseIf Val(最末頁_cb.Text) = 17 Then For ii As Integer = 303 To 437 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next 整頁呈現12() ElseIf Val(最末頁_cb.Text) = 18 Then For ii As Integer = 303 To 392 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next 整頁呈現13() : 整頁呈現12() ElseIf Val(最末頁_cb.Text) = 19 Then For ii As Integer = 348 To 392 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next 整頁呈現14() : 整頁呈現13() : 整頁呈現12() ElseIf Val(最末頁_cb.Text) = 20 Then 整頁呈現15() : 整頁呈現14() : 整頁呈現13() : 整頁呈現12() End If : 浮水印() End Sub Private Sub 整頁呈現12() LB438.Text = "第X條、XXXX" : LB439.Text = "Article X (XXX) XXXXXXXXXX" LB440.Text = "__________________________________________________________________________________________________________________________________________________________________________________" LB441.Text = "X、" : LB442.Text = "XXXXX。" : LB443.Text = "XXXXX." : LB444.Text = "X、" : LB445.Text = "XXXXX。" : LB446.Text = "XXXXX." LB447.Text = "X、" : LB448.Text = "XXXXX。" : LB449.Text = "XXXXX." : LB450.Text = "X、" : LB451.Text = "XXXXX。" : LB452.Text = "XXXXX." LB453.Text = "X、" : LB454.Text = "XXXXX。" : LB455.Text = "XXXXX." : LB456.Text = "X、" : LB457.Text = "XXXXX。" : LB458.Text = "XXXXX." LB459.Text = "X、" : LB460.Text = "XXXXX。" : LB461.Text = "XXXXX." : LB462.Text = "X、" : LB463.Text = "XXXXX。" : LB464.Text = "XXXXX." LB465.Text = "X、" : LB466.Text = "XXXXX。" : LB467.Text = "XXXXX." : LB468.Text = "X、" : LB469.Text = "XXXXX。" : LB470.Text = "XXXXX." LB471.Text = "X、" : LB472.Text = "XXXXX。" : LB473.Text = "XXXXX." : LB474.Text = "X、" : LB475.Text = "XXXXX。" : LB476.Text = "XXXXX." LB477.Text = "X、" : LB478.Text = "XXXXX。" : LB479.Text = "XXXXX." : LB480.Text = "X、" : LB481.Text = "XXXXX。" : LB482.Text = "XXXXX." End Sub Private Sub 整頁呈現13() LB393.Text = "第X條、XXXX" : LB394.Text = "Article X (XXX) XXXXXXXXXX" LB395.Text = "__________________________________________________________________________________________________________________________________________________________________________________" LB396.Text = "X、" : LB397.Text = "XXXXX。" : LB398.Text = "XXXXX." : LB399.Text = "X、" : LB400.Text = "XXXXX。" : LB401.Text = "XXXXX." LB402.Text = "X、" : LB403.Text = "XXXXX。" : LB404.Text = "XXXXX." : LB405.Text = "X、" : LB406.Text = "XXXXX。" : LB407.Text = "XXXXX." LB408.Text = "X、" : LB409.Text = "XXXXX。" : LB410.Text = "XXXXX." : LB411.Text = "X、" : LB412.Text = "XXXXX。" : LB413.Text = "XXXXX." LB414.Text = "X、" : LB415.Text = "XXXXX。" : LB416.Text = "XXXXX." : LB417.Text = "X、" : LB418.Text = "XXXXX。" : LB419.Text = "XXXXX." LB420.Text = "X、" : LB421.Text = "XXXXX。" : LB422.Text = "XXXXX." : LB423.Text = "X、" : LB424.Text = "XXXXX。" : LB425.Text = "XXXXX." LB426.Text = "X、" : LB427.Text = "XXXXX。" : LB428.Text = "XXXXX." : LB429.Text = "X、" : LB430.Text = "XXXXX。" : LB431.Text = "XXXXX." LB432.Text = "X、" : LB433.Text = "XXXXX。" : LB434.Text = "XXXXX." : LB435.Text = "X、" : LB436.Text = "XXXXX。" : LB437.Text = "XXXXX." End Sub Private Sub 整頁呈現14() LB348.Text = "第X條、XXXX" : LB349.Text = "Article X (XXX) XXXXXXXXXX" LB350.Text = "__________________________________________________________________________________________________________________________________________________________________________________" LB351.Text = "X、" : LB352.Text = "XXXXX。" : LB353.Text = "XXXXX." : LB354.Text = "X、" : LB355.Text = "XXXXX。" : LB356.Text = "XXXXX." LB357.Text = "X、" : LB358.Text = "XXXXX。" : LB359.Text = "XXXXX." : LB360.Text = "X、" : LB361.Text = "XXXXX。" : LB362.Text = "XXXXX." LB363.Text = "X、" : LB364.Text = "XXXXX。" : LB365.Text = "XXXXX." : LB366.Text = "X、" : LB367.Text = "XXXXX。" : LB368.Text = "XXXXX." LB369.Text = "X、" : LB370.Text = "XXXXX。" : LB371.Text = "XXXXX." : LB372.Text = "X、" : LB373.Text = "XXXXX。" : LB374.Text = "XXXXX." LB375.Text = "X、" : LB376.Text = "XXXXX。" : LB377.Text = "XXXXX." : LB378.Text = "X、" : LB379.Text = "XXXXX。" : LB380.Text = "XXXXX." LB381.Text = "X、" : LB382.Text = "XXXXX。" : LB383.Text = "XXXXX." : LB384.Text = "X、" : LB385.Text = "XXXXX。" : LB386.Text = "XXXXX." LB387.Text = "X、" : LB388.Text = "XXXXX。" : LB389.Text = "XXXXX." : LB390.Text = "X、" : LB391.Text = "XXXXX。" : LB392.Text = "XXXXX." End Sub Private Sub 整頁呈現15() LB303.Text = "第X條、XXXX" : LB304.Text = "Article X (XXX) XXXXXXXXXX" LB305.Text = "__________________________________________________________________________________________________________________________________________________________________________________" LB306.Text = "X、" : LB307.Text = "XXXXX。" : LB308.Text = "XXXXX." : LB309.Text = "X、" : LB310.Text = "XXXXX。" : LB311.Text = "XXXXX." LB312.Text = "X、" : LB313.Text = "XXXXX。" : LB314.Text = "XXXXX." : LB315.Text = "X、" : LB316.Text = "XXXXX。" : LB317.Text = "XXXXX." LB318.Text = "X、" : LB319.Text = "XXXXX。" : LB320.Text = "XXXXX." : LB321.Text = "X、" : LB322.Text = "XXXXX。" : LB323.Text = "XXXXX." LB324.Text = "X、" : LB325.Text = "XXXXX。" : LB326.Text = "XXXXX." : LB327.Text = "X、" : LB328.Text = "XXXXX。" : LB329.Text = "XXXXX." LB330.Text = "X、" : LB331.Text = "XXXXX。" : LB332.Text = "XXXXX." : LB333.Text = "X、" : LB334.Text = "XXXXX。" : LB335.Text = "XXXXX." LB336.Text = "X、" : LB337.Text = "XXXXX。" : LB338.Text = "XXXXX." : LB339.Text = "X、" : LB340.Text = "XXXXX。" : LB341.Text = "XXXXX." LB342.Text = "X、" : LB343.Text = "XXXXX。" : LB344.Text = "XXXXX." : LB345.Text = "X、" : LB346.Text = "XXXXX。" : LB347.Text = "XXXXX." End Sub Private Sub 翻頁_nud_ValueChanged(sender As Object, e As EventArgs) Handles 翻頁_nud.ValueChanged If 翻頁_nud.Value = 1 Then : 上1頁_bt.Enabled = False : 下1頁_bt.Enabled = True ElseIf 翻頁_nud.Value = 20 Or Val(最末頁_cb.Text) = 翻頁_nud.Value Then : 上1頁_bt.Enabled = True : 下1頁_bt.Enabled = False ElseIf 翻頁_nud.Value < 20 And 翻頁_nud.Value > 1 And Val(最末頁_cb.Text) = 翻頁_nud.Value Then : 上1頁_bt.Enabled = True : 下1頁_bt.Enabled = False ElseIf 翻頁_nud.Value < 20 And 翻頁_nud.Value > 1 And Val(最末頁_cb.Text) > 翻頁_nud.Value Then : 上1頁_bt.Enabled = True : 下1頁_bt.Enabled = True : End If For I As Integer = 1 To Val(最末頁_cb.Text) Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel) : If 翻頁_nud.Value = I Then : PanelS.BringToFront() : End If Next End Sub Private Sub PrintPreviewControl1_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PrintPreviewControl1.MouseWheel If e.Delta > 0 And 預覽_nud.Value < 1.5 Then : 預覽_nud.Value += 0.1 : ElseIf e.Delta < 0 And 預覽_nud.Value > 0 Then : 預覽_nud.Value -= 0.1 : End If End Sub Private Sub 預覽_nud_ValueChanged(sender As Object, e As EventArgs) Handles 預覽_nud.ValueChanged PrintPreviewControl1.Zoom = 預覽_nud.Value End Sub Private Sub LB1_Click(sender As Object, e As EventArgs) Handles LB1.Click PA = LB1.Text : 合約內文修改視窗.ShowDialog() : LB1.Text = PA End Sub Private Sub LB2_Click(sender As Object, e As EventArgs) Handles LB2.Click PA = LB2.Text : 合約內文修改視窗.ShowDialog() : LB2.Text = PA End Sub Private Sub LB3_Click(sender As Object, e As EventArgs) Handles LB3.Click PA = LB3.Text : 合約內文修改視窗.ShowDialog() : LB3.Text = PA End Sub Private Sub LB4_Click(sender As Object, e As EventArgs) Handles LB4.Click PA = LB4.Text : 合約內文修改視窗.ShowDialog() : LB4.Text = PA End Sub Private Sub LB5_Click(sender As Object, e As EventArgs) Handles LB5.Click PA = LB5.Text : 合約內文修改視窗.ShowDialog() : LB5.Text = PA End Sub Private Sub LB6_Click(sender As Object, e As EventArgs) Handles LB6.Click PA = LB6.Text : 合約內文修改視窗.ShowDialog() : LB6.Text = PA End Sub Private Sub LB21_Click(sender As Object, e As EventArgs) Handles LB21.Click PA = LB21.Text : 合約內文修改視窗.ShowDialog() : LB21.Text = PA End Sub Private Sub LB22_Click(sender As Object, e As EventArgs) Handles LB22.Click PA = LB22.Text : 合約內文修改視窗.ShowDialog() : LB22.Text = PA End Sub Private Sub LB23_Click(sender As Object, e As EventArgs) Handles LB23.Click PA = LB23.Text : 合約內文修改視窗.ShowDialog() : LB23.Text = PA End Sub Private Sub LB24_Click(sender As Object, e As EventArgs) Handles LB24.Click PA = LB24.Text : 合約內文修改視窗.ShowDialog() : LB24.Text = PA End Sub Private Sub LB25_Click(sender As Object, e As EventArgs) Handles LB25.Click PA = LB25.Text : 合約內文修改視窗.ShowDialog() : LB25.Text = PA End Sub Private Sub LB26_Click(sender As Object, e As EventArgs) Handles LB26.Click PA = LB26.Text : 合約內文修改視窗.ShowDialog() : LB26.Text = PA End Sub Private Sub LB27_Click(sender As Object, e As EventArgs) Handles LB27.Click PA = LB27.Text : 合約內文修改視窗.ShowDialog() : LB27.Text = PA End Sub Private Sub LB28_Click(sender As Object, e As EventArgs) Handles LB28.Click PA = LB28.Text : 合約內文修改視窗.ShowDialog() : LB28.Text = PA End Sub Private Sub LB29_Click(sender As Object, e As EventArgs) Handles LB29.Click PA = LB29.Text : 合約內文修改視窗.ShowDialog() : LB29.Text = PA End Sub Private Sub LB30_Click(sender As Object, e As EventArgs) Handles LB30.Click PA = LB30.Text : 合約內文修改視窗.ShowDialog() : LB30.Text = PA End Sub Private Sub LB33_Click(sender As Object, e As EventArgs) Handles LB33.Click PA = LB33.Text : 合約內文修改視窗.ShowDialog() : LB33.Text = PA End Sub Private Sub LB34_Click(sender As Object, e As EventArgs) Handles LB34.Click PA = LB34.Text : 合約內文修改視窗.ShowDialog() : LB34.Text = PA End Sub Private Sub LB39_Click(sender As Object, e As EventArgs) Handles LB39.Click PA = LB39.Text : 合約內文修改視窗.ShowDialog() : LB39.Text = PA End Sub Private Sub LB40_Click(sender As Object, e As EventArgs) Handles LB40.Click PA = LB40.Text : 合約內文修改視窗.ShowDialog() : LB40.Text = PA End Sub Private Sub LB41_Click(sender As Object, e As EventArgs) Handles LB41.Click PA = LB41.Text : 合約內文修改視窗.ShowDialog() : LB41.Text = PA End Sub Private Sub LB42_Click(sender As Object, e As EventArgs) Handles LB42.Click PA = LB42.Text : 合約內文修改視窗.ShowDialog() : LB42.Text = PA End Sub Private Sub LB43_Click(sender As Object, e As EventArgs) Handles LB43.Click PA = LB43.Text : 合約內文修改視窗.ShowDialog() : LB43.Text = PA End Sub Private Sub LB44_Click(sender As Object, e As EventArgs) Handles LB44.Click PA = LB44.Text : 合約內文修改視窗.ShowDialog() : LB44.Text = PA End Sub Private Sub LB50_Click(sender As Object, e As EventArgs) Handles LB50.Click PA = LB50.Text : 合約內文修改視窗.ShowDialog() : LB50.Text = PA End Sub Private Sub LB51_Click(sender As Object, e As EventArgs) Handles LB51.Click PA = LB51.Text : 合約內文修改視窗.ShowDialog() : LB51.Text = PA End Sub Private Sub LB52_Click(sender As Object, e As EventArgs) Handles LB52.Click PA = LB52.Text : 合約內文修改視窗.ShowDialog() : LB52.Text = PA End Sub Private Sub LB53_Click(sender As Object, e As EventArgs) Handles LB53.Click PA = LB53.Text : 合約內文修改視窗.ShowDialog() : LB53.Text = PA End Sub Private Sub LB56_Click(sender As Object, e As EventArgs) Handles LB56.Click PA = LB56.Text : 合約內文修改視窗.ShowDialog() : LB56.Text = PA End Sub Private Sub LB57_Click(sender As Object, e As EventArgs) Handles LB57.Click PA = LB57.Text : 合約內文修改視窗.ShowDialog() : LB57.Text = PA End Sub Private Sub LB58_Click(sender As Object, e As EventArgs) Handles LB58.Click PA = LB58.Text : 合約內文修改視窗.ShowDialog() : LB58.Text = PA End Sub Private Sub LB59_Click(sender As Object, e As EventArgs) Handles LB59.Click PA = LB59.Text : 合約內文修改視窗.ShowDialog() : LB59.Text = PA End Sub Private Sub LB60_Click(sender As Object, e As EventArgs) Handles LB60.Click PA = LB60.Text : 合約內文修改視窗.ShowDialog() : LB60.Text = PA End Sub Private Sub LB61_Click(sender As Object, e As EventArgs) Handles LB61.Click PA = LB61.Text : 合約內文修改視窗.ShowDialog() : LB61.Text = PA End Sub Private Sub LB62_Click(sender As Object, e As EventArgs) Handles LB62.Click PA = LB62.Text : 合約內文修改視窗.ShowDialog() : LB62.Text = PA End Sub Private Sub LB68_Click(sender As Object, e As EventArgs) Handles LB68.Click PA = LB68.Text : 合約內文修改視窗.ShowDialog() : LB68.Text = PA End Sub Private Sub LB69_Click(sender As Object, e As EventArgs) Handles LB69.Click PA = LB69.Text : 合約內文修改視窗.ShowDialog() : LB69.Text = PA End Sub Private Sub LB70_Click(sender As Object, e As EventArgs) Handles LB70.Click PA = LB70.Text : 合約內文修改視窗.ShowDialog() : LB70.Text = PA End Sub Private Sub LB71_Click(sender As Object, e As EventArgs) Handles LB71.Click PA = LB71.Text : 合約內文修改視窗.ShowDialog() : LB71.Text = PA End Sub Private Sub LB77_Click(sender As Object, e As EventArgs) Handles LB77.Click PA = LB77.Text : 合約內文修改視窗.ShowDialog() : LB77.Text = PA End Sub Private Sub LB78_Click(sender As Object, e As EventArgs) Handles LB78.Click PA = LB78.Text : 合約內文修改視窗.ShowDialog() : LB78.Text = PA End Sub Private Sub LB79_Click(sender As Object, e As EventArgs) Handles LB79.Click PA = LB79.Text : 合約內文修改視窗.ShowDialog() : LB79.Text = PA End Sub Private Sub LB80_Click(sender As Object, e As EventArgs) Handles LB80.Click PA = LB80.Text : 合約內文修改視窗.ShowDialog() : LB80.Text = PA End Sub Private Sub LB81_Click(sender As Object, e As EventArgs) Handles LB81.Click PA = LB81.Text : 合約內文修改視窗.ShowDialog() : LB81.Text = PA End Sub Private Sub LB94_Click(sender As Object, e As EventArgs) Handles LB94.Click PA = LB94.Text : 合約內文修改視窗.ShowDialog() : LB94.Text = PA End Sub Private Sub LB95_Click(sender As Object, e As EventArgs) Handles LB95.Click PA = LB95.Text : 合約內文修改視窗.ShowDialog() : LB95.Text = PA End Sub Private Sub LB96_Click(sender As Object, e As EventArgs) Handles LB96.Click PA = LB96.Text : 合約內文修改視窗.ShowDialog() : LB96.Text = PA End Sub Private Sub LB97_Click(sender As Object, e As EventArgs) Handles LB97.Click PA = LB97.Text : 合約內文修改視窗.ShowDialog() : LB97.Text = PA End Sub Private Sub LB98_Click(sender As Object, e As EventArgs) Handles LB98.Click PA = LB98.Text : 合約內文修改視窗.ShowDialog() : LB98.Text = PA End Sub Private Sub LB99_Click(sender As Object, e As EventArgs) Handles LB99.Click PA = LB99.Text : 合約內文修改視窗.ShowDialog() : LB99.Text = PA End Sub Private Sub LB100_Click(sender As Object, e As EventArgs) Handles LB100.Click PA = LB100.Text : 合約內文修改視窗.ShowDialog() : LB100.Text = PA End Sub Private Sub LB101_Click(sender As Object, e As EventArgs) Handles LB101.Click PA = LB101.Text : 合約內文修改視窗.ShowDialog() : LB101.Text = PA End Sub Private Sub LB102_Click(sender As Object, e As EventArgs) Handles LB102.Click PA = LB102.Text : 合約內文修改視窗.ShowDialog() : LB102.Text = PA End Sub '---------------------------第十一章---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB141_移動() Dim sx, sxx As Integer : sx = LB141.Size.Height : sxx = LB141.Location.Y : LB142.Location = New Drawing.Point(40, sxx + sx + 10) End Sub Private Sub LB141_Click(sender As Object, e As EventArgs) Handles LB141.Click PA = LB141.Text : 合約內文修改視窗.ShowDialog() : LB141.Text = PA : LB141_移動() End Sub Private Sub LB141_LocationChanged(sender As Object, e As EventArgs) Handles LB141.LocationChanged LB141_移動() End Sub Private Sub LB141_TextChanged(sender As Object, e As EventArgs) Handles LB141.TextChanged LB141_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB142_移動() Dim sx, sxx As Integer : sx = LB142.Size.Height : sxx = LB142.Location.Y : LB157.Location = New Drawing.Point(6, sxx + sx + 10) : LB143.Location = New Drawing.Point(40, sxx + sx + 10) End Sub Private Sub LB142_Click(sender As Object, e As EventArgs) Handles LB142.Click PA = LB142.Text : 合約內文修改視窗.ShowDialog() : LB142.Text = PA : LB142_移動() End Sub Private Sub LB142_LocationChanged(sender As Object, e As EventArgs) Handles LB142.LocationChanged LB142_移動() End Sub Private Sub LB142_TextChanged(sender As Object, e As EventArgs) Handles LB142.TextChanged LB142_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB143_移動() Dim sx, sxx As Integer : sx = LB143.Size.Height : sxx = LB143.Location.Y : LB144.Location = New Drawing.Point(40, sxx + sx + 10) End Sub Private Sub LB143_Click(sender As Object, e As EventArgs) Handles LB143.Click PA = LB143.Text : 合約內文修改視窗.ShowDialog() : LB143.Text = PA : LB143_移動() End Sub Private Sub LB143_LocationChanged(sender As Object, e As EventArgs) Handles LB143.LocationChanged LB143_移動() End Sub Private Sub LB143_TextChanged(sender As Object, e As EventArgs) Handles LB143.TextChanged LB143_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB144_移動() Dim sx, sxx As Integer : sx = LB144.Size.Height : sxx = LB144.Location.Y : LB158.Location = New Drawing.Point(6, sxx + sx + 10) : LB159.Location = New Drawing.Point(40, sxx + sx + 10) End Sub Private Sub LB144_Click(sender As Object, e As EventArgs) Handles LB144.Click PA = LB144.Text : 合約內文修改視窗.ShowDialog() : LB144.Text = PA : LB144_移動() End Sub Private Sub LB144_LocationChanged(sender As Object, e As EventArgs) Handles LB144.LocationChanged LB144_移動() End Sub Private Sub LB144_TextChanged(sender As Object, e As EventArgs) Handles LB144.TextChanged LB144_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB145_移動() Dim sx, sxx As Integer : sx = LB145.Size.Height : sxx = LB145.Location.Y : LB147.Location = New Drawing.Point(40, sxx + sx) End Sub Private Sub LB145_Click(sender As Object, e As EventArgs) Handles LB145.Click PA = LB145.Text : 合約內文修改視窗.ShowDialog() : LB145.Text = PA : LB145_移動() End Sub Private Sub LB145_LocationChanged(sender As Object, e As EventArgs) Handles LB145.LocationChanged LB145_移動() End Sub Private Sub LB145_TextChanged(sender As Object, e As EventArgs) Handles LB145.TextChanged LB145_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB146_Click(sender As Object, e As EventArgs) Handles LB146.Click PA = LB146.Text : 合約內文修改視窗.ShowDialog() : LB146.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB147_移動() Dim sx, sxx As Integer : sx = LB147.Size.Height : sxx = LB147.Location.Y : LB148.Location = New Drawing.Point(40, sxx + sx) : LB163.Location = New Drawing.Point(164, sxx + sx) End Sub Private Sub LB147_Click(sender As Object, e As EventArgs) Handles LB147.Click PA = LB147.Text : 合約內文修改視窗.ShowDialog() : LB147.Text = PA : LB147_移動() End Sub Private Sub LB147_LocationChanged(sender As Object, e As EventArgs) Handles LB147.LocationChanged LB147_移動() End Sub Private Sub LB147_TextChanged(sender As Object, e As EventArgs) Handles LB147.TextChanged LB147_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB148_Click(sender As Object, e As EventArgs) Handles LB148.Click PA = LB148.Text : 合約內文修改視窗.ShowDialog() : LB148.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB149_移動() Dim sx, sxx As Integer : sx = LB149.Size.Height : sxx = LB149.Location.Y LB150.Location = New Drawing.Point(40, sxx + sx) : LB165.Location = New Drawing.Point(498, sxx + sx) : LB151.Location = New Drawing.Point(576, sxx + sx) End Sub Private Sub LB149_Click(sender As Object, e As EventArgs) Handles LB149.Click PA = LB149.Text : 合約內文修改視窗.ShowDialog() : LB149.Text = PA : LB149_移動() End Sub Private Sub LB149_LocationChanged(sender As Object, e As EventArgs) Handles LB149.LocationChanged LB149_移動() End Sub Private Sub LB149_TextChanged(sender As Object, e As EventArgs) Handles LB149.TextChanged LB149_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB150_移動() Dim sx, sxx As Integer : sx = LB150.Size.Height : sxx = LB150.Location.Y : LB152.Location = New Drawing.Point(40, sxx + sx) End Sub Private Sub LB150_Click(sender As Object, e As EventArgs) Handles LB150.Click PA = LB150.Text : 合約內文修改視窗.ShowDialog() : LB150.Text = PA : LB150_移動() End Sub Private Sub LB150_LocationChanged(sender As Object, e As EventArgs) Handles LB150.LocationChanged LB150_移動() End Sub Private Sub LB150_TextChanged(sender As Object, e As EventArgs) Handles LB150.TextChanged LB150_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB151_Click(sender As Object, e As EventArgs) Handles LB151.Click PA = LB151.Text : 合約內文修改視窗.ShowDialog() : LB151.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB152_移動() Dim sx, sxx As Integer : sx = LB152.Size.Height : sxx = LB152.Location.Y : LB166.Location = New Drawing.Point(6, sxx + sx + 10) : LB167.Location = New Drawing.Point(40, sxx + sx + 10) End Sub Private Sub LB152_Click(sender As Object, e As EventArgs) Handles LB152.Click PA = LB152.Text : 合約內文修改視窗.ShowDialog() : LB152.Text = PA : LB152_移動() End Sub Private Sub LB152_LocationChanged(sender As Object, e As EventArgs) Handles LB152.LocationChanged LB152_移動() End Sub Private Sub LB152_TextChanged(sender As Object, e As EventArgs) Handles LB152.TextChanged LB152_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB153_Click(sender As Object, e As EventArgs) Handles LB153.Click PA = LB153.Text : 合約內文修改視窗.ShowDialog() : LB153.Text = PA End Sub Private Sub LB154_Click(sender As Object, e As EventArgs) Handles LB154.Click PA = LB154.Text : 合約內文修改視窗.ShowDialog() : LB154.Text = PA End Sub Private Sub LB155_Click(sender As Object, e As EventArgs) Handles LB155.Click PA = LB155.Text : 合約內文修改視窗.ShowDialog() : LB155.Text = PA End Sub Private Sub LB156_Click(sender As Object, e As EventArgs) Handles LB156.Click PA = LB156.Text : 合約內文修改視窗.ShowDialog() : LB156.Text = PA End Sub Private Sub LB157_Click(sender As Object, e As EventArgs) Handles LB157.Click PA = LB157.Text : 合約內文修改視窗.ShowDialog() : LB157.Text = PA End Sub Private Sub LB158_Click(sender As Object, e As EventArgs) Handles LB158.Click PA = LB158.Text : 合約內文修改視窗.ShowDialog() : LB158.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB159_移動() Dim sx, sxx As Integer : sx = LB159.Size.Height : sxx = LB159.Location.Y : LB160.Location = New Drawing.Point(40, sxx + sx) End Sub Private Sub LB159_Click(sender As Object, e As EventArgs) Handles LB159.Click PA = LB159.Text : 合約內文修改視窗.ShowDialog() : LB159.Text = PA : LB159_移動() End Sub Private Sub LB159_LocationChanged(sender As Object, e As EventArgs) Handles LB159.LocationChanged LB159_移動() End Sub Private Sub LB159_TextChanged(sender As Object, e As EventArgs) Handles LB159.TextChanged LB159_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB160_移動() Dim sx, sxx As Integer : sx = LB160.Size.Height : sxx = LB160.Location.Y : LB161.Location = New Drawing.Point(40, sxx + sx) End Sub Private Sub LB160_Click(sender As Object, e As EventArgs) Handles LB160.Click PA = LB160.Text : 合約內文修改視窗.ShowDialog() : LB160.Text = PA : LB160_移動() End Sub Private Sub LB160_LocationChanged(sender As Object, e As EventArgs) Handles LB160.LocationChanged LB160_移動() End Sub Private Sub LB160_TextChanged(sender As Object, e As EventArgs) Handles LB160.TextChanged LB160_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB161_移動() Dim sx, sxx As Integer : sx = LB161.Size.Height : sxx = LB161.Location.Y LB145.Location = New Drawing.Point(40, sxx + sx) : LB162.Location = New Drawing.Point(251, sxx + sx) : LB146.Location = New Drawing.Point(332, sxx + sx) End Sub Private Sub LB161_Click(sender As Object, e As EventArgs) Handles LB161.Click PA = LB161.Text : 合約內文修改視窗.ShowDialog() : LB161.Text = PA : LB161_移動() End Sub Private Sub LB161_LocationChanged(sender As Object, e As EventArgs) Handles LB161.LocationChanged LB161_移動() End Sub Private Sub LB161_TextChanged(sender As Object, e As EventArgs) Handles LB161.TextChanged LB161_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB162_Click(sender As Object, e As EventArgs) Handles LB162.Click PA = LB162.Text : 合約內文修改視窗.ShowDialog() : LB162.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB163_移動() Dim sx, sxx As Integer : sx = LB163.Size.Height : sxx = LB163.Location.Y : LB149.Location = New Drawing.Point(40, sxx + sx) : LB164.Location = New Drawing.Point(88, sxx + sx) End Sub Private Sub LB163_Click(sender As Object, e As EventArgs) Handles LB163.Click PA = LB163.Text : 合約內文修改視窗.ShowDialog() : LB163.Text = PA : LB163_移動() End Sub Private Sub LB163_LocationChanged(sender As Object, e As EventArgs) Handles LB163.LocationChanged LB163_移動() End Sub Private Sub LB163_TextChanged(sender As Object, e As EventArgs) Handles LB163.TextChanged LB163_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB164_移動() Dim sx, sxx As Integer : sx = LB164.Size.Height : sxx = LB164.Location.Y LB150.Location = New Drawing.Point(40, sxx + sx) : LB165.Location = New Drawing.Point(498, sxx + sx) : LB151.Location = New Drawing.Point(576, sxx + sx) End Sub Private Sub LB164_Click(sender As Object, e As EventArgs) Handles LB164.Click PA = LB164.Text : 合約內文修改視窗.ShowDialog() : LB164.Text = PA : LB164_移動() End Sub Private Sub LB164_LocationChanged(sender As Object, e As EventArgs) Handles LB164.LocationChanged LB164_移動() End Sub Private Sub LB164_TextChanged(sender As Object, e As EventArgs) Handles LB164.TextChanged LB164_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB165_Click(sender As Object, e As EventArgs) Handles LB165.Click PA = LB165.Text : 合約內文修改視窗.ShowDialog() : LB165.Text = PA End Sub Private Sub LB166_Click(sender As Object, e As EventArgs) Handles LB166.Click NU5 = LB166.Location.X : BL1 = True : PA = LB166.Text : 合約內文修改視窗.ShowDialog() : LB166.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB166.Location.Y : LB166.Location = New Drawing.Point(syy1, sxx) sxx = LB167.Location.Y : LB167.Location = New Drawing.Point(syy2, sxx) : sxx = LB168.Location.Y : LB168.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB167_移動() Dim sx, sxx As Integer : sx = LB167.Size.Height : sxx = LB167.Location.Y : NU4 = LB168.Location.X : LB168.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB167_Click(sender As Object, e As EventArgs) Handles LB167.Click PA = LB167.Text : 合約內文修改視窗.ShowDialog() : LB167.Text = PA : LB167_移動() End Sub Private Sub LB167_LocationChanged(sender As Object, e As EventArgs) Handles LB167.LocationChanged LB167_移動() End Sub Private Sub LB167_TextChanged(sender As Object, e As EventArgs) Handles LB167.TextChanged LB167_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB168_移動() Dim sx, sxx As Integer : sx = LB168.Size.Height : sxx = LB168.Location.Y : NU3 = LB169.Location.X : NU4 = LB170.Location.X LB169.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB170.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB168_Click(sender As Object, e As EventArgs) Handles LB168.Click PA = LB168.Text : 合約內文修改視窗.ShowDialog() : LB168.Text = PA : LB168_移動() End Sub Private Sub LB168_LocationChanged(sender As Object, e As EventArgs) Handles LB168.LocationChanged LB168_移動() End Sub Private Sub LB168_TextChanged(sender As Object, e As EventArgs) Handles LB168.TextChanged LB168_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB169_Click(sender As Object, e As EventArgs) Handles LB169.Click NU5 = LB169.Location.X : BL1 = True : PA = LB169.Text : 合約內文修改視窗.ShowDialog() : LB169.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB169.Location.Y : LB169.Location = New Drawing.Point(syy1, sxx) sxx = LB170.Location.Y : LB170.Location = New Drawing.Point(syy2, sxx) : sxx = LB171.Location.Y : LB171.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB170_移動() Dim sx, sxx As Integer : sx = LB170.Size.Height : sxx = LB170.Location.Y : NU4 = LB171.Location.X : LB171.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB170_Click(sender As Object, e As EventArgs) Handles LB170.Click PA = LB170.Text : 合約內文修改視窗.ShowDialog() : LB170.Text = PA : LB170_移動() End Sub Private Sub LB170_LocationChanged(sender As Object, e As EventArgs) Handles LB170.LocationChanged LB170_移動() End Sub Private Sub LB170_TextChanged(sender As Object, e As EventArgs) Handles LB170.TextChanged LB170_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB171_移動() Dim sx, sxx As Integer : sx = LB171.Size.Height : sxx = LB171.Location.Y : NU3 = LB172.Location.X : NU4 = LB173.Location.X LB172.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB173.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB171_Click(sender As Object, e As EventArgs) Handles LB171.Click PA = LB171.Text : 合約內文修改視窗.ShowDialog() : LB171.Text = PA : LB171_移動() End Sub Private Sub LB171_LocationChanged(sender As Object, e As EventArgs) Handles LB171.LocationChanged LB171_移動() End Sub Private Sub LB171_TextChanged(sender As Object, e As EventArgs) Handles LB171.TextChanged LB171_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB172_Click(sender As Object, e As EventArgs) Handles LB172.Click NU5 = LB172.Location.X : BL1 = True : PA = LB172.Text : 合約內文修改視窗.ShowDialog() : LB172.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB172.Location.Y : LB172.Location = New Drawing.Point(syy1, sxx) sxx = LB173.Location.Y : LB173.Location = New Drawing.Point(syy2, sxx) : sxx = LB174.Location.Y : LB174.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB173_移動() Dim sx, sxx As Integer : sx = LB173.Size.Height : sxx = LB173.Location.Y : NU4 = LB174.Location.X : LB174.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB173_Click(sender As Object, e As EventArgs) Handles LB173.Click PA = LB173.Text : 合約內文修改視窗.ShowDialog() : LB173.Text = PA : LB173_移動() End Sub Private Sub LB173_LocationChanged(sender As Object, e As EventArgs) Handles LB173.LocationChanged LB173_移動() End Sub Private Sub LB173_TextChanged(sender As Object, e As EventArgs) Handles LB173.TextChanged LB173_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB174_移動() Dim sx, sxx As Integer : sx = LB174.Size.Height : sxx = LB174.Location.Y : NU3 = LB175.Location.X : NU4 = LB176.Location.X LB175.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB176.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB174_Click(sender As Object, e As EventArgs) Handles LB174.Click PA = LB174.Text : 合約內文修改視窗.ShowDialog() : LB174.Text = PA : LB174_移動() End Sub Private Sub LB174_LocationChanged(sender As Object, e As EventArgs) Handles LB174.LocationChanged LB174_移動() End Sub Private Sub LB174_TextChanged(sender As Object, e As EventArgs) Handles LB174.TextChanged LB174_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB175_Click(sender As Object, e As EventArgs) Handles LB175.Click NU5 = LB175.Location.X : BL1 = True : PA = LB175.Text : 合約內文修改視窗.ShowDialog() : LB175.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB175.Location.Y : LB175.Location = New Drawing.Point(syy1, sxx) sxx = LB176.Location.Y : LB176.Location = New Drawing.Point(syy2, sxx) : sxx = LB177.Location.Y : LB177.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB176_移動() Dim sx, sxx As Integer : sx = LB176.Size.Height : sxx = LB176.Location.Y : NU4 = LB177.Location.X : LB177.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB176_Click(sender As Object, e As EventArgs) Handles LB176.Click PA = LB176.Text : 合約內文修改視窗.ShowDialog() : LB176.Text = PA : LB176_移動() End Sub Private Sub LB176_LocationChanged(sender As Object, e As EventArgs) Handles LB176.LocationChanged LB176_移動() End Sub Private Sub LB176_TextChanged(sender As Object, e As EventArgs) Handles LB176.TextChanged LB176_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB177_移動() Dim sx, sxx As Integer : sx = LB177.Size.Height : sxx = LB177.Location.Y : NU3 = LB178.Location.X : NU4 = LB179.Location.X LB178.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB179.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB177_Click(sender As Object, e As EventArgs) Handles LB177.Click PA = LB177.Text : 合約內文修改視窗.ShowDialog() : LB177.Text = PA : LB177_移動() End Sub Private Sub LB177_LocationChanged(sender As Object, e As EventArgs) Handles LB177.LocationChanged LB177_移動() End Sub Private Sub LB177_TextChanged(sender As Object, e As EventArgs) Handles LB177.TextChanged LB177_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB178_Click(sender As Object, e As EventArgs) Handles LB178.Click NU5 = LB178.Location.X : BL1 = True : PA = LB178.Text : 合約內文修改視窗.ShowDialog() : LB178.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB178.Location.Y : LB178.Location = New Drawing.Point(syy1, sxx) sxx = LB179.Location.Y : LB179.Location = New Drawing.Point(syy2, sxx) : sxx = LB180.Location.Y : LB180.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB179_移動() Dim sx, sxx As Integer : sx = LB179.Size.Height : sxx = LB179.Location.Y : NU4 = LB180.Location.X : LB180.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB179_Click(sender As Object, e As EventArgs) Handles LB179.Click PA = LB179.Text : 合約內文修改視窗.ShowDialog() : LB179.Text = PA End Sub Private Sub LB179_LocationChanged(sender As Object, e As EventArgs) Handles LB179.LocationChanged LB179_移動() End Sub Private Sub LB179_TextChanged(sender As Object, e As EventArgs) Handles LB179.TextChanged LB179_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB180_移動() Dim sx, sxx As Integer : sx = LB180.Size.Height : sxx = LB180.Location.Y : NU3 = LB181.Location.X : NU4 = LB182.Location.X LB181.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB182.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB180_Click(sender As Object, e As EventArgs) Handles LB180.Click PA = LB180.Text : 合約內文修改視窗.ShowDialog() : LB180.Text = PA : LB180_移動() End Sub Private Sub LB180_LocationChanged(sender As Object, e As EventArgs) Handles LB180.LocationChanged LB180_移動() End Sub Private Sub LB180_TextChanged(sender As Object, e As EventArgs) Handles LB180.TextChanged LB180_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB181_Click(sender As Object, e As EventArgs) Handles LB181.Click NU5 = LB178.Location.X : BL1 = True : PA = LB181.Text : 合約內文修改視窗.ShowDialog() : LB181.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB181.Location.Y : LB181.Location = New Drawing.Point(syy1, sxx) sxx = LB182.Location.Y : LB182.Location = New Drawing.Point(syy2, sxx) : sxx = LB183.Location.Y : LB183.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB182_移動() Dim sx, sxx As Integer : sx = LB182.Size.Height : sxx = LB182.Location.Y : NU4 = LB183.Location.X : LB183.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB182_Click(sender As Object, e As EventArgs) Handles LB182.Click PA = LB182.Text : 合約內文修改視窗.ShowDialog() : LB182.Text = PA : LB182_移動() End Sub Private Sub LB182_LocationChanged(sender As Object, e As EventArgs) Handles LB182.LocationChanged LB182_移動() End Sub Private Sub LB182_TextChanged(sender As Object, e As EventArgs) Handles LB182.TextChanged LB182_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB183_移動() Dim sx, sxx As Integer : sx = LB183.Size.Height : sxx = LB183.Location.Y : NU3 = LB184.Location.X : NU4 = LB185.Location.X LB184.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB185.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB183_Click(sender As Object, e As EventArgs) Handles LB183.Click PA = LB183.Text : 合約內文修改視窗.ShowDialog() : LB183.Text = PA : LB183_移動() End Sub Private Sub LB183_LocationChanged(sender As Object, e As EventArgs) Handles LB183.LocationChanged LB183_移動() End Sub Private Sub LB183_TextChanged(sender As Object, e As EventArgs) Handles LB183.TextChanged LB183_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB184_Click(sender As Object, e As EventArgs) Handles LB184.Click NU5 = LB178.Location.X : BL1 = True : PA = LB184.Text : 合約內文修改視窗.ShowDialog() : LB184.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB184.Location.Y : LB184.Location = New Drawing.Point(syy1, sxx) sxx = LB185.Location.Y : LB185.Location = New Drawing.Point(syy2, sxx) : sxx = LB186.Location.Y : LB186.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB185_移動() Dim sx, sxx As Integer : sx = LB185.Size.Height : sxx = LB185.Location.Y : NU4 = LB186.Location.X : LB186.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB185_Click(sender As Object, e As EventArgs) Handles LB185.Click PA = LB185.Text : 合約內文修改視窗.ShowDialog() : LB185.Text = PA : LB185_移動() End Sub Private Sub LB185_LocationChanged(sender As Object, e As EventArgs) Handles LB185.LocationChanged LB185_移動() End Sub Private Sub LB185_TextChanged(sender As Object, e As EventArgs) Handles LB185.TextChanged LB185_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB186_Click(sender As Object, e As EventArgs) Handles LB186.Click PA = LB186.Text : 合約內文修改視窗.ShowDialog() : LB186.Text = PA End Sub '---------------------------第十章---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB187_Click(sender As Object, e As EventArgs) Handles LB187.Click PA = LB187.Text : 合約內文修改視窗.ShowDialog() : LB187.Text = PA End Sub Private Sub LB188_Click(sender As Object, e As EventArgs) Handles LB188.Click PA = LB188.Text : 合約內文修改視窗.ShowDialog() : LB188.Text = PA End Sub Private Sub LB189_Click(sender As Object, e As EventArgs) Handles LB189.Click PA = LB189.Text : 合約內文修改視窗.ShowDialog() : LB189.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB226_Click(sender As Object, e As EventArgs) Handles LB226.Click NU5 = LB226.Location.X : BL1 = True : PA = LB226.Text : 合約內文修改視窗.ShowDialog() : LB226.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB226.Location.Y : LB226.Location = New Drawing.Point(syy1, sxx) sxx = LB137.Location.Y : LB137.Location = New Drawing.Point(syy2, sxx) : sxx = LB138.Location.Y : LB138.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB137_移動() Dim sx, sxx As Integer : sx = LB137.Size.Height : sxx = LB137.Location.Y : NU4 = LB138.Location.X : LB138.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB137_Click(sender As Object, e As EventArgs) Handles LB137.Click PA = LB137.Text : 合約內文修改視窗.ShowDialog() : LB137.Text = PA : LB137_移動() End Sub Private Sub LB137_LocationChanged(sender As Object, e As EventArgs) Handles LB137.LocationChanged LB137_移動() End Sub Private Sub LB137_TextChanged(sender As Object, e As EventArgs) Handles LB137.TextChanged LB137_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB138_移動() Dim sx, sxx As Integer : sx = LB138.Size.Height : sxx = LB138.Location.Y : NU3 = LB227.Location.X : NU4 = LB139.Location.X LB227.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB139.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB138_Click(sender As Object, e As EventArgs) Handles LB138.Click PA = LB138.Text : 合約內文修改視窗.ShowDialog() : LB138.Text = PA : LB138_移動() End Sub Private Sub LB138_LocationChanged(sender As Object, e As EventArgs) Handles LB138.LocationChanged LB138_移動() End Sub Private Sub LB138_TextChanged(sender As Object, e As EventArgs) Handles LB138.TextChanged LB138_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB227_Click(sender As Object, e As EventArgs) Handles LB227.Click NU5 = LB227.Location.X : BL1 = True : PA = LB227.Text : 合約內文修改視窗.ShowDialog() : LB227.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB227.Location.Y : LB227.Location = New Drawing.Point(syy1, sxx) sxx = LB139.Location.Y : LB139.Location = New Drawing.Point(syy2, sxx) : sxx = LB140.Location.Y : LB140.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB139_移動() Dim sx, sxx As Integer : sx = LB139.Size.Height : sxx = LB139.Location.Y : NU4 = LB140.Location.X : LB140.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB139_Click(sender As Object, e As EventArgs) Handles LB139.Click PA = LB139.Text : 合約內文修改視窗.ShowDialog() : LB139.Text = PA : LB139_移動() End Sub Private Sub LB139_LocationChanged(sender As Object, e As EventArgs) Handles LB139.LocationChanged LB139_移動() End Sub Private Sub LB139_TextChanged(sender As Object, e As EventArgs) Handles LB139.TextChanged LB139_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB140_移動() Dim sx, sxx As Integer : sx = LB140.Size.Height : sxx = LB140.Location.Y : NU3 = LB190.Location.X : NU4 = LB191.Location.X LB190.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB191.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB140_Click(sender As Object, e As EventArgs) Handles LB140.Click PA = LB140.Text : 合約內文修改視窗.ShowDialog() : LB140.Text = PA : LB140_移動() End Sub Private Sub LB140_LocationChanged(sender As Object, e As EventArgs) Handles LB140.LocationChanged LB140_移動() End Sub Private Sub LB140_TextChanged(sender As Object, e As EventArgs) Handles LB140.TextChanged LB140_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB190_Click(sender As Object, e As EventArgs) Handles LB190.Click NU5 = LB190.Location.X : BL1 = True : PA = LB190.Text : 合約內文修改視窗.ShowDialog() : LB190.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB190.Location.Y : LB190.Location = New Drawing.Point(syy1, sxx) sxx = LB191.Location.Y : LB191.Location = New Drawing.Point(syy2, sxx) : sxx = LB192.Location.Y : LB192.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB191_移動() Dim sx, sxx As Integer : sx = LB191.Size.Height : sxx = LB191.Location.Y : NU4 = LB192.Location.X : LB192.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB191_Click(sender As Object, e As EventArgs) Handles LB191.Click PA = LB191.Text : 合約內文修改視窗.ShowDialog() : LB191.Text = PA : LB191_移動() End Sub Private Sub LB191_LocationChanged(sender As Object, e As EventArgs) Handles LB191.LocationChanged LB191_移動() End Sub Private Sub LB191_TextChanged(sender As Object, e As EventArgs) Handles LB191.TextChanged LB191_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB192_移動() Dim sx, sxx As Integer : sx = LB192.Size.Height : sxx = LB192.Location.Y : NU3 = LB193.Location.X : NU4 = LB194.Location.X LB193.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB194.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB192_Click(sender As Object, e As EventArgs) Handles LB192.Click PA = LB192.Text : 合約內文修改視窗.ShowDialog() : LB192.Text = PA : LB192_移動() End Sub Private Sub LB192_LocationChanged(sender As Object, e As EventArgs) Handles LB192.LocationChanged LB192_移動() End Sub Private Sub LB192_TextChanged(sender As Object, e As EventArgs) Handles LB192.TextChanged LB192_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB193_Click(sender As Object, e As EventArgs) Handles LB193.Click NU5 = LB193.Location.X : BL1 = True : PA = LB193.Text : 合約內文修改視窗.ShowDialog() : LB193.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB193.Location.Y : LB193.Location = New Drawing.Point(syy1, sxx) sxx = LB194.Location.Y : LB194.Location = New Drawing.Point(syy2, sxx) : sxx = LB195.Location.Y : LB195.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB194_移動() Dim sx, sxx As Integer : sx = LB194.Size.Height : sxx = LB194.Location.Y : NU4 = LB195.Location.X : LB195.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB194_Click(sender As Object, e As EventArgs) Handles LB194.Click PA = LB194.Text : 合約內文修改視窗.ShowDialog() : LB194.Text = PA : LB194_移動() End Sub Private Sub LB194_LocationChanged(sender As Object, e As EventArgs) Handles LB194.LocationChanged LB194_移動() End Sub Private Sub LB194_TextChanged(sender As Object, e As EventArgs) Handles LB194.TextChanged LB194_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB195_移動() Dim sx, sxx As Integer : sx = LB195.Size.Height : sxx = LB195.Location.Y : NU3 = LB196.Location.X : NU4 = LB197.Location.X LB196.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB197.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB195_Click(sender As Object, e As EventArgs) Handles LB195.Click PA = LB195.Text : 合約內文修改視窗.ShowDialog() : LB195.Text = PA : LB195_移動() End Sub Private Sub LB195_LocationChanged(sender As Object, e As EventArgs) Handles LB195.LocationChanged LB195_移動() End Sub Private Sub LB195_TextChanged(sender As Object, e As EventArgs) Handles LB195.TextChanged LB195_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB196_Click(sender As Object, e As EventArgs) Handles LB196.Click NU5 = LB196.Location.X : BL1 = True : PA = LB196.Text : 合約內文修改視窗.ShowDialog() : LB196.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB196.Location.Y : LB196.Location = New Drawing.Point(syy1, sxx) sxx = LB197.Location.Y : LB197.Location = New Drawing.Point(syy2, sxx) : sxx = LB198.Location.Y : LB198.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB197_移動() Dim sx, sxx As Integer : sx = LB197.Size.Height : sxx = LB197.Location.Y : NU4 = LB198.Location.X : LB198.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB197_Click(sender As Object, e As EventArgs) Handles LB197.Click PA = LB197.Text : 合約內文修改視窗.ShowDialog() : LB197.Text = PA : LB197_移動() End Sub Private Sub LB197_LocationChanged(sender As Object, e As EventArgs) Handles LB197.LocationChanged LB197_移動() End Sub Private Sub LB197_TextChanged(sender As Object, e As EventArgs) Handles LB197.TextChanged LB197_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB198_移動() Dim sx, sxx As Integer : sx = LB198.Size.Height : sxx = LB198.Location.Y : NU3 = LB199.Location.X : NU4 = LB200.Location.X LB199.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB200.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB198_Click(sender As Object, e As EventArgs) Handles LB198.Click PA = LB198.Text : 合約內文修改視窗.ShowDialog() : LB198.Text = PA : LB198_移動() End Sub Private Sub LB198_LocationChanged(sender As Object, e As EventArgs) Handles LB198.LocationChanged LB198_移動() End Sub Private Sub LB198_TextChanged(sender As Object, e As EventArgs) Handles LB198.TextChanged LB198_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB199_Click(sender As Object, e As EventArgs) Handles LB199.Click NU5 = LB199.Location.X : BL1 = True : PA = LB199.Text : 合約內文修改視窗.ShowDialog() : LB199.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB199.Location.Y : LB199.Location = New Drawing.Point(syy1, sxx) sxx = LB200.Location.Y : LB200.Location = New Drawing.Point(syy2, sxx) : sxx = LB201.Location.Y : LB201.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB200_移動() Dim sx, sxx As Integer : sx = LB200.Size.Height : sxx = LB200.Location.Y : NU4 = LB201.Location.X : LB201.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB200_Click(sender As Object, e As EventArgs) Handles LB200.Click PA = LB200.Text : 合約內文修改視窗.ShowDialog() : LB200.Text = PA : LB200_移動() End Sub Private Sub LB200_LocationChanged(sender As Object, e As EventArgs) Handles LB200.LocationChanged LB200_移動() End Sub Private Sub LB200_TextChanged(sender As Object, e As EventArgs) Handles LB200.TextChanged LB200_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB201_移動() Dim sx, sxx As Integer : sx = LB201.Size.Height : sxx = LB201.Location.Y : NU3 = LB202.Location.X : NU4 = LB203.Location.X LB202.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB203.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB201_Click(sender As Object, e As EventArgs) Handles LB201.Click PA = LB201.Text : 合約內文修改視窗.ShowDialog() : LB201.Text = PA : LB201_移動() End Sub Private Sub LB201_LocationChanged(sender As Object, e As EventArgs) Handles LB201.LocationChanged LB201_移動() End Sub Private Sub LB201_TextChanged(sender As Object, e As EventArgs) Handles LB201.TextChanged LB201_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB202_Click(sender As Object, e As EventArgs) Handles LB202.Click NU5 = LB202.Location.X : BL1 = True : PA = LB202.Text : 合約內文修改視窗.ShowDialog() : LB202.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB202.Location.Y : LB202.Location = New Drawing.Point(syy1, sxx) sxx = LB203.Location.Y : LB203.Location = New Drawing.Point(syy2, sxx) : sxx = LB204.Location.Y : LB204.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB203_移動() Dim sx, sxx As Integer : sx = LB203.Size.Height : sxx = LB203.Location.Y : NU4 = LB204.Location.X : LB204.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB203_Click(sender As Object, e As EventArgs) Handles LB203.Click PA = LB203.Text : 合約內文修改視窗.ShowDialog() : LB203.Text = PA : LB203_移動() End Sub Private Sub LB203_LocationChanged(sender As Object, e As EventArgs) Handles LB203.LocationChanged LB203_移動() End Sub Private Sub LB203_TextChanged(sender As Object, e As EventArgs) Handles LB203.TextChanged LB203_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB204_移動() Dim sx, sxx As Integer : sx = LB204.Size.Height : sxx = LB204.Location.Y : NU3 = LB205.Location.X : NU4 = LB206.Location.X LB205.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB206.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB204_Click(sender As Object, e As EventArgs) Handles LB204.Click PA = LB204.Text : 合約內文修改視窗.ShowDialog() : LB204.Text = PA : LB204_移動() End Sub Private Sub LB204_LocationChanged(sender As Object, e As EventArgs) Handles LB204.LocationChanged LB204_移動() End Sub Private Sub LB204_TextChanged(sender As Object, e As EventArgs) Handles LB204.TextChanged LB204_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB205_Click(sender As Object, e As EventArgs) Handles LB205.Click NU5 = LB205.Location.X : BL1 = True : PA = LB205.Text : 合約內文修改視窗.ShowDialog() : LB205.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB205.Location.Y : LB205.Location = New Drawing.Point(syy1, sxx) sxx = LB206.Location.Y : LB206.Location = New Drawing.Point(syy2, sxx) : sxx = LB207.Location.Y : LB207.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB206_移動() Dim sx, sxx As Integer : sx = LB206.Size.Height : sxx = LB206.Location.Y : NU4 = LB207.Location.X : LB207.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB206_Click(sender As Object, e As EventArgs) Handles LB206.Click PA = LB206.Text : 合約內文修改視窗.ShowDialog() : LB206.Text = PA : LB206_移動() End Sub Private Sub LB206_LocationChanged(sender As Object, e As EventArgs) Handles LB206.LocationChanged LB206_移動() End Sub Private Sub LB206_TextChanged(sender As Object, e As EventArgs) Handles LB206.TextChanged LB206_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB207_移動() Dim sx, sxx As Integer : sx = LB207.Size.Height : sxx = LB207.Location.Y : NU3 = LB208.Location.X : NU4 = LB209.Location.X LB208.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB209.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB207_Click(sender As Object, e As EventArgs) Handles LB207.Click PA = LB207.Text : 合約內文修改視窗.ShowDialog() : LB207.Text = PA : LB207_移動() End Sub Private Sub LB207_LocationChanged(sender As Object, e As EventArgs) Handles LB207.LocationChanged LB207_移動() End Sub Private Sub LB207_TextChanged(sender As Object, e As EventArgs) Handles LB207.TextChanged LB207_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB208_Click(sender As Object, e As EventArgs) Handles LB208.Click NU5 = LB208.Location.X : BL1 = True : PA = LB208.Text : 合約內文修改視窗.ShowDialog() : LB208.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB208.Location.Y : LB208.Location = New Drawing.Point(syy1, sxx) sxx = LB209.Location.Y : LB209.Location = New Drawing.Point(syy2, sxx) : sxx = LB210.Location.Y : LB210.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB209_移動() Dim sx, sxx As Integer : sx = LB209.Size.Height : sxx = LB209.Location.Y : NU4 = LB210.Location.X : LB210.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB209_Click(sender As Object, e As EventArgs) Handles LB209.Click PA = LB209.Text : 合約內文修改視窗.ShowDialog() : LB209.Text = PA : LB209_移動() End Sub Private Sub LB209_LocationChanged(sender As Object, e As EventArgs) Handles LB209.LocationChanged LB209_移動() End Sub Private Sub LB209_TextChanged(sender As Object, e As EventArgs) Handles LB209.TextChanged LB209_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB210_移動() Dim sx, sxx As Integer : sx = LB210.Size.Height : sxx = LB210.Location.Y : NU3 = LB211.Location.X : NU4 = LB212.Location.X LB211.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB212.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB210_Click(sender As Object, e As EventArgs) Handles LB210.Click PA = LB210.Text : 合約內文修改視窗.ShowDialog() : LB210.Text = PA : LB210_移動() End Sub Private Sub LB210_LocationChanged(sender As Object, e As EventArgs) Handles LB210.LocationChanged LB210_移動() End Sub Private Sub LB210_TextChanged(sender As Object, e As EventArgs) Handles LB210.TextChanged LB210_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB211_Click(sender As Object, e As EventArgs) Handles LB211.Click NU5 = LB211.Location.X : BL1 = True : PA = LB211.Text : 合約內文修改視窗.ShowDialog() : LB211.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB211.Location.Y : LB211.Location = New Drawing.Point(syy1, sxx) sxx = LB212.Location.Y : LB212.Location = New Drawing.Point(syy2, sxx) : sxx = LB213.Location.Y : LB213.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB212_移動() Dim sx, sxx As Integer : sx = LB212.Size.Height : sxx = LB212.Location.Y : NU4 = LB213.Location.X : LB213.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB212_Click(sender As Object, e As EventArgs) Handles LB212.Click PA = LB212.Text : 合約內文修改視窗.ShowDialog() : LB212.Text = PA : LB212_移動() End Sub Private Sub LB212_LocationChanged(sender As Object, e As EventArgs) Handles LB212.LocationChanged LB212_移動() End Sub Private Sub LB212_TextChanged(sender As Object, e As EventArgs) Handles LB212.TextChanged LB212_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB213_移動() Dim sx, sxx As Integer : sx = LB213.Size.Height : sxx = LB213.Location.Y : NU3 = LB214.Location.X : NU4 = LB215.Location.X LB214.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB215.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB213_Click(sender As Object, e As EventArgs) Handles LB213.Click PA = LB213.Text : 合約內文修改視窗.ShowDialog() : LB213.Text = PA : LB213_移動() End Sub Private Sub LB213_LocationChanged(sender As Object, e As EventArgs) Handles LB213.LocationChanged LB213_移動() End Sub Private Sub LB213_TextChanged(sender As Object, e As EventArgs) Handles LB213.TextChanged LB213_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB214_Click(sender As Object, e As EventArgs) Handles LB214.Click NU5 = LB214.Location.X : BL1 = True : PA = LB214.Text : 合約內文修改視窗.ShowDialog() : LB214.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB214.Location.Y : LB214.Location = New Drawing.Point(syy1, sxx) sxx = LB215.Location.Y : LB215.Location = New Drawing.Point(syy2, sxx) : sxx = LB216.Location.Y : LB216.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB215_移動() Dim sx, sxx As Integer : sx = LB215.Size.Height : sxx = LB215.Location.Y : NU4 = LB216.Location.X : LB216.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB215_Click(sender As Object, e As EventArgs) Handles LB215.Click PA = LB215.Text : 合約內文修改視窗.ShowDialog() : LB215.Text = PA : LB215_移動() End Sub Private Sub LB215_LocationChanged(sender As Object, e As EventArgs) Handles LB215.LocationChanged LB215_移動() End Sub Private Sub LB215_TextChanged(sender As Object, e As EventArgs) Handles LB215.TextChanged LB215_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB216_移動() Dim sx, sxx As Integer : sx = LB216.Size.Height : sxx = LB216.Location.Y : NU3 = LB217.Location.X : NU4 = LB218.Location.X LB217.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB218.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB216_Click(sender As Object, e As EventArgs) Handles LB216.Click PA = LB216.Text : 合約內文修改視窗.ShowDialog() : LB216.Text = PA : LB216_移動() End Sub Private Sub LB216_LocationChanged(sender As Object, e As EventArgs) Handles LB216.LocationChanged LB216_移動() End Sub Private Sub LB216_TextChanged(sender As Object, e As EventArgs) Handles LB216.TextChanged LB216_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB217_Click(sender As Object, e As EventArgs) Handles LB217.Click NU5 = LB217.Location.X : BL1 = True : PA = LB217.Text : 合約內文修改視窗.ShowDialog() : LB217.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB217.Location.Y : LB217.Location = New Drawing.Point(syy1, sxx) sxx = LB218.Location.Y : LB218.Location = New Drawing.Point(syy2, sxx) : sxx = LB219.Location.Y : LB219.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB218_移動() Dim sx, sxx As Integer : sx = LB218.Size.Height : sxx = LB218.Location.Y : NU4 = LB219.Location.X : LB219.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB218_Click(sender As Object, e As EventArgs) Handles LB218.Click PA = LB218.Text : 合約內文修改視窗.ShowDialog() : LB218.Text = PA : LB218_移動() End Sub Private Sub LB218_LocationChanged(sender As Object, e As EventArgs) Handles LB218.LocationChanged LB218_移動() End Sub Private Sub LB218_TextChanged(sender As Object, e As EventArgs) Handles LB218.TextChanged LB218_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB219_移動() Dim sx, sxx As Integer : sx = LB219.Size.Height : sxx = LB219.Location.Y : NU3 = LB220.Location.X : NU4 = LB221.Location.X LB220.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB221.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB219_Click(sender As Object, e As EventArgs) Handles LB219.Click PA = LB219.Text : 合約內文修改視窗.ShowDialog() : LB219.Text = PA : LB219_移動() End Sub Private Sub LB219_LocationChanged(sender As Object, e As EventArgs) Handles LB219.LocationChanged LB219_移動() End Sub Private Sub LB219_TextChanged(sender As Object, e As EventArgs) Handles LB219.TextChanged LB219_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB220_Click(sender As Object, e As EventArgs) Handles LB220.Click NU5 = LB220.Location.X : BL1 = True : PA = LB220.Text : 合約內文修改視窗.ShowDialog() : LB220.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB220.Location.Y : LB220.Location = New Drawing.Point(syy1, sxx) sxx = LB221.Location.Y : LB221.Location = New Drawing.Point(syy2, sxx) : sxx = LB222.Location.Y : LB222.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB221_移動() Dim sx, sxx As Integer : sx = LB221.Size.Height : sxx = LB221.Location.Y : NU4 = LB222.Location.X : LB222.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB221_Click(sender As Object, e As EventArgs) Handles LB221.Click PA = LB221.Text : 合約內文修改視窗.ShowDialog() : LB221.Text = PA : LB221_移動() End Sub Private Sub LB221_LocationChanged(sender As Object, e As EventArgs) Handles LB221.LocationChanged LB221_移動() End Sub Private Sub LB221_TextChanged(sender As Object, e As EventArgs) Handles LB221.TextChanged LB221_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB222_移動() Dim sx, sxx As Integer : sx = LB222.Size.Height : sxx = LB222.Location.Y : NU3 = LB223.Location.X : NU4 = LB224.Location.X LB223.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB224.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB222_Click(sender As Object, e As EventArgs) Handles LB222.Click PA = LB222.Text : 合約內文修改視窗.ShowDialog() : LB222.Text = PA : LB222_移動() End Sub Private Sub LB222_LocationChanged(sender As Object, e As EventArgs) Handles LB222.LocationChanged LB222_移動() End Sub Private Sub LB222_TextChanged(sender As Object, e As EventArgs) Handles LB222.TextChanged LB222_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB223_Click(sender As Object, e As EventArgs) Handles LB223.Click NU5 = LB223.Location.X : BL1 = True : PA = LB223.Text : 合約內文修改視窗.ShowDialog() : LB223.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB223.Location.Y : LB223.Location = New Drawing.Point(syy1, sxx) sxx = LB224.Location.Y : LB224.Location = New Drawing.Point(syy2, sxx) : sxx = LB225.Location.Y : LB225.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB224_移動() Dim sx, sxx As Integer : sx = LB224.Size.Height : sxx = LB224.Location.Y : NU4 = LB225.Location.X : LB225.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB224_Click(sender As Object, e As EventArgs) Handles LB224.Click PA = LB224.Text : 合約內文修改視窗.ShowDialog() : LB224.Text = PA : LB224_移動() End Sub Private Sub LB224_LocationChanged(sender As Object, e As EventArgs) Handles LB224.LocationChanged LB224_移動() End Sub Private Sub LB224_TextChanged(sender As Object, e As EventArgs) Handles LB224.TextChanged LB224_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB225_Click(sender As Object, e As EventArgs) Handles LB225.Click PA = LB225.Text : 合約內文修改視窗.ShowDialog() : LB225.Text = PA End Sub '---------------------------第九章---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB228_Click(sender As Object, e As EventArgs) Handles LB228.Click PA = LB228.Text : 合約內文修改視窗.ShowDialog() : LB228.Text = PA End Sub Private Sub LB229_Click(sender As Object, e As EventArgs) Handles LB229.Click PA = LB229.Text : 合約內文修改視窗.ShowDialog() : LB229.Text = PA End Sub Private Sub LB230_Click(sender As Object, e As EventArgs) Handles LB230.Click PA = LB230.Text : 合約內文修改視窗.ShowDialog() : LB230.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB231_Click(sender As Object, e As EventArgs) Handles LB231.Click NU5 = LB231.Location.X : BL1 = True : PA = LB231.Text : 合約內文修改視窗.ShowDialog() : LB231.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB231.Location.Y : LB231.Location = New Drawing.Point(syy1, sxx) sxx = LB131.Location.Y : LB131.Location = New Drawing.Point(syy2, sxx) : sxx = LB132.Location.Y : LB132.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB131_移動() Dim sx, sxx As Integer : sx = LB131.Size.Height : sxx = LB131.Location.Y : NU4 = LB132.Location.X : LB132.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB131_Click(sender As Object, e As EventArgs) Handles LB131.Click PA = LB131.Text : 合約內文修改視窗.ShowDialog() : LB131.Text = PA : LB131_移動() End Sub Private Sub LB131_LocationChanged(sender As Object, e As EventArgs) Handles LB131.LocationChanged LB131_移動() End Sub Private Sub LB131_TextChanged(sender As Object, e As EventArgs) Handles LB131.TextChanged LB131_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB132_移動() Dim sx, sxx As Integer : sx = LB132.Size.Height : sxx = LB132.Location.Y : NU3 = LB232.Location.X : NU4 = LB133.Location.X LB232.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB133.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB132_Click(sender As Object, e As EventArgs) Handles LB132.Click PA = LB132.Text : 合約內文修改視窗.ShowDialog() : LB132.Text = PA : LB132_移動() End Sub Private Sub LB132_LocationChanged(sender As Object, e As EventArgs) Handles LB132.LocationChanged LB132_移動() End Sub Private Sub LB132_TextChanged(sender As Object, e As EventArgs) Handles LB132.TextChanged LB132_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB232_Click(sender As Object, e As EventArgs) Handles LB232.Click NU5 = LB232.Location.X : BL1 = True : PA = LB232.Text : 合約內文修改視窗.ShowDialog() : LB232.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB232.Location.Y : LB232.Location = New Drawing.Point(syy1, sxx) sxx = LB133.Location.Y : LB133.Location = New Drawing.Point(syy2, sxx) : sxx = LB134.Location.Y : LB134.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB133_移動() Dim sx, sxx As Integer : sx = LB133.Size.Height : sxx = LB133.Location.Y : NU4 = LB134.Location.X : LB134.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB133_Click(sender As Object, e As EventArgs) Handles LB133.Click PA = LB133.Text : 合約內文修改視窗.ShowDialog() : LB133.Text = PA : LB133_移動() End Sub Private Sub LB133_LocationChanged(sender As Object, e As EventArgs) Handles LB133.LocationChanged LB133_移動() End Sub Private Sub LB133_TextChanged(sender As Object, e As EventArgs) Handles LB133.TextChanged LB133_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB134_移動() Dim sx, sxx As Integer : sx = LB134.Size.Height : sxx = LB134.Location.Y : NU3 = LB233.Location.X : NU4 = LB135.Location.X LB233.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB135.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB134_Click(sender As Object, e As EventArgs) Handles LB134.Click PA = LB134.Text : 合約內文修改視窗.ShowDialog() : LB134.Text = PA : LB134_移動() End Sub Private Sub LB134_LocationChanged(sender As Object, e As EventArgs) Handles LB134.LocationChanged LB134_移動() End Sub Private Sub LB134_TextChanged(sender As Object, e As EventArgs) Handles LB134.TextChanged LB134_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB233_Click(sender As Object, e As EventArgs) Handles LB233.Click NU5 = LB233.Location.X : BL1 = True : PA = LB233.Text : 合約內文修改視窗.ShowDialog() : LB233.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB233.Location.Y : LB233.Location = New Drawing.Point(syy1, sxx) sxx = LB135.Location.Y : LB135.Location = New Drawing.Point(syy2, sxx) : sxx = LB136.Location.Y : LB136.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB135_移動() Dim sx, sxx As Integer : sx = LB135.Size.Height : sxx = LB135.Location.Y : NU4 = LB136.Location.X : LB136.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB135_Click(sender As Object, e As EventArgs) Handles LB135.Click PA = LB135.Text : 合約內文修改視窗.ShowDialog() : LB135.Text = PA : LB135_移動() End Sub Private Sub LB135_LocationChanged(sender As Object, e As EventArgs) Handles LB135.LocationChanged LB135_移動() End Sub Private Sub LB135_TextChanged(sender As Object, e As EventArgs) Handles LB135.TextChanged LB135_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB136_移動() Dim sx, sxx As Integer : sx = LB136.Size.Height : sxx = LB136.Location.Y : NU3 = LB234.Location.X : NU4 = LB235.Location.X LB234.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB235.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB136_Click(sender As Object, e As EventArgs) Handles LB136.Click PA = LB136.Text : 合約內文修改視窗.ShowDialog() : LB136.Text = PA : LB136_移動() End Sub Private Sub LB136_LocationChanged(sender As Object, e As EventArgs) Handles LB136.LocationChanged LB136_移動() End Sub Private Sub LB136_TextChanged(sender As Object, e As EventArgs) Handles LB136.TextChanged LB136_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB234_Click(sender As Object, e As EventArgs) Handles LB234.Click NU5 = LB234.Location.X : BL1 = True : PA = LB234.Text : 合約內文修改視窗.ShowDialog() : LB234.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB234.Location.Y : LB234.Location = New Drawing.Point(syy1, sxx) sxx = LB235.Location.Y : LB235.Location = New Drawing.Point(syy2, sxx) : sxx = LB236.Location.Y : LB236.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB235_移動() Dim sx, sxx As Integer : sx = LB235.Size.Height : sxx = LB235.Location.Y : NU4 = LB236.Location.X LB236.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB235_Click(sender As Object, e As EventArgs) Handles LB235.Click PA = LB235.Text : 合約內文修改視窗.ShowDialog() : LB235.Text = PA : LB235_移動() End Sub Private Sub LB235_LocationChanged(sender As Object, e As EventArgs) Handles LB235.LocationChanged LB235_移動() End Sub Private Sub LB235_TextChanged(sender As Object, e As EventArgs) Handles LB235.TextChanged LB235_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB236_移動() Dim sx, sxx As Integer : sx = LB236.Size.Height : sxx = LB236.Location.Y : NU3 = LB237.Location.X : NU4 = LB238.Location.X LB237.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB238.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB236_Click(sender As Object, e As EventArgs) Handles LB236.Click PA = LB236.Text : 合約內文修改視窗.ShowDialog() : LB236.Text = PA : LB236_移動() End Sub Private Sub LB236_LocationChanged(sender As Object, e As EventArgs) Handles LB236.LocationChanged LB236_移動() End Sub Private Sub LB236_TextChanged(sender As Object, e As EventArgs) Handles LB236.TextChanged LB236_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB237_Click(sender As Object, e As EventArgs) Handles LB237.Click NU5 = LB237.Location.X : BL1 = True : PA = LB237.Text : 合約內文修改視窗.ShowDialog() : LB237.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB237.Location.Y : LB237.Location = New Drawing.Point(syy1, sxx) sxx = LB238.Location.Y : LB238.Location = New Drawing.Point(syy2, sxx) : sxx = LB239.Location.Y : LB239.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB238_移動() Dim sx, sxx As Integer : sx = LB238.Size.Height : sxx = LB238.Location.Y : NU4 = LB239.Location.X : LB239.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB238_Click(sender As Object, e As EventArgs) Handles LB238.Click PA = LB238.Text : 合約內文修改視窗.ShowDialog() : LB238.Text = PA : LB238_移動() End Sub Private Sub LB238_LocationChanged(sender As Object, e As EventArgs) Handles LB238.LocationChanged LB238_移動() End Sub Private Sub LB238_TextChanged(sender As Object, e As EventArgs) Handles LB238.TextChanged LB238_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB239_移動() Dim sx, sxx As Integer : sx = LB239.Size.Height : sxx = LB239.Location.Y : NU3 = LB240.Location.X : NU4 = LB241.Location.X LB240.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB241.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB239_Click(sender As Object, e As EventArgs) Handles LB239.Click PA = LB239.Text : 合約內文修改視窗.ShowDialog() : LB239.Text = PA : LB239_移動() End Sub Private Sub LB239_LocationChanged(sender As Object, e As EventArgs) Handles LB239.LocationChanged LB239_移動() End Sub Private Sub LB239_TextChanged(sender As Object, e As EventArgs) Handles LB239.TextChanged LB239_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB240_Click(sender As Object, e As EventArgs) Handles LB240.Click NU5 = LB240.Location.X : BL1 = True : PA = LB240.Text : 合約內文修改視窗.ShowDialog() : LB240.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB240.Location.Y : LB240.Location = New Drawing.Point(syy1, sxx) sxx = LB241.Location.Y : LB241.Location = New Drawing.Point(syy2, sxx) : sxx = LB242.Location.Y : LB242.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB241_移動() Dim sx, sxx As Integer : sx = LB241.Size.Height : sxx = LB241.Location.Y : NU4 = LB242.Location.X : LB242.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB241_Click(sender As Object, e As EventArgs) Handles LB241.Click PA = LB241.Text : 合約內文修改視窗.ShowDialog() : LB241.Text = PA : LB241_移動() End Sub Private Sub LB241_LocationChanged(sender As Object, e As EventArgs) Handles LB241.LocationChanged LB241_移動() End Sub Private Sub LB241_TextChanged(sender As Object, e As EventArgs) Handles LB241.TextChanged LB241_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB242_移動() Dim sx, sxx As Integer : sx = LB242.Size.Height : sxx = LB242.Location.Y : NU3 = LB243.Location.X : NU4 = LB244.Location.X LB243.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB244.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB242_Click(sender As Object, e As EventArgs) Handles LB242.Click PA = LB242.Text : 合約內文修改視窗.ShowDialog() : LB242.Text = PA : LB242_移動() End Sub Private Sub LB242_LocationChanged(sender As Object, e As EventArgs) Handles LB242.LocationChanged LB242_移動() End Sub Private Sub LB242_TextChanged(sender As Object, e As EventArgs) Handles LB242.TextChanged LB242_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB243_Click(sender As Object, e As EventArgs) Handles LB243.Click NU5 = LB243.Location.X : BL1 = True : PA = LB243.Text : 合約內文修改視窗.ShowDialog() : LB243.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB243.Location.Y : LB243.Location = New Drawing.Point(syy1, sxx) sxx = LB244.Location.Y : LB244.Location = New Drawing.Point(syy2, sxx) : sxx = LB245.Location.Y : LB245.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB244_移動() Dim sx, sxx As Integer : sx = LB244.Size.Height : sxx = LB244.Location.Y : NU4 = LB245.Location.X : LB245.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB244_Click(sender As Object, e As EventArgs) Handles LB244.Click PA = LB244.Text : 合約內文修改視窗.ShowDialog() : LB244.Text = PA : LB244_移動() End Sub Private Sub LB244_LocationChanged(sender As Object, e As EventArgs) Handles LB244.LocationChanged LB244_移動() End Sub Private Sub LB244_TextChanged(sender As Object, e As EventArgs) Handles LB244.TextChanged LB244_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB245_移動() Dim sx, sxx As Integer : sx = LB245.Size.Height : sxx = LB245.Location.Y : NU3 = LB246.Location.X : NU4 = LB247.Location.X LB246.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB247.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB245_Click(sender As Object, e As EventArgs) Handles LB245.Click PA = LB245.Text : 合約內文修改視窗.ShowDialog() : LB245.Text = PA : LB245_移動() End Sub Private Sub LB245_LocationChanged(sender As Object, e As EventArgs) Handles LB245.LocationChanged LB245_移動() End Sub Private Sub LB245_TextChanged(sender As Object, e As EventArgs) Handles LB245.TextChanged LB245_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB246_Click(sender As Object, e As EventArgs) Handles LB246.Click NU5 = LB246.Location.X : BL1 = True : PA = LB246.Text : 合約內文修改視窗.ShowDialog() : LB246.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB246.Location.Y : LB246.Location = New Drawing.Point(syy1, sxx) sxx = LB247.Location.Y : LB247.Location = New Drawing.Point(syy2, sxx) : sxx = LB248.Location.Y : LB248.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB247_移動() Dim sx, sxx As Integer : sx = LB247.Size.Height : sxx = LB247.Location.Y : NU4 = LB248.Location.X : LB248.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB247_Click(sender As Object, e As EventArgs) Handles LB247.Click PA = LB247.Text : 合約內文修改視窗.ShowDialog() : LB247.Text = PA : LB247_移動() End Sub Private Sub LB247_LocationChanged(sender As Object, e As EventArgs) Handles LB247.LocationChanged LB247_移動() End Sub Private Sub LB247_TextChanged(sender As Object, e As EventArgs) Handles LB247.TextChanged LB247_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB248_移動() Dim sx, sxx As Integer : sx = LB248.Size.Height : sxx = LB248.Location.Y : NU3 = LB249.Location.X : NU4 = LB250.Location.X LB249.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB250.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB248_Click(sender As Object, e As EventArgs) Handles LB248.Click PA = LB248.Text : 合約內文修改視窗.ShowDialog() : LB248.Text = PA : LB248_移動() End Sub Private Sub LB248_LocationChanged(sender As Object, e As EventArgs) Handles LB248.LocationChanged LB248_移動() End Sub Private Sub LB248_TextChanged(sender As Object, e As EventArgs) Handles LB248.TextChanged LB248_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB249_Click(sender As Object, e As EventArgs) Handles LB249.Click NU5 = LB249.Location.X : BL1 = True : PA = LB249.Text : 合約內文修改視窗.ShowDialog() : LB249.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB249.Location.Y : LB249.Location = New Drawing.Point(syy1, sxx) sxx = LB250.Location.Y : LB250.Location = New Drawing.Point(syy2, sxx) : sxx = LB251.Location.Y : LB251.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB250_移動() Dim sx, sxx As Integer : sx = LB250.Size.Height : sxx = LB250.Location.Y : NU4 = LB251.Location.X : LB251.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB250_Click(sender As Object, e As EventArgs) Handles LB250.Click PA = LB250.Text : 合約內文修改視窗.ShowDialog() : LB250.Text = PA : LB250_移動() End Sub Private Sub LB250_LocationChanged(sender As Object, e As EventArgs) Handles LB250.LocationChanged LB250_移動() End Sub Private Sub LB250_TextChanged(sender As Object, e As EventArgs) Handles LB250.TextChanged LB250_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB251_移動() Dim sx, sxx As Integer : sx = LB251.Size.Height : sxx = LB251.Location.Y : NU3 = LB252.Location.X : NU4 = LB253.Location.X LB252.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB253.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB251_Click(sender As Object, e As EventArgs) Handles LB251.Click PA = LB251.Text : 合約內文修改視窗.ShowDialog() : LB251.Text = PA : LB251_移動() End Sub Private Sub LB251_LocationChanged(sender As Object, e As EventArgs) Handles LB251.LocationChanged LB251_移動() End Sub Private Sub LB251_TextChanged(sender As Object, e As EventArgs) Handles LB251.TextChanged LB251_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB252_Click(sender As Object, e As EventArgs) Handles LB252.Click NU5 = LB252.Location.X : BL1 = True : PA = LB252.Text : 合約內文修改視窗.ShowDialog() : LB252.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB252.Location.Y : LB252.Location = New Drawing.Point(syy1, sxx) sxx = LB253.Location.Y : LB253.Location = New Drawing.Point(syy2, sxx) : sxx = LB254.Location.Y : LB254.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB253_移動() Dim sx, sxx As Integer : sx = LB253.Size.Height : sxx = LB253.Location.Y : NU4 = LB254.Location.X : LB254.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB253_Click(sender As Object, e As EventArgs) Handles LB253.Click PA = LB253.Text : 合約內文修改視窗.ShowDialog() : LB253.Text = PA : LB253_移動() End Sub Private Sub LB253_LocationChanged(sender As Object, e As EventArgs) Handles LB253.LocationChanged LB253_移動() End Sub Private Sub LB253_TextChanged(sender As Object, e As EventArgs) Handles LB253.TextChanged LB253_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB254_移動() Dim sx, sxx As Integer : sx = LB254.Size.Height : sxx = LB254.Location.Y : NU3 = LB255.Location.X : NU4 = LB256.Location.X LB255.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB256.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB254_Click(sender As Object, e As EventArgs) Handles LB254.Click PA = LB254.Text : 合約內文修改視窗.ShowDialog() : LB254.Text = PA : LB254_移動() End Sub Private Sub LB254_LocationChanged(sender As Object, e As EventArgs) Handles LB254.LocationChanged LB254_移動() End Sub Private Sub LB254_TextChanged(sender As Object, e As EventArgs) Handles LB254.TextChanged LB254_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB255_Click(sender As Object, e As EventArgs) Handles LB255.Click NU5 = LB255.Location.X : BL1 = True : PA = LB255.Text : 合約內文修改視窗.ShowDialog() : LB255.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB255.Location.Y : LB255.Location = New Drawing.Point(syy1, sxx) sxx = LB256.Location.Y : LB256.Location = New Drawing.Point(syy2, sxx) : sxx = LB257.Location.Y : LB257.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB256_移動() Dim sx, sxx As Integer : sx = LB256.Size.Height : sxx = LB256.Location.Y : NU4 = LB257.Location.X : LB257.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB256_Click(sender As Object, e As EventArgs) Handles LB256.Click PA = LB256.Text : 合約內文修改視窗.ShowDialog() : LB256.Text = PA : LB256_移動() End Sub Private Sub LB256_LocationChanged(sender As Object, e As EventArgs) Handles LB256.LocationChanged LB256_移動() End Sub Private Sub LB256_TextChanged(sender As Object, e As EventArgs) Handles LB256.TextChanged LB256_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB257_移動() Dim sx, sxx As Integer : sx = LB257.Size.Height : sxx = LB257.Location.Y : NU3 = LB258.Location.X : NU4 = LB259.Location.X LB258.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB259.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB257_Click(sender As Object, e As EventArgs) Handles LB257.Click PA = LB257.Text : 合約內文修改視窗.ShowDialog() : LB257.Text = PA : LB257_移動() End Sub Private Sub LB257_LocationChanged(sender As Object, e As EventArgs) Handles LB257.LocationChanged LB257_移動() End Sub Private Sub LB257_TextChanged(sender As Object, e As EventArgs) Handles LB257.TextChanged LB257_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB258_Click(sender As Object, e As EventArgs) Handles LB258.Click NU5 = LB258.Location.X : BL1 = True : PA = LB258.Text : 合約內文修改視窗.ShowDialog() : LB258.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB258.Location.Y : LB258.Location = New Drawing.Point(syy1, sxx) sxx = LB259.Location.Y : LB259.Location = New Drawing.Point(syy2, sxx) : sxx = LB260.Location.Y : LB260.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB259_移動() Dim sx, sxx As Integer : sx = LB259.Size.Height : sxx = LB259.Location.Y : NU4 = LB260.Location.X : LB260.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB259_Click(sender As Object, e As EventArgs) Handles LB259.Click PA = LB259.Text : 合約內文修改視窗.ShowDialog() : LB259.Text = PA : LB259_移動() End Sub Private Sub LB259_LocationChanged(sender As Object, e As EventArgs) Handles LB259.LocationChanged LB259_移動() End Sub Private Sub LB259_TextChanged(sender As Object, e As EventArgs) Handles LB259.TextChanged LB259_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB260_移動() Dim sx, sxx As Integer : sx = LB260.Size.Height : sxx = LB260.Location.Y : NU3 = LB261.Location.X : NU4 = LB262.Location.X LB261.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB262.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB260_Click(sender As Object, e As EventArgs) Handles LB260.Click PA = LB260.Text : 合約內文修改視窗.ShowDialog() : LB260.Text = PA : LB260_移動() End Sub Private Sub LB260_LocationChanged(sender As Object, e As EventArgs) Handles LB260.LocationChanged LB260_移動() End Sub Private Sub LB260_TextChanged(sender As Object, e As EventArgs) Handles LB260.TextChanged LB260_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB261_Click(sender As Object, e As EventArgs) Handles LB261.Click NU5 = LB261.Location.X : BL1 = True : PA = LB261.Text : 合約內文修改視窗.ShowDialog() : LB261.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB261.Location.Y : LB261.Location = New Drawing.Point(syy1, sxx) sxx = LB262.Location.Y : LB262.Location = New Drawing.Point(syy2, sxx) : sxx = LB263.Location.Y : LB263.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB262_移動() Dim sx, sxx As Integer : sx = LB262.Size.Height : sxx = LB262.Location.Y : NU4 = LB263.Location.X : LB263.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB262_Click(sender As Object, e As EventArgs) Handles LB262.Click PA = LB262.Text : 合約內文修改視窗.ShowDialog() : LB262.Text = PA : LB262_移動() End Sub Private Sub LB262_LocationChanged(sender As Object, e As EventArgs) Handles LB262.LocationChanged LB262_移動() End Sub Private Sub LB262_TextChanged(sender As Object, e As EventArgs) Handles LB262.TextChanged LB262_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB263_移動() Dim sx, sxx As Integer : sx = LB263.Size.Height : sxx = LB263.Location.Y : NU3 = LB264.Location.X : NU4 = LB265.Location.X LB264.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB265.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB263_Click(sender As Object, e As EventArgs) Handles LB263.Click PA = LB263.Text : 合約內文修改視窗.ShowDialog() : LB263.Text = PA : LB263_移動() End Sub Private Sub LB263_LocationChanged(sender As Object, e As EventArgs) Handles LB263.LocationChanged LB263_移動() End Sub Private Sub LB263_TextChanged(sender As Object, e As EventArgs) Handles LB263.TextChanged LB263_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB264_Click(sender As Object, e As EventArgs) Handles LB264.Click NU5 = LB264.Location.X : BL1 = True : PA = LB264.Text : 合約內文修改視窗.ShowDialog() : LB264.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB264.Location.Y : LB264.Location = New Drawing.Point(syy1, sxx) sxx = LB265.Location.Y : LB265.Location = New Drawing.Point(syy2, sxx) : sxx = LB266.Location.Y : LB266.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB265_移動() Dim sx, sxx As Integer : sx = LB265.Size.Height : sxx = LB265.Location.Y : NU4 = LB266.Location.X : LB266.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB265_Click(sender As Object, e As EventArgs) Handles LB265.Click PA = LB265.Text : 合約內文修改視窗.ShowDialog() : LB265.Text = PA : LB265_移動() End Sub Private Sub LB265_LocationChanged(sender As Object, e As EventArgs) Handles LB265.LocationChanged LB265_移動() End Sub Private Sub LB265_TextChanged(sender As Object, e As EventArgs) Handles LB265.TextChanged LB265_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB266_Click(sender As Object, e As EventArgs) Handles LB266.Click PA = LB266.Text : 合約內文修改視窗.ShowDialog() : LB266.Text = PA End Sub '---------------------------第八章---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB267_Click(sender As Object, e As EventArgs) Handles LB267.Click PA = LB267.Text : 合約內文修改視窗.ShowDialog() : LB267.Text = PA End Sub Private Sub LB268_Click(sender As Object, e As EventArgs) Handles LB268.Click PA = LB268.Text : 合約內文修改視窗.ShowDialog() : LB268.Text = PA End Sub Private Sub LB269_Click(sender As Object, e As EventArgs) Handles LB269.Click PA = LB269.Text : 合約內文修改視窗.ShowDialog() : LB269.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB270_Click(sender As Object, e As EventArgs) Handles LB270.Click PA = LB270.Text : 合約內文修改視窗.ShowDialog() : LB270.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB121_移動() Dim sx, sxx As Integer : sx = LB121.Size.Height : sxx = LB121.Location.Y : LB122.Location = New Drawing.Point(40, sxx + sx + 10) End Sub Private Sub LB121_Click(sender As Object, e As EventArgs) Handles LB121.Click PA = LB121.Text : 合約內文修改視窗.ShowDialog() : LB121.Text = PA : LB121_移動() End Sub Private Sub LB121_LocationChanged(sender As Object, e As EventArgs) Handles LB121.LocationChanged LB121_移動() End Sub Private Sub LB121_TextChanged(sender As Object, e As EventArgs) Handles LB121.TextChanged LB121_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB122_移動() Dim sx, sxx As Integer : sx = LB122.Size.Height : sxx = LB122.Location.Y : LB271.Location = New Drawing.Point(40, sxx + sx + 10) : LB123.Location = New Drawing.Point(74, sxx + sx + 10) End Sub Private Sub LB122_Click(sender As Object, e As EventArgs) Handles LB122.Click PA = LB122.Text : 合約內文修改視窗.ShowDialog() : LB122.Text = PA : LB122_移動() End Sub Private Sub LB122_LocationChanged(sender As Object, e As EventArgs) Handles LB122.LocationChanged LB122_移動() End Sub Private Sub LB122_TextChanged(sender As Object, e As EventArgs) Handles LB122.TextChanged LB122_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB271_Click(sender As Object, e As EventArgs) Handles LB271.Click PA = LB271.Text : 合約內文修改視窗.ShowDialog() : LB271.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB123_移動() Dim sx, sxx As Integer : sx = LB123.Size.Height : sxx = LB123.Location.Y : LB124.Location = New Drawing.Point(74, sxx + sx + 10) End Sub Private Sub LB123_Click(sender As Object, e As EventArgs) Handles LB123.Click PA = LB123.Text : 合約內文修改視窗.ShowDialog() : LB123.Text = PA : LB123_移動() End Sub Private Sub LB123_LocationChanged(sender As Object, e As EventArgs) Handles LB123.LocationChanged LB123_移動() End Sub Private Sub LB123_TextChanged(sender As Object, e As EventArgs) Handles LB123.TextChanged LB123_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB124_移動() Dim sx, sxx As Integer : sx = LB124.Size.Height : sxx = LB124.Location.Y : LB272.Location = New Drawing.Point(40, sxx + sx + 10) : LB125.Location = New Drawing.Point(74, sxx + sx + 10) End Sub Private Sub LB124_Click(sender As Object, e As EventArgs) Handles LB124.Click PA = LB124.Text : 合約內文修改視窗.ShowDialog() : LB124.Text = PA : LB124_移動() End Sub Private Sub LB124_LocationChanged(sender As Object, e As EventArgs) Handles LB124.LocationChanged LB124_移動() End Sub Private Sub LB124_TextChanged(sender As Object, e As EventArgs) Handles LB124.TextChanged LB124_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB272_Click(sender As Object, e As EventArgs) Handles LB272.Click PA = LB272.Text : 合約內文修改視窗.ShowDialog() : LB272.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB125_移動() Dim sx, sxx As Integer : sx = LB125.Size.Height : sxx = LB125.Location.Y : LB126.Location = New Drawing.Point(74, sxx + sx + 10) End Sub Private Sub LB125_Click(sender As Object, e As EventArgs) Handles LB125.Click PA = LB125.Text : 合約內文修改視窗.ShowDialog() : LB125.Text = PA : LB125_移動() End Sub Private Sub LB125_LocationChanged(sender As Object, e As EventArgs) Handles LB125.LocationChanged LB125_移動() End Sub Private Sub LB125_TextChanged(sender As Object, e As EventArgs) Handles LB125.TextChanged LB125_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB126_移動() Dim sx, sxx As Integer : sx = LB126.Size.Height : sxx = LB126.Location.Y LB273.Location = New Drawing.Point(40, sxx + sx + 10) : LB127.Location = New Drawing.Point(74, sxx + sx + 10) LB274.Location = New Drawing.Point(324, sxx + sx + 10) : LB128.Location = New Drawing.Point(476, sxx + sx + 10) End Sub Private Sub LB126_Click(sender As Object, e As EventArgs) Handles LB126.Click PA = LB126.Text : 合約內文修改視窗.ShowDialog() : LB126.Text = PA : LB126_移動() End Sub Private Sub LB126_LocationChanged(sender As Object, e As EventArgs) Handles LB126.LocationChanged LB126_移動() End Sub Private Sub LB126_TextChanged(sender As Object, e As EventArgs) Handles LB126.TextChanged LB126_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB273_Click(sender As Object, e As EventArgs) Handles LB273.Click PA = LB273.Text : 合約內文修改視窗.ShowDialog() : LB273.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB127_移動() Dim sx, sxx As Integer : sx = LB127.Size.Height : sxx = LB127.Location.Y LB129.Location = New Drawing.Point(74, sxx + sx + 10) : LB275.Location = New Drawing.Point(383, sxx + sx + 10) : LB130.Location = New Drawing.Point(548, sxx + sx + 10) End Sub Private Sub LB127_Click(sender As Object, e As EventArgs) Handles LB127.Click PA = LB127.Text : 合約內文修改視窗.ShowDialog() : LB127.Text = PA : LB127_移動() End Sub Private Sub LB127_LocationChanged(sender As Object, e As EventArgs) Handles LB127.LocationChanged LB127_移動() End Sub Private Sub LB127_TextChanged(sender As Object, e As EventArgs) Handles LB127.TextChanged LB127_移動() End Sub Private Sub LB128_Click(sender As Object, e As EventArgs) Handles LB128.Click PA = LB128.Text : 合約內文修改視窗.ShowDialog() : LB128.Text = PA End Sub Private Sub LB130_Click(sender As Object, e As EventArgs) Handles LB130.Click PA = LB130.Text : 合約內文修改視窗.ShowDialog() : LB130.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB129_移動() Dim sx, sxx As Integer : sx = LB129.Size.Height : sxx = LB129.Location.Y : NU3 = LB276.Location.X : NU4 = LB277.Location.X LB276.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB277.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB129_Click(sender As Object, e As EventArgs) Handles LB129.Click PA = LB129.Text : 合約內文修改視窗.ShowDialog() : LB129.Text = PA : LB129_移動() End Sub Private Sub LB279_LocationChanged(sender As Object, e As EventArgs) Handles LB129.LocationChanged LB129_移動() End Sub Private Sub LB279_TextChanged(sender As Object, e As EventArgs) Handles LB129.TextChanged LB129_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB276_Click(sender As Object, e As EventArgs) Handles LB276.Click NU5 = LB276.Location.X : BL1 = True : PA = LB276.Text : 合約內文修改視窗.ShowDialog() : LB276.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB276.Location.Y : LB276.Location = New Drawing.Point(syy1, sxx) sxx = LB277.Location.Y : LB277.Location = New Drawing.Point(syy2, sxx) : sxx = LB278.Location.Y : LB278.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB277_移動() Dim sx, sxx As Integer : sx = LB277.Size.Height : sxx = LB277.Location.Y : NU4 = LB278.Location.X : LB278.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB277_Click(sender As Object, e As EventArgs) Handles LB277.Click PA = LB277.Text : 合約內文修改視窗.ShowDialog() : LB277.Text = PA : LB277_移動() End Sub Private Sub LB277_LocationChanged(sender As Object, e As EventArgs) Handles LB277.LocationChanged LB277_移動() End Sub Private Sub LB277_TextChanged(sender As Object, e As EventArgs) Handles LB277.TextChanged LB277_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB278_移動() Dim sx, sxx As Integer : sx = LB278.Size.Height : sxx = LB278.Location.Y : NU3 = LB279.Location.X : NU4 = LB280.Location.X LB279.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB280.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB278_Click(sender As Object, e As EventArgs) Handles LB278.Click PA = LB278.Text : 合約內文修改視窗.ShowDialog() : LB278.Text = PA : LB278_移動() End Sub Private Sub LB278_LocationChanged(sender As Object, e As EventArgs) Handles LB278.LocationChanged LB278_移動() End Sub Private Sub LB278_TextChanged(sender As Object, e As EventArgs) Handles LB278.TextChanged LB278_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB279_Click(sender As Object, e As EventArgs) Handles LB279.Click NU5 = LB279.Location.X : BL1 = True : PA = LB279.Text : 合約內文修改視窗.ShowDialog() : LB279.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB279.Location.Y : LB279.Location = New Drawing.Point(syy1, sxx) sxx = LB280.Location.Y : LB280.Location = New Drawing.Point(syy2, sxx) : sxx = LB281.Location.Y : LB281.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB280_移動() Dim sx, sxx As Integer : sx = LB280.Size.Height : sxx = LB280.Location.Y : NU4 = LB281.Location.X : LB281.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB280_Click(sender As Object, e As EventArgs) Handles LB280.Click PA = LB280.Text : 合約內文修改視窗.ShowDialog() : LB280.Text = PA : LB280_移動() End Sub Private Sub LB280_LocationChanged(sender As Object, e As EventArgs) Handles LB280.LocationChanged LB280_移動() End Sub Private Sub LB280_TextChanged(sender As Object, e As EventArgs) Handles LB280.TextChanged LB280_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB281_移動() Dim sx, sxx As Integer : sx = LB281.Size.Height : sxx = LB281.Location.Y : NU3 = LB282.Location.X : NU4 = LB283.Location.X LB282.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB283.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB281_Click(sender As Object, e As EventArgs) Handles LB281.Click PA = LB281.Text : 合約內文修改視窗.ShowDialog() : LB281.Text = PA : LB281_移動() End Sub Private Sub LB281_LocationChanged(sender As Object, e As EventArgs) Handles LB281.LocationChanged LB281_移動() End Sub Private Sub LB281_TextChanged(sender As Object, e As EventArgs) Handles LB281.TextChanged LB281_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB282_Click(sender As Object, e As EventArgs) Handles LB282.Click NU5 = LB282.Location.X : BL1 = True : PA = LB282.Text : 合約內文修改視窗.ShowDialog() : LB282.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB282.Location.Y : LB282.Location = New Drawing.Point(syy1, sxx) sxx = LB283.Location.Y : LB283.Location = New Drawing.Point(syy2, sxx) : sxx = LB284.Location.Y : LB284.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB283_移動() Dim sx, sxx As Integer : sx = LB283.Size.Height : sxx = LB283.Location.Y : NU4 = LB284.Location.X : LB284.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB283_Click(sender As Object, e As EventArgs) Handles LB283.Click PA = LB283.Text : 合約內文修改視窗.ShowDialog() : LB283.Text = PA : LB283_移動() End Sub Private Sub LB283_LocationChanged(sender As Object, e As EventArgs) Handles LB283.LocationChanged LB283_移動() End Sub Private Sub LB283_TextChanged(sender As Object, e As EventArgs) Handles LB283.TextChanged LB283_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB284_移動() Dim sx, sxx As Integer : sx = LB284.Size.Height : sxx = LB284.Location.Y : NU3 = LB285.Location.X : NU4 = LB286.Location.X LB285.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB286.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB284_Click(sender As Object, e As EventArgs) Handles LB284.Click PA = LB284.Text : 合約內文修改視窗.ShowDialog() : LB284.Text = PA : LB284_移動() End Sub Private Sub LB284_LocationChanged(sender As Object, e As EventArgs) Handles LB284.LocationChanged LB284_移動() End Sub Private Sub LB284_TextChanged(sender As Object, e As EventArgs) Handles LB284.TextChanged LB284_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB285_Click(sender As Object, e As EventArgs) Handles LB285.Click NU5 = LB285.Location.X : BL1 = True : PA = LB285.Text : 合約內文修改視窗.ShowDialog() : LB285.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB285.Location.Y : LB285.Location = New Drawing.Point(syy1, sxx) sxx = LB286.Location.Y : LB286.Location = New Drawing.Point(syy2, sxx) : sxx = LB287.Location.Y : LB287.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB286_移動() Dim sx, sxx As Integer : sx = LB286.Size.Height : sxx = LB286.Location.Y : NU4 = LB287.Location.X : LB287.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB286_Click(sender As Object, e As EventArgs) Handles LB286.Click PA = LB286.Text : 合約內文修改視窗.ShowDialog() : LB286.Text = PA : LB286_移動() End Sub Private Sub LB286_LocationChanged(sender As Object, e As EventArgs) Handles LB286.LocationChanged LB286_移動() End Sub Private Sub LB286_TextChanged(sender As Object, e As EventArgs) Handles LB286.TextChanged LB286_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB287_移動() Dim sx, sxx As Integer : sx = LB287.Size.Height : sxx = LB287.Location.Y : NU3 = LB288.Location.X : NU4 = LB289.Location.X LB288.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB289.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB287_Click(sender As Object, e As EventArgs) Handles LB287.Click PA = LB287.Text : 合約內文修改視窗.ShowDialog() : LB287.Text = PA : LB287_移動() End Sub Private Sub LB287_LocationChanged(sender As Object, e As EventArgs) Handles LB287.LocationChanged LB287_移動() End Sub Private Sub LB287_TextChanged(sender As Object, e As EventArgs) Handles LB287.TextChanged LB287_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB288_Click(sender As Object, e As EventArgs) Handles LB288.Click NU5 = LB288.Location.X : BL1 = True : PA = LB288.Text : 合約內文修改視窗.ShowDialog() : LB288.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB288.Location.Y : LB288.Location = New Drawing.Point(syy1, sxx) sxx = LB289.Location.Y : LB289.Location = New Drawing.Point(syy2, sxx) : sxx = LB290.Location.Y : LB290.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB289_移動() Dim sx, sxx As Integer : sx = LB289.Size.Height : sxx = LB289.Location.Y : NU4 = LB290.Location.X : LB290.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB289_Click(sender As Object, e As EventArgs) Handles LB289.Click PA = LB289.Text : 合約內文修改視窗.ShowDialog() : LB289.Text = PA : LB289_移動() End Sub Private Sub LB289_LocationChanged(sender As Object, e As EventArgs) Handles LB289.LocationChanged LB289_移動() End Sub Private Sub LB289_TextChanged(sender As Object, e As EventArgs) Handles LB289.TextChanged LB289_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB290_移動() Dim sx, sxx As Integer : sx = LB290.Size.Height : sxx = LB290.Location.Y : NU3 = LB291.Location.X : NU4 = LB292.Location.X LB291.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB292.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB290_Click(sender As Object, e As EventArgs) Handles LB290.Click PA = LB290.Text : 合約內文修改視窗.ShowDialog() : LB290.Text = PA : LB290_移動() End Sub Private Sub LB290_LocationChanged(sender As Object, e As EventArgs) Handles LB290.LocationChanged LB290_移動() End Sub Private Sub LB290_TextChanged(sender As Object, e As EventArgs) Handles LB290.TextChanged LB290_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB291_Click(sender As Object, e As EventArgs) Handles LB291.Click NU5 = LB291.Location.X : BL1 = True : PA = LB291.Text : 合約內文修改視窗.ShowDialog() : LB291.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB291.Location.Y : LB291.Location = New Drawing.Point(syy1, sxx) sxx = LB292.Location.Y : LB292.Location = New Drawing.Point(syy2, sxx) : sxx = LB293.Location.Y : LB293.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB292_移動() Dim sx, sxx As Integer : sx = LB292.Size.Height : sxx = LB292.Location.Y : NU4 = LB293.Location.X : LB293.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB292_Click(sender As Object, e As EventArgs) Handles LB292.Click PA = LB292.Text : 合約內文修改視窗.ShowDialog() : LB292.Text = PA : LB292_移動() End Sub Private Sub LB292_LocationChanged(sender As Object, e As EventArgs) Handles LB292.LocationChanged LB292_移動() End Sub Private Sub LB292_TextChanged(sender As Object, e As EventArgs) Handles LB292.TextChanged LB292_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB293_移動() Dim sx, sxx As Integer : sx = LB293.Size.Height : sxx = LB293.Location.Y : NU3 = LB294.Location.X : NU4 = LB295.Location.X LB294.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB295.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB293_Click(sender As Object, e As EventArgs) Handles LB293.Click PA = LB293.Text : 合約內文修改視窗.ShowDialog() : LB293.Text = PA : LB293_移動() End Sub Private Sub LB293_LocationChanged(sender As Object, e As EventArgs) Handles LB293.LocationChanged LB293_移動() End Sub Private Sub LB293_TextChanged(sender As Object, e As EventArgs) Handles LB293.TextChanged LB293_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB294_Click(sender As Object, e As EventArgs) Handles LB294.Click NU5 = LB294.Location.X : BL1 = True : PA = LB294.Text : 合約內文修改視窗.ShowDialog() : LB294.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB294.Location.Y : LB294.Location = New Drawing.Point(syy1, sxx) sxx = LB295.Location.Y : LB295.Location = New Drawing.Point(syy2, sxx) : sxx = LB296.Location.Y : LB296.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB295_移動() Dim sx, sxx As Integer : sx = LB295.Size.Height : sxx = LB295.Location.Y : NU4 = LB296.Location.X : LB296.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB295_Click(sender As Object, e As EventArgs) Handles LB295.Click PA = LB295.Text : 合約內文修改視窗.ShowDialog() : LB295.Text = PA : LB295_移動() End Sub Private Sub LB295_LocationChanged(sender As Object, e As EventArgs) Handles LB295.LocationChanged LB295_移動() End Sub Private Sub LB295_TextChanged(sender As Object, e As EventArgs) Handles LB295.TextChanged LB295_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB296_移動() Dim sx, sxx As Integer : sx = LB296.Size.Height : sxx = LB296.Location.Y : NU3 = LB297.Location.X : NU4 = LB298.Location.X LB297.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB298.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB296_Click(sender As Object, e As EventArgs) Handles LB296.Click PA = LB296.Text : 合約內文修改視窗.ShowDialog() : LB296.Text = PA : LB296_移動() End Sub Private Sub LB296_LocationChanged(sender As Object, e As EventArgs) Handles LB296.LocationChanged LB296_移動() End Sub Private Sub LB296_TextChanged(sender As Object, e As EventArgs) Handles LB296.TextChanged LB296_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB297_Click(sender As Object, e As EventArgs) Handles LB297.Click NU5 = LB297.Location.X : BL1 = True : PA = LB297.Text : 合約內文修改視窗.ShowDialog() : LB297.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB297.Location.Y : LB297.Location = New Drawing.Point(syy1, sxx) sxx = LB298.Location.Y : LB298.Location = New Drawing.Point(syy2, sxx) : sxx = LB299.Location.Y : LB299.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB298_移動() Dim sx, sxx As Integer : sx = LB298.Size.Height : sxx = LB298.Location.Y : NU4 = LB299.Location.X : LB299.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB298_Click(sender As Object, e As EventArgs) Handles LB298.Click PA = LB298.Text : 合約內文修改視窗.ShowDialog() : LB298.Text = PA : LB298_移動() End Sub Private Sub LB298_LocationChanged(sender As Object, e As EventArgs) Handles LB298.LocationChanged LB298_移動() End Sub Private Sub LB298_TextChanged(sender As Object, e As EventArgs) Handles LB298.TextChanged LB298_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB299_移動() Dim sx, sxx As Integer : sx = LB299.Size.Height : sxx = LB299.Location.Y : NU3 = LB300.Location.X : NU4 = LB301.Location.X LB300.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB301.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB299_Click(sender As Object, e As EventArgs) Handles LB299.Click PA = LB299.Text : 合約內文修改視窗.ShowDialog() : LB299.Text = PA : LB299_移動() End Sub Private Sub LB299_LocationChanged(sender As Object, e As EventArgs) Handles LB299.LocationChanged LB299_移動() End Sub Private Sub LB299_TextChanged(sender As Object, e As EventArgs) Handles LB299.TextChanged LB299_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB300_Click(sender As Object, e As EventArgs) Handles LB300.Click NU5 = LB300.Location.X : BL1 = True : PA = LB300.Text : 合約內文修改視窗.ShowDialog() : LB300.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB300.Location.Y : LB300.Location = New Drawing.Point(syy1, sxx) sxx = LB301.Location.Y : LB301.Location = New Drawing.Point(syy2, sxx) : sxx = LB302.Location.Y : LB302.Location = New Drawing.Point(syy2, sxx) End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB301_移動() Dim sx, sxx As Integer : sx = LB301.Size.Height : sxx = LB301.Location.Y : NU4 = LB302.Location.X : LB302.Location = New Drawing.Point(NU4, sxx + sx + 10) End Sub Private Sub LB301_Click(sender As Object, e As EventArgs) Handles LB301.Click PA = LB301.Text : 合約內文修改視窗.ShowDialog() : LB301.Text = PA : LB301_移動() End Sub Private Sub LB301_LocationChanged(sender As Object, e As EventArgs) Handles LB301.LocationChanged LB301_移動() End Sub Private Sub LB301_TextChanged(sender As Object, e As EventArgs) Handles LB301.TextChanged LB301_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB302_Click(sender As Object, e As EventArgs) Handles LB302.Click PA = LB302.Text : 合約內文修改視窗.ShowDialog() : LB302.Text = PA End Sub '---------------------------第15頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB303_Click(sender As Object, e As EventArgs) Handles LB303.Click PA = LB303.Text : 合約內文修改視窗.ShowDialog() : LB303.Text = PA End Sub Private Sub LB304_Click(sender As Object, e As EventArgs) Handles LB304.Click PA = LB304.Text : 合約內文修改視窗.ShowDialog() : LB304.Text = PA End Sub Private Sub LB305_Click(sender As Object, e As EventArgs) Handles LB305.Click PA = LB305.Text : 合約內文修改視窗.ShowDialog() : LB305.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB306_Click(sender As Object, e As EventArgs) Handles LB306.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB306.Location.X : BL1 = True : PA = LB306.Text : 合約內文修改視窗.ShowDialog() : LB306.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB306.Location.Y : LB306.Location = New Drawing.Point(syy1, sxx) sxx = LB307.Location.Y : LB307.Location = New Drawing.Point(syy2, sxx) : sxx = LB308.Location.Y : LB308.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB307_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB307.Size.Height : sxx = LB307.Location.Y : NU4 = LB308.Location.X : LB308.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB307_Click(sender As Object, e As EventArgs) Handles LB307.Click PA = LB307.Text : 合約內文修改視窗.ShowDialog() : LB307.Text = PA : LB307_移動() End Sub Private Sub LB307_LocationChanged(sender As Object, e As EventArgs) Handles LB307.LocationChanged LB307_移動() End Sub Private Sub LB307_TextChanged(sender As Object, e As EventArgs) Handles LB307.TextChanged LB307_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB308_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB308.Size.Height sxx = LB308.Location.Y : NU3 = LB309.Location.X : NU4 = LB310.Location.X : LB309.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB310.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB308_Click(sender As Object, e As EventArgs) Handles LB308.Click PA = LB308.Text : 合約內文修改視窗.ShowDialog() : LB308.Text = PA : LB308_移動() End Sub Private Sub LB308_LocationChanged(sender As Object, e As EventArgs) Handles LB308.LocationChanged LB308_移動() End Sub Private Sub LB308_TextChanged(sender As Object, e As EventArgs) Handles LB308.TextChanged LB308_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB309_Click(sender As Object, e As EventArgs) Handles LB309.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB309.Location.X : BL1 = True : PA = LB309.Text : 合約內文修改視窗.ShowDialog() : LB309.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB309.Location.Y : LB309.Location = New Drawing.Point(syy1, sxx) sxx = LB310.Location.Y : LB310.Location = New Drawing.Point(syy2, sxx) : sxx = LB311.Location.Y : LB311.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB310_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB310.Size.Height sxx = LB310.Location.Y : NU4 = LB311.Location.X : LB311.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB310_Click(sender As Object, e As EventArgs) Handles LB310.Click PA = LB310.Text : 合約內文修改視窗.ShowDialog() : LB310.Text = PA : LB310_移動() End Sub Private Sub LB310_LocationChanged(sender As Object, e As EventArgs) Handles LB310.LocationChanged LB310_移動() End Sub Private Sub LB310_TextChanged(sender As Object, e As EventArgs) Handles LB310.TextChanged LB310_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB311_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB311.Size.Height : sxx = LB311.Location.Y NU3 = LB312.Location.X : NU4 = LB313.Location.X : LB312.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB313.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB311_Click(sender As Object, e As EventArgs) Handles LB311.Click PA = LB311.Text : 合約內文修改視窗.ShowDialog() : LB311.Text = PA : LB311_移動() End Sub Private Sub LB311_LocationChanged(sender As Object, e As EventArgs) Handles LB311.LocationChanged LB311_移動() End Sub Private Sub LB311_TextChanged(sender As Object, e As EventArgs) Handles LB311.TextChanged LB311_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB312_Click(sender As Object, e As EventArgs) Handles LB312.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB312.Location.X : BL1 = True : PA = LB312.Text : 合約內文修改視窗.ShowDialog() : LB312.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB312.Location.Y : LB312.Location = New Drawing.Point(syy1, sxx) sxx = LB313.Location.Y : LB313.Location = New Drawing.Point(syy2, sxx) : sxx = LB314.Location.Y : LB314.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB313_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB313.Size.Height : sxx = LB313.Location.Y : NU4 = LB314.Location.X : LB314.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB313_Click(sender As Object, e As EventArgs) Handles LB313.Click PA = LB313.Text : 合約內文修改視窗.ShowDialog() : LB313.Text = PA : LB313_移動() End Sub Private Sub LB313_LocationChanged(sender As Object, e As EventArgs) Handles LB313.LocationChanged LB313_移動() End Sub Private Sub LB313_TextChanged(sender As Object, e As EventArgs) Handles LB313.TextChanged LB313_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB314_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB314.Size.Height : sxx = LB314.Location.Y NU3 = LB315.Location.X : NU4 = LB316.Location.X : LB315.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB316.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB314_Click(sender As Object, e As EventArgs) Handles LB314.Click PA = LB314.Text : 合約內文修改視窗.ShowDialog() : LB314.Text = PA : LB314_移動() End Sub Private Sub LB314_LocationChanged(sender As Object, e As EventArgs) Handles LB314.LocationChanged LB314_移動() End Sub Private Sub LB314_TextChanged(sender As Object, e As EventArgs) Handles LB314.TextChanged LB314_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB315_Click(sender As Object, e As EventArgs) Handles LB315.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB315.Location.X : BL1 = True : PA = LB315.Text : 合約內文修改視窗.ShowDialog() : LB315.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB315.Location.Y : LB315.Location = New Drawing.Point(syy1, sxx) sxx = LB316.Location.Y : LB316.Location = New Drawing.Point(syy2, sxx) : sxx = LB317.Location.Y : LB317.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB316_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB316.Size.Height : sxx = LB316.Location.Y : NU4 = LB317.Location.X : LB317.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB316_Click(sender As Object, e As EventArgs) Handles LB316.Click PA = LB316.Text : 合約內文修改視窗.ShowDialog() : LB316.Text = PA : LB316_移動() End Sub Private Sub LB316_LocationChanged(sender As Object, e As EventArgs) Handles LB316.LocationChanged LB316_移動() End Sub Private Sub LB316_TextChanged(sender As Object, e As EventArgs) Handles LB316.TextChanged LB316_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB317_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB317.Size.Height : sxx = LB317.Location.Y NU3 = LB318.Location.X : NU4 = LB319.Location.X : LB318.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB319.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB317_Click(sender As Object, e As EventArgs) Handles LB317.Click PA = LB317.Text : 合約內文修改視窗.ShowDialog() : LB317.Text = PA : LB317_移動() End Sub Private Sub LB317_LocationChanged(sender As Object, e As EventArgs) Handles LB317.LocationChanged LB317_移動() End Sub Private Sub LB317_TextChanged(sender As Object, e As EventArgs) Handles LB317.TextChanged LB317_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB318_Click(sender As Object, e As EventArgs) Handles LB318.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB318.Location.X : BL1 = True : PA = LB318.Text : 合約內文修改視窗.ShowDialog() : LB318.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB318.Location.Y : LB318.Location = New Drawing.Point(syy1, sxx) sxx = LB319.Location.Y : LB319.Location = New Drawing.Point(syy2, sxx) : sxx = LB320.Location.Y : LB320.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB319_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB319.Size.Height : sxx = LB319.Location.Y : NU4 = LB320.Location.X : LB320.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB319_Click(sender As Object, e As EventArgs) Handles LB319.Click PA = LB319.Text : 合約內文修改視窗.ShowDialog() : LB319.Text = PA : LB319_移動() End Sub Private Sub LB319_LocationChanged(sender As Object, e As EventArgs) Handles LB319.LocationChanged LB319_移動() End Sub Private Sub LB319_TextChanged(sender As Object, e As EventArgs) Handles LB319.TextChanged LB319_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB320_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB320.Size.Height : sxx = LB320.Location.Y NU3 = LB321.Location.X : NU4 = LB322.Location.X : LB321.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB322.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB320_Click(sender As Object, e As EventArgs) Handles LB320.Click PA = LB320.Text : 合約內文修改視窗.ShowDialog() : LB320.Text = PA : LB320_移動() End Sub Private Sub LB320_LocationChanged(sender As Object, e As EventArgs) Handles LB320.LocationChanged LB320_移動() End Sub Private Sub LB320_TextChanged(sender As Object, e As EventArgs) Handles LB320.TextChanged LB320_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB321_Click(sender As Object, e As EventArgs) Handles LB321.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB321.Location.X : BL1 = True : PA = LB321.Text : 合約內文修改視窗.ShowDialog() : LB321.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB321.Location.Y : LB321.Location = New Drawing.Point(syy1, sxx) sxx = LB322.Location.Y : LB322.Location = New Drawing.Point(syy2, sxx) : sxx = LB323.Location.Y : LB323.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB322_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB322.Size.Height : sxx = LB322.Location.Y : NU4 = LB323.Location.X : LB323.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB322_Click(sender As Object, e As EventArgs) Handles LB322.Click PA = LB322.Text : 合約內文修改視窗.ShowDialog() : LB322.Text = PA : LB322_移動() End Sub Private Sub LB322_LocationChanged(sender As Object, e As EventArgs) Handles LB322.LocationChanged LB322_移動() End Sub Private Sub LB322_TextChanged(sender As Object, e As EventArgs) Handles LB322.TextChanged LB322_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB323_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB323.Size.Height : sxx = LB323.Location.Y NU3 = LB324.Location.X : NU4 = LB325.Location.X : LB324.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB325.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB323_Click(sender As Object, e As EventArgs) Handles LB323.Click PA = LB323.Text : 合約內文修改視窗.ShowDialog() : LB323.Text = PA : LB323_移動() End Sub Private Sub LB323_LocationChanged(sender As Object, e As EventArgs) Handles LB323.LocationChanged LB323_移動() End Sub Private Sub LB323_TextChanged(sender As Object, e As EventArgs) Handles LB323.TextChanged LB323_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB324_Click(sender As Object, e As EventArgs) Handles LB324.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB324.Location.X : BL1 = True : PA = LB324.Text : 合約內文修改視窗.ShowDialog() : LB324.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB324.Location.Y : LB324.Location = New Drawing.Point(syy1, sxx) sxx = LB325.Location.Y : LB325.Location = New Drawing.Point(syy2, sxx) : sxx = LB326.Location.Y : LB326.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB325_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB325.Size.Height : sxx = LB325.Location.Y : NU4 = LB326.Location.X : LB326.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB325_Click(sender As Object, e As EventArgs) Handles LB325.Click PA = LB325.Text : 合約內文修改視窗.ShowDialog() : LB325.Text = PA : LB325_移動() End Sub Private Sub LB325_LocationChanged(sender As Object, e As EventArgs) Handles LB325.LocationChanged LB325_移動() End Sub Private Sub LB325_TextChanged(sender As Object, e As EventArgs) Handles LB325.TextChanged LB325_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB326_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB326.Size.Height : sxx = LB326.Location.Y NU3 = LB327.Location.X : NU4 = LB328.Location.X : LB327.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB328.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB326_Click(sender As Object, e As EventArgs) Handles LB326.Click PA = LB326.Text : 合約內文修改視窗.ShowDialog() : LB326.Text = PA : LB326_移動() End Sub Private Sub LB326_LocationChanged(sender As Object, e As EventArgs) Handles LB326.LocationChanged LB326_移動() End Sub Private Sub LB326_TextChanged(sender As Object, e As EventArgs) Handles LB326.TextChanged LB326_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB327_Click(sender As Object, e As EventArgs) Handles LB327.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB327.Location.X : BL1 = True : PA = LB327.Text : 合約內文修改視窗.ShowDialog() : LB327.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB327.Location.Y : LB327.Location = New Drawing.Point(syy1, sxx) sxx = LB328.Location.Y : LB328.Location = New Drawing.Point(syy2, sxx) : sxx = LB329.Location.Y : LB329.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB328_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB328.Size.Height : sxx = LB328.Location.Y : NU4 = LB329.Location.X : LB329.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB328_Click(sender As Object, e As EventArgs) Handles LB328.Click PA = LB328.Text : 合約內文修改視窗.ShowDialog() : LB328.Text = PA : LB328_移動() End Sub Private Sub LB328_LocationChanged(sender As Object, e As EventArgs) Handles LB328.LocationChanged LB328_移動() End Sub Private Sub LB328_TextChanged(sender As Object, e As EventArgs) Handles LB328.TextChanged LB328_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB329_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB329.Size.Height : sxx = LB329.Location.Y NU3 = LB330.Location.X : NU4 = LB331.Location.X : LB330.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB331.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB329_Click(sender As Object, e As EventArgs) Handles LB329.Click PA = LB329.Text : 合約內文修改視窗.ShowDialog() : LB329.Text = PA : LB329_移動() End Sub Private Sub LB329_LocationChanged(sender As Object, e As EventArgs) Handles LB329.LocationChanged LB329_移動() End Sub Private Sub LB329_TextChanged(sender As Object, e As EventArgs) Handles LB329.TextChanged LB329_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB330_Click(sender As Object, e As EventArgs) Handles LB330.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB330.Location.X : BL1 = True : PA = LB330.Text : 合約內文修改視窗.ShowDialog() : LB330.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB330.Location.Y : LB330.Location = New Drawing.Point(syy1, sxx) sxx = LB331.Location.Y : LB331.Location = New Drawing.Point(syy2, sxx) : sxx = LB332.Location.Y : LB332.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB331_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB331.Size.Height : sxx = LB331.Location.Y : NU4 = LB332.Location.X : LB332.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB331_Click(sender As Object, e As EventArgs) Handles LB331.Click PA = LB331.Text : 合約內文修改視窗.ShowDialog() : LB331.Text = PA : LB331_移動() End Sub Private Sub LB331_LocationChanged(sender As Object, e As EventArgs) Handles LB331.LocationChanged LB331_移動() End Sub Private Sub LB331_TextChanged(sender As Object, e As EventArgs) Handles LB331.TextChanged LB331_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB332_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB332.Size.Height : sxx = LB332.Location.Y NU3 = LB333.Location.X : NU4 = LB334.Location.X : LB333.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB334.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB332_Click(sender As Object, e As EventArgs) Handles LB332.Click PA = LB332.Text : 合約內文修改視窗.ShowDialog() : LB332.Text = PA : LB332_移動() End Sub Private Sub LB332_LocationChanged(sender As Object, e As EventArgs) Handles LB332.LocationChanged LB332_移動() End Sub Private Sub LB332_TextChanged(sender As Object, e As EventArgs) Handles LB332.TextChanged LB332_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB333_Click(sender As Object, e As EventArgs) Handles LB333.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB333.Location.X : BL1 = True : PA = LB333.Text : 合約內文修改視窗.ShowDialog() : LB333.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB333.Location.Y : LB333.Location = New Drawing.Point(syy1, sxx) sxx = LB334.Location.Y : LB334.Location = New Drawing.Point(syy2, sxx) : sxx = LB335.Location.Y : LB335.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB334_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB334.Size.Height : sxx = LB334.Location.Y : NU4 = LB335.Location.X : LB335.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB334_Click(sender As Object, e As EventArgs) Handles LB334.Click PA = LB334.Text : 合約內文修改視窗.ShowDialog() : LB334.Text = PA : LB334_移動() End Sub Private Sub LB334_LocationChanged(sender As Object, e As EventArgs) Handles LB334.LocationChanged LB334_移動() End Sub Private Sub LB334_TextChanged(sender As Object, e As EventArgs) Handles LB334.TextChanged LB334_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB335_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB335.Size.Height : sxx = LB335.Location.Y NU3 = LB336.Location.X : NU4 = LB337.Location.X : LB336.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB337.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB335_Click(sender As Object, e As EventArgs) Handles LB335.Click PA = LB335.Text : 合約內文修改視窗.ShowDialog() : LB335.Text = PA : LB335_移動() End Sub Private Sub LB335_LocationChanged(sender As Object, e As EventArgs) Handles LB335.LocationChanged LB335_移動() End Sub Private Sub LB335_TextChanged(sender As Object, e As EventArgs) Handles LB335.TextChanged LB335_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB336_Click(sender As Object, e As EventArgs) Handles LB336.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB336.Location.X : BL1 = True : PA = LB336.Text : 合約內文修改視窗.ShowDialog() : LB336.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB336.Location.Y : LB336.Location = New Drawing.Point(syy1, sxx) sxx = LB337.Location.Y : LB337.Location = New Drawing.Point(syy2, sxx) : sxx = LB338.Location.Y : LB338.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB337_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB337.Size.Height : sxx = LB337.Location.Y : NU4 = LB338.Location.X : LB338.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB337_Click(sender As Object, e As EventArgs) Handles LB337.Click PA = LB337.Text : 合約內文修改視窗.ShowDialog() : LB337.Text = PA : LB337_移動() End Sub Private Sub LB337_LocationChanged(sender As Object, e As EventArgs) Handles LB337.LocationChanged LB337_移動() End Sub Private Sub LB337_TextChanged(sender As Object, e As EventArgs) Handles LB337.TextChanged LB337_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB338_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB338.Size.Height : sxx = LB338.Location.Y NU3 = LB339.Location.X : NU4 = LB340.Location.X : LB339.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB340.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB338_Click(sender As Object, e As EventArgs) Handles LB338.Click PA = LB338.Text : 合約內文修改視窗.ShowDialog() : LB338.Text = PA : LB338_移動() End Sub Private Sub LB338_LocationChanged(sender As Object, e As EventArgs) Handles LB338.LocationChanged LB338_移動() End Sub Private Sub LB338_TextChanged(sender As Object, e As EventArgs) Handles LB338.TextChanged LB338_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB339_Click(sender As Object, e As EventArgs) Handles LB339.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB339.Location.X : BL1 = True : PA = LB339.Text : 合約內文修改視窗.ShowDialog() : LB339.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB339.Location.Y : LB339.Location = New Drawing.Point(syy1, sxx) sxx = LB340.Location.Y : LB340.Location = New Drawing.Point(syy2, sxx) : sxx = LB341.Location.Y : LB341.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB340_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB340.Size.Height : sxx = LB340.Location.Y : NU4 = LB341.Location.X : LB341.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB340_Click(sender As Object, e As EventArgs) Handles LB340.Click PA = LB340.Text : 合約內文修改視窗.ShowDialog() : LB340.Text = PA : LB340_移動() End Sub Private Sub LB340_LocationChanged(sender As Object, e As EventArgs) Handles LB340.LocationChanged LB340_移動() End Sub Private Sub LB340_TextChanged(sender As Object, e As EventArgs) Handles LB340.TextChanged LB340_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB341_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB341.Size.Height : sxx = LB341.Location.Y NU3 = LB342.Location.X : NU4 = LB343.Location.X : LB342.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB343.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB341_Click(sender As Object, e As EventArgs) Handles LB341.Click PA = LB341.Text : 合約內文修改視窗.ShowDialog() : LB341.Text = PA : LB341_移動() End Sub Private Sub LB341_LocationChanged(sender As Object, e As EventArgs) Handles LB341.LocationChanged LB341_移動() End Sub Private Sub LB341_TextChanged(sender As Object, e As EventArgs) Handles LB341.TextChanged LB341_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB342_Click(sender As Object, e As EventArgs) Handles LB342.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB342.Location.X : BL1 = True : PA = LB342.Text : 合約內文修改視窗.ShowDialog() : LB342.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB342.Location.Y : LB342.Location = New Drawing.Point(syy1, sxx) sxx = LB343.Location.Y : LB343.Location = New Drawing.Point(syy2, sxx) : sxx = LB344.Location.Y : LB344.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB343_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB343.Size.Height : sxx = LB343.Location.Y : NU4 = LB344.Location.X : LB344.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB343_Click(sender As Object, e As EventArgs) Handles LB343.Click PA = LB343.Text : 合約內文修改視窗.ShowDialog() : LB343.Text = PA : LB343_移動() End Sub Private Sub LB343_LocationChanged(sender As Object, e As EventArgs) Handles LB343.LocationChanged LB343_移動() End Sub Private Sub LB343_TextChanged(sender As Object, e As EventArgs) Handles LB343.TextChanged LB343_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB344_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB344.Size.Height : sxx = LB344.Location.Y NU3 = LB345.Location.X : NU4 = LB346.Location.X : LB345.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB346.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB344_Click(sender As Object, e As EventArgs) Handles LB344.Click PA = LB344.Text : 合約內文修改視窗.ShowDialog() : LB344.Text = PA : LB344_移動() End Sub Private Sub LB344_LocationChanged(sender As Object, e As EventArgs) Handles LB344.LocationChanged LB344_移動() End Sub Private Sub LB344_TextChanged(sender As Object, e As EventArgs) Handles LB344.TextChanged LB344_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB345_Click(sender As Object, e As EventArgs) Handles LB345.Click If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then NU5 = LB345.Location.X : BL1 = True : PA = LB345.Text : 合約內文修改視窗.ShowDialog() : LB345.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB345.Location.Y : LB345.Location = New Drawing.Point(syy1, sxx) sxx = LB346.Location.Y : LB346.Location = New Drawing.Point(syy2, sxx) : sxx = LB347.Location.Y : LB347.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB346_移動() If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB346.Size.Height : sxx = LB346.Location.Y : NU4 = LB347.Location.X : LB347.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB346_Click(sender As Object, e As EventArgs) Handles LB346.Click PA = LB346.Text : 合約內文修改視窗.ShowDialog() : LB346.Text = PA : LB346_移動() End Sub Private Sub LB346_LocationChanged(sender As Object, e As EventArgs) Handles LB346.LocationChanged LB346_移動() End Sub Private Sub LB346_TextChanged(sender As Object, e As EventArgs) Handles LB346.TextChanged LB346_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB347_Click(sender As Object, e As EventArgs) Handles LB347.Click PA = LB347.Text : 合約內文修改視窗.ShowDialog() : LB347.Text = PA End Sub '---------------------------第14頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB348_Click(sender As Object, e As EventArgs) Handles LB348.Click PA = LB348.Text : 合約內文修改視窗.ShowDialog() : LB348.Text = PA End Sub Private Sub LB349_Click(sender As Object, e As EventArgs) Handles LB349.Click PA = LB349.Text : 合約內文修改視窗.ShowDialog() : LB349.Text = PA End Sub Private Sub LB350_Click(sender As Object, e As EventArgs) Handles LB350.Click PA = LB350.Text : 合約內文修改視窗.ShowDialog() : LB350.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB351_Click(sender As Object, e As EventArgs) Handles LB351.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB351.Location.X : BL1 = True : PA = LB351.Text : 合約內文修改視窗.ShowDialog() : LB351.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB351.Location.Y : LB351.Location = New Drawing.Point(syy1, sxx) sxx = LB352.Location.Y : LB352.Location = New Drawing.Point(syy2, sxx) : sxx = LB353.Location.Y : LB353.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB352_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB352.Size.Height : sxx = LB352.Location.Y : NU4 = LB353.Location.X : LB353.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB352_Click(sender As Object, e As EventArgs) Handles LB352.Click PA = LB352.Text : 合約內文修改視窗.ShowDialog() : LB352.Text = PA : LB352_移動() End Sub Private Sub LB352_LocationChanged(sender As Object, e As EventArgs) Handles LB352.LocationChanged LB352_移動() End Sub Private Sub LB352_TextChanged(sender As Object, e As EventArgs) Handles LB352.TextChanged LB352_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB353_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB353.Size.Height : sxx = LB353.Location.Y NU3 = LB354.Location.X : NU4 = LB355.Location.X : LB354.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB355.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB353_Click(sender As Object, e As EventArgs) Handles LB353.Click PA = LB353.Text : 合約內文修改視窗.ShowDialog() : LB353.Text = PA : LB353_移動() End Sub Private Sub LB353_LocationChanged(sender As Object, e As EventArgs) Handles LB353.LocationChanged LB353_移動() End Sub Private Sub LB353_TextChanged(sender As Object, e As EventArgs) Handles LB353.TextChanged LB353_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB354_Click(sender As Object, e As EventArgs) Handles LB354.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB354.Location.X : BL1 = True : PA = LB354.Text : 合約內文修改視窗.ShowDialog() : LB354.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB354.Location.Y : LB354.Location = New Drawing.Point(syy1, sxx) sxx = LB355.Location.Y : LB355.Location = New Drawing.Point(syy2, sxx) : sxx = LB356.Location.Y : LB356.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB355_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB355.Size.Height : sxx = LB355.Location.Y : NU4 = LB356.Location.X : LB356.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB355_Click(sender As Object, e As EventArgs) Handles LB355.Click PA = LB355.Text : 合約內文修改視窗.ShowDialog() : LB355.Text = PA : LB355_移動() End Sub Private Sub LB355_LocationChanged(sender As Object, e As EventArgs) Handles LB355.LocationChanged LB355_移動() End Sub Private Sub LB355_TextChanged(sender As Object, e As EventArgs) Handles LB355.TextChanged LB355_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB356_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB356.Size.Height : sxx = LB356.Location.Y NU3 = LB357.Location.X : NU4 = LB358.Location.X : LB357.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB358.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB356_Click(sender As Object, e As EventArgs) Handles LB356.Click PA = LB356.Text : 合約內文修改視窗.ShowDialog() : LB356.Text = PA : LB356_移動() End Sub Private Sub LB356_LocationChanged(sender As Object, e As EventArgs) Handles LB356.LocationChanged LB356_移動() End Sub Private Sub LB356_TextChanged(sender As Object, e As EventArgs) Handles LB356.TextChanged LB356_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB357_Click(sender As Object, e As EventArgs) Handles LB357.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB357.Location.X : BL1 = True : PA = LB357.Text : 合約內文修改視窗.ShowDialog() : LB357.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB357.Location.Y : LB357.Location = New Drawing.Point(syy1, sxx) sxx = LB358.Location.Y : LB358.Location = New Drawing.Point(syy2, sxx) : sxx = LB359.Location.Y : LB359.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB358_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB358.Size.Height : sxx = LB358.Location.Y : NU4 = LB359.Location.X : LB359.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB358_Click(sender As Object, e As EventArgs) Handles LB358.Click PA = LB358.Text : 合約內文修改視窗.ShowDialog() : LB358.Text = PA : LB358_移動() End Sub Private Sub LB358_LocationChanged(sender As Object, e As EventArgs) Handles LB358.LocationChanged LB358_移動() End Sub Private Sub LB358_TextChanged(sender As Object, e As EventArgs) Handles LB358.TextChanged LB358_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB359_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB359.Size.Height : sxx = LB359.Location.Y NU3 = LB360.Location.X : NU4 = LB361.Location.X : LB360.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB361.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB359_Click(sender As Object, e As EventArgs) Handles LB359.Click PA = LB359.Text : 合約內文修改視窗.ShowDialog() : LB359.Text = PA : LB359_移動() End Sub Private Sub LB359_LocationChanged(sender As Object, e As EventArgs) Handles LB359.LocationChanged LB359_移動() End Sub Private Sub LB359_TextChanged(sender As Object, e As EventArgs) Handles LB359.TextChanged LB359_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB360_Click(sender As Object, e As EventArgs) Handles LB360.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB360.Location.X : BL1 = True : PA = LB360.Text : 合約內文修改視窗.ShowDialog() : LB360.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB360.Location.Y : LB360.Location = New Drawing.Point(syy1, sxx) sxx = LB361.Location.Y : LB361.Location = New Drawing.Point(syy2, sxx) : sxx = LB362.Location.Y : LB362.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB361_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB361.Size.Height : sxx = LB361.Location.Y : NU4 = LB362.Location.X : LB362.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB361_Click(sender As Object, e As EventArgs) Handles LB361.Click PA = LB361.Text : 合約內文修改視窗.ShowDialog() : LB361.Text = PA : LB361_移動() End Sub Private Sub LB361_LocationChanged(sender As Object, e As EventArgs) Handles LB361.LocationChanged LB361_移動() End Sub Private Sub LB361_TextChanged(sender As Object, e As EventArgs) Handles LB361.TextChanged LB361_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB362_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB362.Size.Height : sxx = LB362.Location.Y NU3 = LB363.Location.X : NU4 = LB364.Location.X : LB363.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB364.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB362_Click(sender As Object, e As EventArgs) Handles LB362.Click PA = LB362.Text : 合約內文修改視窗.ShowDialog() : LB362.Text = PA : LB362_移動() End Sub Private Sub LB362_LocationChanged(sender As Object, e As EventArgs) Handles LB362.LocationChanged LB362_移動() End Sub Private Sub LB362_TextChanged(sender As Object, e As EventArgs) Handles LB362.TextChanged LB362_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB363_Click(sender As Object, e As EventArgs) Handles LB363.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB363.Location.X : BL1 = True : PA = LB363.Text : 合約內文修改視窗.ShowDialog() : LB363.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB363.Location.Y : LB363.Location = New Drawing.Point(syy1, sxx) sxx = LB364.Location.Y : LB364.Location = New Drawing.Point(syy2, sxx) : sxx = LB365.Location.Y : LB365.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB364_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB364.Size.Height : sxx = LB364.Location.Y : NU4 = LB365.Location.X : LB365.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB364_Click(sender As Object, e As EventArgs) Handles LB364.Click PA = LB364.Text : 合約內文修改視窗.ShowDialog() : LB364.Text = PA : LB364_移動() End Sub Private Sub LB364_LocationChanged(sender As Object, e As EventArgs) Handles LB364.LocationChanged LB364_移動() End Sub Private Sub LB364_TextChanged(sender As Object, e As EventArgs) Handles LB364.TextChanged LB364_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB365_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB365.Size.Height : sxx = LB365.Location.Y NU3 = LB366.Location.X : NU4 = LB367.Location.X : LB366.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB367.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB365_Click(sender As Object, e As EventArgs) Handles LB365.Click PA = LB365.Text : 合約內文修改視窗.ShowDialog() : LB365.Text = PA : LB365_移動() End Sub Private Sub LB365_LocationChanged(sender As Object, e As EventArgs) Handles LB365.LocationChanged LB365_移動() End Sub Private Sub LB365_TextChanged(sender As Object, e As EventArgs) Handles LB365.TextChanged LB365_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB366_Click(sender As Object, e As EventArgs) Handles LB366.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB366.Location.X : BL1 = True : PA = LB366.Text : 合約內文修改視窗.ShowDialog() : LB366.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB366.Location.Y : LB366.Location = New Drawing.Point(syy1, sxx) sxx = LB367.Location.Y : LB367.Location = New Drawing.Point(syy2, sxx) : sxx = LB368.Location.Y : LB368.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB367_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB367.Size.Height : sxx = LB367.Location.Y : NU4 = LB368.Location.X : LB368.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB367_Click(sender As Object, e As EventArgs) Handles LB367.Click PA = LB367.Text : 合約內文修改視窗.ShowDialog() : LB367.Text = PA : LB367_移動() End Sub Private Sub LB367_LocationChanged(sender As Object, e As EventArgs) Handles LB367.LocationChanged LB367_移動() End Sub Private Sub LB367_TextChanged(sender As Object, e As EventArgs) Handles LB367.TextChanged LB367_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB368_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB368.Size.Height : sxx = LB368.Location.Y NU3 = LB369.Location.X : NU4 = LB370.Location.X : LB369.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB370.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB368_Click(sender As Object, e As EventArgs) Handles LB368.Click PA = LB368.Text : 合約內文修改視窗.ShowDialog() : LB368.Text = PA : LB368_移動() End Sub Private Sub LB368_LocationChanged(sender As Object, e As EventArgs) Handles LB368.LocationChanged LB368_移動() End Sub Private Sub LB368_TextChanged(sender As Object, e As EventArgs) Handles LB368.TextChanged LB368_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB369_Click(sender As Object, e As EventArgs) Handles LB369.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB369.Location.X : BL1 = True : PA = LB369.Text : 合約內文修改視窗.ShowDialog() : LB369.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB369.Location.Y : LB369.Location = New Drawing.Point(syy1, sxx) sxx = LB370.Location.Y : LB370.Location = New Drawing.Point(syy2, sxx) : sxx = LB371.Location.Y : LB371.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB370_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer sx = LB370.Size.Height : sxx = LB370.Location.Y : NU4 = LB371.Location.X : LB371.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB370_Click(sender As Object, e As EventArgs) Handles LB370.Click PA = LB370.Text : 合約內文修改視窗.ShowDialog() : LB370.Text = PA : LB370_移動() End Sub Private Sub LB370_LocationChanged(sender As Object, e As EventArgs) Handles LB370.LocationChanged LB370_移動() End Sub Private Sub LB370_TextChanged(sender As Object, e As EventArgs) Handles LB370.TextChanged LB370_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB371_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB371.Size.Height : sxx = LB371.Location.Y NU3 = LB372.Location.X : NU4 = LB373.Location.X : LB372.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB373.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB371_Click(sender As Object, e As EventArgs) Handles LB371.Click PA = LB371.Text : 合約內文修改視窗.ShowDialog() : LB371.Text = PA : LB371_移動() End Sub Private Sub LB371_LocationChanged(sender As Object, e As EventArgs) Handles LB371.LocationChanged LB371_移動() End Sub Private Sub LB371_TextChanged(sender As Object, e As EventArgs) Handles LB371.TextChanged LB371_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB372_Click(sender As Object, e As EventArgs) Handles LB372.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB372.Location.X : BL1 = True : PA = LB372.Text : 合約內文修改視窗.ShowDialog() : LB372.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB372.Location.Y : LB372.Location = New Drawing.Point(syy1, sxx) sxx = LB373.Location.Y : LB373.Location = New Drawing.Point(syy2, sxx) : sxx = LB374.Location.Y : LB374.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB373_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB373.Size.Height : sxx = LB373.Location.Y : NU4 = LB374.Location.X : LB374.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB373_Click(sender As Object, e As EventArgs) Handles LB373.Click PA = LB373.Text : 合約內文修改視窗.ShowDialog() : LB373.Text = PA : LB373_移動() End Sub Private Sub LB373_LocationChanged(sender As Object, e As EventArgs) Handles LB373.LocationChanged LB373_移動() End Sub Private Sub LB373_TextChanged(sender As Object, e As EventArgs) Handles LB373.TextChanged LB373_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB374_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB374.Size.Height : sxx = LB374.Location.Y NU3 = LB375.Location.X : NU4 = LB376.Location.X : LB375.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB376.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB374_Click(sender As Object, e As EventArgs) Handles LB374.Click PA = LB374.Text : 合約內文修改視窗.ShowDialog() : LB374.Text = PA : LB374_移動() End Sub Private Sub LB374_LocationChanged(sender As Object, e As EventArgs) Handles LB374.LocationChanged LB374_移動() End Sub Private Sub LB374_TextChanged(sender As Object, e As EventArgs) Handles LB374.TextChanged LB374_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB375_Click(sender As Object, e As EventArgs) Handles LB375.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB375.Location.X : BL1 = True : PA = LB375.Text : 合約內文修改視窗.ShowDialog() : LB375.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB375.Location.Y : LB375.Location = New Drawing.Point(syy1, sxx) sxx = LB376.Location.Y : LB376.Location = New Drawing.Point(syy2, sxx) : sxx = LB377.Location.Y : LB377.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB376_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB376.Size.Height : sxx = LB376.Location.Y : NU4 = LB377.Location.X : LB377.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB376_Click(sender As Object, e As EventArgs) Handles LB376.Click PA = LB376.Text : 合約內文修改視窗.ShowDialog() : LB376.Text = PA : LB376_移動() End Sub Private Sub LB376_LocationChanged(sender As Object, e As EventArgs) Handles LB376.LocationChanged LB376_移動() End Sub Private Sub LB376_TextChanged(sender As Object, e As EventArgs) Handles LB376.TextChanged LB376_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB377_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB377.Size.Height : sxx = LB377.Location.Y NU3 = LB378.Location.X : NU4 = LB379.Location.X : LB378.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB379.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB377_Click(sender As Object, e As EventArgs) Handles LB377.Click PA = LB377.Text : 合約內文修改視窗.ShowDialog() : LB377.Text = PA : LB377_移動() End Sub Private Sub LB377_LocationChanged(sender As Object, e As EventArgs) Handles LB377.LocationChanged LB377_移動() End Sub Private Sub LB377_TextChanged(sender As Object, e As EventArgs) Handles LB377.TextChanged LB377_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB378_Click(sender As Object, e As EventArgs) Handles LB378.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB378.Location.X : BL1 = True : PA = LB378.Text : 合約內文修改視窗.ShowDialog() : LB378.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB378.Location.Y : LB378.Location = New Drawing.Point(syy1, sxx) sxx = LB379.Location.Y : LB379.Location = New Drawing.Point(syy2, sxx) : sxx = LB380.Location.Y : LB380.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB379_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB379.Size.Height : sxx = LB379.Location.Y : NU4 = LB380.Location.X : LB380.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB379_Click(sender As Object, e As EventArgs) Handles LB379.Click PA = LB379.Text : 合約內文修改視窗.ShowDialog() : LB379.Text = PA : LB379_移動() End Sub Private Sub LB379_LocationChanged(sender As Object, e As EventArgs) Handles LB379.LocationChanged LB379_移動() End Sub Private Sub LB379_TextChanged(sender As Object, e As EventArgs) Handles LB379.TextChanged LB379_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB380_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB380.Size.Height : sxx = LB380.Location.Y NU3 = LB381.Location.X : NU4 = LB382.Location.X : LB381.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB382.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB380_Click(sender As Object, e As EventArgs) Handles LB380.Click PA = LB380.Text : 合約內文修改視窗.ShowDialog() : LB380.Text = PA : LB380_移動() End Sub Private Sub LB380_LocationChanged(sender As Object, e As EventArgs) Handles LB380.LocationChanged LB380_移動() End Sub Private Sub LB380_TextChanged(sender As Object, e As EventArgs) Handles LB380.TextChanged LB380_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB381_Click(sender As Object, e As EventArgs) Handles LB381.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB381.Location.X : BL1 = True : PA = LB381.Text : 合約內文修改視窗.ShowDialog() : LB381.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB381.Location.Y : LB381.Location = New Drawing.Point(syy1, sxx) sxx = LB382.Location.Y : LB382.Location = New Drawing.Point(syy2, sxx) : sxx = LB383.Location.Y : LB383.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB382_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB382.Size.Height : sxx = LB382.Location.Y : NU4 = LB383.Location.X : LB383.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB382_Click(sender As Object, e As EventArgs) Handles LB382.Click PA = LB382.Text : 合約內文修改視窗.ShowDialog() : LB382.Text = PA : LB382_移動() End Sub Private Sub LB382_LocationChanged(sender As Object, e As EventArgs) Handles LB382.LocationChanged LB382_移動() End Sub Private Sub LB382_TextChanged(sender As Object, e As EventArgs) Handles LB382.TextChanged LB382_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB383_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB383.Size.Height : sxx = LB383.Location.Y NU3 = LB384.Location.X : NU4 = LB385.Location.X : LB384.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB385.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB383_Click(sender As Object, e As EventArgs) Handles LB383.Click PA = LB383.Text : 合約內文修改視窗.ShowDialog() : LB383.Text = PA : LB383_移動() End Sub Private Sub LB383_LocationChanged(sender As Object, e As EventArgs) Handles LB383.LocationChanged LB383_移動() End Sub Private Sub LB383_TextChanged(sender As Object, e As EventArgs) Handles LB383.TextChanged LB383_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB384_Click(sender As Object, e As EventArgs) Handles LB384.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB384.Location.X : BL1 = True : PA = LB384.Text : 合約內文修改視窗.ShowDialog() : LB384.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB384.Location.Y : LB384.Location = New Drawing.Point(syy1, sxx) sxx = LB385.Location.Y : LB385.Location = New Drawing.Point(syy2, sxx) : sxx = LB386.Location.Y : LB386.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB385_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB385.Size.Height : sxx = LB385.Location.Y : NU4 = LB386.Location.X : LB386.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB385_Click(sender As Object, e As EventArgs) Handles LB385.Click PA = LB385.Text : 合約內文修改視窗.ShowDialog() : LB385.Text = PA : LB385_移動() End Sub Private Sub LB385_LocationChanged(sender As Object, e As EventArgs) Handles LB385.LocationChanged LB385_移動() End Sub Private Sub LB385_TextChanged(sender As Object, e As EventArgs) Handles LB385.TextChanged LB385_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB386_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB386.Size.Height : sxx = LB386.Location.Y NU3 = LB387.Location.X : NU4 = LB388.Location.X : LB387.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB388.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB386_Click(sender As Object, e As EventArgs) Handles LB386.Click PA = LB386.Text : 合約內文修改視窗.ShowDialog() : LB386.Text = PA : LB386_移動() End Sub Private Sub LB386_LocationChanged(sender As Object, e As EventArgs) Handles LB386.LocationChanged LB386_移動() End Sub Private Sub LB386_TextChanged(sender As Object, e As EventArgs) Handles LB386.TextChanged LB386_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB387_Click(sender As Object, e As EventArgs) Handles LB387.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB387.Location.X : BL1 = True : PA = LB387.Text : 合約內文修改視窗.ShowDialog() : LB387.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB387.Location.Y : LB387.Location = New Drawing.Point(syy1, sxx) sxx = LB388.Location.Y : LB388.Location = New Drawing.Point(syy2, sxx) : sxx = LB389.Location.Y : LB389.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB388_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB388.Size.Height : sxx = LB388.Location.Y : NU4 = LB389.Location.X : LB389.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB388_Click(sender As Object, e As EventArgs) Handles LB388.Click PA = LB388.Text : 合約內文修改視窗.ShowDialog() : LB388.Text = PA : LB388_移動() End Sub Private Sub LB388_LocationChanged(sender As Object, e As EventArgs) Handles LB388.LocationChanged LB388_移動() End Sub Private Sub LB388_TextChanged(sender As Object, e As EventArgs) Handles LB388.TextChanged LB388_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB389_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB389.Size.Height : sxx = LB389.Location.Y NU3 = LB390.Location.X : NU4 = LB391.Location.X : LB390.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB391.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB389_Click(sender As Object, e As EventArgs) Handles LB389.Click PA = LB389.Text : 合約內文修改視窗.ShowDialog() : LB389.Text = PA : LB389_移動() End Sub Private Sub LB389_LocationChanged(sender As Object, e As EventArgs) Handles LB389.LocationChanged LB389_移動() End Sub Private Sub LB389_TextChanged(sender As Object, e As EventArgs) Handles LB389.TextChanged LB389_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB390_Click(sender As Object, e As EventArgs) Handles LB390.Click If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then NU5 = LB390.Location.X : BL1 = True : PA = LB390.Text : 合約內文修改視窗.ShowDialog() : LB390.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB390.Location.Y : LB390.Location = New Drawing.Point(syy1, sxx) sxx = LB391.Location.Y : LB391.Location = New Drawing.Point(syy2, sxx) : sxx = LB392.Location.Y : LB392.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB391_移動() If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB391.Size.Height : sxx = LB391.Location.Y : NU4 = LB392.Location.X : LB392.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB391_Click(sender As Object, e As EventArgs) Handles LB391.Click PA = LB391.Text : 合約內文修改視窗.ShowDialog() : LB391.Text = PA : LB391_移動() End Sub Private Sub LB391_LocationChanged(sender As Object, e As EventArgs) Handles LB391.LocationChanged LB391_移動() End Sub Private Sub LB391_TextChanged(sender As Object, e As EventArgs) Handles LB391.TextChanged LB391_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB392_Click(sender As Object, e As EventArgs) Handles LB392.Click PA = LB392.Text : 合約內文修改視窗.ShowDialog() : LB392.Text = PA End Sub '---------------------------第13頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB393_Click(sender As Object, e As EventArgs) Handles LB393.Click PA = LB393.Text : 合約內文修改視窗.ShowDialog() : LB393.Text = PA End Sub Private Sub LB394_Click(sender As Object, e As EventArgs) Handles LB394.Click PA = LB394.Text : 合約內文修改視窗.ShowDialog() : LB394.Text = PA End Sub Private Sub LB395_Click(sender As Object, e As EventArgs) Handles LB395.Click PA = LB395.Text : 合約內文修改視窗.ShowDialog() : LB395.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB396_Click(sender As Object, e As EventArgs) Handles LB396.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB396.Location.X : BL1 = True : PA = LB396.Text : 合約內文修改視窗.ShowDialog() : LB396.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB396.Location.Y : LB396.Location = New Drawing.Point(syy1, sxx) sxx = LB397.Location.Y : LB397.Location = New Drawing.Point(syy2, sxx) : sxx = LB398.Location.Y : LB398.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB397_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB397.Size.Height : sxx = LB397.Location.Y : NU4 = LB398.Location.X : LB398.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB397_Click(sender As Object, e As EventArgs) Handles LB397.Click PA = LB397.Text : 合約內文修改視窗.ShowDialog() : LB397.Text = PA : LB397_移動() End Sub Private Sub LB397_LocationChanged(sender As Object, e As EventArgs) Handles LB397.LocationChanged LB397_移動() End Sub Private Sub LB397_TextChanged(sender As Object, e As EventArgs) Handles LB397.TextChanged LB397_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB398_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB398.Size.Height : sxx = LB398.Location.Y NU3 = LB399.Location.X : NU4 = LB400.Location.X : LB399.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB400.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB398_Click(sender As Object, e As EventArgs) Handles LB398.Click PA = LB398.Text : 合約內文修改視窗.ShowDialog() : LB398.Text = PA : LB398_移動() End Sub Private Sub LB398_LocationChanged(sender As Object, e As EventArgs) Handles LB398.LocationChanged LB398_移動() End Sub Private Sub LB398_TextChanged(sender As Object, e As EventArgs) Handles LB398.TextChanged LB398_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB399_Click(sender As Object, e As EventArgs) Handles LB399.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB399.Location.X : BL1 = True : PA = LB399.Text : 合約內文修改視窗.ShowDialog() : LB399.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB399.Location.Y : LB399.Location = New Drawing.Point(syy1, sxx) sxx = LB400.Location.Y : LB400.Location = New Drawing.Point(syy2, sxx) : sxx = LB401.Location.Y : LB401.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB400_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB400.Size.Height : sxx = LB400.Location.Y : NU4 = LB401.Location.X : LB401.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB400_Click(sender As Object, e As EventArgs) Handles LB400.Click PA = LB400.Text : 合約內文修改視窗.ShowDialog() : LB400.Text = PA : LB400_移動() End Sub Private Sub LB400_LocationChanged(sender As Object, e As EventArgs) Handles LB400.LocationChanged LB400_移動() End Sub Private Sub LB400_TextChanged(sender As Object, e As EventArgs) Handles LB400.TextChanged LB400_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB401_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB401.Size.Height : sxx = LB401.Location.Y NU3 = LB402.Location.X : NU4 = LB403.Location.X : LB402.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB403.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB401_Click(sender As Object, e As EventArgs) Handles LB401.Click PA = LB401.Text : 合約內文修改視窗.ShowDialog() : LB401.Text = PA : LB401_移動() End Sub Private Sub LB401_LocationChanged(sender As Object, e As EventArgs) Handles LB401.LocationChanged LB401_移動() End Sub Private Sub LB401_TextChanged(sender As Object, e As EventArgs) Handles LB401.TextChanged LB401_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB402_Click(sender As Object, e As EventArgs) Handles LB402.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB402.Location.X : BL1 = True : PA = LB402.Text : 合約內文修改視窗.ShowDialog() : LB402.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB402.Location.Y : LB402.Location = New Drawing.Point(syy1, sxx) sxx = LB403.Location.Y : LB403.Location = New Drawing.Point(syy2, sxx) : sxx = LB404.Location.Y : LB404.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB403_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB403.Size.Height : sxx = LB403.Location.Y : NU4 = LB404.Location.X : LB404.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB403_Click(sender As Object, e As EventArgs) Handles LB403.Click PA = LB403.Text : 合約內文修改視窗.ShowDialog() : LB403.Text = PA : LB403_移動() End Sub Private Sub LB403_LocationChanged(sender As Object, e As EventArgs) Handles LB403.LocationChanged LB403_移動() End Sub Private Sub LB403_TextChanged(sender As Object, e As EventArgs) Handles LB403.TextChanged LB403_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB404_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB404.Size.Height : sxx = LB404.Location.Y NU3 = LB405.Location.X : NU4 = LB406.Location.X : LB405.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB406.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB404_Click(sender As Object, e As EventArgs) Handles LB404.Click PA = LB404.Text : 合約內文修改視窗.ShowDialog() : LB404.Text = PA : LB404_移動() End Sub Private Sub LB404_LocationChanged(sender As Object, e As EventArgs) Handles LB404.LocationChanged LB404_移動() End Sub Private Sub LB404_TextChanged(sender As Object, e As EventArgs) Handles LB404.TextChanged LB404_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB405_Click(sender As Object, e As EventArgs) Handles LB405.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB405.Location.X : BL1 = True : PA = LB405.Text : 合約內文修改視窗.ShowDialog() : LB405.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB405.Location.Y : LB405.Location = New Drawing.Point(syy1, sxx) sxx = LB406.Location.Y : LB406.Location = New Drawing.Point(syy2, sxx) : sxx = LB407.Location.Y : LB407.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB406_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB406.Size.Height : sxx = LB406.Location.Y : NU4 = LB407.Location.X : LB407.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB406_Click(sender As Object, e As EventArgs) Handles LB406.Click PA = LB406.Text : 合約內文修改視窗.ShowDialog() : LB406.Text = PA : LB406_移動() End Sub Private Sub LB406_LocationChanged(sender As Object, e As EventArgs) Handles LB406.LocationChanged LB406_移動() End Sub Private Sub LB406_TextChanged(sender As Object, e As EventArgs) Handles LB406.TextChanged LB406_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB407_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB407.Size.Height : sxx = LB407.Location.Y NU3 = LB408.Location.X : NU4 = LB409.Location.X : LB408.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB409.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB407_Click(sender As Object, e As EventArgs) Handles LB407.Click PA = LB407.Text : 合約內文修改視窗.ShowDialog() : LB407.Text = PA : LB407_移動() End Sub Private Sub LB407_LocationChanged(sender As Object, e As EventArgs) Handles LB407.LocationChanged LB407_移動() End Sub Private Sub LB407_TextChanged(sender As Object, e As EventArgs) Handles LB407.TextChanged LB407_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB408_Click(sender As Object, e As EventArgs) Handles LB408.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB408.Location.X : BL1 = True : PA = LB408.Text : 合約內文修改視窗.ShowDialog() : LB408.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB408.Location.Y : LB408.Location = New Drawing.Point(syy1, sxx) sxx = LB409.Location.Y : LB409.Location = New Drawing.Point(syy2, sxx) : sxx = LB410.Location.Y : LB410.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB409_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB409.Size.Height : sxx = LB409.Location.Y : NU4 = LB410.Location.X : LB410.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB409_Click(sender As Object, e As EventArgs) Handles LB409.Click PA = LB409.Text : 合約內文修改視窗.ShowDialog() : LB409.Text = PA : LB409_移動() End Sub Private Sub LB409_LocationChanged(sender As Object, e As EventArgs) Handles LB409.LocationChanged LB409_移動() End Sub Private Sub LB409_TextChanged(sender As Object, e As EventArgs) Handles LB409.TextChanged LB409_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB410_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB410.Size.Height : sxx = LB410.Location.Y NU3 = LB411.Location.X : NU4 = LB412.Location.X : LB411.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB412.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB410_Click(sender As Object, e As EventArgs) Handles LB410.Click PA = LB410.Text : 合約內文修改視窗.ShowDialog() : LB410.Text = PA : LB410_移動() End Sub Private Sub LB410_LocationChanged(sender As Object, e As EventArgs) Handles LB410.LocationChanged LB410_移動() End Sub Private Sub LB410_TextChanged(sender As Object, e As EventArgs) Handles LB410.TextChanged LB410_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB411_Click(sender As Object, e As EventArgs) Handles LB411.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB411.Location.X : BL1 = True : PA = LB411.Text : 合約內文修改視窗.ShowDialog() : LB411.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB411.Location.Y : LB411.Location = New Drawing.Point(syy1, sxx) sxx = LB412.Location.Y : LB412.Location = New Drawing.Point(syy2, sxx) : sxx = LB413.Location.Y : LB413.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB412_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB412.Size.Height : sxx = LB412.Location.Y : NU4 = LB413.Location.X : LB413.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB412_Click(sender As Object, e As EventArgs) Handles LB412.Click PA = LB412.Text : 合約內文修改視窗.ShowDialog() : LB412.Text = PA : LB412_移動() End Sub Private Sub LB412_LocationChanged(sender As Object, e As EventArgs) Handles LB412.LocationChanged LB412_移動() End Sub Private Sub LB412_TextChanged(sender As Object, e As EventArgs) Handles LB412.TextChanged LB412_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB413_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB413.Size.Height : sxx = LB413.Location.Y NU3 = LB414.Location.X : NU4 = LB415.Location.X : LB414.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB415.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB413_Click(sender As Object, e As EventArgs) Handles LB413.Click PA = LB413.Text : 合約內文修改視窗.ShowDialog() : LB413.Text = PA : LB413_移動() End Sub Private Sub LB413_LocationChanged(sender As Object, e As EventArgs) Handles LB413.LocationChanged LB413_移動() End Sub Private Sub LB413_TextChanged(sender As Object, e As EventArgs) Handles LB413.TextChanged LB413_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB414_Click(sender As Object, e As EventArgs) Handles LB414.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB414.Location.X : BL1 = True : PA = LB414.Text : 合約內文修改視窗.ShowDialog() : LB414.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB414.Location.Y : LB414.Location = New Drawing.Point(syy1, sxx) sxx = LB415.Location.Y : LB415.Location = New Drawing.Point(syy2, sxx) : sxx = LB416.Location.Y : LB416.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB415_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB415.Size.Height : sxx = LB415.Location.Y : NU4 = LB416.Location.X : LB416.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB415_Click(sender As Object, e As EventArgs) Handles LB415.Click PA = LB415.Text : 合約內文修改視窗.ShowDialog() : LB415.Text = PA : LB415_移動() End Sub Private Sub LB415_LocationChanged(sender As Object, e As EventArgs) Handles LB415.LocationChanged LB415_移動() End Sub Private Sub LB415_TextChanged(sender As Object, e As EventArgs) Handles LB415.TextChanged LB415_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB416_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB416.Size.Height : sxx = LB416.Location.Y NU3 = LB417.Location.X : NU4 = LB418.Location.X : LB417.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB418.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB416_Click(sender As Object, e As EventArgs) Handles LB416.Click PA = LB416.Text : 合約內文修改視窗.ShowDialog() : LB416.Text = PA : LB416_移動() End Sub Private Sub LB416_LocationChanged(sender As Object, e As EventArgs) Handles LB416.LocationChanged LB416_移動() End Sub Private Sub LB416_TextChanged(sender As Object, e As EventArgs) Handles LB416.TextChanged LB416_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB417_Click(sender As Object, e As EventArgs) Handles LB417.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB417.Location.X : BL1 = True : PA = LB417.Text : 合約內文修改視窗.ShowDialog() : LB417.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB417.Location.Y : LB417.Location = New Drawing.Point(syy1, sxx) sxx = LB418.Location.Y : LB418.Location = New Drawing.Point(syy2, sxx) : sxx = LB419.Location.Y : LB419.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB418_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB418.Size.Height : sxx = LB418.Location.Y : NU4 = LB419.Location.X : LB419.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB418_Click(sender As Object, e As EventArgs) Handles LB418.Click PA = LB418.Text : 合約內文修改視窗.ShowDialog() : LB418.Text = PA : LB418_移動() End Sub Private Sub LB418_LocationChanged(sender As Object, e As EventArgs) Handles LB418.LocationChanged LB418_移動() End Sub Private Sub LB418_TextChanged(sender As Object, e As EventArgs) Handles LB418.TextChanged LB418_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB419_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB419.Size.Height : sxx = LB419.Location.Y : NU3 = LB420.Location.X : NU4 = LB421.Location.X LB420.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB421.Location = New Drawing.Point(NU4, sxx + sx + 10) End If End Sub Private Sub LB419_Click(sender As Object, e As EventArgs) Handles LB419.Click PA = LB419.Text : 合約內文修改視窗.ShowDialog() : LB419.Text = PA : LB419_移動() End Sub Private Sub LB419_LocationChanged(sender As Object, e As EventArgs) Handles LB419.LocationChanged LB419_移動() End Sub Private Sub LB419_TextChanged(sender As Object, e As EventArgs) Handles LB419.TextChanged LB419_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB420_Click(sender As Object, e As EventArgs) Handles LB420.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB420.Location.X : BL1 = True : PA = LB420.Text : 合約內文修改視窗.ShowDialog() : LB420.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB420.Location.Y : LB420.Location = New Drawing.Point(syy1, sxx) sxx = LB421.Location.Y : LB421.Location = New Drawing.Point(syy2, sxx) : sxx = LB422.Location.Y : LB422.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB421_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB421.Size.Height : sxx = LB421.Location.Y : NU4 = LB422.Location.X : LB422.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB421_Click(sender As Object, e As EventArgs) Handles LB421.Click PA = LB421.Text : 合約內文修改視窗.ShowDialog() : LB421.Text = PA : LB421_移動() End Sub Private Sub LB421_LocationChanged(sender As Object, e As EventArgs) Handles LB421.LocationChanged LB421_移動() End Sub Private Sub LB421_TextChanged(sender As Object, e As EventArgs) Handles LB421.TextChanged LB421_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB422_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB422.Size.Height : sxx = LB422.Location.Y : NU3 = LB423.Location.X : NU4 = LB424.Location.X LB423.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB424.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB422_Click(sender As Object, e As EventArgs) Handles LB422.Click PA = LB422.Text : 合約內文修改視窗.ShowDialog() : LB422.Text = PA : LB422_移動() End Sub Private Sub LB422_LocationChanged(sender As Object, e As EventArgs) Handles LB422.LocationChanged LB422_移動() End Sub Private Sub LB422_TextChanged(sender As Object, e As EventArgs) Handles LB422.TextChanged LB422_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB423_Click(sender As Object, e As EventArgs) Handles LB423.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB423.Location.X : BL1 = True : PA = LB423.Text : 合約內文修改視窗.ShowDialog() : LB423.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB423.Location.Y : LB423.Location = New Drawing.Point(syy1, sxx) sxx = LB424.Location.Y : LB424.Location = New Drawing.Point(syy2, sxx) : sxx = LB425.Location.Y : LB425.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB424_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB424.Size.Height : sxx = LB424.Location.Y : NU4 = LB425.Location.X : LB425.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB424_Click(sender As Object, e As EventArgs) Handles LB424.Click PA = LB424.Text : 合約內文修改視窗.ShowDialog() : LB424.Text = PA : LB424_移動() End Sub Private Sub LB424_LocationChanged(sender As Object, e As EventArgs) Handles LB424.LocationChanged LB424_移動() End Sub Private Sub LB424_TextChanged(sender As Object, e As EventArgs) Handles LB424.TextChanged LB424_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB425_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB425.Size.Height : sxx = LB425.Location.Y : NU3 = LB426.Location.X : NU4 = LB427.Location.X LB426.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB427.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB425_Click(sender As Object, e As EventArgs) Handles LB425.Click PA = LB425.Text : 合約內文修改視窗.ShowDialog() : LB425.Text = PA : LB425_移動() End Sub Private Sub LB425_LocationChanged(sender As Object, e As EventArgs) Handles LB425.LocationChanged LB425_移動() End Sub Private Sub LB425_TextChanged(sender As Object, e As EventArgs) Handles LB425.TextChanged LB425_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB426_Click(sender As Object, e As EventArgs) Handles LB426.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB426.Location.X : BL1 = True : PA = LB426.Text : 合約內文修改視窗.ShowDialog() : LB426.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB426.Location.Y : LB426.Location = New Drawing.Point(syy1, sxx) sxx = LB427.Location.Y : LB427.Location = New Drawing.Point(syy2, sxx) : sxx = LB428.Location.Y : LB428.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB427_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB427.Size.Height : sxx = LB427.Location.Y : NU4 = LB428.Location.X : LB428.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB427_Click(sender As Object, e As EventArgs) Handles LB427.Click PA = LB427.Text : 合約內文修改視窗.ShowDialog() : LB427.Text = PA : LB427_移動() End Sub Private Sub LB427_LocationChanged(sender As Object, e As EventArgs) Handles LB427.LocationChanged LB427_移動() End Sub Private Sub LB427_TextChanged(sender As Object, e As EventArgs) Handles LB427.TextChanged LB427_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB428_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB428.Size.Height : sxx = LB428.Location.Y : NU3 = LB429.Location.X : NU4 = LB430.Location.X LB429.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB430.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB428_Click(sender As Object, e As EventArgs) Handles LB428.Click PA = LB428.Text : 合約內文修改視窗.ShowDialog() : LB428.Text = PA : LB428_移動() End Sub Private Sub LB428_LocationChanged(sender As Object, e As EventArgs) Handles LB428.LocationChanged LB428_移動() End Sub Private Sub LB428_TextChanged(sender As Object, e As EventArgs) Handles LB428.TextChanged LB428_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB429_Click(sender As Object, e As EventArgs) Handles LB429.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB429.Location.X : BL1 = True : PA = LB429.Text : 合約內文修改視窗.ShowDialog() : LB429.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB429.Location.Y : LB429.Location = New Drawing.Point(syy1, sxx) sxx = LB430.Location.Y : LB430.Location = New Drawing.Point(syy2, sxx) : sxx = LB431.Location.Y : LB431.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB430_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB430.Size.Height : sxx = LB430.Location.Y : NU4 = LB431.Location.X : LB431.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB430_Click(sender As Object, e As EventArgs) Handles LB430.Click PA = LB430.Text : 合約內文修改視窗.ShowDialog() : LB430.Text = PA : LB430_移動() End Sub Private Sub LB430_LocationChanged(sender As Object, e As EventArgs) Handles LB430.LocationChanged LB430_移動() End Sub Private Sub LB430_TextChanged(sender As Object, e As EventArgs) Handles LB430.TextChanged LB430_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB431_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB431.Size.Height : sxx = LB431.Location.Y : NU3 = LB432.Location.X : NU4 = LB433.Location.X LB432.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB433.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB431_Click(sender As Object, e As EventArgs) Handles LB431.Click PA = LB431.Text : 合約內文修改視窗.ShowDialog() : LB431.Text = PA : LB431_移動() End Sub Private Sub LB431_LocationChanged(sender As Object, e As EventArgs) Handles LB431.LocationChanged LB431_移動() End Sub Private Sub LB431_TextChanged(sender As Object, e As EventArgs) Handles LB431.TextChanged LB431_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB432_Click(sender As Object, e As EventArgs) Handles LB432.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB432.Location.X : BL1 = True : PA = LB432.Text : 合約內文修改視窗.ShowDialog() : LB432.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB432.Location.Y : LB432.Location = New Drawing.Point(syy1, sxx) sxx = LB433.Location.Y : LB433.Location = New Drawing.Point(syy2, sxx) : sxx = LB434.Location.Y : LB434.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB433_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB433.Size.Height : sxx = LB433.Location.Y : NU4 = LB434.Location.X : LB434.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB433_Click(sender As Object, e As EventArgs) Handles LB433.Click PA = LB433.Text : 合約內文修改視窗.ShowDialog() : LB433.Text = PA : LB433_移動() End Sub Private Sub LB433_LocationChanged(sender As Object, e As EventArgs) Handles LB433.LocationChanged LB433_移動() End Sub Private Sub LB433_TextChanged(sender As Object, e As EventArgs) Handles LB433.TextChanged LB433_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB434_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB434.Size.Height : sxx = LB434.Location.Y : NU3 = LB435.Location.X : NU4 = LB436.Location.X LB435.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB436.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB434_Click(sender As Object, e As EventArgs) Handles LB434.Click PA = LB434.Text : 合約內文修改視窗.ShowDialog() : LB434.Text = PA : LB434_移動() End Sub Private Sub LB434_LocationChanged(sender As Object, e As EventArgs) Handles LB434.LocationChanged LB434_移動() End Sub Private Sub LB434_TextChanged(sender As Object, e As EventArgs) Handles LB434.TextChanged LB434_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB435_Click(sender As Object, e As EventArgs) Handles LB435.Click If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then NU5 = LB435.Location.X : BL1 = True : PA = LB435.Text : 合約內文修改視窗.ShowDialog() : LB435.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB435.Location.Y : LB435.Location = New Drawing.Point(syy1, sxx) sxx = LB436.Location.Y : LB436.Location = New Drawing.Point(syy2, sxx) : sxx = LB437.Location.Y : LB437.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB436_移動() If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB436.Size.Height : sxx = LB436.Location.Y : NU4 = LB437.Location.X : LB437.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB436_Click(sender As Object, e As EventArgs) Handles LB436.Click PA = LB436.Text : 合約內文修改視窗.ShowDialog() : LB436.Text = PA : LB436_移動() End Sub Private Sub LB436_LocationChanged(sender As Object, e As EventArgs) Handles LB436.LocationChanged LB436_移動() End Sub Private Sub LB436_TextChanged(sender As Object, e As EventArgs) Handles LB436.TextChanged LB436_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB437_Click(sender As Object, e As EventArgs) Handles LB437.Click PA = LB437.Text : 合約內文修改視窗.ShowDialog() : LB437.Text = PA End Sub '---------------------------第12頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB438_Click(sender As Object, e As EventArgs) Handles LB438.Click PA = LB438.Text : 合約內文修改視窗.ShowDialog() : LB438.Text = PA End Sub Private Sub LB439_Click(sender As Object, e As EventArgs) Handles LB439.Click PA = LB439.Text : 合約內文修改視窗.ShowDialog() : LB439.Text = PA End Sub Private Sub LB440_Click(sender As Object, e As EventArgs) Handles LB440.Click PA = LB440.Text : 合約內文修改視窗.ShowDialog() : LB440.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB441_Click(sender As Object, e As EventArgs) Handles LB441.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB441.Location.X : BL1 = True : PA = LB441.Text : 合約內文修改視窗.ShowDialog() : LB441.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB441.Location.Y : LB441.Location = New Drawing.Point(syy1, sxx) sxx = LB442.Location.Y : LB442.Location = New Drawing.Point(syy2, sxx) : sxx = LB443.Location.Y : LB443.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB442_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB442.Size.Height : sxx = LB442.Location.Y : NU4 = LB443.Location.X : LB443.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB442_Click(sender As Object, e As EventArgs) Handles LB442.Click PA = LB442.Text : 合約內文修改視窗.ShowDialog() : LB442.Text = PA : LB442_移動() End Sub Private Sub LB442_LocationChanged(sender As Object, e As EventArgs) Handles LB442.LocationChanged LB442_移動() End Sub Private Sub LB442_TextChanged(sender As Object, e As EventArgs) Handles LB442.TextChanged LB442_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB443_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB443.Size.Height : sxx = LB443.Location.Y : NU3 = LB444.Location.X : NU4 = LB445.Location.X LB444.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB445.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB443_Click(sender As Object, e As EventArgs) Handles LB443.Click PA = LB443.Text : 合約內文修改視窗.ShowDialog() : LB443.Text = PA : LB443_移動() End Sub Private Sub LB443_LocationChanged(sender As Object, e As EventArgs) Handles LB443.LocationChanged LB443_移動() End Sub Private Sub LB443_TextChanged(sender As Object, e As EventArgs) Handles LB443.TextChanged LB443_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB444_Click(sender As Object, e As EventArgs) Handles LB444.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB444.Location.X : BL1 = True : PA = LB444.Text : 合約內文修改視窗.ShowDialog() : LB444.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB444.Location.Y : LB444.Location = New Drawing.Point(syy1, sxx) sxx = LB445.Location.Y : LB445.Location = New Drawing.Point(syy2, sxx) : sxx = LB446.Location.Y : LB446.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB445_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB445.Size.Height : sxx = LB445.Location.Y : NU4 = LB446.Location.X : LB446.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB445_Click(sender As Object, e As EventArgs) Handles LB445.Click PA = LB445.Text : 合約內文修改視窗.ShowDialog() : LB445.Text = PA : LB445_移動() End Sub Private Sub LB445_LocationChanged(sender As Object, e As EventArgs) Handles LB445.LocationChanged LB445_移動() End Sub Private Sub LB445_TextChanged(sender As Object, e As EventArgs) Handles LB445.TextChanged LB445_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB446_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB446.Size.Height : sxx = LB446.Location.Y : NU3 = LB447.Location.X : NU4 = LB448.Location.X LB447.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB448.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB446_Click(sender As Object, e As EventArgs) Handles LB446.Click PA = LB446.Text : 合約內文修改視窗.ShowDialog() : LB446.Text = PA : LB446_移動() End Sub Private Sub LB446_LocationChanged(sender As Object, e As EventArgs) Handles LB446.LocationChanged LB446_移動() End Sub Private Sub LB446_TextChanged(sender As Object, e As EventArgs) Handles LB446.TextChanged LB446_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB447_Click(sender As Object, e As EventArgs) Handles LB447.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB447.Location.X : BL1 = True : PA = LB447.Text : 合約內文修改視窗.ShowDialog() : LB447.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB447.Location.Y : LB447.Location = New Drawing.Point(syy1, sxx) sxx = LB448.Location.Y : LB448.Location = New Drawing.Point(syy2, sxx) : sxx = LB449.Location.Y : LB449.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB448_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB448.Size.Height : sxx = LB448.Location.Y : NU4 = LB449.Location.X : LB449.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB448_Click(sender As Object, e As EventArgs) Handles LB448.Click PA = LB448.Text : 合約內文修改視窗.ShowDialog() : LB448.Text = PA : LB448_移動() End Sub Private Sub LB448_LocationChanged(sender As Object, e As EventArgs) Handles LB448.LocationChanged LB448_移動() End Sub Private Sub LB448_TextChanged(sender As Object, e As EventArgs) Handles LB448.TextChanged LB448_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB449_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB449.Size.Height : sxx = LB449.Location.Y : NU3 = LB450.Location.X : NU4 = LB451.Location.X LB450.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB451.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB449_Click(sender As Object, e As EventArgs) Handles LB449.Click PA = LB449.Text : 合約內文修改視窗.ShowDialog() : LB449.Text = PA : LB449_移動() End Sub Private Sub LB449_LocationChanged(sender As Object, e As EventArgs) Handles LB449.LocationChanged LB449_移動() End Sub Private Sub LB449_TextChanged(sender As Object, e As EventArgs) Handles LB449.TextChanged LB449_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB450_Click(sender As Object, e As EventArgs) Handles LB450.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB450.Location.X : BL1 = True : PA = LB450.Text : 合約內文修改視窗.ShowDialog() : LB450.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB450.Location.Y : LB450.Location = New Drawing.Point(syy1, sxx) sxx = LB451.Location.Y : LB451.Location = New Drawing.Point(syy2, sxx) : sxx = LB452.Location.Y : LB452.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB451_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB451.Size.Height : sxx = LB451.Location.Y : NU4 = LB452.Location.X : LB452.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB451_Click(sender As Object, e As EventArgs) Handles LB451.Click PA = LB451.Text : 合約內文修改視窗.ShowDialog() : LB451.Text = PA : LB451_移動() End Sub Private Sub LB451_LocationChanged(sender As Object, e As EventArgs) Handles LB451.LocationChanged LB451_移動() End Sub Private Sub LB451_TextChanged(sender As Object, e As EventArgs) Handles LB451.TextChanged LB451_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB452_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB452.Size.Height : sxx = LB452.Location.Y : NU3 = LB453.Location.X : NU4 = LB454.Location.X LB453.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB454.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB452_Click(sender As Object, e As EventArgs) Handles LB452.Click PA = LB452.Text : 合約內文修改視窗.ShowDialog() : LB452.Text = PA : LB452_移動() End Sub Private Sub LB452_LocationChanged(sender As Object, e As EventArgs) Handles LB452.LocationChanged LB452_移動() End Sub Private Sub LB452_TextChanged(sender As Object, e As EventArgs) Handles LB452.TextChanged LB452_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB453_Click(sender As Object, e As EventArgs) Handles LB453.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB453.Location.X : BL1 = True : PA = LB453.Text : 合約內文修改視窗.ShowDialog() : LB453.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB453.Location.Y : LB453.Location = New Drawing.Point(syy1, sxx) sxx = LB454.Location.Y : LB454.Location = New Drawing.Point(syy2, sxx) : sxx = LB455.Location.Y : LB455.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB454_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB454.Size.Height : sxx = LB454.Location.Y : NU4 = LB455.Location.X : LB455.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB454_Click(sender As Object, e As EventArgs) Handles LB454.Click PA = LB454.Text : 合約內文修改視窗.ShowDialog() : LB454.Text = PA : LB454_移動() End Sub Private Sub LB454_LocationChanged(sender As Object, e As EventArgs) Handles LB454.LocationChanged LB454_移動() End Sub Private Sub LB454_TextChanged(sender As Object, e As EventArgs) Handles LB454.TextChanged LB454_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB455_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB455.Size.Height : sxx = LB455.Location.Y : NU3 = LB456.Location.X : NU4 = LB457.Location.X LB456.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB457.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB455_Click(sender As Object, e As EventArgs) Handles LB455.Click PA = LB455.Text : 合約內文修改視窗.ShowDialog() : LB455.Text = PA : LB455_移動() End Sub Private Sub LB455_LocationChanged(sender As Object, e As EventArgs) Handles LB455.LocationChanged LB455_移動() End Sub Private Sub LB455_TextChanged(sender As Object, e As EventArgs) Handles LB455.TextChanged LB455_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB456_Click(sender As Object, e As EventArgs) Handles LB456.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB456.Location.X : BL1 = True : PA = LB456.Text : 合約內文修改視窗.ShowDialog() : LB456.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB456.Location.Y : LB456.Location = New Drawing.Point(syy1, sxx) sxx = LB457.Location.Y : LB457.Location = New Drawing.Point(syy2, sxx) : sxx = LB458.Location.Y : LB458.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB457_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB457.Size.Height : sxx = LB457.Location.Y : NU4 = LB458.Location.X : LB458.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB457_Click(sender As Object, e As EventArgs) Handles LB457.Click PA = LB457.Text : 合約內文修改視窗.ShowDialog() : LB457.Text = PA : LB457_移動() End Sub Private Sub LB457_LocationChanged(sender As Object, e As EventArgs) Handles LB457.LocationChanged LB457_移動() End Sub Private Sub LB457_TextChanged(sender As Object, e As EventArgs) Handles LB457.TextChanged LB457_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB458_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB458.Size.Height : sxx = LB458.Location.Y : NU3 = LB459.Location.X : NU4 = LB460.Location.X LB459.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB460.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB458_Click(sender As Object, e As EventArgs) Handles LB458.Click PA = LB458.Text : 合約內文修改視窗.ShowDialog() : LB458.Text = PA : LB458_移動() End Sub Private Sub LB458_LocationChanged(sender As Object, e As EventArgs) Handles LB458.LocationChanged LB458_移動() End Sub Private Sub LB458_TextChanged(sender As Object, e As EventArgs) Handles LB458.TextChanged LB458_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB459_Click(sender As Object, e As EventArgs) Handles LB459.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB459.Location.X : BL1 = True : PA = LB459.Text : 合約內文修改視窗.ShowDialog() : LB459.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB459.Location.Y : LB459.Location = New Drawing.Point(syy1, sxx) sxx = LB460.Location.Y : LB460.Location = New Drawing.Point(syy2, sxx) : sxx = LB461.Location.Y : LB461.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB460_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB460.Size.Height : sxx = LB460.Location.Y : NU4 = LB461.Location.X : LB461.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB460_Click(sender As Object, e As EventArgs) Handles LB460.Click PA = LB460.Text : 合約內文修改視窗.ShowDialog() : LB460.Text = PA : LB460_移動() End Sub Private Sub LB460_LocationChanged(sender As Object, e As EventArgs) Handles LB460.LocationChanged LB460_移動() End Sub Private Sub LB460_TextChanged(sender As Object, e As EventArgs) Handles LB460.TextChanged LB460_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB461_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB461.Size.Height : sxx = LB461.Location.Y : NU3 = LB462.Location.X : NU4 = LB463.Location.X LB462.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB463.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB461_Click(sender As Object, e As EventArgs) Handles LB461.Click PA = LB461.Text : 合約內文修改視窗.ShowDialog() : LB461.Text = PA : LB461_移動() End Sub Private Sub LB461_LocationChanged(sender As Object, e As EventArgs) Handles LB461.LocationChanged LB461_移動() End Sub Private Sub LB461_TextChanged(sender As Object, e As EventArgs) Handles LB461.TextChanged LB461_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB462_Click(sender As Object, e As EventArgs) Handles LB462.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB462.Location.X : BL1 = True : PA = LB462.Text : 合約內文修改視窗.ShowDialog() : LB462.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB462.Location.Y : LB462.Location = New Drawing.Point(syy1, sxx) sxx = LB463.Location.Y : LB463.Location = New Drawing.Point(syy2, sxx) : sxx = LB464.Location.Y : LB464.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB463_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB463.Size.Height : sxx = LB463.Location.Y : NU4 = LB464.Location.X : LB464.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB463_Click(sender As Object, e As EventArgs) Handles LB463.Click PA = LB463.Text : 合約內文修改視窗.ShowDialog() : LB463.Text = PA : LB463_移動() End Sub Private Sub LB463_LocationChanged(sender As Object, e As EventArgs) Handles LB463.LocationChanged LB463_移動() End Sub Private Sub LB463_TextChanged(sender As Object, e As EventArgs) Handles LB463.TextChanged LB463_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB464_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB464.Size.Height : sxx = LB464.Location.Y : NU3 = LB465.Location.X : NU4 = LB466.Location.X LB465.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB466.Location = New Drawing.Point(NU4, sxx + sx + 10) End If End Sub Private Sub LB464_Click(sender As Object, e As EventArgs) Handles LB464.Click PA = LB464.Text : 合約內文修改視窗.ShowDialog() : LB464.Text = PA : LB464_移動() End Sub Private Sub LB464_LocationChanged(sender As Object, e As EventArgs) Handles LB464.LocationChanged LB464_移動() End Sub Private Sub LB464_TextChanged(sender As Object, e As EventArgs) Handles LB464.TextChanged LB464_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB465_Click(sender As Object, e As EventArgs) Handles LB465.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB465.Location.X : BL1 = True : PA = LB465.Text : 合約內文修改視窗.ShowDialog() : LB465.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB465.Location.Y : LB465.Location = New Drawing.Point(syy1, sxx) sxx = LB466.Location.Y : LB466.Location = New Drawing.Point(syy2, sxx) : sxx = LB467.Location.Y : LB467.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB466_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB466.Size.Height : sxx = LB466.Location.Y : NU4 = LB467.Location.X : LB467.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB466_Click(sender As Object, e As EventArgs) Handles LB466.Click PA = LB466.Text : 合約內文修改視窗.ShowDialog() : LB466.Text = PA : LB466_移動() End Sub Private Sub LB466_LocationChanged(sender As Object, e As EventArgs) Handles LB466.LocationChanged LB466_移動() End Sub Private Sub LB466_TextChanged(sender As Object, e As EventArgs) Handles LB466.TextChanged LB466_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB467_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB467.Size.Height : sxx = LB467.Location.Y : NU3 = LB468.Location.X : NU4 = LB469.Location.X LB468.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB469.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB467_Click(sender As Object, e As EventArgs) Handles LB467.Click PA = LB467.Text : 合約內文修改視窗.ShowDialog() : LB467.Text = PA : LB467_移動() End Sub Private Sub LB467_LocationChanged(sender As Object, e As EventArgs) Handles LB467.LocationChanged LB467_移動() End Sub Private Sub LB467_TextChanged(sender As Object, e As EventArgs) Handles LB467.TextChanged LB467_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB468_Click(sender As Object, e As EventArgs) Handles LB468.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB468.Location.X : BL1 = True : PA = LB468.Text : 合約內文修改視窗.ShowDialog() : LB468.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB468.Location.Y : LB468.Location = New Drawing.Point(syy1, sxx) sxx = LB469.Location.Y : LB469.Location = New Drawing.Point(syy2, sxx) : sxx = LB470.Location.Y : LB470.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB469_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB469.Size.Height : sxx = LB469.Location.Y : NU4 = LB470.Location.X : LB470.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB469_Click(sender As Object, e As EventArgs) Handles LB469.Click PA = LB469.Text : 合約內文修改視窗.ShowDialog() : LB469.Text = PA : LB469_移動() End Sub Private Sub LB469_LocationChanged(sender As Object, e As EventArgs) Handles LB469.LocationChanged LB469_移動() End Sub Private Sub LB469_TextChanged(sender As Object, e As EventArgs) Handles LB469.TextChanged LB469_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB470_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB470.Size.Height : sxx = LB470.Location.Y : NU3 = LB471.Location.X : NU4 = LB472.Location.X LB471.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB472.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB470_Click(sender As Object, e As EventArgs) Handles LB470.Click PA = LB470.Text : 合約內文修改視窗.ShowDialog() : LB470.Text = PA : LB470_移動() End Sub Private Sub LB470_LocationChanged(sender As Object, e As EventArgs) Handles LB470.LocationChanged LB470_移動() End Sub Private Sub LB470_TextChanged(sender As Object, e As EventArgs) Handles LB470.TextChanged LB470_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB471_Click(sender As Object, e As EventArgs) Handles LB471.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB471.Location.X : BL1 = True : PA = LB471.Text : 合約內文修改視窗.ShowDialog() : LB471.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB471.Location.Y : LB471.Location = New Drawing.Point(syy1, sxx) sxx = LB472.Location.Y : LB472.Location = New Drawing.Point(syy2, sxx) : sxx = LB473.Location.Y : LB473.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB472_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB472.Size.Height : sxx = LB472.Location.Y : NU4 = LB473.Location.X : LB473.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB472_Click(sender As Object, e As EventArgs) Handles LB472.Click PA = LB472.Text : 合約內文修改視窗.ShowDialog() : LB472.Text = PA : LB472_移動() End Sub Private Sub LB472_LocationChanged(sender As Object, e As EventArgs) Handles LB472.LocationChanged LB472_移動() End Sub Private Sub LB472_TextChanged(sender As Object, e As EventArgs) Handles LB472.TextChanged LB472_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB473_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB473.Size.Height : sxx = LB473.Location.Y : NU3 = LB474.Location.X : NU4 = LB475.Location.X LB474.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB475.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB473_Click(sender As Object, e As EventArgs) Handles LB473.Click PA = LB473.Text : 合約內文修改視窗.ShowDialog() : LB473.Text = PA : LB473_移動() End Sub Private Sub LB473_LocationChanged(sender As Object, e As EventArgs) Handles LB473.LocationChanged LB473_移動() End Sub Private Sub LB473_TextChanged(sender As Object, e As EventArgs) Handles LB473.TextChanged LB473_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB474_Click(sender As Object, e As EventArgs) Handles LB474.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB474.Location.X : BL1 = True : PA = LB474.Text : 合約內文修改視窗.ShowDialog() : LB474.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB474.Location.Y : LB474.Location = New Drawing.Point(syy1, sxx) sxx = LB475.Location.Y : LB475.Location = New Drawing.Point(syy2, sxx) : sxx = LB476.Location.Y : LB476.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB475_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB475.Size.Height : sxx = LB475.Location.Y : NU4 = LB476.Location.X : LB476.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB475_Click(sender As Object, e As EventArgs) Handles LB475.Click PA = LB475.Text : 合約內文修改視窗.ShowDialog() : LB475.Text = PA : LB475_移動() End Sub Private Sub LB475_LocationChanged(sender As Object, e As EventArgs) Handles LB475.LocationChanged LB475_移動() End Sub Private Sub LB475_TextChanged(sender As Object, e As EventArgs) Handles LB475.TextChanged LB475_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB476_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB476.Size.Height : sxx = LB476.Location.Y NU3 = LB477.Location.X : NU4 = LB478.Location.X : LB477.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB478.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB476_Click(sender As Object, e As EventArgs) Handles LB476.Click PA = LB476.Text : 合約內文修改視窗.ShowDialog() : LB476.Text = PA : LB476_移動() End Sub Private Sub LB476_LocationChanged(sender As Object, e As EventArgs) Handles LB476.LocationChanged LB476_移動() End Sub Private Sub LB476_TextChanged(sender As Object, e As EventArgs) Handles LB476.TextChanged LB476_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB477_Click(sender As Object, e As EventArgs) Handles LB477.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB477.Location.X : BL1 = True : PA = LB477.Text : 合約內文修改視窗.ShowDialog() : LB477.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB477.Location.Y : LB477.Location = New Drawing.Point(syy1, sxx) sxx = LB478.Location.Y : LB478.Location = New Drawing.Point(syy2, sxx) : sxx = LB479.Location.Y : LB479.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB478_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB478.Size.Height : sxx = LB478.Location.Y : NU4 = LB479.Location.X : LB479.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB478_Click(sender As Object, e As EventArgs) Handles LB478.Click PA = LB478.Text : 合約內文修改視窗.ShowDialog() : LB478.Text = PA : LB478_移動() End Sub Private Sub LB478_LocationChanged(sender As Object, e As EventArgs) Handles LB478.LocationChanged LB478_移動() End Sub Private Sub LB478_TextChanged(sender As Object, e As EventArgs) Handles LB478.TextChanged LB478_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB479_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB479.Size.Height : sxx = LB479.Location.Y NU3 = LB480.Location.X : NU4 = LB481.Location.X : LB480.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB481.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB479_Click(sender As Object, e As EventArgs) Handles LB479.Click PA = LB479.Text : 合約內文修改視窗.ShowDialog() : LB479.Text = PA : LB479_移動() End Sub Private Sub LB479_LocationChanged(sender As Object, e As EventArgs) Handles LB479.LocationChanged LB479_移動() End Sub Private Sub LB479_TextChanged(sender As Object, e As EventArgs) Handles LB479.TextChanged LB479_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB480_Click(sender As Object, e As EventArgs) Handles LB480.Click If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then NU5 = LB480.Location.X : BL1 = True : PA = LB480.Text : 合約內文修改視窗.ShowDialog() : LB480.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB480.Location.Y : LB480.Location = New Drawing.Point(syy1, sxx) sxx = LB481.Location.Y : LB481.Location = New Drawing.Point(syy2, sxx) : sxx = LB482.Location.Y : LB482.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB481_移動() If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB481.Size.Height : sxx = LB481.Location.Y : NU4 = LB482.Location.X : LB482.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB481_Click(sender As Object, e As EventArgs) Handles LB481.Click PA = LB481.Text : 合約內文修改視窗.ShowDialog() : LB481.Text = PA : LB481_移動() End Sub Private Sub LB481_LocationChanged(sender As Object, e As EventArgs) Handles LB481.LocationChanged LB481_移動() End Sub Private Sub LB481_TextChanged(sender As Object, e As EventArgs) Handles LB481.TextChanged LB481_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB482_Click(sender As Object, e As EventArgs) Handles LB482.Click PA = LB482.Text : 合約內文修改視窗.ShowDialog() : LB482.Text = PA End Sub '---------------------------第11頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB483_Click(sender As Object, e As EventArgs) Handles LB483.Click PA = LB483.Text : 合約內文修改視窗.ShowDialog() : LB483.Text = PA End Sub Private Sub LB484_Click(sender As Object, e As EventArgs) Handles LB484.Click PA = LB484.Text : 合約內文修改視窗.ShowDialog() : LB484.Text = PA End Sub Private Sub LB485_Click(sender As Object, e As EventArgs) Handles LB485.Click PA = LB485.Text : 合約內文修改視窗.ShowDialog() : LB485.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB486_Click(sender As Object, e As EventArgs) Handles LB486.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB486.Location.X : BL1 = True : PA = LB486.Text : 合約內文修改視窗.ShowDialog() : LB486.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB486.Location.Y : LB486.Location = New Drawing.Point(syy1, sxx) sxx = LB117.Location.Y : LB117.Location = New Drawing.Point(syy2, sxx) : sxx = LB118.Location.Y : LB118.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB117_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB117.Size.Height : sxx = LB117.Location.Y : NU4 = LB118.Location.X : LB118.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB117_Click(sender As Object, e As EventArgs) Handles LB117.Click PA = LB117.Text : 合約內文修改視窗.ShowDialog() : LB117.Text = PA : LB117_移動() End Sub Private Sub LB117_LocationChanged(sender As Object, e As EventArgs) Handles LB117.LocationChanged LB117_移動() End Sub Private Sub LB117_TextChanged(sender As Object, e As EventArgs) Handles LB117.TextChanged LB117_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB118_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB118.Size.Height : sxx = LB118.Location.Y : NU3 = LB487.Location.X : NU4 = LB119.Location.X LB487.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB119.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB118_Click(sender As Object, e As EventArgs) Handles LB118.Click PA = LB118.Text : 合約內文修改視窗.ShowDialog() : LB118.Text = PA : LB118_移動() End Sub Private Sub LB118_LocationChanged(sender As Object, e As EventArgs) Handles LB118.LocationChanged LB118_移動() End Sub Private Sub LB118_TextChanged(sender As Object, e As EventArgs) Handles LB118.TextChanged LB118_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB487_Click(sender As Object, e As EventArgs) Handles LB487.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB487.Location.X : BL1 = True : PA = LB487.Text : 合約內文修改視窗.ShowDialog() : LB487.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB487.Location.Y : LB487.Location = New Drawing.Point(syy1, sxx) sxx = LB119.Location.Y : LB119.Location = New Drawing.Point(syy2, sxx) : sxx = LB120.Location.Y : LB120.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB119_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB119.Size.Height : sxx = LB119.Location.Y : NU4 = LB120.Location.X : LB120.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB119_Click(sender As Object, e As EventArgs) Handles LB119.Click PA = LB119.Text : 合約內文修改視窗.ShowDialog() : LB119.Text = PA : LB119_移動() End Sub Private Sub LB119_LocationChanged(sender As Object, e As EventArgs) Handles LB119.LocationChanged LB119_移動() End Sub Private Sub LB119_TextChanged(sender As Object, e As EventArgs) Handles LB119.TextChanged LB119_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB120_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB120.Size.Height : sxx = LB120.Location.Y : LB488.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB489.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB120_Click(sender As Object, e As EventArgs) Handles LB120.Click PA = LB120.Text : 合約內文修改視窗.ShowDialog() : LB120.Text = PA : LB120_移動() End Sub Private Sub LB120_LocationChanged(sender As Object, e As EventArgs) Handles LB120.LocationChanged LB120_移動() End Sub Private Sub LB120_TextChanged(sender As Object, e As EventArgs) Handles LB120.TextChanged LB120_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB488_Click(sender As Object, e As EventArgs) Handles LB488.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB488.Location.X : BL1 = True : PA = LB488.Text : 合約內文修改視窗.ShowDialog() : LB488.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB488.Location.Y : LB488.Location = New Drawing.Point(syy1, sxx) sxx = LB489.Location.Y : LB489.Location = New Drawing.Point(syy2, sxx) : sxx = LB490.Location.Y : LB490.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB489_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB489.Size.Height : sxx = LB489.Location.Y : NU4 = LB490.Location.X : LB490.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB489_Click(sender As Object, e As EventArgs) Handles LB489.Click PA = LB489.Text : 合約內文修改視窗.ShowDialog() : LB489.Text = PA : LB489_移動() End Sub Private Sub LB489_LocationChanged(sender As Object, e As EventArgs) Handles LB489.LocationChanged LB489_移動() End Sub Private Sub LB489_TextChanged(sender As Object, e As EventArgs) Handles LB489.TextChanged LB489_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB490_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB490.Size.Height : sxx = LB490.Location.Y : NU3 = LB491.Location.X : NU4 = LB492.Location.X LB491.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB492.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB490_Click(sender As Object, e As EventArgs) Handles LB490.Click PA = LB490.Text : 合約內文修改視窗.ShowDialog() : LB490.Text = PA : LB490_移動() End Sub Private Sub LB490_LocationChanged(sender As Object, e As EventArgs) Handles LB490.LocationChanged LB490_移動() End Sub Private Sub LB490_TextChanged(sender As Object, e As EventArgs) Handles LB490.TextChanged LB490_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB491_Click(sender As Object, e As EventArgs) Handles LB491.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB491.Location.X : BL1 = True : PA = LB491.Text : 合約內文修改視窗.ShowDialog() : LB491.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB491.Location.Y : LB491.Location = New Drawing.Point(syy1, sxx) sxx = LB492.Location.Y : LB492.Location = New Drawing.Point(syy2, sxx) : sxx = LB493.Location.Y : LB493.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB492_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB492.Size.Height : sxx = LB492.Location.Y : NU4 = LB493.Location.X : LB493.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB492_Click(sender As Object, e As EventArgs) Handles LB492.Click PA = LB492.Text : 合約內文修改視窗.ShowDialog() : LB492.Text = PA : LB492_移動() End Sub Private Sub LB492_LocationChanged(sender As Object, e As EventArgs) Handles LB492.LocationChanged LB492_移動() End Sub Private Sub LB492_TextChanged(sender As Object, e As EventArgs) Handles LB492.TextChanged LB492_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB493_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB493.Size.Height : sxx = LB493.Location.Y : NU3 = LB494.Location.X : NU4 = LB495.Location.X LB494.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB495.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB493_Click(sender As Object, e As EventArgs) Handles LB493.Click PA = LB493.Text : 合約內文修改視窗.ShowDialog() : LB493.Text = PA : LB493_移動() End Sub Private Sub LB493_LocationChanged(sender As Object, e As EventArgs) Handles LB493.LocationChanged LB493_移動() End Sub Private Sub LB493_TextChanged(sender As Object, e As EventArgs) Handles LB493.TextChanged LB493_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB494_Click(sender As Object, e As EventArgs) Handles LB494.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB494.Location.X : BL1 = True : PA = LB494.Text : 合約內文修改視窗.ShowDialog() : LB494.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB494.Location.Y : LB494.Location = New Drawing.Point(syy1, sxx) sxx = LB495.Location.Y : LB495.Location = New Drawing.Point(syy2, sxx) : sxx = LB496.Location.Y : LB496.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB495_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB495.Size.Height : sxx = LB495.Location.Y : NU4 = LB496.Location.X : LB496.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB495_Click(sender As Object, e As EventArgs) Handles LB495.Click PA = LB495.Text : 合約內文修改視窗.ShowDialog() : LB495.Text = PA : LB495_移動() End Sub Private Sub LB495_LocationChanged(sender As Object, e As EventArgs) Handles LB495.LocationChanged LB495_移動() End Sub Private Sub LB495_TextChanged(sender As Object, e As EventArgs) Handles LB495.TextChanged LB495_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB496_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB496.Size.Height : sxx = LB496.Location.Y : NU3 = LB497.Location.X : NU4 = LB498.Location.X LB497.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB498.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB496_Click(sender As Object, e As EventArgs) Handles LB496.Click PA = LB496.Text : 合約內文修改視窗.ShowDialog() : LB496.Text = PA : LB496_移動() End Sub Private Sub LB496_LocationChanged(sender As Object, e As EventArgs) Handles LB496.LocationChanged LB496_移動() End Sub Private Sub LB496_TextChanged(sender As Object, e As EventArgs) Handles LB496.TextChanged LB496_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB497_Click(sender As Object, e As EventArgs) Handles LB497.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB497.Location.X : BL1 = True : PA = LB497.Text : 合約內文修改視窗.ShowDialog() : LB497.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB497.Location.Y : LB497.Location = New Drawing.Point(syy1, sxx) sxx = LB498.Location.Y : LB498.Location = New Drawing.Point(syy2, sxx) : sxx = LB499.Location.Y : LB499.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB498_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB498.Size.Height : sxx = LB498.Location.Y : NU4 = LB499.Location.X : LB499.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB498_Click(sender As Object, e As EventArgs) Handles LB498.Click PA = LB498.Text : 合約內文修改視窗.ShowDialog() : LB498.Text = PA : LB498_移動() End Sub Private Sub LB498_LocationChanged(sender As Object, e As EventArgs) Handles LB498.LocationChanged LB498_移動() End Sub Private Sub LB498_TextChanged(sender As Object, e As EventArgs) Handles LB498.TextChanged LB498_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB499_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB499.Size.Height : sxx = LB499.Location.Y : NU3 = LB500.Location.X : NU4 = LB501.Location.X LB500.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB501.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB499_Click(sender As Object, e As EventArgs) Handles LB499.Click PA = LB499.Text : 合約內文修改視窗.ShowDialog() : LB499.Text = PA : LB499_移動() End Sub Private Sub LB499_LocationChanged(sender As Object, e As EventArgs) Handles LB499.LocationChanged LB499_移動() End Sub Private Sub LB499_TextChanged(sender As Object, e As EventArgs) Handles LB499.TextChanged LB499_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB500_Click(sender As Object, e As EventArgs) Handles LB500.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB500.Location.X : BL1 = True : PA = LB500.Text : 合約內文修改視窗.ShowDialog() : LB500.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB500.Location.Y : LB500.Location = New Drawing.Point(syy1, sxx) sxx = LB501.Location.Y : LB501.Location = New Drawing.Point(syy2, sxx) : sxx = LB502.Location.Y : LB502.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB501_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB501.Size.Height : sxx = LB501.Location.Y : NU4 = LB502.Location.X : LB502.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB501_Click(sender As Object, e As EventArgs) Handles LB501.Click PA = LB501.Text : 合約內文修改視窗.ShowDialog() : LB501.Text = PA : LB501_移動() End Sub Private Sub LB501_LocationChanged(sender As Object, e As EventArgs) Handles LB501.LocationChanged LB501_移動() End Sub Private Sub LB501_TextChanged(sender As Object, e As EventArgs) Handles LB501.TextChanged LB501_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB502_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB502.Size.Height : sxx = LB502.Location.Y : NU3 = LB503.Location.X : NU4 = LB504.Location.X LB503.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB504.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB502_Click(sender As Object, e As EventArgs) Handles LB502.Click PA = LB502.Text : 合約內文修改視窗.ShowDialog() : LB502.Text = PA : LB502_移動() End Sub Private Sub LB502_LocationChanged(sender As Object, e As EventArgs) Handles LB502.LocationChanged LB502_移動() End Sub Private Sub LB502_TextChanged(sender As Object, e As EventArgs) Handles LB502.TextChanged LB502_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB503_Click(sender As Object, e As EventArgs) Handles LB503.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB503.Location.X : BL1 = True : PA = LB503.Text : 合約內文修改視窗.ShowDialog() : LB503.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB503.Location.Y : LB503.Location = New Drawing.Point(syy1, sxx) sxx = LB504.Location.Y : LB504.Location = New Drawing.Point(syy2, sxx) : sxx = LB505.Location.Y : LB505.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB504_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB504.Size.Height : sxx = LB504.Location.Y : NU4 = LB505.Location.X : LB505.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB504_Click(sender As Object, e As EventArgs) Handles LB504.Click PA = LB504.Text : 合約內文修改視窗.ShowDialog() : LB504.Text = PA : LB504_移動() End Sub Private Sub LB504_LocationChanged(sender As Object, e As EventArgs) Handles LB504.LocationChanged LB504_移動() End Sub Private Sub LB504_TextChanged(sender As Object, e As EventArgs) Handles LB504.TextChanged LB504_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB505_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB505.Size.Height : sxx = LB505.Location.Y : NU3 = LB506.Location.X : NU4 = LB507.Location.X LB506.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB507.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB505_Click(sender As Object, e As EventArgs) Handles LB505.Click PA = LB505.Text : 合約內文修改視窗.ShowDialog() : LB505.Text = PA : LB505_移動() End Sub Private Sub LB505_LocationChanged(sender As Object, e As EventArgs) Handles LB505.LocationChanged LB505_移動() End Sub Private Sub LB505_TextChanged(sender As Object, e As EventArgs) Handles LB505.TextChanged LB505_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB506_Click(sender As Object, e As EventArgs) Handles LB506.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB506.Location.X : BL1 = True : PA = LB506.Text : 合約內文修改視窗.ShowDialog() : LB506.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB506.Location.Y : LB506.Location = New Drawing.Point(syy1, sxx) sxx = LB507.Location.Y : LB507.Location = New Drawing.Point(syy2, sxx) : sxx = LB508.Location.Y : LB508.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB507_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB507.Size.Height : sxx = LB507.Location.Y : NU4 = LB508.Location.X : LB508.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB507_Click(sender As Object, e As EventArgs) Handles LB507.Click PA = LB507.Text : 合約內文修改視窗.ShowDialog() : LB507.Text = PA : LB507_移動() End Sub Private Sub LB507_LocationChanged(sender As Object, e As EventArgs) Handles LB507.LocationChanged LB507_移動() End Sub Private Sub LB507_TextChanged(sender As Object, e As EventArgs) Handles LB507.TextChanged LB507_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB508_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB508.Size.Height : sxx = LB508.Location.Y : NU3 = LB509.Location.X : NU4 = LB510.Location.X LB509.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB510.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB508_Click(sender As Object, e As EventArgs) Handles LB508.Click PA = LB508.Text : 合約內文修改視窗.ShowDialog() : LB508.Text = PA : LB508_移動() End Sub Private Sub LB508_LocationChanged(sender As Object, e As EventArgs) Handles LB508.LocationChanged LB508_移動() End Sub Private Sub LB508_TextChanged(sender As Object, e As EventArgs) Handles LB508.TextChanged LB508_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB509_Click(sender As Object, e As EventArgs) Handles LB509.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB509.Location.X : BL1 = True : PA = LB509.Text : 合約內文修改視窗.ShowDialog() : LB509.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB509.Location.Y : LB509.Location = New Drawing.Point(syy1, sxx) sxx = LB510.Location.Y : LB510.Location = New Drawing.Point(syy2, sxx) : sxx = LB511.Location.Y : LB511.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB510_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB510.Size.Height : sxx = LB510.Location.Y : NU4 = LB511.Location.X : LB511.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB510_Click(sender As Object, e As EventArgs) Handles LB510.Click PA = LB510.Text : 合約內文修改視窗.ShowDialog() : LB510.Text = PA : LB510_移動() End Sub Private Sub LB510_LocationChanged(sender As Object, e As EventArgs) Handles LB510.LocationChanged LB510_移動() End Sub Private Sub LB510_TextChanged(sender As Object, e As EventArgs) Handles LB510.TextChanged LB510_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB511_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB511.Size.Height : sxx = LB511.Location.Y : NU3 = LB512.Location.X : NU4 = LB513.Location.X LB512.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB513.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB511_Click(sender As Object, e As EventArgs) Handles LB511.Click PA = LB511.Text : 合約內文修改視窗.ShowDialog() : LB511.Text = PA : LB511_移動() End Sub Private Sub LB511_LocationChanged(sender As Object, e As EventArgs) Handles LB511.LocationChanged LB511_移動() End Sub Private Sub LB511_TextChanged(sender As Object, e As EventArgs) Handles LB511.TextChanged LB511_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB512_Click(sender As Object, e As EventArgs) Handles LB512.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB512.Location.X : BL1 = True : PA = LB512.Text : 合約內文修改視窗.ShowDialog() : LB512.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB512.Location.Y : LB512.Location = New Drawing.Point(syy1, sxx) sxx = LB513.Location.Y : LB513.Location = New Drawing.Point(syy2, sxx) : sxx = LB514.Location.Y : LB514.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB513_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB513.Size.Height : sxx = LB513.Location.Y : NU4 = LB514.Location.X : LB514.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB513_Click(sender As Object, e As EventArgs) Handles LB513.Click PA = LB513.Text : 合約內文修改視窗.ShowDialog() : LB513.Text = PA : LB513_移動() End Sub Private Sub LB513_LocationChanged(sender As Object, e As EventArgs) Handles LB513.LocationChanged LB513_移動() End Sub Private Sub LB513_TextChanged(sender As Object, e As EventArgs) Handles LB513.TextChanged LB513_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB514_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB514.Size.Height : sxx = LB514.Location.Y : NU3 = LB515.Location.X : NU4 = LB516.Location.X LB515.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB516.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB514_Click(sender As Object, e As EventArgs) Handles LB514.Click PA = LB514.Text : 合約內文修改視窗.ShowDialog() : LB514.Text = PA : LB514_移動() End Sub Private Sub LB514_LocationChanged(sender As Object, e As EventArgs) Handles LB514.LocationChanged LB514_移動() End Sub Private Sub LB514_TextChanged(sender As Object, e As EventArgs) Handles LB514.TextChanged LB514_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB515_Click(sender As Object, e As EventArgs) Handles LB515.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB515.Location.X : BL1 = True : PA = LB515.Text : 合約內文修改視窗.ShowDialog() : LB515.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB515.Location.Y : LB515.Location = New Drawing.Point(syy1, sxx) sxx = LB516.Location.Y : LB516.Location = New Drawing.Point(syy2, sxx) : sxx = LB517.Location.Y : LB517.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB516_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB516.Size.Height : sxx = LB516.Location.Y : NU4 = LB517.Location.X : LB517.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB516_Click(sender As Object, e As EventArgs) Handles LB516.Click PA = LB516.Text : 合約內文修改視窗.ShowDialog() : LB516.Text = PA : LB516_移動() End Sub Private Sub LB516_LocationChanged(sender As Object, e As EventArgs) Handles LB516.LocationChanged LB516_移動() End Sub Private Sub LB516_TextChanged(sender As Object, e As EventArgs) Handles LB516.TextChanged LB516_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB517_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB517.Size.Height : sxx = LB517.Location.Y : NU3 = LB518.Location.X : NU4 = LB519.Location.X LB518.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB519.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB517_Click(sender As Object, e As EventArgs) Handles LB517.Click PA = LB517.Text : 合約內文修改視窗.ShowDialog() : LB517.Text = PA : LB517_移動() End Sub Private Sub LB517_LocationChanged(sender As Object, e As EventArgs) Handles LB517.LocationChanged LB517_移動() End Sub Private Sub LB517_TextChanged(sender As Object, e As EventArgs) Handles LB517.TextChanged LB517_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB518_Click(sender As Object, e As EventArgs) Handles LB518.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB518.Location.X : BL1 = True : PA = LB518.Text : 合約內文修改視窗.ShowDialog() : LB518.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB518.Location.Y : LB518.Location = New Drawing.Point(syy1, sxx) sxx = LB519.Location.Y : LB519.Location = New Drawing.Point(syy2, sxx) : sxx = LB520.Location.Y : LB520.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB519_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB519.Size.Height : sxx = LB519.Location.Y : NU4 = LB520.Location.X : LB520.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB519_Click(sender As Object, e As EventArgs) Handles LB519.Click PA = LB519.Text : 合約內文修改視窗.ShowDialog() : LB519.Text = PA : LB519_移動() End Sub Private Sub LB519_LocationChanged(sender As Object, e As EventArgs) Handles LB519.LocationChanged LB519_移動() End Sub Private Sub LB519_TextChanged(sender As Object, e As EventArgs) Handles LB519.TextChanged LB519_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB520_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB520.Size.Height : sxx = LB520.Location.Y : NU3 = LB521.Location.X : NU4 = LB522.Location.X LB521.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB522.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB520_Click(sender As Object, e As EventArgs) Handles LB520.Click PA = LB520.Text : 合約內文修改視窗.ShowDialog() : LB520.Text = PA : LB520_移動() End Sub Private Sub LB520_LocationChanged(sender As Object, e As EventArgs) Handles LB520.LocationChanged LB520_移動() End Sub Private Sub LB520_TextChanged(sender As Object, e As EventArgs) Handles LB520.TextChanged LB520_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB521_Click(sender As Object, e As EventArgs) Handles LB521.Click If 翻頁_nud.Value = 11 Or 自動移動 = True Then NU5 = LB521.Location.X : BL1 = True : PA = LB521.Text : 合約內文修改視窗.ShowDialog() : LB521.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB521.Location.Y : LB521.Location = New Drawing.Point(syy1, sxx) sxx = LB522.Location.Y : LB522.Location = New Drawing.Point(syy2, sxx) : sxx = LB523.Location.Y : LB523.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB522_移動() If 翻頁_nud.Value = 11 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB522.Size.Height : sxx = LB522.Location.Y : NU4 = LB523.Location.X : LB523.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB522_Click(sender As Object, e As EventArgs) Handles LB522.Click PA = LB522.Text : 合約內文修改視窗.ShowDialog() : LB522.Text = PA : LB522_移動() End Sub Private Sub LB522_LocationChanged(sender As Object, e As EventArgs) Handles LB522.LocationChanged LB522_移動() End Sub Private Sub LB522_TextChanged(sender As Object, e As EventArgs) Handles LB522.TextChanged LB522_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB523_Click(sender As Object, e As EventArgs) Handles LB523.Click PA = LB523.Text : 合約內文修改視窗.ShowDialog() : LB523.Text = PA End Sub '---------------------------第10頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB524_Click(sender As Object, e As EventArgs) Handles LB524.Click PA = LB524.Text : 合約內文修改視窗.ShowDialog() : LB524.Text = PA End Sub Private Sub LB525_Click(sender As Object, e As EventArgs) Handles LB525.Click PA = LB525.Text : 合約內文修改視窗.ShowDialog() : LB525.Text = PA End Sub Private Sub LB526_Click(sender As Object, e As EventArgs) Handles LB526.Click PA = LB526.Text : 合約內文修改視窗.ShowDialog() : LB526.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB527_Click(sender As Object, e As EventArgs) Handles LB527.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB527.Location.X : BL1 = True : PA = LB527.Text : 合約內文修改視窗.ShowDialog() : LB527.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB527.Location.Y : LB527.Location = New Drawing.Point(syy1, sxx) sxx = LB115.Location.Y : LB115.Location = New Drawing.Point(syy2, sxx) : sxx = LB116.Location.Y : LB116.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB115_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB115.Size.Height : sxx = LB115.Location.Y : NU4 = LB116.Location.X : LB116.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB115_Click(sender As Object, e As EventArgs) Handles LB115.Click PA = LB115.Text : 合約內文修改視窗.ShowDialog() : LB115.Text = PA : LB115_移動() End Sub Private Sub LB115_LocationChanged(sender As Object, e As EventArgs) Handles LB115.LocationChanged LB115_移動() End Sub Private Sub LB115_TextChanged(sender As Object, e As EventArgs) Handles LB115.TextChanged LB115_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB116_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB116.Size.Height : sxx = LB116.Location.Y : NU3 = LB528.Location.X : NU4 = LB529.Location.X LB528.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB529.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB116_Click(sender As Object, e As EventArgs) Handles LB116.Click PA = LB116.Text : 合約內文修改視窗.ShowDialog() : LB116.Text = PA : LB116_移動() End Sub Private Sub LB116_LocationChanged(sender As Object, e As EventArgs) Handles LB116.LocationChanged LB116_移動() End Sub Private Sub LB116_TextChanged(sender As Object, e As EventArgs) Handles LB116.TextChanged LB116_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB528_Click(sender As Object, e As EventArgs) Handles LB528.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB528.Location.X : BL1 = True : PA = LB528.Text : 合約內文修改視窗.ShowDialog() : LB528.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB528.Location.Y : LB528.Location = New Drawing.Point(syy1, sxx) sxx = LB529.Location.Y : LB529.Location = New Drawing.Point(syy2, sxx) : sxx = LB530.Location.Y : LB530.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB529_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB529.Size.Height : sxx = LB529.Location.Y : NU4 = LB530.Location.X : LB530.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB529_Click(sender As Object, e As EventArgs) Handles LB529.Click PA = LB529.Text : 合約內文修改視窗.ShowDialog() : LB529.Text = PA : LB529_移動() End Sub Private Sub LB529_LocationChanged(sender As Object, e As EventArgs) Handles LB529.LocationChanged LB529_移動() End Sub Private Sub LB529_TextChanged(sender As Object, e As EventArgs) Handles LB529.TextChanged LB529_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB530_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB530.Size.Height : sxx = LB530.Location.Y : NU3 = LB531.Location.X : NU4 = LB532.Location.X LB531.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB532.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB530_Click(sender As Object, e As EventArgs) Handles LB530.Click PA = LB530.Text : 合約內文修改視窗.ShowDialog() : LB530.Text = PA : LB530_移動() End Sub Private Sub LB530_LocationChanged(sender As Object, e As EventArgs) Handles LB530.LocationChanged LB530_移動() End Sub Private Sub LB530_TextChanged(sender As Object, e As EventArgs) Handles LB530.TextChanged LB530_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB531_Click(sender As Object, e As EventArgs) Handles LB531.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB531.Location.X : BL1 = True : PA = LB531.Text : 合約內文修改視窗.ShowDialog() : LB531.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB531.Location.Y : LB531.Location = New Drawing.Point(syy1, sxx) sxx = LB532.Location.Y : LB532.Location = New Drawing.Point(syy2, sxx) : sxx = LB533.Location.Y : LB533.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB532_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB532.Size.Height : sxx = LB532.Location.Y : NU4 = LB533.Location.X : LB533.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB532_Click(sender As Object, e As EventArgs) Handles LB532.Click PA = LB532.Text : 合約內文修改視窗.ShowDialog() : LB532.Text = PA : LB532_移動() End Sub Private Sub LB532_LocationChanged(sender As Object, e As EventArgs) Handles LB532.LocationChanged LB532_移動() End Sub Private Sub LB532_TextChanged(sender As Object, e As EventArgs) Handles LB532.TextChanged LB532_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB533_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB533.Size.Height : sxx = LB533.Location.Y : NU3 = LB534.Location.X : NU4 = LB535.Location.X LB534.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB535.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB533_Click(sender As Object, e As EventArgs) Handles LB533.Click PA = LB533.Text : 合約內文修改視窗.ShowDialog() : LB533.Text = PA : LB533_移動() End Sub Private Sub LB533_LocationChanged(sender As Object, e As EventArgs) Handles LB533.LocationChanged LB533_移動() End Sub Private Sub LB533_TextChanged(sender As Object, e As EventArgs) Handles LB533.TextChanged LB533_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB534_Click(sender As Object, e As EventArgs) Handles LB534.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB534.Location.X : BL1 = True : PA = LB534.Text : 合約內文修改視窗.ShowDialog() : LB534.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB534.Location.Y : LB534.Location = New Drawing.Point(syy1, sxx) sxx = LB535.Location.Y : LB535.Location = New Drawing.Point(syy2, sxx) : sxx = LB536.Location.Y : LB536.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB535_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB535.Size.Height : sxx = LB535.Location.Y : NU4 = LB536.Location.X : LB536.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB535_Click(sender As Object, e As EventArgs) Handles LB535.Click PA = LB535.Text : 合約內文修改視窗.ShowDialog() : LB535.Text = PA : LB535_移動() End Sub Private Sub LB535_LocationChanged(sender As Object, e As EventArgs) Handles LB535.LocationChanged LB535_移動() End Sub Private Sub LB535_TextChanged(sender As Object, e As EventArgs) Handles LB535.TextChanged LB535_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB536_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB536.Size.Height : sxx = LB536.Location.Y : NU3 = LB537.Location.X : NU4 = LB538.Location.X LB537.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB538.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB536_Click(sender As Object, e As EventArgs) Handles LB536.Click PA = LB536.Text : 合約內文修改視窗.ShowDialog() : LB536.Text = PA : LB536_移動() End Sub Private Sub LB536_LocationChanged(sender As Object, e As EventArgs) Handles LB536.LocationChanged LB536_移動() End Sub Private Sub LB536_TextChanged(sender As Object, e As EventArgs) Handles LB536.TextChanged LB536_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB537_Click(sender As Object, e As EventArgs) Handles LB537.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB537.Location.X : BL1 = True : PA = LB537.Text : 合約內文修改視窗.ShowDialog() : LB537.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB537.Location.Y : LB537.Location = New Drawing.Point(syy1, sxx) sxx = LB538.Location.Y : LB538.Location = New Drawing.Point(syy2, sxx) : sxx = LB539.Location.Y : LB539.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB538_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB538.Size.Height : sxx = LB538.Location.Y : NU4 = LB539.Location.X : LB539.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB538_Click(sender As Object, e As EventArgs) Handles LB538.Click PA = LB538.Text : 合約內文修改視窗.ShowDialog() : LB538.Text = PA : LB538_移動() End Sub Private Sub LB538_LocationChanged(sender As Object, e As EventArgs) Handles LB538.LocationChanged LB538_移動() End Sub Private Sub LB538_TextChanged(sender As Object, e As EventArgs) Handles LB538.TextChanged LB538_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB539_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB539.Size.Height : sxx = LB539.Location.Y : NU3 = LB540.Location.X : NU4 = LB541.Location.X LB540.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB541.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB539_Click(sender As Object, e As EventArgs) Handles LB539.Click PA = LB539.Text : 合約內文修改視窗.ShowDialog() : LB539.Text = PA : LB539_移動() End Sub Private Sub LB539_LocationChanged(sender As Object, e As EventArgs) Handles LB539.LocationChanged LB539_移動() End Sub Private Sub LB539_TextChanged(sender As Object, e As EventArgs) Handles LB539.TextChanged LB539_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB540_Click(sender As Object, e As EventArgs) Handles LB540.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB540.Location.X : BL1 = True : PA = LB540.Text : 合約內文修改視窗.ShowDialog() : LB540.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB540.Location.Y : LB540.Location = New Drawing.Point(syy1, sxx) sxx = LB541.Location.Y : LB541.Location = New Drawing.Point(syy2, sxx) : sxx = LB542.Location.Y : LB542.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB541_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB541.Size.Height : sxx = LB541.Location.Y : NU4 = LB542.Location.X : LB542.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB541_Click(sender As Object, e As EventArgs) Handles LB541.Click PA = LB541.Text : 合約內文修改視窗.ShowDialog() : LB541.Text = PA : LB541_移動() End Sub Private Sub LB541_LocationChanged(sender As Object, e As EventArgs) Handles LB541.LocationChanged LB541_移動() End Sub Private Sub LB541_TextChanged(sender As Object, e As EventArgs) Handles LB541.TextChanged LB541_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB542_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB542.Size.Height : sxx = LB542.Location.Y : NU3 = LB543.Location.X : NU4 = LB544.Location.X LB543.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB544.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB542_Click(sender As Object, e As EventArgs) Handles LB542.Click PA = LB542.Text : 合約內文修改視窗.ShowDialog() : LB542.Text = PA : LB542_移動() End Sub Private Sub LB542_LocationChanged(sender As Object, e As EventArgs) Handles LB542.LocationChanged LB542_移動() End Sub Private Sub LB542_TextChanged(sender As Object, e As EventArgs) Handles LB542.TextChanged LB542_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB543_Click(sender As Object, e As EventArgs) Handles LB543.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB543.Location.X : BL1 = True : PA = LB543.Text : 合約內文修改視窗.ShowDialog() : LB543.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB543.Location.Y : LB543.Location = New Drawing.Point(syy1, sxx) sxx = LB544.Location.Y : LB544.Location = New Drawing.Point(syy2, sxx) : sxx = LB545.Location.Y : LB545.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB544_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB544.Size.Height : sxx = LB544.Location.Y : NU4 = LB545.Location.X : LB545.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB544_Click(sender As Object, e As EventArgs) Handles LB544.Click PA = LB544.Text : 合約內文修改視窗.ShowDialog() : LB544.Text = PA : LB544_移動() End Sub Private Sub LB544_LocationChanged(sender As Object, e As EventArgs) Handles LB544.LocationChanged LB544_移動() End Sub Private Sub LB544_TextChanged(sender As Object, e As EventArgs) Handles LB544.TextChanged LB544_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB545_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB545.Size.Height : sxx = LB545.Location.Y : NU3 = LB546.Location.X : NU4 = LB547.Location.X LB546.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB547.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB545_Click(sender As Object, e As EventArgs) Handles LB545.Click PA = LB545.Text : 合約內文修改視窗.ShowDialog() : LB545.Text = PA : LB545_移動() End Sub Private Sub LB545_LocationChanged(sender As Object, e As EventArgs) Handles LB545.LocationChanged LB545_移動() End Sub Private Sub LB545_TextChanged(sender As Object, e As EventArgs) Handles LB545.TextChanged LB545_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB546_Click(sender As Object, e As EventArgs) Handles LB546.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB546.Location.X : BL1 = True : PA = LB546.Text : 合約內文修改視窗.ShowDialog() : LB546.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB546.Location.Y : LB546.Location = New Drawing.Point(syy1, sxx) sxx = LB547.Location.Y : LB547.Location = New Drawing.Point(syy2, sxx) : sxx = LB548.Location.Y : LB548.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB547_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB547.Size.Height : sxx = LB547.Location.Y : NU4 = LB548.Location.X : LB548.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB547_Click(sender As Object, e As EventArgs) Handles LB547.Click PA = LB547.Text : 合約內文修改視窗.ShowDialog() : LB547.Text = PA : LB547_移動() End Sub Private Sub LB547_LocationChanged(sender As Object, e As EventArgs) Handles LB547.LocationChanged LB547_移動() End Sub Private Sub LB547_TextChanged(sender As Object, e As EventArgs) Handles LB547.TextChanged LB547_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB548_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB548.Size.Height : sxx = LB548.Location.Y : NU3 = LB549.Location.X : NU4 = LB550.Location.X LB549.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB550.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB548_Click(sender As Object, e As EventArgs) Handles LB548.Click PA = LB548.Text : 合約內文修改視窗.ShowDialog() : LB548.Text = PA : LB548_移動() End Sub Private Sub LB548_LocationChanged(sender As Object, e As EventArgs) Handles LB548.LocationChanged LB548_移動() End Sub Private Sub LB548_TextChanged(sender As Object, e As EventArgs) Handles LB548.TextChanged LB548_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB549_Click(sender As Object, e As EventArgs) Handles LB549.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB549.Location.X : BL1 = True : PA = LB549.Text : 合約內文修改視窗.ShowDialog() : LB549.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB549.Location.Y : LB549.Location = New Drawing.Point(syy1, sxx) sxx = LB550.Location.Y : LB550.Location = New Drawing.Point(syy2, sxx) : sxx = LB551.Location.Y : LB551.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB550_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB550.Size.Height : sxx = LB550.Location.Y : NU4 = LB551.Location.X : LB551.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB550_Click(sender As Object, e As EventArgs) Handles LB550.Click PA = LB550.Text : 合約內文修改視窗.ShowDialog() : LB550.Text = PA : LB550_移動() End Sub Private Sub LB550_LocationChanged(sender As Object, e As EventArgs) Handles LB550.LocationChanged LB550_移動() End Sub Private Sub LB550_TextChanged(sender As Object, e As EventArgs) Handles LB550.TextChanged LB550_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB551_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB551.Size.Height : sxx = LB551.Location.Y : NU3 = LB552.Location.X : NU4 = LB553.Location.X LB552.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB553.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB551_Click(sender As Object, e As EventArgs) Handles LB551.Click PA = LB551.Text : 合約內文修改視窗.ShowDialog() : LB551.Text = PA : LB551_移動() End Sub Private Sub LB551_LocationChanged(sender As Object, e As EventArgs) Handles LB551.LocationChanged LB551_移動() End Sub Private Sub LB551_TextChanged(sender As Object, e As EventArgs) Handles LB551.TextChanged LB551_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB552_Click(sender As Object, e As EventArgs) Handles LB552.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB552.Location.X : BL1 = True : PA = LB552.Text : 合約內文修改視窗.ShowDialog() : LB552.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB552.Location.Y : LB552.Location = New Drawing.Point(syy1, sxx) sxx = LB553.Location.Y : LB553.Location = New Drawing.Point(syy2, sxx) : sxx = LB554.Location.Y : LB554.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB553_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB553.Size.Height : sxx = LB553.Location.Y : NU4 = LB554.Location.X : LB554.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB553_Click(sender As Object, e As EventArgs) Handles LB553.Click PA = LB553.Text : 合約內文修改視窗.ShowDialog() : LB553.Text = PA : LB553_移動() End Sub Private Sub LB553_LocationChanged(sender As Object, e As EventArgs) Handles LB553.LocationChanged LB553_移動() End Sub Private Sub LB553_TextChanged(sender As Object, e As EventArgs) Handles LB553.TextChanged LB553_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB554_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB554.Size.Height : sxx = LB554.Location.Y : NU3 = LB555.Location.X : NU4 = LB556.Location.X LB555.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB556.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB554_Click(sender As Object, e As EventArgs) Handles LB554.Click PA = LB554.Text : 合約內文修改視窗.ShowDialog() : LB554.Text = PA : LB554_移動() End Sub Private Sub LB554_LocationChanged(sender As Object, e As EventArgs) Handles LB554.LocationChanged LB554_移動() End Sub Private Sub LB554_TextChanged(sender As Object, e As EventArgs) Handles LB554.TextChanged LB554_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB555_Click(sender As Object, e As EventArgs) Handles LB555.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB555.Location.X : BL1 = True : PA = LB555.Text : 合約內文修改視窗.ShowDialog() : LB555.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB555.Location.Y : LB555.Location = New Drawing.Point(syy1, sxx) sxx = LB556.Location.Y : LB556.Location = New Drawing.Point(syy2, sxx) : sxx = LB557.Location.Y : LB557.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB556_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB556.Size.Height : sxx = LB556.Location.Y : NU4 = LB557.Location.X : LB557.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB556_Click(sender As Object, e As EventArgs) Handles LB556.Click PA = LB556.Text : 合約內文修改視窗.ShowDialog() : LB556.Text = PA : LB556_移動() End Sub Private Sub LB556_LocationChanged(sender As Object, e As EventArgs) Handles LB556.LocationChanged LB556_移動() End Sub Private Sub LB556_TextChanged(sender As Object, e As EventArgs) Handles LB556.TextChanged LB556_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB557_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB557.Size.Height : sxx = LB557.Location.Y : NU3 = LB558.Location.X : NU4 = LB559.Location.X LB558.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB559.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB557_Click(sender As Object, e As EventArgs) Handles LB557.Click PA = LB557.Text : 合約內文修改視窗.ShowDialog() : LB557.Text = PA : LB557_移動() End Sub Private Sub LB557_LocationChanged(sender As Object, e As EventArgs) Handles LB557.LocationChanged LB557_移動() End Sub Private Sub LB557_TextChanged(sender As Object, e As EventArgs) Handles LB557.TextChanged LB557_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB558_Click(sender As Object, e As EventArgs) Handles LB558.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB558.Location.X : BL1 = True : PA = LB558.Text : 合約內文修改視窗.ShowDialog() : LB558.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB558.Location.Y : LB558.Location = New Drawing.Point(syy1, sxx) sxx = LB559.Location.Y : LB559.Location = New Drawing.Point(syy2, sxx) : sxx = LB560.Location.Y : LB560.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB559_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB559.Size.Height : sxx = LB559.Location.Y : NU4 = LB560.Location.X : LB560.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB559_Click(sender As Object, e As EventArgs) Handles LB559.Click PA = LB559.Text : 合約內文修改視窗.ShowDialog() : LB559.Text = PA : LB559_移動() End Sub Private Sub LB559_LocationChanged(sender As Object, e As EventArgs) Handles LB559.LocationChanged LB559_移動() End Sub Private Sub LB559_TextChanged(sender As Object, e As EventArgs) Handles LB559.TextChanged LB559_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB560_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB560.Size.Height : sxx = LB560.Location.Y : NU3 = LB561.Location.X : NU4 = LB562.Location.X LB561.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB562.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB560_Click(sender As Object, e As EventArgs) Handles LB560.Click PA = LB560.Text : 合約內文修改視窗.ShowDialog() : LB560.Text = PA : LB560_移動() End Sub Private Sub LB560_LocationChanged(sender As Object, e As EventArgs) Handles LB560.LocationChanged LB560_移動() End Sub Private Sub LB560_TextChanged(sender As Object, e As EventArgs) Handles LB560.TextChanged LB560_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB561_Click(sender As Object, e As EventArgs) Handles LB561.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB561.Location.X : BL1 = True : PA = LB561.Text : 合約內文修改視窗.ShowDialog() : LB561.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB561.Location.Y : LB561.Location = New Drawing.Point(syy1, sxx) sxx = LB562.Location.Y : LB562.Location = New Drawing.Point(syy2, sxx) : sxx = LB563.Location.Y : LB563.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB562_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB562.Size.Height : sxx = LB562.Location.Y : NU4 = LB563.Location.X : LB563.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB562_Click(sender As Object, e As EventArgs) Handles LB562.Click PA = LB562.Text : 合約內文修改視窗.ShowDialog() : LB562.Text = PA : LB562_移動() End Sub Private Sub LB562_LocationChanged(sender As Object, e As EventArgs) Handles LB562.LocationChanged LB562_移動() End Sub Private Sub LB562_TextChanged(sender As Object, e As EventArgs) Handles LB562.TextChanged LB562_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB563_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB563.Size.Height : sxx = LB563.Location.Y : NU3 = LB564.Location.X : NU4 = LB565.Location.X LB564.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB565.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB563_Click(sender As Object, e As EventArgs) Handles LB563.Click PA = LB563.Text : 合約內文修改視窗.ShowDialog() : LB563.Text = PA : LB563_移動() End Sub Private Sub LB563_LocationChanged(sender As Object, e As EventArgs) Handles LB563.LocationChanged LB563_移動() End Sub Private Sub LB563_TextChanged(sender As Object, e As EventArgs) Handles LB563.TextChanged LB563_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB564_Click(sender As Object, e As EventArgs) Handles LB564.Click If 翻頁_nud.Value = 10 Or 自動移動 = True Then NU5 = LB564.Location.X : BL1 = True : PA = LB564.Text : 合約內文修改視窗.ShowDialog() : LB564.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB564.Location.Y : LB564.Location = New Drawing.Point(syy1, sxx) sxx = LB565.Location.Y : LB565.Location = New Drawing.Point(syy2, sxx) : sxx = LB566.Location.Y : LB566.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB565_移動() If 翻頁_nud.Value = 10 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB565.Size.Height : sxx = LB565.Location.Y : NU4 = LB566.Location.X : LB566.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB565_Click(sender As Object, e As EventArgs) Handles LB565.Click PA = LB565.Text : 合約內文修改視窗.ShowDialog() : LB565.Text = PA : LB565_移動() End Sub Private Sub LB565_LocationChanged(sender As Object, e As EventArgs) Handles LB565.LocationChanged LB565_移動() End Sub Private Sub LB565_TextChanged(sender As Object, e As EventArgs) Handles LB565.TextChanged LB565_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB566_Click(sender As Object, e As EventArgs) Handles LB566.Click PA = LB566.Text : 合約內文修改視窗.ShowDialog() : LB566.Text = PA End Sub '---------------------------第9頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB567_Click(sender As Object, e As EventArgs) Handles LB567.Click PA = LB567.Text : 合約內文修改視窗.ShowDialog() : LB567.Text = PA End Sub Private Sub LB568_Click(sender As Object, e As EventArgs) Handles LB568.Click PA = LB568.Text : 合約內文修改視窗.ShowDialog() : LB568.Text = PA End Sub Private Sub LB569_Click(sender As Object, e As EventArgs) Handles LB569.Click PA = LB569.Text : 合約內文修改視窗.ShowDialog() : LB569.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB570_Click(sender As Object, e As EventArgs) Handles LB570.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB570.Location.X : BL1 = True : PA = LB570.Text : 合約內文修改視窗.ShowDialog() : LB570.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB570.Location.Y : LB570.Location = New Drawing.Point(syy1, sxx) sxx = LB103.Location.Y : LB103.Location = New Drawing.Point(syy2, sxx) : sxx = LB104.Location.Y : LB104.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB103_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB103.Size.Height : sxx = LB103.Location.Y : NU4 = LB104.Location.X : LB104.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB103_Click(sender As Object, e As EventArgs) Handles LB103.Click PA = LB103.Text : 合約內文修改視窗.ShowDialog() : LB103.Text = PA : LB103_移動() End Sub Private Sub LB103_LocationChanged(sender As Object, e As EventArgs) Handles LB103.LocationChanged LB103_移動() End Sub Private Sub LB103_TextChanged(sender As Object, e As EventArgs) Handles LB103.TextChanged LB103_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB104_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB104.Size.Height : sxx = LB104.Location.Y : NU3 = LB571.Location.X : NU4 = LB105.Location.X LB571.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB105.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB104_Click(sender As Object, e As EventArgs) Handles LB104.Click PA = LB104.Text : 合約內文修改視窗.ShowDialog() : LB104.Text = PA : LB104_移動() End Sub Private Sub LB104_LocationChanged(sender As Object, e As EventArgs) Handles LB104.LocationChanged LB104_移動() End Sub Private Sub LB104_TextChanged(sender As Object, e As EventArgs) Handles LB104.TextChanged LB104_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB571_Click(sender As Object, e As EventArgs) Handles LB571.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB571.Location.X : BL1 = True : PA = LB571.Text : 合約內文修改視窗.ShowDialog() : LB571.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB571.Location.Y : LB571.Location = New Drawing.Point(syy1, sxx) sxx = LB105.Location.Y : LB105.Location = New Drawing.Point(syy2, sxx) : sxx = LB106.Location.Y : LB106.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB105_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB105.Size.Height : sxx = LB105.Location.Y : NU4 = LB106.Location.X : LB106.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB105_Click(sender As Object, e As EventArgs) Handles LB105.Click PA = LB105.Text : 合約內文修改視窗.ShowDialog() : LB105.Text = PA : LB105_移動() End Sub Private Sub LB105_LocationChanged(sender As Object, e As EventArgs) Handles LB105.LocationChanged LB105_移動() End Sub Private Sub LB105_TextChanged(sender As Object, e As EventArgs) Handles LB105.TextChanged LB105_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB106_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB106.Size.Height : sxx = LB106.Location.Y : NU3 = LB572.Location.X : NU4 = LB107.Location.X LB572.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB107.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB106_Click(sender As Object, e As EventArgs) Handles LB106.Click PA = LB106.Text : 合約內文修改視窗.ShowDialog() : LB106.Text = PA : LB106_移動() End Sub Private Sub LB106_LocationChanged(sender As Object, e As EventArgs) Handles LB106.LocationChanged LB106_移動() End Sub Private Sub LB106_TextChanged(sender As Object, e As EventArgs) Handles LB106.TextChanged LB106_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB572_Click(sender As Object, e As EventArgs) Handles LB572.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB572.Location.X : BL1 = True : PA = LB572.Text : 合約內文修改視窗.ShowDialog() : LB572.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB572.Location.Y : LB572.Location = New Drawing.Point(syy1, sxx) sxx = LB107.Location.Y : LB107.Location = New Drawing.Point(syy2, sxx) : sxx = LB108.Location.Y : LB108.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB107_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB107.Size.Height : sxx = LB107.Location.Y : NU4 = LB108.Location.X : LB108.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB107_Click(sender As Object, e As EventArgs) Handles LB107.Click PA = LB107.Text : 合約內文修改視窗.ShowDialog() : LB107.Text = PA : LB107_移動() End Sub Private Sub LB107_LocationChanged(sender As Object, e As EventArgs) Handles LB107.LocationChanged LB107_移動() End Sub Private Sub LB107_TextChanged(sender As Object, e As EventArgs) Handles LB107.TextChanged LB107_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB108_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB108.Size.Height : sxx = LB108.Location.Y : NU3 = LB573.Location.X : NU4 = LB109.Location.X LB573.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB109.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB108_Click(sender As Object, e As EventArgs) Handles LB108.Click PA = LB108.Text : 合約內文修改視窗.ShowDialog() : LB108.Text = PA : LB108_移動() End Sub Private Sub LB108_LocationChanged(sender As Object, e As EventArgs) Handles LB108.LocationChanged LB108_移動() End Sub Private Sub LB108_TextChanged(sender As Object, e As EventArgs) Handles LB108.TextChanged LB108_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB573_Click(sender As Object, e As EventArgs) Handles LB573.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB573.Location.X : BL1 = True : PA = LB573.Text : 合約內文修改視窗.ShowDialog() : LB573.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB573.Location.Y : LB573.Location = New Drawing.Point(syy1, sxx) sxx = LB109.Location.Y : LB109.Location = New Drawing.Point(syy2, sxx) : sxx = LB110.Location.Y : LB110.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB109_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB109.Size.Height : sxx = LB109.Location.Y : NU4 = LB110.Location.X : LB110.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB109_Click(sender As Object, e As EventArgs) Handles LB109.Click PA = LB109.Text : 合約內文修改視窗.ShowDialog() : LB109.Text = PA : LB109_移動() End Sub Private Sub LB109_LocationChanged(sender As Object, e As EventArgs) Handles LB109.LocationChanged LB109_移動() End Sub Private Sub LB109_TextChanged(sender As Object, e As EventArgs) Handles LB109.TextChanged LB109_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB110_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB110.Size.Height : sxx = LB110.Location.Y : NU3 = LB574.Location.X : NU4 = LB111.Location.X LB574.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB111.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB110_Click(sender As Object, e As EventArgs) Handles LB110.Click PA = LB110.Text : 合約內文修改視窗.ShowDialog() : LB110.Text = PA : LB110_移動() End Sub Private Sub LB110_LocationChanged(sender As Object, e As EventArgs) Handles LB110.LocationChanged LB110_移動() End Sub Private Sub LB110_TextChanged(sender As Object, e As EventArgs) Handles LB110.TextChanged LB110_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB574_Click(sender As Object, e As EventArgs) Handles LB574.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB574.Location.X : BL1 = True : PA = LB574.Text : 合約內文修改視窗.ShowDialog() : LB574.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB574.Location.Y : LB574.Location = New Drawing.Point(syy1, sxx) sxx = LB111.Location.Y : LB111.Location = New Drawing.Point(syy2, sxx) : sxx = LB112.Location.Y : LB112.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB111_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB111.Size.Height : sxx = LB111.Location.Y : NU4 = LB112.Location.X : LB112.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB111_Click(sender As Object, e As EventArgs) Handles LB111.Click PA = LB111.Text : 合約內文修改視窗.ShowDialog() : LB111.Text = PA : LB111_移動() End Sub Private Sub LB111_LocationChanged(sender As Object, e As EventArgs) Handles LB111.LocationChanged LB111_移動() End Sub Private Sub LB111_TextChanged(sender As Object, e As EventArgs) Handles LB111.TextChanged LB111_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB112_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB112.Size.Height : sxx = LB112.Location.Y : NU3 = LB575.Location.X : NU4 = LB113.Location.X LB575.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB113.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB112_Click(sender As Object, e As EventArgs) Handles LB112.Click PA = LB112.Text : 合約內文修改視窗.ShowDialog() : LB112.Text = PA : LB112_移動() End Sub Private Sub LB112_LocationChanged(sender As Object, e As EventArgs) Handles LB112.LocationChanged LB112_移動() End Sub Private Sub LB112_TextChanged(sender As Object, e As EventArgs) Handles LB112.TextChanged LB112_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB575_Click(sender As Object, e As EventArgs) Handles LB575.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB575.Location.X : BL1 = True : PA = LB575.Text : 合約內文修改視窗.ShowDialog() : LB575.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB575.Location.Y : LB575.Location = New Drawing.Point(syy1, sxx) sxx = LB113.Location.Y : LB113.Location = New Drawing.Point(syy2, sxx) : sxx = LB114.Location.Y : LB114.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB113_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB113.Size.Height : sxx = LB113.Location.Y : NU4 = LB114.Location.X : LB114.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB113_Click(sender As Object, e As EventArgs) Handles LB113.Click PA = LB113.Text : 合約內文修改視窗.ShowDialog() : LB113.Text = PA : LB113_移動() End Sub Private Sub LB113_LocationChanged(sender As Object, e As EventArgs) Handles LB113.LocationChanged LB113_移動() End Sub Private Sub LB113_TextChanged(sender As Object, e As EventArgs) Handles LB113.TextChanged LB113_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB114_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB114.Size.Height : sxx = LB114.Location.Y : NU3 = LB576.Location.X : NU4 = LB577.Location.X LB576.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB577.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB114_Click(sender As Object, e As EventArgs) Handles LB114.Click PA = LB114.Text : 合約內文修改視窗.ShowDialog() : LB114.Text = PA : LB114_移動() End Sub Private Sub LB114_LocationChanged(sender As Object, e As EventArgs) Handles LB114.LocationChanged LB114_移動() End Sub Private Sub LB114_TextChanged(sender As Object, e As EventArgs) Handles LB114.TextChanged LB114_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB576_Click(sender As Object, e As EventArgs) Handles LB576.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB576.Location.X : BL1 = True : PA = LB576.Text : 合約內文修改視窗.ShowDialog() : LB576.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB576.Location.Y : LB576.Location = New Drawing.Point(syy1, sxx) sxx = LB577.Location.Y : LB577.Location = New Drawing.Point(syy2, sxx) : sxx = LB578.Location.Y : LB578.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB577_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB577.Size.Height : sxx = LB577.Location.Y : NU4 = LB578.Location.X : LB578.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB577_Click(sender As Object, e As EventArgs) Handles LB577.Click PA = LB577.Text : 合約內文修改視窗.ShowDialog() : LB577.Text = PA : LB577_移動() End Sub Private Sub LB577_LocationChanged(sender As Object, e As EventArgs) Handles LB577.LocationChanged LB577_移動() End Sub Private Sub LB577_TextChanged(sender As Object, e As EventArgs) Handles LB577.TextChanged LB577_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB578_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB578.Size.Height : sxx = LB578.Location.Y : NU3 = LB579.Location.X : NU4 = LB580.Location.X LB579.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB580.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB578_Click(sender As Object, e As EventArgs) Handles LB578.Click PA = LB578.Text : 合約內文修改視窗.ShowDialog() : LB578.Text = PA : LB578_移動() End Sub Private Sub LB578_LocationChanged(sender As Object, e As EventArgs) Handles LB578.LocationChanged LB578_移動() End Sub Private Sub LB578_TextChanged(sender As Object, e As EventArgs) Handles LB578.TextChanged LB578_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB579_Click(sender As Object, e As EventArgs) Handles LB579.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB579.Location.X : BL1 = True : PA = LB579.Text : 合約內文修改視窗.ShowDialog() : LB579.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB579.Location.Y : LB579.Location = New Drawing.Point(syy1, sxx) sxx = LB580.Location.Y : LB580.Location = New Drawing.Point(syy2, sxx) : sxx = LB581.Location.Y : LB581.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB580_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB580.Size.Height : sxx = LB580.Location.Y : NU4 = LB581.Location.X : LB581.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB580_Click(sender As Object, e As EventArgs) Handles LB580.Click PA = LB580.Text : 合約內文修改視窗.ShowDialog() : LB580.Text = PA : LB580_移動() End Sub Private Sub LB580_LocationChanged(sender As Object, e As EventArgs) Handles LB580.LocationChanged LB580_移動() End Sub Private Sub LB580_TextChanged(sender As Object, e As EventArgs) Handles LB580.TextChanged LB580_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB581_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB581.Size.Height : sxx = LB581.Location.Y : NU3 = LB582.Location.X : NU4 = LB583.Location.X LB582.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB583.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB581_Click(sender As Object, e As EventArgs) Handles LB581.Click PA = LB581.Text : 合約內文修改視窗.ShowDialog() : LB581.Text = PA : LB581_移動() End Sub Private Sub LB581_LocationChanged(sender As Object, e As EventArgs) Handles LB581.LocationChanged LB581_移動() End Sub Private Sub LB581_TextChanged(sender As Object, e As EventArgs) Handles LB581.TextChanged LB581_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB582_Click(sender As Object, e As EventArgs) Handles LB582.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB582.Location.X : BL1 = True : PA = LB582.Text : 合約內文修改視窗.ShowDialog() : LB582.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB582.Location.Y : LB582.Location = New Drawing.Point(syy1, sxx) sxx = LB583.Location.Y : LB583.Location = New Drawing.Point(syy2, sxx) : sxx = LB584.Location.Y : LB584.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB583_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB583.Size.Height : sxx = LB583.Location.Y : NU4 = LB584.Location.X : LB584.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB583_Click(sender As Object, e As EventArgs) Handles LB583.Click PA = LB583.Text : 合約內文修改視窗.ShowDialog() : LB583.Text = PA : LB583_移動() End Sub Private Sub LB583_LocationChanged(sender As Object, e As EventArgs) Handles LB583.LocationChanged LB583_移動() End Sub Private Sub LB583_TextChanged(sender As Object, e As EventArgs) Handles LB583.TextChanged LB583_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB584_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB584.Size.Height : sxx = LB584.Location.Y : NU3 = LB585.Location.X : NU4 = LB586.Location.X LB585.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB586.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB584_Click(sender As Object, e As EventArgs) Handles LB584.Click PA = LB584.Text : 合約內文修改視窗.ShowDialog() : LB584.Text = PA : LB584_移動() End Sub Private Sub LB584_LocationChanged(sender As Object, e As EventArgs) Handles LB584.LocationChanged LB584_移動() End Sub Private Sub LB584_TextChanged(sender As Object, e As EventArgs) Handles LB584.TextChanged LB584_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB585_Click(sender As Object, e As EventArgs) Handles LB585.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB585.Location.X : BL1 = True : PA = LB585.Text : 合約內文修改視窗.ShowDialog() : LB585.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB585.Location.Y : LB585.Location = New Drawing.Point(syy1, sxx) sxx = LB586.Location.Y : LB586.Location = New Drawing.Point(syy2, sxx) : sxx = LB587.Location.Y : LB587.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB586_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB586.Size.Height : sxx = LB586.Location.Y : NU4 = LB587.Location.X : LB587.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB586_Click(sender As Object, e As EventArgs) Handles LB586.Click PA = LB586.Text : 合約內文修改視窗.ShowDialog() : LB586.Text = PA : LB586_移動() End Sub Private Sub LB586_LocationChanged(sender As Object, e As EventArgs) Handles LB586.LocationChanged LB586_移動() End Sub Private Sub LB586_TextChanged(sender As Object, e As EventArgs) Handles LB586.TextChanged LB586_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB587_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB587.Size.Height : sxx = LB587.Location.Y : NU3 = LB588.Location.X : NU4 = LB589.Location.X LB588.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB589.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB587_Click(sender As Object, e As EventArgs) Handles LB587.Click PA = LB587.Text : 合約內文修改視窗.ShowDialog() : LB587.Text = PA : LB587_移動() End Sub Private Sub LB587_LocationChanged(sender As Object, e As EventArgs) Handles LB587.LocationChanged LB587_移動() End Sub Private Sub LB587_TextChanged(sender As Object, e As EventArgs) Handles LB587.TextChanged LB587_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB588_Click(sender As Object, e As EventArgs) Handles LB588.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB588.Location.X : BL1 = True : PA = LB588.Text : 合約內文修改視窗.ShowDialog() : LB588.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB588.Location.Y : LB588.Location = New Drawing.Point(syy1, sxx) sxx = LB589.Location.Y : LB589.Location = New Drawing.Point(syy2, sxx) : sxx = LB590.Location.Y : LB590.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB589_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB589.Size.Height : sxx = LB589.Location.Y : NU4 = LB590.Location.X : LB590.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB589_Click(sender As Object, e As EventArgs) Handles LB589.Click PA = LB589.Text : 合約內文修改視窗.ShowDialog() : LB589.Text = PA : LB589_移動() End Sub Private Sub LB589_LocationChanged(sender As Object, e As EventArgs) Handles LB589.LocationChanged LB589_移動() End Sub Private Sub LB589_TextChanged(sender As Object, e As EventArgs) Handles LB589.TextChanged LB589_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB590_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB590.Size.Height : sxx = LB590.Location.Y : NU3 = LB591.Location.X : NU4 = LB592.Location.X LB591.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB592.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB590_Click(sender As Object, e As EventArgs) Handles LB590.Click PA = LB590.Text : 合約內文修改視窗.ShowDialog() : LB590.Text = PA : LB590_移動() End Sub Private Sub LB590_LocationChanged(sender As Object, e As EventArgs) Handles LB590.LocationChanged LB590_移動() End Sub Private Sub LB590_TextChanged(sender As Object, e As EventArgs) Handles LB590.TextChanged LB590_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB591_Click(sender As Object, e As EventArgs) Handles LB591.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB591.Location.X : BL1 = True : PA = LB591.Text : 合約內文修改視窗.ShowDialog() : LB591.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB591.Location.Y : LB591.Location = New Drawing.Point(syy1, sxx) sxx = LB592.Location.Y : LB592.Location = New Drawing.Point(syy2, sxx) : sxx = LB593.Location.Y : LB593.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB592_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB592.Size.Height : sxx = LB592.Location.Y : NU4 = LB593.Location.X : LB593.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB592_Click(sender As Object, e As EventArgs) Handles LB592.Click PA = LB592.Text : 合約內文修改視窗.ShowDialog() : LB592.Text = PA : LB592_移動() End Sub Private Sub LB592_LocationChanged(sender As Object, e As EventArgs) Handles LB592.LocationChanged LB592_移動() End Sub Private Sub LB592_TextChanged(sender As Object, e As EventArgs) Handles LB592.TextChanged LB592_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB593_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB593.Size.Height : sxx = LB593.Location.Y : NU3 = LB594.Location.X : NU4 = LB595.Location.X LB594.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB595.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB593_Click(sender As Object, e As EventArgs) Handles LB593.Click PA = LB593.Text : 合約內文修改視窗.ShowDialog() : LB593.Text = PA : LB593_移動() End Sub Private Sub LB593_LocationChanged(sender As Object, e As EventArgs) Handles LB593.LocationChanged LB593_移動() End Sub Private Sub LB593_TextChanged(sender As Object, e As EventArgs) Handles LB593.TextChanged LB593_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB594_Click(sender As Object, e As EventArgs) Handles LB594.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB594.Location.X : BL1 = True : PA = LB594.Text : 合約內文修改視窗.ShowDialog() : LB594.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB594.Location.Y : LB594.Location = New Drawing.Point(syy1, sxx) sxx = LB595.Location.Y : LB595.Location = New Drawing.Point(syy2, sxx) : sxx = LB596.Location.Y : LB596.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB595_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB595.Size.Height : sxx = LB595.Location.Y : NU4 = LB596.Location.X : LB596.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB595_Click(sender As Object, e As EventArgs) Handles LB595.Click PA = LB595.Text : 合約內文修改視窗.ShowDialog() : LB595.Text = PA : LB595_移動() End Sub Private Sub LB595_LocationChanged(sender As Object, e As EventArgs) Handles LB595.LocationChanged LB595_移動() End Sub Private Sub LB595_TextChanged(sender As Object, e As EventArgs) Handles LB595.TextChanged LB595_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB596_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB596.Size.Height : sxx = LB596.Location.Y : NU3 = LB597.Location.X : NU4 = LB598.Location.X LB597.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB598.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB596_Click(sender As Object, e As EventArgs) Handles LB596.Click PA = LB596.Text : 合約內文修改視窗.ShowDialog() : LB596.Text = PA : LB596_移動() End Sub Private Sub LB596_LocationChanged(sender As Object, e As EventArgs) Handles LB596.LocationChanged LB596_移動() End Sub Private Sub LB596_TextChanged(sender As Object, e As EventArgs) Handles LB596.TextChanged LB596_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB597_Click(sender As Object, e As EventArgs) Handles LB597.Click If 翻頁_nud.Value = 9 Or 自動移動 = True Then NU5 = LB597.Location.X : BL1 = True : PA = LB597.Text : 合約內文修改視窗.ShowDialog() : LB597.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB597.Location.Y : LB597.Location = New Drawing.Point(syy1, sxx) sxx = LB598.Location.Y : LB598.Location = New Drawing.Point(syy2, sxx) : sxx = LB599.Location.Y : LB599.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB598_移動() If 翻頁_nud.Value = 9 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB598.Size.Height : sxx = LB598.Location.Y : NU4 = LB599.Location.X : LB599.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB598_Click(sender As Object, e As EventArgs) Handles LB598.Click PA = LB598.Text : 合約內文修改視窗.ShowDialog() : LB598.Text = PA : LB598_移動() End Sub Private Sub LB598_LocationChanged(sender As Object, e As EventArgs) Handles LB598.LocationChanged LB598_移動() End Sub Private Sub LB598_TextChanged(sender As Object, e As EventArgs) Handles LB598.TextChanged LB598_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB599_Click(sender As Object, e As EventArgs) Handles LB599.Click PA = LB599.Text : 合約內文修改視窗.ShowDialog() : LB599.Text = PA End Sub '---------------------------第8頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB600_Click(sender As Object, e As EventArgs) Handles LB600.Click PA = LB600.Text : 合約內文修改視窗.ShowDialog() : LB600.Text = PA End Sub Private Sub LB601_Click(sender As Object, e As EventArgs) Handles LB601.Click PA = LB601.Text : 合約內文修改視窗.ShowDialog() : LB601.Text = PA End Sub Private Sub LB602_Click(sender As Object, e As EventArgs) Handles LB602.Click PA = LB602.Text : 合約內文修改視窗.ShowDialog() : LB602.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB603_Click(sender As Object, e As EventArgs) Handles LB603.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB603.Location.X : BL1 = True : PA = LB603.Text : 合約內文修改視窗.ShowDialog() : LB603.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB603.Location.Y : LB603.Location = New Drawing.Point(syy1, sxx) sxx = LB604.Location.Y : LB604.Location = New Drawing.Point(syy2, sxx) : sxx = LB605.Location.Y : LB605.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB604_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB604.Size.Height : sxx = LB604.Location.Y : NU4 = LB605.Location.X : LB605.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB604_Click(sender As Object, e As EventArgs) Handles LB604.Click PA = LB604.Text : 合約內文修改視窗.ShowDialog() : LB604.Text = PA : LB604_移動() End Sub Private Sub LB604_LocationChanged(sender As Object, e As EventArgs) Handles LB604.LocationChanged LB604_移動() End Sub Private Sub LB604_TextChanged(sender As Object, e As EventArgs) Handles LB604.TextChanged LB604_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB605_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB605.Size.Height : sxx = LB605.Location.Y : NU3 = LB606.Location.X : NU4 = LB607.Location.X LB606.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB607.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB605_Click(sender As Object, e As EventArgs) Handles LB605.Click PA = LB605.Text : 合約內文修改視窗.ShowDialog() : LB605.Text = PA : LB605_移動() End Sub Private Sub LB605_LocationChanged(sender As Object, e As EventArgs) Handles LB605.LocationChanged LB605_移動() End Sub Private Sub LB605_TextChanged(sender As Object, e As EventArgs) Handles LB605.TextChanged LB605_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB606_Click(sender As Object, e As EventArgs) Handles LB606.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB606.Location.X : BL1 = True : PA = LB606.Text : 合約內文修改視窗.ShowDialog() : LB606.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB606.Location.Y : LB606.Location = New Drawing.Point(syy1, sxx) sxx = LB607.Location.Y : LB607.Location = New Drawing.Point(syy2, sxx) : sxx = LB608.Location.Y : LB608.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB607_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB607.Size.Height : sxx = LB607.Location.Y : NU4 = LB608.Location.X : LB608.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB607_Click(sender As Object, e As EventArgs) Handles LB607.Click PA = LB607.Text : 合約內文修改視窗.ShowDialog() : LB607.Text = PA : LB607_移動() End Sub Private Sub LB607_LocationChanged(sender As Object, e As EventArgs) Handles LB607.LocationChanged LB607_移動() End Sub Private Sub LB607_TextChanged(sender As Object, e As EventArgs) Handles LB607.TextChanged LB607_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB608_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB608.Size.Height : sxx = LB608.Location.Y : NU3 = LB609.Location.X : NU4 = LB610.Location.X LB609.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB610.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB608_Click(sender As Object, e As EventArgs) Handles LB608.Click PA = LB608.Text : 合約內文修改視窗.ShowDialog() : LB608.Text = PA : LB608_移動() End Sub Private Sub LB608_LocationChanged(sender As Object, e As EventArgs) Handles LB608.LocationChanged LB608_移動() End Sub Private Sub LB608_TextChanged(sender As Object, e As EventArgs) Handles LB608.TextChanged LB608_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB609_Click(sender As Object, e As EventArgs) Handles LB609.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB609.Location.X : BL1 = True : PA = LB609.Text : 合約內文修改視窗.ShowDialog() : LB609.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB609.Location.Y : LB609.Location = New Drawing.Point(syy1, sxx) sxx = LB610.Location.Y : LB610.Location = New Drawing.Point(syy2, sxx) : sxx = LB611.Location.Y : LB611.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB610_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB610.Size.Height : sxx = LB610.Location.Y : NU4 = LB611.Location.X : LB611.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB610_Click(sender As Object, e As EventArgs) Handles LB610.Click PA = LB610.Text : 合約內文修改視窗.ShowDialog() : LB610.Text = PA : LB610_移動() End Sub Private Sub LB610_LocationChanged(sender As Object, e As EventArgs) Handles LB610.LocationChanged LB610_移動() End Sub Private Sub LB610_TextChanged(sender As Object, e As EventArgs) Handles LB610.TextChanged LB610_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB611_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB611.Size.Height : sxx = LB611.Location.Y : NU3 = LB612.Location.X : NU4 = LB613.Location.X LB612.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB613.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB611_Click(sender As Object, e As EventArgs) Handles LB611.Click PA = LB611.Text : 合約內文修改視窗.ShowDialog() : LB611.Text = PA : LB611_移動() End Sub Private Sub LB611_LocationChanged(sender As Object, e As EventArgs) Handles LB611.LocationChanged LB611_移動() End Sub Private Sub LB611_TextChanged(sender As Object, e As EventArgs) Handles LB611.TextChanged LB611_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB612_Click(sender As Object, e As EventArgs) Handles LB612.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB612.Location.X : BL1 = True : PA = LB612.Text : 合約內文修改視窗.ShowDialog() : LB612.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB612.Location.Y : LB612.Location = New Drawing.Point(syy1, sxx) sxx = LB613.Location.Y : LB613.Location = New Drawing.Point(syy2, sxx) : sxx = LB614.Location.Y : LB614.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB613_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB613.Size.Height : sxx = LB613.Location.Y : NU4 = LB614.Location.X : LB614.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB613_Click(sender As Object, e As EventArgs) Handles LB613.Click PA = LB613.Text : 合約內文修改視窗.ShowDialog() : LB613.Text = PA : LB613_移動() End Sub Private Sub LB613_LocationChanged(sender As Object, e As EventArgs) Handles LB613.LocationChanged LB613_移動() End Sub Private Sub LB613_TextChanged(sender As Object, e As EventArgs) Handles LB613.TextChanged LB613_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB614_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB614.Size.Height : sxx = LB614.Location.Y : NU3 = LB615.Location.X : NU4 = LB616.Location.X LB615.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB616.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB614_Click(sender As Object, e As EventArgs) Handles LB614.Click PA = LB614.Text : 合約內文修改視窗.ShowDialog() : LB614.Text = PA : LB614_移動() End Sub Private Sub LB614_LocationChanged(sender As Object, e As EventArgs) Handles LB614.LocationChanged LB614_移動() End Sub Private Sub LB614_TextChanged(sender As Object, e As EventArgs) Handles LB614.TextChanged LB614_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB615_Click(sender As Object, e As EventArgs) Handles LB615.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB615.Location.X : BL1 = True : PA = LB615.Text : 合約內文修改視窗.ShowDialog() : LB615.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB615.Location.Y : LB615.Location = New Drawing.Point(syy1, sxx) sxx = LB616.Location.Y : LB616.Location = New Drawing.Point(syy2, sxx) : sxx = LB617.Location.Y : LB617.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB616_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB616.Size.Height : sxx = LB616.Location.Y : NU4 = LB617.Location.X : LB617.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB616_Click(sender As Object, e As EventArgs) Handles LB616.Click PA = LB616.Text : 合約內文修改視窗.ShowDialog() : LB616.Text = PA : LB616_移動() End Sub Private Sub LB616_LocationChanged(sender As Object, e As EventArgs) Handles LB616.LocationChanged LB616_移動() End Sub Private Sub LB616_TextChanged(sender As Object, e As EventArgs) Handles LB616.TextChanged LB616_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB617_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB617.Size.Height : sxx = LB617.Location.Y : NU3 = LB618.Location.X : NU4 = LB619.Location.X LB618.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB619.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB617_Click(sender As Object, e As EventArgs) Handles LB617.Click PA = LB617.Text : 合約內文修改視窗.ShowDialog() : LB617.Text = PA : LB617_移動() End Sub Private Sub LB617_LocationChanged(sender As Object, e As EventArgs) Handles LB617.LocationChanged LB617_移動() End Sub Private Sub LB617_TextChanged(sender As Object, e As EventArgs) Handles LB617.TextChanged LB617_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB618_Click(sender As Object, e As EventArgs) Handles LB618.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB618.Location.X : BL1 = True : PA = LB618.Text : 合約內文修改視窗.ShowDialog() : LB618.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB618.Location.Y : LB618.Location = New Drawing.Point(syy1, sxx) sxx = LB619.Location.Y : LB619.Location = New Drawing.Point(syy2, sxx) : sxx = LB620.Location.Y : LB620.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB619_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB619.Size.Height : sxx = LB619.Location.Y : NU4 = LB620.Location.X : LB620.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB619_Click(sender As Object, e As EventArgs) Handles LB619.Click PA = LB619.Text : 合約內文修改視窗.ShowDialog() : LB619.Text = PA : LB619_移動() End Sub Private Sub LB619_LocationChanged(sender As Object, e As EventArgs) Handles LB619.LocationChanged LB619_移動() End Sub Private Sub LB619_TextChanged(sender As Object, e As EventArgs) Handles LB619.TextChanged LB619_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB620_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB620.Size.Height : sxx = LB620.Location.Y : NU3 = LB621.Location.X : NU4 = LB622.Location.X LB621.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB622.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB620_Click(sender As Object, e As EventArgs) Handles LB620.Click PA = LB620.Text : 合約內文修改視窗.ShowDialog() : LB620.Text = PA : LB620_移動() End Sub Private Sub LB620_LocationChanged(sender As Object, e As EventArgs) Handles LB620.LocationChanged LB620_移動() End Sub Private Sub LB620_TextChanged(sender As Object, e As EventArgs) Handles LB620.TextChanged LB620_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB621_Click(sender As Object, e As EventArgs) Handles LB621.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB621.Location.X : BL1 = True : PA = LB621.Text : 合約內文修改視窗.ShowDialog() : LB621.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB621.Location.Y : LB621.Location = New Drawing.Point(syy1, sxx) sxx = LB622.Location.Y : LB622.Location = New Drawing.Point(syy2, sxx) : sxx = LB623.Location.Y : LB623.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB622_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB622.Size.Height : sxx = LB622.Location.Y : NU4 = LB623.Location.X : LB623.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB622_Click(sender As Object, e As EventArgs) Handles LB622.Click PA = LB622.Text : 合約內文修改視窗.ShowDialog() : LB622.Text = PA : LB622_移動() End Sub Private Sub LB622_LocationChanged(sender As Object, e As EventArgs) Handles LB622.LocationChanged LB622_移動() End Sub Private Sub LB622_TextChanged(sender As Object, e As EventArgs) Handles LB622.TextChanged LB622_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB623_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB623.Size.Height : sxx = LB623.Location.Y : NU3 = LB624.Location.X : NU4 = LB625.Location.X LB624.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB625.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB623_Click(sender As Object, e As EventArgs) Handles LB623.Click PA = LB623.Text : 合約內文修改視窗.ShowDialog() : LB623.Text = PA : LB623_移動() End Sub Private Sub LB623_LocationChanged(sender As Object, e As EventArgs) Handles LB623.LocationChanged LB623_移動() End Sub Private Sub LB623_TextChanged(sender As Object, e As EventArgs) Handles LB623.TextChanged LB623_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB624_Click(sender As Object, e As EventArgs) Handles LB624.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB624.Location.X : BL1 = True : PA = LB624.Text : 合約內文修改視窗.ShowDialog() : LB624.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB624.Location.Y : LB624.Location = New Drawing.Point(syy1, sxx) sxx = LB625.Location.Y : LB625.Location = New Drawing.Point(syy2, sxx) : sxx = LB626.Location.Y : LB626.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB625_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB625.Size.Height : sxx = LB625.Location.Y : NU4 = LB626.Location.X : LB626.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB625_Click(sender As Object, e As EventArgs) Handles LB625.Click PA = LB625.Text : 合約內文修改視窗.ShowDialog() : LB625.Text = PA : LB625_移動() End Sub Private Sub LB625_LocationChanged(sender As Object, e As EventArgs) Handles LB625.LocationChanged LB625_移動() End Sub Private Sub LB625_TextChanged(sender As Object, e As EventArgs) Handles LB625.TextChanged LB625_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB626_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB626.Size.Height : sxx = LB626.Location.Y : NU3 = LB627.Location.X : NU4 = LB628.Location.X LB627.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB628.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB626_Click(sender As Object, e As EventArgs) Handles LB626.Click PA = LB626.Text : 合約內文修改視窗.ShowDialog() : LB626.Text = PA : LB626_移動() End Sub Private Sub LB626_LocationChanged(sender As Object, e As EventArgs) Handles LB626.LocationChanged LB626_移動() End Sub Private Sub LB626_TextChanged(sender As Object, e As EventArgs) Handles LB626.TextChanged LB626_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB627_Click(sender As Object, e As EventArgs) Handles LB627.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB627.Location.X : BL1 = True : PA = LB627.Text : 合約內文修改視窗.ShowDialog() : LB627.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB627.Location.Y : LB627.Location = New Drawing.Point(syy1, sxx) sxx = LB628.Location.Y : LB628.Location = New Drawing.Point(syy2, sxx) : sxx = LB629.Location.Y : LB629.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB628_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB628.Size.Height : sxx = LB628.Location.Y : NU4 = LB629.Location.X : LB629.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB628_Click(sender As Object, e As EventArgs) Handles LB628.Click PA = LB628.Text : 合約內文修改視窗.ShowDialog() : LB628.Text = PA : LB628_移動() End Sub Private Sub LB628_LocationChanged(sender As Object, e As EventArgs) Handles LB628.LocationChanged LB628_移動() End Sub Private Sub LB628_TextChanged(sender As Object, e As EventArgs) Handles LB628.TextChanged LB628_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB629_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB629.Size.Height : sxx = LB629.Location.Y : NU3 = LB630.Location.X : NU4 = LB631.Location.X LB630.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB631.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB629_Click(sender As Object, e As EventArgs) Handles LB629.Click PA = LB629.Text : 合約內文修改視窗.ShowDialog() : LB629.Text = PA : LB629_移動() End Sub Private Sub LB629_LocationChanged(sender As Object, e As EventArgs) Handles LB629.LocationChanged LB629_移動() End Sub Private Sub LB629_TextChanged(sender As Object, e As EventArgs) Handles LB629.TextChanged LB629_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB630_Click(sender As Object, e As EventArgs) Handles LB630.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB630.Location.X : BL1 = True : PA = LB630.Text : 合約內文修改視窗.ShowDialog() : LB630.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB630.Location.Y : LB630.Location = New Drawing.Point(syy1, sxx) sxx = LB631.Location.Y : LB631.Location = New Drawing.Point(syy2, sxx) : sxx = LB632.Location.Y : LB632.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB631_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB631.Size.Height : sxx = LB631.Location.Y : NU4 = LB632.Location.X : LB632.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB631_Click(sender As Object, e As EventArgs) Handles LB631.Click PA = LB631.Text : 合約內文修改視窗.ShowDialog() : LB631.Text = PA : LB631_移動() End Sub Private Sub LB631_LocationChanged(sender As Object, e As EventArgs) Handles LB631.LocationChanged LB631_移動() End Sub Private Sub LB631_TextChanged(sender As Object, e As EventArgs) Handles LB631.TextChanged LB631_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB632_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB632.Size.Height : sxx = LB632.Location.Y : NU3 = LB633.Location.X : NU4 = LB634.Location.X LB633.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB634.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB632_Click(sender As Object, e As EventArgs) Handles LB632.Click PA = LB632.Text : 合約內文修改視窗.ShowDialog() : LB632.Text = PA : LB632_移動() End Sub Private Sub LB632_LocationChanged(sender As Object, e As EventArgs) Handles LB632.LocationChanged LB632_移動() End Sub Private Sub LB632_TextChanged(sender As Object, e As EventArgs) Handles LB632.TextChanged LB632_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB633_Click(sender As Object, e As EventArgs) Handles LB633.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB633.Location.X : BL1 = True : PA = LB633.Text : 合約內文修改視窗.ShowDialog() : LB633.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB633.Location.Y : LB633.Location = New Drawing.Point(syy1, sxx) sxx = LB634.Location.Y : LB634.Location = New Drawing.Point(syy2, sxx) : sxx = LB635.Location.Y : LB635.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB634_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB634.Size.Height : sxx = LB634.Location.Y : NU4 = LB635.Location.X : LB635.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB634_Click(sender As Object, e As EventArgs) Handles LB634.Click PA = LB634.Text : 合約內文修改視窗.ShowDialog() : LB634.Text = PA : LB634_移動() End Sub Private Sub LB634_LocationChanged(sender As Object, e As EventArgs) Handles LB634.LocationChanged LB634_移動() End Sub Private Sub LB634_TextChanged(sender As Object, e As EventArgs) Handles LB634.TextChanged LB634_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB635_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB635.Size.Height : sxx = LB635.Location.Y : NU3 = LB636.Location.X : NU4 = LB637.Location.X LB636.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB637.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB635_Click(sender As Object, e As EventArgs) Handles LB635.Click PA = LB635.Text : 合約內文修改視窗.ShowDialog() : LB635.Text = PA : LB635_移動() End Sub Private Sub LB635_LocationChanged(sender As Object, e As EventArgs) Handles LB635.LocationChanged LB635_移動() End Sub Private Sub LB635_TextChanged(sender As Object, e As EventArgs) Handles LB635.TextChanged LB635_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB636_Click(sender As Object, e As EventArgs) Handles LB636.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB636.Location.X : BL1 = True : PA = LB636.Text : 合約內文修改視窗.ShowDialog() : LB636.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB636.Location.Y : LB636.Location = New Drawing.Point(syy1, sxx) sxx = LB637.Location.Y : LB637.Location = New Drawing.Point(syy2, sxx) : sxx = LB638.Location.Y : LB638.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB637_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB637.Size.Height : sxx = LB637.Location.Y : NU4 = LB638.Location.X : LB638.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB637_Click(sender As Object, e As EventArgs) Handles LB637.Click PA = LB637.Text : 合約內文修改視窗.ShowDialog() : LB637.Text = PA : LB637_移動() End Sub Private Sub LB637_LocationChanged(sender As Object, e As EventArgs) Handles LB637.LocationChanged LB637_移動() End Sub Private Sub LB637_TextChanged(sender As Object, e As EventArgs) Handles LB637.TextChanged LB637_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB638_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB638.Size.Height : sxx = LB638.Location.Y : NU3 = LB639.Location.X : NU4 = LB640.Location.X LB639.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB640.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB638_Click(sender As Object, e As EventArgs) Handles LB638.Click PA = LB638.Text : 合約內文修改視窗.ShowDialog() : LB638.Text = PA : LB638_移動() End Sub Private Sub LB638_LocationChanged(sender As Object, e As EventArgs) Handles LB638.LocationChanged LB638_移動() End Sub Private Sub LB638_TextChanged(sender As Object, e As EventArgs) Handles LB638.TextChanged LB638_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB639_Click(sender As Object, e As EventArgs) Handles LB639.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB639.Location.X : BL1 = True : PA = LB639.Text : 合約內文修改視窗.ShowDialog() : LB639.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB639.Location.Y : LB639.Location = New Drawing.Point(syy1, sxx) sxx = LB640.Location.Y : LB640.Location = New Drawing.Point(syy2, sxx) : sxx = LB641.Location.Y : LB641.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB640_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB640.Size.Height : sxx = LB640.Location.Y : NU4 = LB641.Location.X : LB641.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB640_Click(sender As Object, e As EventArgs) Handles LB640.Click PA = LB640.Text : 合約內文修改視窗.ShowDialog() : LB640.Text = PA : LB640_移動() End Sub Private Sub LB640_LocationChanged(sender As Object, e As EventArgs) Handles LB640.LocationChanged LB640_移動() End Sub Private Sub LB640_TextChanged(sender As Object, e As EventArgs) Handles LB640.TextChanged LB640_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB641_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB641.Size.Height : sxx = LB641.Location.Y : NU3 = LB642.Location.X : NU4 = LB643.Location.X LB642.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB643.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB641_Click(sender As Object, e As EventArgs) Handles LB641.Click PA = LB641.Text : 合約內文修改視窗.ShowDialog() : LB641.Text = PA : LB641_移動() End Sub Private Sub LB641_LocationChanged(sender As Object, e As EventArgs) Handles LB641.LocationChanged LB641_移動() End Sub Private Sub LB641_TextChanged(sender As Object, e As EventArgs) Handles LB641.TextChanged LB641_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB642_Click(sender As Object, e As EventArgs) Handles LB642.Click If 翻頁_nud.Value = 8 Or 自動移動 = True Then NU5 = LB642.Location.X : BL1 = True : PA = LB642.Text : 合約內文修改視窗.ShowDialog() : LB642.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB642.Location.Y : LB642.Location = New Drawing.Point(syy1, sxx) sxx = LB643.Location.Y : LB643.Location = New Drawing.Point(syy2, sxx) : sxx = LB644.Location.Y : LB644.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB643_移動() If 翻頁_nud.Value = 8 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB643.Size.Height : sxx = LB643.Location.Y : NU4 = LB644.Location.X : LB644.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB643_Click(sender As Object, e As EventArgs) Handles LB643.Click PA = LB643.Text : 合約內文修改視窗.ShowDialog() : LB643.Text = PA : LB643_移動() End Sub Private Sub LB643_LocationChanged(sender As Object, e As EventArgs) Handles LB643.LocationChanged LB643_移動() End Sub Private Sub LB643_TextChanged(sender As Object, e As EventArgs) Handles LB643.TextChanged LB643_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB644_Click(sender As Object, e As EventArgs) Handles LB644.Click PA = LB644.Text : 合約內文修改視窗.ShowDialog() : LB644.Text = PA End Sub '---------------------------第7頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB645_Click(sender As Object, e As EventArgs) Handles LB645.Click PA = LB645.Text : 合約內文修改視窗.ShowDialog() : LB645.Text = PA End Sub Private Sub LB646_Click(sender As Object, e As EventArgs) Handles LB646.Click PA = LB646.Text : 合約內文修改視窗.ShowDialog() : LB646.Text = PA End Sub Private Sub LB647_Click(sender As Object, e As EventArgs) Handles LB647.Click PA = LB647.Text : 合約內文修改視窗.ShowDialog() : LB647.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB648_Click(sender As Object, e As EventArgs) Handles LB648.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB648.Location.X : BL1 = True : PA = LB648.Text : 合約內文修改視窗.ShowDialog() : LB648.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB648.Location.Y : LB648.Location = New Drawing.Point(syy1, sxx) sxx = LB649.Location.Y : LB649.Location = New Drawing.Point(syy2, sxx) : sxx = LB650.Location.Y : LB650.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB649_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB649.Size.Height : sxx = LB649.Location.Y : NU4 = LB650.Location.X : LB650.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB649_Click(sender As Object, e As EventArgs) Handles LB649.Click PA = LB649.Text : 合約內文修改視窗.ShowDialog() : LB649.Text = PA : LB649_移動() End Sub Private Sub LB649_LocationChanged(sender As Object, e As EventArgs) Handles LB649.LocationChanged LB649_移動() End Sub Private Sub LB649_TextChanged(sender As Object, e As EventArgs) Handles LB649.TextChanged LB649_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB650_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB650.Size.Height : sxx = LB650.Location.Y : NU3 = LB651.Location.X : NU4 = LB652.Location.X LB651.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB652.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB650_Click(sender As Object, e As EventArgs) Handles LB650.Click PA = LB650.Text : 合約內文修改視窗.ShowDialog() : LB650.Text = PA : LB650_移動() End Sub Private Sub LB650_LocationChanged(sender As Object, e As EventArgs) Handles LB650.LocationChanged LB650_移動() End Sub Private Sub LB650_TextChanged(sender As Object, e As EventArgs) Handles LB650.TextChanged LB650_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB651_Click(sender As Object, e As EventArgs) Handles LB651.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB651.Location.X : BL1 = True : PA = LB651.Text : 合約內文修改視窗.ShowDialog() : LB651.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB651.Location.Y : LB651.Location = New Drawing.Point(syy1, sxx) sxx = LB652.Location.Y : LB652.Location = New Drawing.Point(syy2, sxx) : sxx = LB653.Location.Y : LB653.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB652_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB652.Size.Height : sxx = LB652.Location.Y : NU4 = LB653.Location.X : LB653.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB652_Click(sender As Object, e As EventArgs) Handles LB652.Click PA = LB652.Text : 合約內文修改視窗.ShowDialog() : LB652.Text = PA : LB652_移動() End Sub Private Sub LB652_LocationChanged(sender As Object, e As EventArgs) Handles LB652.LocationChanged LB652_移動() End Sub Private Sub LB652_TextChanged(sender As Object, e As EventArgs) Handles LB652.TextChanged LB652_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB653_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB653.Size.Height : sxx = LB653.Location.Y : NU3 = LB654.Location.X : NU4 = LB655.Location.X LB654.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB655.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB653_Click(sender As Object, e As EventArgs) Handles LB653.Click PA = LB653.Text : 合約內文修改視窗.ShowDialog() : LB653.Text = PA : LB653_移動() End Sub Private Sub LB653_LocationChanged(sender As Object, e As EventArgs) Handles LB653.LocationChanged LB653_移動() End Sub Private Sub LB653_TextChanged(sender As Object, e As EventArgs) Handles LB653.TextChanged LB653_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB654_Click(sender As Object, e As EventArgs) Handles LB654.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB654.Location.X : BL1 = True : PA = LB654.Text : 合約內文修改視窗.ShowDialog() : LB654.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB654.Location.Y : LB654.Location = New Drawing.Point(syy1, sxx) sxx = LB655.Location.Y : LB655.Location = New Drawing.Point(syy2, sxx) : sxx = LB656.Location.Y : LB656.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB655_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB655.Size.Height : sxx = LB655.Location.Y : NU4 = LB656.Location.X : LB656.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB655_Click(sender As Object, e As EventArgs) Handles LB655.Click PA = LB655.Text : 合約內文修改視窗.ShowDialog() : LB655.Text = PA : LB655_移動() End Sub Private Sub LB655_LocationChanged(sender As Object, e As EventArgs) Handles LB655.LocationChanged LB655_移動() End Sub Private Sub LB655_TextChanged(sender As Object, e As EventArgs) Handles LB655.TextChanged LB655_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB656_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB656.Size.Height : sxx = LB656.Location.Y : NU3 = LB657.Location.X : NU4 = LB658.Location.X LB657.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB658.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB656_Click(sender As Object, e As EventArgs) Handles LB656.Click PA = LB656.Text : 合約內文修改視窗.ShowDialog() : LB656.Text = PA : LB656_移動() End Sub Private Sub LB656_LocationChanged(sender As Object, e As EventArgs) Handles LB656.LocationChanged LB656_移動() End Sub Private Sub LB656_TextChanged(sender As Object, e As EventArgs) Handles LB656.TextChanged LB656_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB657_Click(sender As Object, e As EventArgs) Handles LB657.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB657.Location.X : BL1 = True : PA = LB657.Text : 合約內文修改視窗.ShowDialog() : LB657.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB657.Location.Y : LB657.Location = New Drawing.Point(syy1, sxx) sxx = LB658.Location.Y : LB658.Location = New Drawing.Point(syy2, sxx) : sxx = LB659.Location.Y : LB659.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB658_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB658.Size.Height : sxx = LB658.Location.Y : NU4 = LB659.Location.X : LB659.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB658_Click(sender As Object, e As EventArgs) Handles LB658.Click PA = LB658.Text : 合約內文修改視窗.ShowDialog() : LB658.Text = PA : LB658_移動() End Sub Private Sub LB658_LocationChanged(sender As Object, e As EventArgs) Handles LB658.LocationChanged LB658_移動() End Sub Private Sub LB658_TextChanged(sender As Object, e As EventArgs) Handles LB658.TextChanged LB658_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB659_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB659.Size.Height : sxx = LB659.Location.Y : NU3 = LB660.Location.X : NU4 = LB661.Location.X LB660.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB661.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB659_Click(sender As Object, e As EventArgs) Handles LB659.Click PA = LB659.Text : 合約內文修改視窗.ShowDialog() : LB659.Text = PA : LB659_移動() End Sub Private Sub LB659_LocationChanged(sender As Object, e As EventArgs) Handles LB659.LocationChanged LB659_移動() End Sub Private Sub LB659_TextChanged(sender As Object, e As EventArgs) Handles LB659.TextChanged LB659_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB660_Click(sender As Object, e As EventArgs) Handles LB660.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB660.Location.X : BL1 = True : PA = LB660.Text : 合約內文修改視窗.ShowDialog() : LB660.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB660.Location.Y : LB660.Location = New Drawing.Point(syy1, sxx) sxx = LB661.Location.Y : LB661.Location = New Drawing.Point(syy2, sxx) : sxx = LB662.Location.Y : LB662.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB661_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB661.Size.Height : sxx = LB661.Location.Y : NU4 = LB662.Location.X : LB662.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB661_Click(sender As Object, e As EventArgs) Handles LB661.Click PA = LB661.Text : 合約內文修改視窗.ShowDialog() : LB661.Text = PA : LB661_移動() End Sub Private Sub LB661_LocationChanged(sender As Object, e As EventArgs) Handles LB661.LocationChanged LB661_移動() End Sub Private Sub LB661_TextChanged(sender As Object, e As EventArgs) Handles LB661.TextChanged LB661_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB662_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB662.Size.Height : sxx = LB662.Location.Y : NU3 = LB663.Location.X : NU4 = LB664.Location.X LB663.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB664.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB662_Click(sender As Object, e As EventArgs) Handles LB662.Click PA = LB662.Text : 合約內文修改視窗.ShowDialog() : LB662.Text = PA : LB662_移動() End Sub Private Sub LB662_LocationChanged(sender As Object, e As EventArgs) Handles LB662.LocationChanged LB662_移動() End Sub Private Sub LB662_TextChanged(sender As Object, e As EventArgs) Handles LB662.TextChanged LB662_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB663_Click(sender As Object, e As EventArgs) Handles LB663.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB663.Location.X : BL1 = True : PA = LB663.Text : 合約內文修改視窗.ShowDialog() : LB663.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB663.Location.Y : LB663.Location = New Drawing.Point(syy1, sxx) sxx = LB664.Location.Y : LB664.Location = New Drawing.Point(syy2, sxx) : sxx = LB665.Location.Y : LB665.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB664_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB664.Size.Height : sxx = LB664.Location.Y : NU4 = LB665.Location.X : LB665.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB664_Click(sender As Object, e As EventArgs) Handles LB664.Click PA = LB664.Text : 合約內文修改視窗.ShowDialog() : LB664.Text = PA : LB664_移動() End Sub Private Sub LB664_LocationChanged(sender As Object, e As EventArgs) Handles LB664.LocationChanged LB664_移動() End Sub Private Sub LB664_TextChanged(sender As Object, e As EventArgs) Handles LB664.TextChanged LB664_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB665_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB665.Size.Height : sxx = LB665.Location.Y : NU3 = LB666.Location.X : NU4 = LB667.Location.X LB666.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB667.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB665_Click(sender As Object, e As EventArgs) Handles LB665.Click PA = LB665.Text : 合約內文修改視窗.ShowDialog() : LB665.Text = PA : LB665_移動() End Sub Private Sub LB665_LocationChanged(sender As Object, e As EventArgs) Handles LB665.LocationChanged LB665_移動() End Sub Private Sub LB665_TextChanged(sender As Object, e As EventArgs) Handles LB665.TextChanged LB665_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB666_Click(sender As Object, e As EventArgs) Handles LB666.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB666.Location.X : BL1 = True : PA = LB666.Text : 合約內文修改視窗.ShowDialog() : LB666.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB666.Location.Y : LB666.Location = New Drawing.Point(syy1, sxx) sxx = LB667.Location.Y : LB667.Location = New Drawing.Point(syy2, sxx) : sxx = LB668.Location.Y : LB668.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB667_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB667.Size.Height : sxx = LB667.Location.Y : NU4 = LB668.Location.X : LB668.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB667_Click(sender As Object, e As EventArgs) Handles LB667.Click PA = LB667.Text : 合約內文修改視窗.ShowDialog() : LB667.Text = PA : LB667_移動() End Sub Private Sub LB667_LocationChanged(sender As Object, e As EventArgs) Handles LB667.LocationChanged LB667_移動() End Sub Private Sub LB667_TextChanged(sender As Object, e As EventArgs) Handles LB667.TextChanged LB667_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB668_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB668.Size.Height : sxx = LB668.Location.Y : NU3 = LB669.Location.X : NU4 = LB670.Location.X LB669.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB670.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB668_Click(sender As Object, e As EventArgs) Handles LB668.Click PA = LB668.Text : 合約內文修改視窗.ShowDialog() : LB668.Text = PA : LB668_移動() End Sub Private Sub LB668_LocationChanged(sender As Object, e As EventArgs) Handles LB668.LocationChanged LB668_移動() End Sub Private Sub LB668_TextChanged(sender As Object, e As EventArgs) Handles LB668.TextChanged LB668_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB669_Click(sender As Object, e As EventArgs) Handles LB669.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB669.Location.X : BL1 = True : PA = LB669.Text : 合約內文修改視窗.ShowDialog() : LB669.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB669.Location.Y : LB669.Location = New Drawing.Point(syy1, sxx) sxx = LB670.Location.Y : LB670.Location = New Drawing.Point(syy2, sxx) : sxx = LB671.Location.Y : LB671.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB670_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB670.Size.Height : sxx = LB670.Location.Y : NU4 = LB671.Location.X : LB671.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB670_Click(sender As Object, e As EventArgs) Handles LB670.Click PA = LB670.Text : 合約內文修改視窗.ShowDialog() : LB670.Text = PA : LB670_移動() End Sub Private Sub LB670_LocationChanged(sender As Object, e As EventArgs) Handles LB670.LocationChanged LB670_移動() End Sub Private Sub LB670_TextChanged(sender As Object, e As EventArgs) Handles LB670.TextChanged LB670_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB671_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB671.Size.Height : sxx = LB671.Location.Y : NU3 = LB672.Location.X : NU4 = LB673.Location.X LB672.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB673.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB671_Click(sender As Object, e As EventArgs) Handles LB671.Click PA = LB671.Text : 合約內文修改視窗.ShowDialog() : LB671.Text = PA : LB671_移動() End Sub Private Sub LB671_LocationChanged(sender As Object, e As EventArgs) Handles LB671.LocationChanged LB671_移動() End Sub Private Sub LB671_TextChanged(sender As Object, e As EventArgs) Handles LB671.TextChanged LB671_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB672_Click(sender As Object, e As EventArgs) Handles LB672.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB672.Location.X : BL1 = True : PA = LB672.Text : 合約內文修改視窗.ShowDialog() : LB672.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB672.Location.Y : LB672.Location = New Drawing.Point(syy1, sxx) sxx = LB673.Location.Y : LB673.Location = New Drawing.Point(syy2, sxx) : sxx = LB674.Location.Y : LB674.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB673_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB673.Size.Height : sxx = LB673.Location.Y : NU4 = LB674.Location.X : LB674.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB673_Click(sender As Object, e As EventArgs) Handles LB673.Click PA = LB673.Text : 合約內文修改視窗.ShowDialog() : LB673.Text = PA : LB673_移動() End Sub Private Sub LB673_LocationChanged(sender As Object, e As EventArgs) Handles LB673.LocationChanged LB673_移動() End Sub Private Sub LB673_TextChanged(sender As Object, e As EventArgs) Handles LB673.TextChanged LB673_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB674_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB674.Size.Height : sxx = LB674.Location.Y : NU3 = LB675.Location.X : NU4 = LB676.Location.X LB675.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB676.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB674_Click(sender As Object, e As EventArgs) Handles LB674.Click PA = LB674.Text : 合約內文修改視窗.ShowDialog() : LB674.Text = PA : LB674_移動() End Sub Private Sub LB674_LocationChanged(sender As Object, e As EventArgs) Handles LB674.LocationChanged LB674_移動() End Sub Private Sub LB674_TextChanged(sender As Object, e As EventArgs) Handles LB674.TextChanged LB674_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB675_Click(sender As Object, e As EventArgs) Handles LB675.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB675.Location.X : BL1 = True : PA = LB675.Text : 合約內文修改視窗.ShowDialog() : LB675.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB675.Location.Y : LB675.Location = New Drawing.Point(syy1, sxx) sxx = LB676.Location.Y : LB676.Location = New Drawing.Point(syy2, sxx) : sxx = LB677.Location.Y : LB677.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB676_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB676.Size.Height : sxx = LB676.Location.Y : NU4 = LB677.Location.X : LB677.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB676_Click(sender As Object, e As EventArgs) Handles LB676.Click PA = LB676.Text : 合約內文修改視窗.ShowDialog() : LB676.Text = PA : LB676_移動() End Sub Private Sub LB676_LocationChanged(sender As Object, e As EventArgs) Handles LB676.LocationChanged LB676_移動() End Sub Private Sub LB676_TextChanged(sender As Object, e As EventArgs) Handles LB676.TextChanged LB676_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB677_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB677.Size.Height : sxx = LB677.Location.Y : NU3 = LB678.Location.X : NU4 = LB679.Location.X LB678.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB679.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB677_Click(sender As Object, e As EventArgs) Handles LB677.Click PA = LB677.Text : 合約內文修改視窗.ShowDialog() : LB677.Text = PA : LB677_移動() End Sub Private Sub LB677_LocationChanged(sender As Object, e As EventArgs) Handles LB677.LocationChanged LB677_移動() End Sub Private Sub LB677_TextChanged(sender As Object, e As EventArgs) Handles LB677.TextChanged LB677_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB678_Click(sender As Object, e As EventArgs) Handles LB678.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then NU5 = LB678.Location.X : BL1 = True : PA = LB678.Text : 合約內文修改視窗.ShowDialog() : LB678.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB678.Location.Y : LB678.Location = New Drawing.Point(syy1, sxx) sxx = LB679.Location.Y : LB679.Location = New Drawing.Point(syy2, sxx) : sxx = LB680.Location.Y : LB680.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB679_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB679.Size.Height : sxx = LB679.Location.Y : NU4 = LB680.Location.X : LB680.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB679_Click(sender As Object, e As EventArgs) Handles LB679.Click PA = LB679.Text : 合約內文修改視窗.ShowDialog() : LB679.Text = PA : LB679_移動() End Sub Private Sub LB679_LocationChanged(sender As Object, e As EventArgs) Handles LB679.LocationChanged LB679_移動() End Sub Private Sub LB679_TextChanged(sender As Object, e As EventArgs) Handles LB679.TextChanged LB679_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB680_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB680.Size.Height : sxx = LB680.Location.Y : NU3 = LB681.Location.X : NU4 = LB682.Location.X LB681.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB682.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB680_Click(sender As Object, e As EventArgs) Handles LB680.Click PA = LB680.Text : 合約內文修改視窗.ShowDialog() : LB680.Text = PA : LB680_移動() End Sub Private Sub LB680_LocationChanged(sender As Object, e As EventArgs) Handles LB680.LocationChanged LB680_移動() End Sub Private Sub LB680_TextChanged(sender As Object, e As EventArgs) Handles LB680.TextChanged LB680_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB681_Click(sender As Object, e As EventArgs) Handles LB681.Click If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB681.Location.Y : LB681.Location = New Drawing.Point(syy1, sxx) sxx = LB682.Location.Y : LB682.Location = New Drawing.Point(syy2, sxx) : sxx = LB683.Location.Y : LB683.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB682_移動() If 翻頁_nud.Value = 7 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB682.Size.Height : sxx = LB682.Location.Y : NU4 = LB683.Location.X : LB683.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB682_Click(sender As Object, e As EventArgs) Handles LB682.Click PA = LB682.Text : 合約內文修改視窗.ShowDialog() : LB682.Text = PA : LB682_移動() End Sub Private Sub LB682_LocationChanged(sender As Object, e As EventArgs) Handles LB682.LocationChanged LB682_移動() End Sub Private Sub LB682_TextChanged(sender As Object, e As EventArgs) Handles LB682.TextChanged LB682_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB683_Click(sender As Object, e As EventArgs) Handles LB683.Click PA = LB683.Text : 合約內文修改視窗.ShowDialog() : LB683.Text = PA End Sub '---------------------------第6頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB684_Click(sender As Object, e As EventArgs) Handles LB684.Click PA = LB684.Text : 合約內文修改視窗.ShowDialog() : LB684.Text = PA End Sub Private Sub LB685_Click(sender As Object, e As EventArgs) Handles LB685.Click PA = LB685.Text : 合約內文修改視窗.ShowDialog() : LB685.Text = PA End Sub Private Sub LB686_Click(sender As Object, e As EventArgs) Handles LB686.Click PA = LB686.Text : 合約內文修改視窗.ShowDialog() : LB686.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB687_Click(sender As Object, e As EventArgs) Handles LB687.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB687.Location.X : BL1 = True : PA = LB687.Text : 合約內文修改視窗.ShowDialog() : LB687.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB687.Location.Y : LB687.Location = New Drawing.Point(syy1, sxx) sxx = LB37.Location.Y : LB37.Location = New Drawing.Point(syy2, sxx) : sxx = LB38.Location.Y : LB38.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB37_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB37.Size.Height : sxx = LB37.Location.Y : NU4 = LB38.Location.X : LB38.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB37_Click(sender As Object, e As EventArgs) Handles LB37.Click PA = LB37.Text : 合約內文修改視窗.ShowDialog() : LB37.Text = PA : LB37_移動() End Sub Private Sub LB37_LocationChanged(sender As Object, e As EventArgs) Handles LB37.LocationChanged LB37_移動() End Sub Private Sub LB37_TextChanged(sender As Object, e As EventArgs) Handles LB37.TextChanged LB37_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB38_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB38.Size.Height : sxx = LB38.Location.Y : NU3 = LB688.Location.X : NU4 = LB86.Location.X LB688.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB86.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB38_Click(sender As Object, e As EventArgs) Handles LB38.Click PA = LB38.Text : 合約內文修改視窗.ShowDialog() : LB38.Text = PA : LB38_移動() End Sub Private Sub LB38_LocationChanged(sender As Object, e As EventArgs) Handles LB38.LocationChanged LB38_移動() End Sub Private Sub LB38_TextChanged(sender As Object, e As EventArgs) Handles LB38.TextChanged LB38_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB688_Click(sender As Object, e As EventArgs) Handles LB688.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB688.Location.X : BL1 = True : PA = LB688.Text : 合約內文修改視窗.ShowDialog() : LB688.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB688.Location.Y : LB688.Location = New Drawing.Point(syy1, sxx) sxx = LB86.Location.Y : LB86.Location = New Drawing.Point(syy2, sxx) : sxx = LB87.Location.Y : LB87.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB86_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB86.Size.Height : sxx = LB86.Location.Y : NU4 = LB87.Location.X : LB87.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB86_Click(sender As Object, e As EventArgs) Handles LB86.Click PA = LB86.Text : 合約內文修改視窗.ShowDialog() : LB86.Text = PA : LB86_移動() End Sub Private Sub LB86_LocationChanged(sender As Object, e As EventArgs) Handles LB86.LocationChanged LB86_移動() End Sub Private Sub LB86_TextChanged(sender As Object, e As EventArgs) Handles LB86.TextChanged LB86_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB87_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB87.Size.Height : sxx = LB87.Location.Y : NU3 = LB689.Location.X : NU4 = LB88.Location.X LB689.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB88.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB87_Click(sender As Object, e As EventArgs) Handles LB87.Click PA = LB87.Text : 合約內文修改視窗.ShowDialog() : LB87.Text = PA : LB87_移動() End Sub Private Sub LB87_LocationChanged(sender As Object, e As EventArgs) Handles LB87.LocationChanged LB87_移動() End Sub Private Sub LB87_TextChanged(sender As Object, e As EventArgs) Handles LB87.TextChanged LB87_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB689_Click(sender As Object, e As EventArgs) Handles LB689.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB689.Location.X : BL1 = True : PA = LB689.Text : 合約內文修改視窗.ShowDialog() : LB689.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB689.Location.Y : LB689.Location = New Drawing.Point(syy1, sxx) sxx = LB88.Location.Y : LB88.Location = New Drawing.Point(syy2, sxx) : sxx = LB89.Location.Y : LB89.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB88_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB88.Size.Height : sxx = LB88.Location.Y : NU4 = LB89.Location.X : LB89.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB88_Click(sender As Object, e As EventArgs) Handles LB88.Click PA = LB88.Text : 合約內文修改視窗.ShowDialog() : LB88.Text = PA : LB88_移動() End Sub Private Sub LB88_LocationChanged(sender As Object, e As EventArgs) Handles LB88.LocationChanged LB88_移動() End Sub Private Sub LB88_TextChanged(sender As Object, e As EventArgs) Handles LB88.TextChanged LB88_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB89_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB89.Size.Height : sxx = LB89.Location.Y : NU3 = LB690.Location.X : NU4 = LB90.Location.X LB690.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB90.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB89_Click(sender As Object, e As EventArgs) Handles LB89.Click PA = LB89.Text : 合約內文修改視窗.ShowDialog() : LB89.Text = PA : LB89_移動() End Sub Private Sub LB89_LocationChanged(sender As Object, e As EventArgs) Handles LB89.LocationChanged LB89_移動() End Sub Private Sub LB89_TextChanged(sender As Object, e As EventArgs) Handles LB89.TextChanged LB89_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB690_Click(sender As Object, e As EventArgs) Handles LB690.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB690.Location.X : BL1 = True : PA = LB690.Text : 合約內文修改視窗.ShowDialog() : LB690.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB690.Location.Y : LB690.Location = New Drawing.Point(syy1, sxx) sxx = LB90.Location.Y : LB90.Location = New Drawing.Point(syy2, sxx) : sxx = LB91.Location.Y : LB91.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB90_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB90.Size.Height : sxx = LB90.Location.Y : NU4 = LB91.Location.X : LB91.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB90_Click(sender As Object, e As EventArgs) Handles LB90.Click PA = LB90.Text : 合約內文修改視窗.ShowDialog() : LB90.Text = PA : LB90_移動() End Sub Private Sub LB90_LocationChanged(sender As Object, e As EventArgs) Handles LB90.LocationChanged LB90_移動() End Sub Private Sub LB90_TextChanged(sender As Object, e As EventArgs) Handles LB90.TextChanged LB90_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB91_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB91.Size.Height : sxx = LB91.Location.Y : NU3 = LB691.Location.X : NU4 = LB92.Location.X LB691.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB92.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB91_Click(sender As Object, e As EventArgs) Handles LB91.Click PA = LB91.Text : 合約內文修改視窗.ShowDialog() : LB91.Text = PA : LB91_移動() End Sub Private Sub LB91_LocationChanged(sender As Object, e As EventArgs) Handles LB91.LocationChanged LB91_移動() End Sub Private Sub LB91_TextChanged(sender As Object, e As EventArgs) Handles LB91.TextChanged LB91_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB691_Click(sender As Object, e As EventArgs) Handles LB691.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB691.Location.X : BL1 = True : PA = LB691.Text : 合約內文修改視窗.ShowDialog() : LB691.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB691.Location.Y : LB691.Location = New Drawing.Point(syy1, sxx) sxx = LB92.Location.Y : LB92.Location = New Drawing.Point(syy2, sxx) : sxx = LB93.Location.Y : LB93.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB92_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB92.Size.Height : sxx = LB92.Location.Y : NU4 = LB93.Location.X : LB93.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB92_Click(sender As Object, e As EventArgs) Handles LB92.Click PA = LB92.Text : 合約內文修改視窗.ShowDialog() : LB92.Text = PA : LB92_移動() End Sub Private Sub LB92_LocationChanged(sender As Object, e As EventArgs) Handles LB92.LocationChanged LB92_移動() End Sub Private Sub LB92_TextChanged(sender As Object, e As EventArgs) Handles LB92.TextChanged LB92_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB93_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB93.Size.Height : sxx = LB93.Location.Y : NU3 = LB692.Location.X : NU4 = LB693.Location.X LB692.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB693.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB93_Click(sender As Object, e As EventArgs) Handles LB93.Click PA = LB93.Text : 合約內文修改視窗.ShowDialog() : LB93.Text = PA : LB93_移動() End Sub Private Sub LB93_LocationChanged(sender As Object, e As EventArgs) Handles LB93.LocationChanged LB93_移動() End Sub Private Sub LB93_TextChanged(sender As Object, e As EventArgs) Handles LB93.TextChanged LB93_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB692_Click(sender As Object, e As EventArgs) Handles LB692.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB692.Location.X : BL1 = True : PA = LB692.Text : 合約內文修改視窗.ShowDialog() : LB692.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB692.Location.Y : LB692.Location = New Drawing.Point(syy1, sxx) sxx = LB693.Location.Y : LB693.Location = New Drawing.Point(syy2, sxx) : sxx = LB694.Location.Y : LB694.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB693_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB693.Size.Height : sxx = LB693.Location.Y : NU4 = LB694.Location.X : LB694.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB693_Click(sender As Object, e As EventArgs) Handles LB693.Click PA = LB693.Text : 合約內文修改視窗.ShowDialog() : LB693.Text = PA : LB693_移動() End Sub Private Sub LB693_LocationChanged(sender As Object, e As EventArgs) Handles LB693.LocationChanged LB693_移動() End Sub Private Sub LB693_TextChanged(sender As Object, e As EventArgs) Handles LB693.TextChanged LB693_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB694_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB694.Size.Height : sxx = LB694.Location.Y : NU3 = LB695.Location.X : NU4 = LB696.Location.X LB695.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB696.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB694_Click(sender As Object, e As EventArgs) Handles LB694.Click PA = LB694.Text : 合約內文修改視窗.ShowDialog() : LB694.Text = PA : LB694_移動() End Sub Private Sub LB694_LocationChanged(sender As Object, e As EventArgs) Handles LB694.LocationChanged LB694_移動() End Sub Private Sub LB694_TextChanged(sender As Object, e As EventArgs) Handles LB694.TextChanged LB694_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB695_Click(sender As Object, e As EventArgs) Handles LB695.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB695.Location.X : BL1 = True : PA = LB695.Text : 合約內文修改視窗.ShowDialog() : LB695.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB695.Location.Y : LB695.Location = New Drawing.Point(syy1, sxx) sxx = LB696.Location.Y : LB696.Location = New Drawing.Point(syy2, sxx) : sxx = LB697.Location.Y : LB697.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB696_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB696.Size.Height : sxx = LB696.Location.Y : NU4 = LB697.Location.X : LB697.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB696_Click(sender As Object, e As EventArgs) Handles LB696.Click PA = LB696.Text : 合約內文修改視窗.ShowDialog() : LB696.Text = PA : LB696_移動() End Sub Private Sub LB696_LocationChanged(sender As Object, e As EventArgs) Handles LB696.LocationChanged LB696_移動() End Sub Private Sub LB696_TextChanged(sender As Object, e As EventArgs) Handles LB696.TextChanged LB696_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB697_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB697.Size.Height : sxx = LB697.Location.Y : NU3 = LB698.Location.X : NU4 = LB699.Location.X LB698.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB699.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB697_Click(sender As Object, e As EventArgs) Handles LB697.Click PA = LB697.Text : 合約內文修改視窗.ShowDialog() : LB697.Text = PA : LB697_移動() End Sub Private Sub LB697_LocationChanged(sender As Object, e As EventArgs) Handles LB697.LocationChanged LB697_移動() End Sub Private Sub LB697_TextChanged(sender As Object, e As EventArgs) Handles LB697.TextChanged LB697_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB698_Click(sender As Object, e As EventArgs) Handles LB698.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB698.Location.X : BL1 = True : PA = LB698.Text : 合約內文修改視窗.ShowDialog() : LB698.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB698.Location.Y : LB698.Location = New Drawing.Point(syy1, sxx) sxx = LB699.Location.Y : LB699.Location = New Drawing.Point(syy2, sxx) : sxx = LB700.Location.Y : LB700.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB699_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB699.Size.Height : sxx = LB699.Location.Y : NU4 = LB700.Location.X : LB700.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB699_Click(sender As Object, e As EventArgs) Handles LB699.Click PA = LB699.Text : 合約內文修改視窗.ShowDialog() : LB699.Text = PA : LB699_移動() End Sub Private Sub LB699_LocationChanged(sender As Object, e As EventArgs) Handles LB699.LocationChanged LB699_移動() End Sub Private Sub LB699_TextChanged(sender As Object, e As EventArgs) Handles LB699.TextChanged LB699_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB700_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB700.Size.Height : sxx = LB700.Location.Y : NU3 = LB701.Location.X : NU4 = LB702.Location.X LB701.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB702.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB700_Click(sender As Object, e As EventArgs) Handles LB700.Click PA = LB700.Text : 合約內文修改視窗.ShowDialog() : LB700.Text = PA : LB700_移動() End Sub Private Sub LB700_LocationChanged(sender As Object, e As EventArgs) Handles LB700.LocationChanged LB700_移動() End Sub Private Sub LB700_TextChanged(sender As Object, e As EventArgs) Handles LB700.TextChanged LB700_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB701_Click(sender As Object, e As EventArgs) Handles LB701.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB701.Location.X : BL1 = True : PA = LB701.Text : 合約內文修改視窗.ShowDialog() : LB701.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB701.Location.Y : LB701.Location = New Drawing.Point(syy1, sxx) sxx = LB702.Location.Y : LB702.Location = New Drawing.Point(syy2, sxx) : sxx = LB703.Location.Y : LB703.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB702_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB702.Size.Height : sxx = LB702.Location.Y : NU4 = LB703.Location.X : LB703.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB702_Click(sender As Object, e As EventArgs) Handles LB702.Click PA = LB702.Text : 合約內文修改視窗.ShowDialog() : LB702.Text = PA : LB702_移動() End Sub Private Sub LB702_LocationChanged(sender As Object, e As EventArgs) Handles LB702.LocationChanged LB702_移動() End Sub Private Sub LB702_TextChanged(sender As Object, e As EventArgs) Handles LB702.TextChanged LB702_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB703_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB703.Size.Height : sxx = LB703.Location.Y : NU3 = LB704.Location.X : NU4 = LB705.Location.X LB704.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB705.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB703_Click(sender As Object, e As EventArgs) Handles LB703.Click PA = LB703.Text : 合約內文修改視窗.ShowDialog() : LB703.Text = PA : LB703_移動() End Sub Private Sub LB703_LocationChanged(sender As Object, e As EventArgs) Handles LB703.LocationChanged LB703_移動() End Sub Private Sub LB703_TextChanged(sender As Object, e As EventArgs) Handles LB703.TextChanged LB703_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB704_Click(sender As Object, e As EventArgs) Handles LB704.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB704.Location.X : BL1 = True : PA = LB704.Text : 合約內文修改視窗.ShowDialog() : LB704.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB704.Location.Y : LB704.Location = New Drawing.Point(syy1, sxx) sxx = LB705.Location.Y : LB705.Location = New Drawing.Point(syy2, sxx) : sxx = LB706.Location.Y : LB706.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB705_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB705.Size.Height : sxx = LB705.Location.Y : NU4 = LB706.Location.X : LB706.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB705_Click(sender As Object, e As EventArgs) Handles LB705.Click PA = LB705.Text : 合約內文修改視窗.ShowDialog() : LB705.Text = PA : LB705_移動() End Sub Private Sub LB705_LocationChanged(sender As Object, e As EventArgs) Handles LB705.LocationChanged LB705_移動() End Sub Private Sub LB705_TextChanged(sender As Object, e As EventArgs) Handles LB705.TextChanged LB705_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB706_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB706.Size.Height : sxx = LB706.Location.Y : NU3 = LB707.Location.X : NU4 = LB708.Location.X LB707.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB708.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB706_Click(sender As Object, e As EventArgs) Handles LB706.Click PA = LB706.Text : 合約內文修改視窗.ShowDialog() : LB706.Text = PA : LB706_移動() End Sub Private Sub LB706_LocationChanged(sender As Object, e As EventArgs) Handles LB706.LocationChanged LB706_移動() End Sub Private Sub LB706_TextChanged(sender As Object, e As EventArgs) Handles LB706.TextChanged LB706_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB707_Click(sender As Object, e As EventArgs) Handles LB707.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB707.Location.X : BL1 = True : PA = LB707.Text : 合約內文修改視窗.ShowDialog() : LB707.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB707.Location.Y : LB707.Location = New Drawing.Point(syy1, sxx) sxx = LB708.Location.Y : LB708.Location = New Drawing.Point(syy2, sxx) : sxx = LB709.Location.Y : LB709.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB708_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB708.Size.Height : sxx = LB708.Location.Y : NU4 = LB709.Location.X : LB709.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB708_Click(sender As Object, e As EventArgs) Handles LB708.Click PA = LB708.Text : 合約內文修改視窗.ShowDialog() : LB708.Text = PA : LB708_移動() End Sub Private Sub LB708_LocationChanged(sender As Object, e As EventArgs) Handles LB708.LocationChanged LB708_移動() End Sub Private Sub LB708_TextChanged(sender As Object, e As EventArgs) Handles LB708.TextChanged LB708_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB709_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB709.Size.Height : sxx = LB709.Location.Y : NU3 = LB710.Location.X : NU4 = LB711.Location.X LB710.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB711.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB709_Click(sender As Object, e As EventArgs) Handles LB709.Click PA = LB709.Text : 合約內文修改視窗.ShowDialog() : LB709.Text = PA : LB709_移動() End Sub Private Sub LB709_LocationChanged(sender As Object, e As EventArgs) Handles LB709.LocationChanged LB709_移動() End Sub Private Sub LB709_TextChanged(sender As Object, e As EventArgs) Handles LB709.TextChanged LB709_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB710_Click(sender As Object, e As EventArgs) Handles LB710.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB710.Location.X : BL1 = True : PA = LB710.Text : 合約內文修改視窗.ShowDialog() : LB710.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB710.Location.Y : LB710.Location = New Drawing.Point(syy1, sxx) sxx = LB711.Location.Y : LB711.Location = New Drawing.Point(syy2, sxx) : sxx = LB712.Location.Y : LB712.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB711_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB711.Size.Height : sxx = LB711.Location.Y : NU4 = LB712.Location.X : LB712.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB711_Click(sender As Object, e As EventArgs) Handles LB711.Click PA = LB711.Text : 合約內文修改視窗.ShowDialog() : LB711.Text = PA : LB711_移動() End Sub Private Sub LB711_LocationChanged(sender As Object, e As EventArgs) Handles LB711.LocationChanged LB711_移動() End Sub Private Sub LB711_TextChanged(sender As Object, e As EventArgs) Handles LB711.TextChanged LB711_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB712_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB712.Size.Height : sxx = LB712.Location.Y : NU3 = LB713.Location.X : NU4 = LB714.Location.X LB713.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB714.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB712_Click(sender As Object, e As EventArgs) Handles LB712.Click PA = LB712.Text : 合約內文修改視窗.ShowDialog() : LB712.Text = PA : LB712_移動() End Sub Private Sub LB712_LocationChanged(sender As Object, e As EventArgs) Handles LB712.LocationChanged LB712_移動() End Sub Private Sub LB712_TextChanged(sender As Object, e As EventArgs) Handles LB712.TextChanged LB712_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB713_Click(sender As Object, e As EventArgs) Handles LB713.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB713.Location.X : BL1 = True : PA = LB713.Text : 合約內文修改視窗.ShowDialog() : LB713.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB713.Location.Y : LB713.Location = New Drawing.Point(syy1, sxx) sxx = LB714.Location.Y : LB714.Location = New Drawing.Point(syy2, sxx) : sxx = LB715.Location.Y : LB715.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB714_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB714.Size.Height : sxx = LB714.Location.Y : NU4 = LB715.Location.X : LB715.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB714_Click(sender As Object, e As EventArgs) Handles LB714.Click PA = LB714.Text : 合約內文修改視窗.ShowDialog() : LB714.Text = PA : LB714_移動() End Sub Private Sub LB714_LocationChanged(sender As Object, e As EventArgs) Handles LB714.LocationChanged LB714_移動() End Sub Private Sub LB714_TextChanged(sender As Object, e As EventArgs) Handles LB714.TextChanged LB714_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB715_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB715.Size.Height : sxx = LB715.Location.Y : NU3 = LB716.Location.X : NU4 = LB717.Location.X LB716.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB717.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB715_Click(sender As Object, e As EventArgs) Handles LB715.Click PA = LB715.Text : 合約內文修改視窗.ShowDialog() : LB715.Text = PA : LB715_移動() End Sub Private Sub LB715_LocationChanged(sender As Object, e As EventArgs) Handles LB715.LocationChanged LB715_移動() End Sub Private Sub LB715_TextChanged(sender As Object, e As EventArgs) Handles LB715.TextChanged LB715_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB716_Click(sender As Object, e As EventArgs) Handles LB716.Click If 翻頁_nud.Value = 6 Or 自動移動 = True Then NU5 = LB716.Location.X : BL1 = True : PA = LB716.Text : 合約內文修改視窗.ShowDialog() : LB716.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB716.Location.Y : LB716.Location = New Drawing.Point(syy1, sxx) sxx = LB717.Location.Y : LB717.Location = New Drawing.Point(syy2, sxx) : sxx = LB718.Location.Y : LB718.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB717_移動() If 翻頁_nud.Value = 6 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB717.Size.Height : sxx = LB717.Location.Y : NU4 = LB718.Location.X : LB718.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB717_Click(sender As Object, e As EventArgs) Handles LB717.Click PA = LB717.Text : 合約內文修改視窗.ShowDialog() : LB717.Text = PA : LB717_移動() End Sub Private Sub LB717_LocationChanged(sender As Object, e As EventArgs) Handles LB717.LocationChanged LB717_移動() End Sub Private Sub LB717_TextChanged(sender As Object, e As EventArgs) Handles LB717.TextChanged LB717_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB718_Click(sender As Object, e As EventArgs) Handles LB718.Click PA = LB718.Text : 合約內文修改視窗.ShowDialog() : LB718.Text = PA End Sub '---------------------------第4頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB719_Click(sender As Object, e As EventArgs) Handles LB719.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB719.Location.X : BL1 = True : PA = LB719.Text : 合約內文修改視窗.ShowDialog() : LB719.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB719.Location.Y : LB719.Location = New Drawing.Point(syy1, sxx) sxx = LB31.Location.Y : LB31.Location = New Drawing.Point(syy2, sxx) : sxx = LB32.Location.Y : LB32.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB31_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB31.Size.Height : sxx = LB31.Location.Y : NU4 = LB32.Location.X : LB32.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB31_Click(sender As Object, e As EventArgs) Handles LB31.Click PA = LB31.Text : 合約內文修改視窗.ShowDialog() : LB31.Text = PA : LB31_移動() End Sub Private Sub LB31_LocationChanged(sender As Object, e As EventArgs) Handles LB31.LocationChanged LB31_移動() End Sub Private Sub LB31_TextChanged(sender As Object, e As EventArgs) Handles LB31.TextChanged LB31_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB32_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB32.Size.Height : sxx = LB32.Location.Y : NU3 = LB720.Location.X : NU4 = LB35.Location.X LB720.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB35.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB32_Click(sender As Object, e As EventArgs) Handles LB32.Click PA = LB32.Text : 合約內文修改視窗.ShowDialog() : LB32.Text = PA : LB32_移動() End Sub Private Sub LB32_LocationChanged(sender As Object, e As EventArgs) Handles LB32.LocationChanged LB32_移動() End Sub Private Sub LB32_TextChanged(sender As Object, e As EventArgs) Handles LB32.TextChanged LB32_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB720_Click(sender As Object, e As EventArgs) Handles LB720.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB720.Location.X : BL1 = True : PA = LB720.Text : 合約內文修改視窗.ShowDialog() : LB720.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB720.Location.Y : LB720.Location = New Drawing.Point(syy1, sxx) sxx = LB35.Location.Y : LB35.Location = New Drawing.Point(syy2, sxx) : sxx = LB36.Location.Y : LB36.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB35_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB35.Size.Height : sxx = LB35.Location.Y : NU4 = LB36.Location.X : LB36.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB35_Click(sender As Object, e As EventArgs) Handles LB35.Click PA = LB35.Text : 合約內文修改視窗.ShowDialog() : LB35.Text = PA : LB35_移動() End Sub Private Sub LB35_LocationChanged(sender As Object, e As EventArgs) Handles LB35.LocationChanged LB35_移動() End Sub Private Sub LB35_TextChanged(sender As Object, e As EventArgs) Handles LB35.TextChanged LB35_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB36_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB36.Size.Height : sxx = LB36.Location.Y : NU3 = LB721.Location.X : NU4 = LB722.Location.X LB721.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB722.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB36_Click(sender As Object, e As EventArgs) Handles LB36.Click PA = LB36.Text : 合約內文修改視窗.ShowDialog() : LB36.Text = PA : LB36_移動() End Sub Private Sub LB36_LocationChanged(sender As Object, e As EventArgs) Handles LB36.LocationChanged LB36_移動() End Sub Private Sub LB36_TextChanged(sender As Object, e As EventArgs) Handles LB36.TextChanged LB36_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB721_Click(sender As Object, e As EventArgs) Handles LB721.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB721.Location.X : BL1 = True : PA = LB721.Text : 合約內文修改視窗.ShowDialog() : LB721.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB721.Location.Y : LB721.Location = New Drawing.Point(syy1, sxx) sxx = LB722.Location.Y : LB722.Location = New Drawing.Point(syy2, sxx) : sxx = LB723.Location.Y : LB723.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB722_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB722.Size.Height : sxx = LB722.Location.Y : NU4 = LB723.Location.X : LB723.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB722_Click(sender As Object, e As EventArgs) Handles LB722.Click PA = LB722.Text : 合約內文修改視窗.ShowDialog() : LB722.Text = PA : LB722_移動() End Sub Private Sub LB722_LocationChanged(sender As Object, e As EventArgs) Handles LB722.LocationChanged LB722_移動() End Sub Private Sub LB722_TextChanged(sender As Object, e As EventArgs) Handles LB722.TextChanged LB722_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB723_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB723.Size.Height : sxx = LB723.Location.Y : NU3 = LB724.Location.X : NU4 = LB725.Location.X LB724.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB725.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB723_Click(sender As Object, e As EventArgs) Handles LB723.Click PA = LB723.Text : 合約內文修改視窗.ShowDialog() : LB723.Text = PA : LB723_移動() End Sub Private Sub LB723_LocationChanged(sender As Object, e As EventArgs) Handles LB723.LocationChanged LB723_移動() End Sub Private Sub LB723_TextChanged(sender As Object, e As EventArgs) Handles LB723.TextChanged LB723_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB724_Click(sender As Object, e As EventArgs) Handles LB724.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB724.Location.X : BL1 = True : PA = LB724.Text : 合約內文修改視窗.ShowDialog() : LB724.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB724.Location.Y : LB724.Location = New Drawing.Point(syy1, sxx) sxx = LB725.Location.Y : LB725.Location = New Drawing.Point(syy2, sxx) : sxx = LB726.Location.Y : LB726.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB725_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB725.Size.Height : sxx = LB725.Location.Y : NU4 = LB726.Location.X : LB726.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB725_Click(sender As Object, e As EventArgs) Handles LB725.Click PA = LB725.Text : 合約內文修改視窗.ShowDialog() : LB725.Text = PA : LB725_移動() End Sub Private Sub LB725_LocationChanged(sender As Object, e As EventArgs) Handles LB725.LocationChanged LB725_移動() End Sub Private Sub LB725_TextChanged(sender As Object, e As EventArgs) Handles LB725.TextChanged LB725_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB726_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB726.Size.Height : sxx = LB726.Location.Y : NU3 = LB727.Location.X : NU4 = LB728.Location.X LB727.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB728.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB726_Click(sender As Object, e As EventArgs) Handles LB726.Click PA = LB726.Text : 合約內文修改視窗.ShowDialog() : LB726.Text = PA : LB726_移動() End Sub Private Sub LB726_LocationChanged(sender As Object, e As EventArgs) Handles LB726.LocationChanged LB726_移動() End Sub Private Sub LB726_TextChanged(sender As Object, e As EventArgs) Handles LB726.TextChanged LB726_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB727_Click(sender As Object, e As EventArgs) Handles LB727.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB727.Location.X : BL1 = True : PA = LB727.Text : 合約內文修改視窗.ShowDialog() : LB727.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB727.Location.Y : LB727.Location = New Drawing.Point(syy1, sxx) sxx = LB728.Location.Y : LB728.Location = New Drawing.Point(syy2, sxx) : sxx = LB729.Location.Y : LB729.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB728_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB728.Size.Height : sxx = LB728.Location.Y : NU4 = LB729.Location.X : LB729.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB728_Click(sender As Object, e As EventArgs) Handles LB728.Click PA = LB728.Text : 合約內文修改視窗.ShowDialog() : LB728.Text = PA : LB728_移動() End Sub Private Sub LB728_LocationChanged(sender As Object, e As EventArgs) Handles LB728.LocationChanged LB728_移動() End Sub Private Sub LB728_TextChanged(sender As Object, e As EventArgs) Handles LB728.TextChanged LB728_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB729_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB729.Size.Height : sxx = LB729.Location.Y : NU3 = LB730.Location.X : NU4 = LB731.Location.X LB730.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB731.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB729_Click(sender As Object, e As EventArgs) Handles LB729.Click PA = LB729.Text : 合約內文修改視窗.ShowDialog() : LB729.Text = PA : LB729_移動() End Sub Private Sub LB729_LocationChanged(sender As Object, e As EventArgs) Handles LB729.LocationChanged LB729_移動() End Sub Private Sub LB729_TextChanged(sender As Object, e As EventArgs) Handles LB729.TextChanged LB729_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB730_Click(sender As Object, e As EventArgs) Handles LB730.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB730.Location.X : BL1 = True : PA = LB730.Text : 合約內文修改視窗.ShowDialog() : LB730.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB730.Location.Y : LB730.Location = New Drawing.Point(syy1, sxx) sxx = LB731.Location.Y : LB731.Location = New Drawing.Point(syy2, sxx) : sxx = LB732.Location.Y : LB732.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB731_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB731.Size.Height : sxx = LB731.Location.Y : NU4 = LB732.Location.X : LB732.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB731_Click(sender As Object, e As EventArgs) Handles LB731.Click PA = LB731.Text : 合約內文修改視窗.ShowDialog() : LB731.Text = PA : LB731_移動() End Sub Private Sub LB731_LocationChanged(sender As Object, e As EventArgs) Handles LB731.LocationChanged LB731_移動() End Sub Private Sub LB731_TextChanged(sender As Object, e As EventArgs) Handles LB731.TextChanged LB731_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB732_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB732.Size.Height : sxx = LB732.Location.Y : NU3 = LB733.Location.X : NU4 = LB734.Location.X LB733.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB734.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB732_Click(sender As Object, e As EventArgs) Handles LB732.Click PA = LB732.Text : 合約內文修改視窗.ShowDialog() : LB732.Text = PA : LB732_移動() End Sub Private Sub LB732_LocationChanged(sender As Object, e As EventArgs) Handles LB732.LocationChanged LB732_移動() End Sub Private Sub LB732_TextChanged(sender As Object, e As EventArgs) Handles LB732.TextChanged LB732_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB733_Click(sender As Object, e As EventArgs) Handles LB733.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB733.Location.X : BL1 = True : PA = LB733.Text : 合約內文修改視窗.ShowDialog() : LB733.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB733.Location.Y : LB733.Location = New Drawing.Point(syy1, sxx) sxx = LB734.Location.Y : LB734.Location = New Drawing.Point(syy2, sxx) : sxx = LB735.Location.Y : LB735.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB734_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB734.Size.Height : sxx = LB734.Location.Y : NU4 = LB735.Location.X : LB735.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB734_Click(sender As Object, e As EventArgs) Handles LB734.Click PA = LB734.Text : 合約內文修改視窗.ShowDialog() : LB734.Text = PA : LB734_移動() End Sub Private Sub LB734_LocationChanged(sender As Object, e As EventArgs) Handles LB734.LocationChanged LB734_移動() End Sub Private Sub LB734_TextChanged(sender As Object, e As EventArgs) Handles LB734.TextChanged LB734_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB735_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB735.Size.Height : sxx = LB735.Location.Y : NU3 = LB736.Location.X : NU4 = LB737.Location.X LB736.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB737.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB735_Click(sender As Object, e As EventArgs) Handles LB735.Click PA = LB735.Text : 合約內文修改視窗.ShowDialog() : LB735.Text = PA : LB735_移動() End Sub Private Sub LB735_LocationChanged(sender As Object, e As EventArgs) Handles LB735.LocationChanged LB735_移動() End Sub Private Sub LB735_TextChanged(sender As Object, e As EventArgs) Handles LB735.TextChanged LB735_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB736_Click(sender As Object, e As EventArgs) Handles LB736.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB736.Location.X : BL1 = True : PA = LB736.Text : 合約內文修改視窗.ShowDialog() : LB736.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB736.Location.Y : LB736.Location = New Drawing.Point(syy1, sxx) sxx = LB737.Location.Y : LB737.Location = New Drawing.Point(syy2, sxx) : sxx = LB738.Location.Y : LB738.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB737_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB737.Size.Height : sxx = LB737.Location.Y : NU4 = LB738.Location.X : LB738.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB737_Click(sender As Object, e As EventArgs) Handles LB737.Click PA = LB737.Text : 合約內文修改視窗.ShowDialog() : LB737.Text = PA : LB737_移動() End Sub Private Sub LB737_LocationChanged(sender As Object, e As EventArgs) Handles LB737.LocationChanged LB737_移動() End Sub Private Sub LB737_TextChanged(sender As Object, e As EventArgs) Handles LB737.TextChanged LB737_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB738_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB738.Size.Height : sxx = LB738.Location.Y : NU3 = LB739.Location.X : NU4 = LB740.Location.X LB739.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB740.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB738_Click(sender As Object, e As EventArgs) Handles LB738.Click PA = LB738.Text : 合約內文修改視窗.ShowDialog() : LB738.Text = PA : LB738_移動() End Sub Private Sub LB738_LocationChanged(sender As Object, e As EventArgs) Handles LB738.LocationChanged LB738_移動() End Sub Private Sub LB738_TextChanged(sender As Object, e As EventArgs) Handles LB738.TextChanged LB738_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB739_Click(sender As Object, e As EventArgs) Handles LB739.Click If 翻頁_nud.Value = 4 Or 自動移動 = True Then NU5 = LB739.Location.X : BL1 = True : PA = LB739.Text : 合約內文修改視窗.ShowDialog() : LB739.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB739.Location.Y : LB739.Location = New Drawing.Point(syy1, sxx) sxx = LB740.Location.Y : LB740.Location = New Drawing.Point(syy2, sxx) : sxx = LB741.Location.Y : LB741.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB740_移動() If 翻頁_nud.Value = 4 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB740.Size.Height : sxx = LB740.Location.Y : NU4 = LB741.Location.X : LB741.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB740_Click(sender As Object, e As EventArgs) Handles LB740.Click PA = LB740.Text : 合約內文修改視窗.ShowDialog() : LB740.Text = PA : LB740_移動() End Sub Private Sub LB740_LocationChanged(sender As Object, e As EventArgs) Handles LB740.LocationChanged LB740_移動() End Sub Private Sub LB740_TextChanged(sender As Object, e As EventArgs) Handles LB740.TextChanged LB740_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB741_Click(sender As Object, e As EventArgs) Handles LB741.Click PA = LB741.Text : 合約內文修改視窗.ShowDialog() : LB741.Text = PA End Sub '---------------------------第3頁---------------------------------------------------------------------------------------------------------------------------------------------- Private Sub LB742_Click(sender As Object, e As EventArgs) Handles LB742.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB742.Location.X : BL1 = True : PA = LB742.Text : 合約內文修改視窗.ShowDialog() : LB742.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB742.Location.Y : LB742.Location = New Drawing.Point(syy1, sxx) sxx = LB7.Location.Y : LB7.Location = New Drawing.Point(syy2, sxx) : sxx = LB8.Location.Y : LB8.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB7_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB7.Size.Height : sxx = LB7.Location.Y : NU4 = LB8.Location.X : LB8.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB7_Click(sender As Object, e As EventArgs) Handles LB7.Click PA = LB7.Text : 合約內文修改視窗.ShowDialog() : LB7.Text = PA : LB7_移動() End Sub Private Sub LB7_LocationChanged(sender As Object, e As EventArgs) Handles LB7.LocationChanged LB7_移動() End Sub Private Sub LB7_TextChanged(sender As Object, e As EventArgs) Handles LB7.TextChanged LB7_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB8_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB8.Size.Height : sxx = LB8.Location.Y : NU3 = LB743.Location.X : NU4 = LB9.Location.X LB743.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB9.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB8_Click(sender As Object, e As EventArgs) Handles LB8.Click PA = LB8.Text : 合約內文修改視窗.ShowDialog() : LB8.Text = PA : LB8_移動() End Sub Private Sub LB8_LocationChanged(sender As Object, e As EventArgs) Handles LB8.LocationChanged LB8_移動() End Sub Private Sub LB8_TextChanged(sender As Object, e As EventArgs) Handles LB8.TextChanged LB8_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB743_Click(sender As Object, e As EventArgs) Handles LB743.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB743.Location.X : BL1 = True : PA = LB743.Text : 合約內文修改視窗.ShowDialog() : LB743.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB743.Location.Y : LB743.Location = New Drawing.Point(syy1, sxx) sxx = LB9.Location.Y : LB9.Location = New Drawing.Point(syy2, sxx) : sxx = LB10.Location.Y : LB10.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB9_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB9.Size.Height : sxx = LB9.Location.Y : NU4 = LB10.Location.X : LB10.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB9_Click(sender As Object, e As EventArgs) Handles LB9.Click PA = LB9.Text : 合約內文修改視窗.ShowDialog() : LB9.Text = PA : LB9_移動() End Sub Private Sub LB9_LocationChanged(sender As Object, e As EventArgs) Handles LB9.LocationChanged LB9_移動() End Sub Private Sub LB9_TextChanged(sender As Object, e As EventArgs) Handles LB9.TextChanged LB9_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB10_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB10.Size.Height : sxx = LB10.Location.Y : NU3 = LB744.Location.X : NU4 = LB11.Location.X LB744.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB11.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB10_Click(sender As Object, e As EventArgs) Handles LB10.Click PA = LB10.Text : 合約內文修改視窗.ShowDialog() : LB10.Text = PA : LB10_移動() End Sub Private Sub LB10_LocationChanged(sender As Object, e As EventArgs) Handles LB10.LocationChanged LB10_移動() End Sub Private Sub LB10_TextChanged(sender As Object, e As EventArgs) Handles LB10.TextChanged LB10_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB744_Click(sender As Object, e As EventArgs) Handles LB744.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB744.Location.X : BL1 = True : PA = LB744.Text : 合約內文修改視窗.ShowDialog() : LB744.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB744.Location.Y : LB744.Location = New Drawing.Point(syy1, sxx) sxx = LB11.Location.Y : LB11.Location = New Drawing.Point(syy2, sxx) : sxx = LB12.Location.Y : LB12.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB11_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB11.Size.Height : sxx = LB11.Location.Y : NU4 = LB12.Location.X : LB12.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB11_Click(sender As Object, e As EventArgs) Handles LB11.Click PA = LB11.Text : 合約內文修改視窗.ShowDialog() : LB11.Text = PA : LB11_移動() End Sub Private Sub LB11_LocationChanged(sender As Object, e As EventArgs) Handles LB11.LocationChanged LB11_移動() End Sub Private Sub LB11_TextChanged(sender As Object, e As EventArgs) Handles LB11.TextChanged LB11_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB12_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB12.Size.Height : sxx = LB12.Location.Y : NU3 = LB745.Location.X : NU4 = LB13.Location.X LB745.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB13.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB12_Click(sender As Object, e As EventArgs) Handles LB12.Click PA = LB12.Text : 合約內文修改視窗.ShowDialog() : LB12.Text = PA : LB12_移動() End Sub Private Sub LB12_LocationChanged(sender As Object, e As EventArgs) Handles LB12.LocationChanged LB12_移動() End Sub Private Sub LB12_TextChanged(sender As Object, e As EventArgs) Handles LB12.TextChanged LB12_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB745_Click(sender As Object, e As EventArgs) Handles LB745.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB745.Location.X : BL1 = True : PA = LB745.Text : 合約內文修改視窗.ShowDialog() : LB745.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB745.Location.Y : LB745.Location = New Drawing.Point(syy1, sxx) sxx = LB13.Location.Y : LB13.Location = New Drawing.Point(syy2, sxx) : sxx = LB14.Location.Y : LB14.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB13_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB13.Size.Height : sxx = LB13.Location.Y : NU4 = LB14.Location.X : LB14.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB13_Click(sender As Object, e As EventArgs) Handles LB13.Click PA = LB13.Text : 合約內文修改視窗.ShowDialog() : LB13.Text = PA : LB13_移動() End Sub Private Sub LB13_LocationChanged(sender As Object, e As EventArgs) Handles LB13.LocationChanged LB13_移動() End Sub Private Sub LB13_TextChanged(sender As Object, e As EventArgs) Handles LB13.TextChanged LB13_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB14_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB14.Size.Height : sxx = LB14.Location.Y : NU3 = LB746.Location.X : NU4 = LB15.Location.X LB746.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB15.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB14_Click(sender As Object, e As EventArgs) Handles LB14.Click PA = LB14.Text : 合約內文修改視窗.ShowDialog() : LB14.Text = PA : LB14_移動() End Sub Private Sub LB14_LocationChanged(sender As Object, e As EventArgs) Handles LB14.LocationChanged LB14_移動() End Sub Private Sub LB14_TextChanged(sender As Object, e As EventArgs) Handles LB14.TextChanged LB14_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB746_Click(sender As Object, e As EventArgs) Handles LB746.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB746.Location.X : BL1 = True : PA = LB746.Text : 合約內文修改視窗.ShowDialog() : LB746.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB746.Location.Y : LB746.Location = New Drawing.Point(syy1, sxx) sxx = LB15.Location.Y : LB15.Location = New Drawing.Point(syy2, sxx) : sxx = LB16.Location.Y : LB16.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB15_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB15.Size.Height : sxx = LB15.Location.Y : NU4 = LB16.Location.X : LB16.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB15_Click(sender As Object, e As EventArgs) Handles LB15.Click PA = LB15.Text : 合約內文修改視窗.ShowDialog() : LB15.Text = PA : LB15_移動() End Sub Private Sub LB15_LocationChanged(sender As Object, e As EventArgs) Handles LB15.LocationChanged LB15_移動() End Sub Private Sub LB15_TextChanged(sender As Object, e As EventArgs) Handles LB15.TextChanged LB15_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB16_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB16.Size.Height : sxx = LB16.Location.Y : NU3 = LB747.Location.X : NU4 = LB17.Location.X LB747.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB17.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB16_Click(sender As Object, e As EventArgs) Handles LB16.Click PA = LB16.Text : 合約內文修改視窗.ShowDialog() : LB16.Text = PA : LB16_移動() End Sub Private Sub LB16_LocationChanged(sender As Object, e As EventArgs) Handles LB16.LocationChanged LB16_移動() End Sub Private Sub LB16_TextChanged(sender As Object, e As EventArgs) Handles LB16.TextChanged LB16_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB747_Click(sender As Object, e As EventArgs) Handles LB747.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB747.Location.X : BL1 = True : PA = LB747.Text : 合約內文修改視窗.ShowDialog() : LB747.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB747.Location.Y : LB747.Location = New Drawing.Point(syy1, sxx) sxx = LB17.Location.Y : LB17.Location = New Drawing.Point(syy2, sxx) : sxx = LB18.Location.Y : LB18.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB17_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB17.Size.Height : sxx = LB17.Location.Y : NU4 = LB18.Location.X : LB18.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB17_Click(sender As Object, e As EventArgs) Handles LB17.Click PA = LB17.Text : 合約內文修改視窗.ShowDialog() : LB17.Text = PA : LB17_移動() End Sub Private Sub LB17_LocationChanged(sender As Object, e As EventArgs) Handles LB17.LocationChanged LB17_移動() End Sub Private Sub LB17_TextChanged(sender As Object, e As EventArgs) Handles LB17.TextChanged LB17_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB18_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB18.Size.Height : sxx = LB18.Location.Y : NU3 = LB748.Location.X : NU4 = LB19.Location.X LB748.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB19.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB18_Click(sender As Object, e As EventArgs) Handles LB18.Click PA = LB18.Text : 合約內文修改視窗.ShowDialog() : LB18.Text = PA : LB18_移動() End Sub Private Sub LB18_LocationChanged(sender As Object, e As EventArgs) Handles LB18.LocationChanged LB18_移動() End Sub Private Sub LB18_TextChanged(sender As Object, e As EventArgs) Handles LB18.TextChanged LB18_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB748_Click(sender As Object, e As EventArgs) Handles LB748.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB748.Location.X : BL1 = True : PA = LB748.Text : 合約內文修改視窗.ShowDialog() : LB748.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB748.Location.Y : LB748.Location = New Drawing.Point(syy1, sxx) sxx = LB19.Location.Y : LB19.Location = New Drawing.Point(syy2, sxx) : sxx = LB20.Location.Y : LB20.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB19_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB19.Size.Height : sxx = LB19.Location.Y : NU4 = LB20.Location.X : LB20.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB19_Click(sender As Object, e As EventArgs) Handles LB19.Click PA = LB19.Text : 合約內文修改視窗.ShowDialog() : LB19.Text = PA : LB19_移動() End Sub Private Sub LB19_LocationChanged(sender As Object, e As EventArgs) Handles LB19.LocationChanged LB19_移動() End Sub Private Sub LB19_TextChanged(sender As Object, e As EventArgs) Handles LB19.TextChanged LB19_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB20_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB20.Size.Height : sxx = LB20.Location.Y : NU3 = LB749.Location.X : NU4 = LB750.Location.X LB749.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB750.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB20_Click(sender As Object, e As EventArgs) Handles LB20.Click PA = LB20.Text : 合約內文修改視窗.ShowDialog() : LB20.Text = PA : LB20_移動() End Sub Private Sub LB20_LocationChanged(sender As Object, e As EventArgs) Handles LB20.LocationChanged LB20_移動() End Sub Private Sub LB20_TextChanged(sender As Object, e As EventArgs) Handles LB20.TextChanged LB20_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB749_Click(sender As Object, e As EventArgs) Handles LB749.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB749.Location.X : BL1 = True : PA = LB749.Text : 合約內文修改視窗.ShowDialog() : LB749.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB749.Location.Y : LB749.Location = New Drawing.Point(syy1, sxx) sxx = LB750.Location.Y : LB750.Location = New Drawing.Point(syy2, sxx) : sxx = LB751.Location.Y : LB751.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB750_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB750.Size.Height : sxx = LB750.Location.Y : NU4 = LB751.Location.X : LB751.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB750_Click(sender As Object, e As EventArgs) Handles LB750.Click PA = LB750.Text : 合約內文修改視窗.ShowDialog() : LB750.Text = PA : LB750_移動() End Sub Private Sub LB750_LocationChanged(sender As Object, e As EventArgs) Handles LB750.LocationChanged LB750_移動() End Sub Private Sub LB750_TextChanged(sender As Object, e As EventArgs) Handles LB750.TextChanged LB750_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB751_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB751.Size.Height : sxx = LB751.Location.Y : NU3 = LB752.Location.X : NU4 = LB753.Location.X LB752.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB753.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB751_Click(sender As Object, e As EventArgs) Handles LB751.Click PA = LB751.Text : 合約內文修改視窗.ShowDialog() : LB751.Text = PA : LB751_移動() End Sub Private Sub LB751_LocationChanged(sender As Object, e As EventArgs) Handles LB751.LocationChanged LB751_移動() End Sub Private Sub LB751_TextChanged(sender As Object, e As EventArgs) Handles LB751.TextChanged LB751_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB752_Click(sender As Object, e As EventArgs) Handles LB752.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB752.Location.X : BL1 = True : PA = LB752.Text : 合約內文修改視窗.ShowDialog() : LB752.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB752.Location.Y : LB752.Location = New Drawing.Point(syy1, sxx) sxx = LB753.Location.Y : LB753.Location = New Drawing.Point(syy2, sxx) : sxx = LB754.Location.Y : LB754.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB753_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB753.Size.Height : sxx = LB753.Location.Y : NU4 = LB754.Location.X : LB754.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB753_Click(sender As Object, e As EventArgs) Handles LB753.Click PA = LB753.Text : 合約內文修改視窗.ShowDialog() : LB753.Text = PA : LB753_移動() End Sub Private Sub LB753_LocationChanged(sender As Object, e As EventArgs) Handles LB753.LocationChanged LB753_移動() End Sub Private Sub LB753_TextChanged(sender As Object, e As EventArgs) Handles LB753.TextChanged LB753_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB754_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB754.Size.Height : sxx = LB754.Location.Y : NU3 = LB755.Location.X : NU4 = LB756.Location.X LB755.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB756.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB754_Click(sender As Object, e As EventArgs) Handles LB754.Click PA = LB754.Text : 合約內文修改視窗.ShowDialog() : LB754.Text = PA : LB754_移動() End Sub Private Sub LB754_LocationChanged(sender As Object, e As EventArgs) Handles LB754.LocationChanged LB754_移動() End Sub Private Sub LB754_TextChanged(sender As Object, e As EventArgs) Handles LB754.TextChanged LB754_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB755_Click(sender As Object, e As EventArgs) Handles LB755.Click If 翻頁_nud.Value = 3 Or 自動移動 = True Then NU5 = LB755.Location.X : BL1 = True : PA = LB755.Text : 合約內文修改視窗.ShowDialog() : LB755.Text = PA : BL1 = False : NU5 = 0 Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB755.Location.Y : LB755.Location = New Drawing.Point(syy1, sxx) sxx = LB756.Location.Y : LB756.Location = New Drawing.Point(syy2, sxx) : sxx = LB757.Location.Y : LB757.Location = New Drawing.Point(syy2, sxx) : End If End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB756_移動() If 翻頁_nud.Value = 3 Or 自動移動 = True Then Dim sx, sxx As Integer : sx = LB756.Size.Height : sxx = LB756.Location.Y : NU4 = LB757.Location.X : LB757.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If End Sub Private Sub LB756_Click(sender As Object, e As EventArgs) Handles LB756.Click PA = LB756.Text : 合約內文修改視窗.ShowDialog() : LB756.Text = PA : LB756_移動() End Sub Private Sub LB756_LocationChanged(sender As Object, e As EventArgs) Handles LB756.LocationChanged LB756_移動() End Sub Private Sub LB756_TextChanged(sender As Object, e As EventArgs) Handles LB756.TextChanged LB756_移動() End Sub '----------------------------------------------------------------------------------------------------------------- Private Sub LB757_Click(sender As Object, e As EventArgs) Handles LB757.Click PA = LB757.Text : 合約內文修改視窗.ShowDialog() : LB757.Text = PA End Sub '----------------------------------------------------------------------------------------------------------------- Dim Oword As Application Dim Odoc As Document Dim Opara(500) As Paragraph : Dim Otable(500) As Table : Dim AN, BN, CN As Integer : Dim SSTR As String Private Sub 列印成Word_bt_Click(sender As Object, e As EventArgs) Handles 列印成Word_bt.Click If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Or 合約編號2_tb.Text = "" Or 合約編號3_tb.Text = "" Then If 系統語言 = "繁體中文" Then : MsgBox("合約編號不齊全，請先確定合約的完整性!!") Else : MsgBox("Nomor kontrak tidak lengkap, harap konfirmasikan integritas kontrak terlebih dahulu!!") : End If Else Try Oword = CreateObject("Word.application") Oword.Visible = True 'Odoc = Oword.Documents.Add Dim Str2 As String = System.Windows.Forms.Application.StartupPath If 合約編號_cb.Text = "HX" Then Odoc = Oword.Documents.Open(Str2 & "\HX01.docx") Else Odoc = Oword.Documents.Open(Str2 & "\PGS01.docx") End If Odoc.PageSetup.Orientation = Word.WdOrientation.wdOrientPortrait '直向显示，试用于横向打印 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------- AN = 0 : BN = 0 : CN = 0 : SSTR = "" '------系統第一頁------------------------------------------------------------------ Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A中02_lb.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 18 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A中04_lb.Text : Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A英04_lb.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 14 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A英02_lb.Text : Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() : AN = BN For i As Integer = AN To AN + 4 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 18 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Next Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A中01_lb.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 24 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A英01_lb.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 : AN = BN For i As Integer = AN To AN + 4 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 18 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Next Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = 合約編號中_lb.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = 合約編號英_lb.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label25.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label24.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter Opara(BN).Range.InsertParagraphAfter() : BN += 1 '------系統第二頁------------------------------------------------------------------ Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label50.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 14 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() SSTR = Replace(A中05_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label26.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A英05_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label31.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A中06_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label37.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A英06_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label34.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A中03_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label43.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A英03_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label40.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A中07_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label49.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A英07_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label46.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label56.Text Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 14 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() SSTR = Replace(b中01_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label55.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(b英01_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label52.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A13_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label61.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(A14_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label58.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5 Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0 Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB1.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB2.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 For i As Integer = AN To AN + 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5 Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0 Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1 Next '------系統第三頁------------------------------------------------------------------ SSTR = Replace(Label65.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(Label66.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label67.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB3.Text & " " & A01_lb.Text & " " & LB4.Text & " " & A02_lb.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB5.Text & " " & A03_lb.Text & " " & LB6.Text & " " & A04_lb.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) : CN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5 Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0 Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1 If LB742.Text = "" And LB7.Text = "" And LB8.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB742.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB7.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB8.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB742.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB743.Text = "" And LB9.Text = "" And LB10.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB743.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB9.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB10.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB743.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB744.Text = "" And LB11.Text = "" And LB12.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB744.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB11.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB12.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB744.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB745.Text = "" And LB13.Text = "" And LB14.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB745.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB13.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB14.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB745.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB746.Text = "" And LB15.Text = "" And LB16.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB746.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB15.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB16.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB746.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB747.Text = "" And LB17.Text = "" And LB18.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB747.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB17.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB18.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB747.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB748.Text = "" And LB19.Text = "" And LB20.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB748.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB19.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB20.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB748.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB749.Text = "" And LB750.Text = "" And LB751.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB749.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB750.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB751.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB749.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB752.Text = "" And LB753.Text = "" And LB754.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB752.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB753.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB754.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB752.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB755.Text = "" And LB756.Text = "" And LB757.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB755.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB756.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB757.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB755.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If 列印成Word補空() '------系統第四頁------------------------------------------------------------------ SSTR = Replace(Label97.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(Label96.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() If Label100.Text = "" And LB21.Text = "" And LB22.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label100.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB21.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB22.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label100.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If Label112.Text = "" And LB23.Text = "" And LB24.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label112.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB23.Text & " " & A中08_lb.Text & " " & LB33.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB24.Text & " " & A英08_lb.Text & " " & LB34.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label112.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If Label109.Text = "" And LB25.Text = "" And LB26.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label109.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB25.Text & " " & A中09_lb.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB26.Text & " " & A英09_lb.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label109.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5 Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0 Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1 : End If If Label106.Text = "" And LB27.Text = "" And LB28.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label106.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB27.Text & " " & A中10_lb.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB28.Text & " " & A英10_lb.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label106.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If Label103.Text = "" And LB29.Text = "" And LB30.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label103.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB29.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB30.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label103.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB719.Text = "" And LB31.Text = "" And LB32.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB719.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB31.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB32.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB719.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB720.Text = "" And LB35.Text = "" And LB36.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB720.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB35.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB36.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB720.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB721.Text = "" And LB722.Text = "" And LB723.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB721.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB722.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB723.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB721.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB724.Text = "" And LB725.Text = "" And LB726.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB724.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB725.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB726.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB724.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB727.Text = "" And LB728.Text = "" And LB729.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB726.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB727.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB728.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB727.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB730.Text = "" And LB731.Text = "" And LB732.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB730.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB731.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB732.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB730.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB733.Text = "" And LB734.Text = "" And LB735.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB733.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB734.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB735.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB733.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB736.Text = "" And LB737.Text = "" And LB738.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB736.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB737.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB738.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB736.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB739.Text = "" And LB740.Text = "" And LB741.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB739.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB740.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB741.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB739.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If 列印成Word補空() '------系統第五頁------------------------------------------------------------------ SSTR = Replace(Label64.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(Label63.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() If Label136.Text = "" And LB39.Text = "" And LB40.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label136.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB39.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB40.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label136.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB45.Text = "" And LB41.Text = "" And LB42.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB45.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB41.Text & " " & LB46.Text & " " & LB47.Text & " " & LB43.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB42.Text & " " & LB48.Text & " " & LB49.Text & " " & LB44.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB45.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If 第1期_dgv.Rows.Count > 0 Then Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第1期_dgv.Rows.Count, 2) : Dim ZNX As Integer If 第1期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB1.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB2.Text & " " & NLB3.Text & " " & NLB4.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB5.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB6.Text & " " & NLB7.Text & " " & NLB8.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB9.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB10.Text & " " & NLB11.Text & " " & NLB12.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB13.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB14.Text & " " & NLB15.Text & " " & NLB16.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB17.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB18.Text & " " & NLB19.Text & " " & NLB20.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB21.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB22.Text & " " & NLB23.Text & " " & NLB24.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB25.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB26.Text & " " & NLB27.Text & " " & NLB28.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB29.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB30.Text & " " & NLB31.Text & " " & NLB32.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB33.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB34.Text & " " & NLB35.Text & " " & NLB36.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第1期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB37.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB38.Text & " " & NLB39.Text & " " & NLB40.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If If LB54.Text = "" And LB53.Text = "" And LB52.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB54.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB53.Text & " " & LB55.Text & " " & LB56.Text & " " & LB51.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB52.Text & " " & LB57.Text & " " & LB58.Text & " " & LB50.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB54.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If 第2期_dgv.Rows.Count > 0 Then Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第2期_dgv.Rows.Count, 2) : Dim ZNX As Integer If 第2期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB41.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB42.Text & " " & NLB43.Text & " " & NLB44.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB45.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB46.Text & " " & NLB47.Text & " " & NLB48.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB49.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB50.Text & " " & NLB51.Text & " " & NLB52.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB53.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB54.Text & " " & NLB55.Text & " " & NLB56.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB57.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB58.Text & " " & NLB59.Text & " " & NLB60.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB61.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB62.Text & " " & NLB63.Text & " " & NLB64.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB65.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB66.Text & " " & NLB67.Text & " " & NLB68.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB69.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB70.Text & " " & NLB71.Text & " " & NLB72.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB73.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB74.Text & " " & NLB75.Text & " " & NLB76.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第2期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB77.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB78.Text & " " & NLB79.Text & " " & NLB80.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If If LB63.Text = "" And LB62.Text = "" And LB61.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB63.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB62.Text & " " & LB64.Text & " " & LB65.Text & " " & LB60.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB61.Text & " " & LB66.Text & " " & LB67.Text & " " & LB59.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB63.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If 第3期_dgv.Rows.Count > 0 Then Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第3期_dgv.Rows.Count, 2) : Dim ZNX As Integer If 第3期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB81.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB82.Text & " " & NLB83.Text & " " & NLB84.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB85.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB86.Text & " " & NLB87.Text & " " & NLB88.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB89.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB90.Text & " " & NLB91.Text & " " & NLB92.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB93.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB94.Text & " " & NLB95.Text & " " & NLB96.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB97.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB98.Text & " " & NLB99.Text & " " & NLB100.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB101.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB102.Text & " " & NLB103.Text & " " & NLB104.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB105.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB106.Text & " " & NLB107.Text & " " & NLB108.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB109.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB110.Text & " " & NLB111.Text & " " & NLB112.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB113.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB114.Text & " " & NLB115.Text & " " & NLB116.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第3期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB117.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB118.Text & " " & NLB119.Text & " " & NLB120.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If If LB72.Text = "" And LB71.Text = "" And LB70.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB72.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB71.Text & " " & LB73.Text & " " & LB74.Text & " " & LB69.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB70.Text & " " & LB75.Text & " " & LB76.Text & " " & LB68.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB72.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If 第4期_dgv.Rows.Count > 0 Then Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第4期_dgv.Rows.Count, 2) : Dim ZNX As Integer If 第4期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB121.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB122.Text & " " & NLB123.Text & " " & NLB124.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB125.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB126.Text & " " & NLB127.Text & " " & NLB128.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB129.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB130.Text & " " & NLB131.Text & " " & NLB132.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB133.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB134.Text & " " & NLB135.Text & " " & NLB136.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB137.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB138.Text & " " & NLB139.Text & " " & NLB140.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB141.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB142.Text & " " & NLB143.Text & " " & NLB144.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB145.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB146.Text & " " & NLB147.Text & " " & NLB148.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB149.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB150.Text & " " & NLB151.Text & " " & NLB152.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB153.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB154.Text & " " & NLB155.Text & " " & NLB156.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第4期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB157.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB158.Text & " " & NLB159.Text & " " & NLB160.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If If LB81.Text = "" And LB80.Text = "" And LB79.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB81.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB80.Text & " " & LB82.Text & " " & LB83.Text & " " & LB78.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB79.Text & " " & LB84.Text & " " & LB85.Text & " " & LB77.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB81.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If 第5期_dgv.Rows.Count > 0 Then Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第5期_dgv.Rows.Count, 2) : Dim ZNX As Integer If 第5期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB161.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB162.Text & " " & NLB163.Text & " " & NLB164.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB165.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB166.Text & " " & NLB167.Text & " " & NLB168.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB169.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB170.Text & " " & NLB171.Text & " " & NLB172.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB173.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB174.Text & " " & NLB175.Text & " " & NLB176.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB177.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB178.Text & " " & NLB179.Text & " " & NLB180.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB181.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB182.Text & " " & NLB183.Text & " " & NLB184.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB185.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB186.Text & " " & NLB187.Text & " " & NLB188.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB189.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB190.Text & " " & NLB191.Text & " " & NLB192.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB193.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB194.Text & " " & NLB195.Text & " " & NLB196.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If If 第5期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB197.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue SSTR = Replace(NLB198.Text & " " & NLB199.Text & " " & NLB200.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If '------系統第六頁------------------------------------------------------------------ If LB687.Text = "" And LB37.Text = "" And LB38.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB687.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB37.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB38.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB687.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB688.Text = "" And LB86.Text = "" And LB87.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB688.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB86.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB87.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB688.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB689.Text = "" And LB88.Text = "" And LB89.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB689.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB88.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB89.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB689.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB690.Text = "" And LB90.Text = "" And LB91.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB690.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB90.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB91.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB690.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB691.Text = "" And LB92.Text = "" And LB93.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB691.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB92.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB93.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB691.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB692.Text = "" And LB693.Text = "" And LB694.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB692.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB693.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB694.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB692.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB695.Text = "" And LB696.Text = "" And LB697.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB695.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB696.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB697.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB695.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB698.Text = "" And LB699.Text = "" And LB700.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB698.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB699.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB700.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB698.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB701.Text = "" And LB702.Text = "" And LB703.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB701.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB702.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB703.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB701.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB704.Text = "" And LB705.Text = "" And LB706.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB704.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB705.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB706.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB704.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB707.Text = "" And LB708.Text = "" And LB709.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB707.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB708.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB709.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB707.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB710.Text = "" And LB711.Text = "" And LB712.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB710.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB711.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB712.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB710.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB713.Text = "" And LB714.Text = "" And LB715.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB713.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB714.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB715.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB713.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB716.Text = "" And LB717.Text = "" And LB718.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB716.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB717.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB718.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB716.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If 列印成Word補空() '------系統第七頁------------------------------------------------------------------ SSTR = Replace(LB645.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB646.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() If Label200.Text = "" And LB94.Text = "" And LB97.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label200.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB94.Text & " " & A19_lb.Text & " " & LB95.Text & " " & LB96.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB97.Text & " " & A20_lb.Text & " " & LB98.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label200.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If Label208.Text = "" And LB99.Text = "" And LB101.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = Label208.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB99.Text & " " & A21_lb.Text & " " & LB100.Text & " " & A22_lb.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB101.Text & " " & A23_lb.Text & " " & LB102.Text & " " & A24_lb.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If Label208.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB648.Text = "" And LB649.Text = "" And LB650.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB648.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB649.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB650.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB648.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB651.Text = "" And LB652.Text = "" And LB653.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB651.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB652.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB653.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB651.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB654.Text = "" And LB655.Text = "" And LB656.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB654.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB655.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB656.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB654.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB657.Text = "" And LB658.Text = "" And LB659.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB657.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB658.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB659.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB657.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB660.Text = "" And LB661.Text = "" And LB662.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB660.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB661.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB662.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB660.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB663.Text = "" And LB664.Text = "" And LB665.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB663.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB664.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB665.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB663.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB666.Text = "" And LB667.Text = "" And LB668.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB666.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB667.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB668.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB666.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB669.Text = "" And LB670.Text = "" And LB671.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB669.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB670.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB671.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB669.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB672.Text = "" And LB673.Text = "" And LB674.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB672.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB673.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB674.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB672.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB675.Text = "" And LB676.Text = "" And LB677.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB675.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB676.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB677.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB675.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB678.Text = "" And LB679.Text = "" And LB680.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB678.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB679.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB680.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB678.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB681.Text = "" And LB682.Text = "" And LB683.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB681.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB682.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB683.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB681.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第八頁------------------------------------------------------------------ If LB645.Text = LB600.Text Or LB646.Text = LB601.Text Or (LB600.Text = "" And LB601.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB600.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB601.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB603.Text = "" And LB604.Text = "" And LB605.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB603.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB604.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB605.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB603.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB606.Text = "" And LB607.Text = "" And LB608.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB606.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB607.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB608.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB606.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB609.Text = "" And LB610.Text = "" And LB611.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB609.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB610.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB611.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB609.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB612.Text = "" And LB613.Text = "" And LB614.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB612.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB613.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB614.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB612.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB615.Text = "" And LB616.Text = "" And LB617.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB615.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB616.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB617.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB615.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB618.Text = "" And LB619.Text = "" And LB620.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB618.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB619.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB620.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB618.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB621.Text = "" And LB622.Text = "" And LB623.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB621.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB622.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB623.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB621.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB624.Text = "" And LB625.Text = "" And LB626.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB624.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB625.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB626.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB624.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB627.Text = "" And LB628.Text = "" And LB629.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB627.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB628.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB629.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB627.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB630.Text = "" And LB631.Text = "" And LB632.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB630.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB631.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB632.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB630.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB633.Text = "" And LB634.Text = "" And LB635.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB633.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB634.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB635.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB633.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB636.Text = "" And LB637.Text = "" And LB638.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB636.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB637.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB638.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB636.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB639.Text = "" And LB640.Text = "" And LB641.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB639.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB640.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB641.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB639.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB642.Text = "" And LB643.Text = "" And LB644.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB642.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB643.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB644.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB642.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第九頁------------------------------------------------------------------ If LB600.Text = LB567.Text Or LB601.Text = LB568.Text Or (LB567.Text = "" And LB568.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB567.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB568.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB570.Text = "" And LB103.Text = "" And LB104.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB570.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB103.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB104.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB570.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB571.Text = "" And LB105.Text = "" And LB106.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB571.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB105.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB106.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB571.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB572.Text = "" And LB107.Text = "" And LB108.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB572.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB107.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB108.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB572.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB573.Text = "" And LB109.Text = "" And LB110.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB573.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB109.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB110.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB573.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB574.Text = "" And LB111.Text = "" And LB112.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB574.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB111.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB112.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB574.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB575.Text = "" And LB113.Text = "" And LB114.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB575.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB113.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB114.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB575.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB576.Text = "" And LB577.Text = "" And LB578.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB576.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB577.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB578.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB576.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB579.Text = "" And LB580.Text = "" And LB581.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB579.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB580.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB581.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB579.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB582.Text = "" And LB583.Text = "" And LB584.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB582.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB583.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB584.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB582.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB585.Text = "" And LB586.Text = "" And LB587.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB585.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB586.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB587.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB585.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB588.Text = "" And LB589.Text = "" And LB590.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB588.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB589.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB590.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB588.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB591.Text = "" And LB592.Text = "" And LB593.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB591.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB592.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB593.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB591.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB594.Text = "" And LB595.Text = "" And LB596.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB594.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB595.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB596.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB594.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB597.Text = "" And LB598.Text = "" And LB599.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB597.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB598.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB599.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB597.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十頁------------------------------------------------------------------ If LB567.Text = LB524.Text Or LB568.Text = LB525.Text Or (LB524.Text = "" And LB525.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB524.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB525.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB527.Text = "" And LB115.Text = "" And LB116.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB527.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB115.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB116.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB527.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB528.Text = "" And LB529.Text = "" And LB530.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB528.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB529.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB530.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB528.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB531.Text = "" And LB532.Text = "" And LB533.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB531.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB532.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB533.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB531.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB534.Text = "" And LB535.Text = "" And LB536.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB534.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB535.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB536.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB534.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB537.Text = "" And LB538.Text = "" And LB539.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB537.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB538.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB539.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB537.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB540.Text = "" And LB541.Text = "" And LB542.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB540.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB541.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB542.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB540.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB543.Text = "" And LB544.Text = "" And LB545.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB543.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB544.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB545.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB543.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB546.Text = "" And LB547.Text = "" And LB548.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB546.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB547.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB548.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB546.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB549.Text = "" And LB550.Text = "" And LB551.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB549.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB550.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB551.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB549.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB552.Text = "" And LB553.Text = "" And LB554.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB552.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB553.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB554.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB552.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB555.Text = "" And LB556.Text = "" And LB557.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB555.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB556.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB557.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB555.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB558.Text = "" And LB559.Text = "" And LB560.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB558.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB559.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB560.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB558.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB561.Text = "" And LB562.Text = "" And LB563.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB561.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB562.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB561.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB561.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB564.Text = "" And LB565.Text = "" And LB566.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB564.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB565.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB566.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB564.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十一頁------------------------------------------------------------------ If LB524.Text = LB483.Text Or LB525.Text = LB484.Text Or (LB483.Text = "" And LB484.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB483.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB484.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB486.Text = "" And LB117.Text = "" And LB118.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB486.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB117.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB118.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB486.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB487.Text = "" And LB119.Text = "" And LB120.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB487.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB119.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB120.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB487.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB488.Text = "" And LB489.Text = "" And LB490.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB488.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB489.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB490.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB488.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB491.Text = "" And LB492.Text = "" And LB493.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB491.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB492.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB493.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB491.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB494.Text = "" And LB495.Text = "" And LB496.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB494.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB495.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB496.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB494.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB497.Text = "" And LB498.Text = "" And LB499.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB497.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB498.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB499.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB497.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB500.Text = "" And LB501.Text = "" And LB502.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB500.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB501.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB502.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB500.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB503.Text = "" And LB504.Text = "" And LB505.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB503.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB504.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB505.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB503.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB506.Text = "" And LB507.Text = "" And LB508.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB506.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB507.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB508.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB506.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB509.Text = "" And LB510.Text = "" And LB511.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB509.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB510.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB511.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB509.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB512.Text = "" And LB513.Text = "" And LB514.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB512.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB513.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB514.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB512.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB515.Text = "" And LB516.Text = "" And LB517.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB515.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB516.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB517.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB515.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB518.Text = "" And LB519.Text = "" And LB520.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB518.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB519.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB520.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB518.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB521.Text = "" And LB522.Text = "" And LB523.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB521.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB522.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB523.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB521.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十二頁------------------------------------------------------------------ If LB483.Text = LB438.Text Or LB484.Text = LB439.Text Or (LB438.Text = "" And LB439.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB438.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB439.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB441.Text = "" And LB442.Text = "" And LB443.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB441.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB442.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB443.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB441.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB444.Text = "" And LB445.Text = "" And LB446.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB444.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB445.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB446.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB444.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB447.Text = "" And LB448.Text = "" And LB449.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB447.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB448.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB449.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB447.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB450.Text = "" And LB451.Text = "" And LB452.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB450.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB451.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB452.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB450.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB453.Text = "" And LB454.Text = "" And LB455.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB453.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB454.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB455.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB453.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB456.Text = "" And LB457.Text = "" And LB458.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB456.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB457.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB458.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB456.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB459.Text = "" And LB460.Text = "" And LB461.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB459.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB460.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB461.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB459.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB462.Text = "" And LB463.Text = "" And LB464.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB462.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB463.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB464.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB462.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB465.Text = "" And LB466.Text = "" And LB467.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB465.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB466.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB467.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB465.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB468.Text = "" And LB469.Text = "" And LB470.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB468.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB469.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB470.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB468.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB471.Text = "" And LB472.Text = "" And LB473.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB471.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB472.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB473.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB471.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB474.Text = "" And LB475.Text = "" And LB476.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB474.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB475.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB476.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB474.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB477.Text = "" And LB478.Text = "" And LB479.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB477.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB478.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB479.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB477.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB480.Text = "" And LB481.Text = "" And LB482.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB480.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB481.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB482.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB480.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十三頁------------------------------------------------------------------ If LB438.Text = LB393.Text Or LB439.Text = LB394.Text Or (LB393.Text = "" And LB394.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB393.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB394.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB396.Text = "" And LB397.Text = "" And LB398.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB396.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB397.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB398.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB396.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB399.Text = "" And LB400.Text = "" And LB401.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB399.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB400.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB401.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB399.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB402.Text = "" And LB403.Text = "" And LB404.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB402.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB403.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB404.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB402.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB405.Text = "" And LB406.Text = "" And LB407.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB405.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB406.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB407.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB405.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB408.Text = "" And LB409.Text = "" And LB410.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB408.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB409.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB410.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB408.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB411.Text = "" And LB412.Text = "" And LB413.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB411.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB412.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB413.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB411.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB414.Text = "" And LB415.Text = "" And LB416.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB414.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB415.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB416.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB414.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB417.Text = "" And LB418.Text = "" And LB419.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB417.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB418.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB419.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB417.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB420.Text = "" And LB421.Text = "" And LB422.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB420.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB421.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB422.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB420.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB423.Text = "" And LB424.Text = "" And LB425.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB423.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB424.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB425.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB423.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB426.Text = "" And LB427.Text = "" And LB428.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB426.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB427.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB428.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB426.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB429.Text = "" And LB430.Text = "" And LB431.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB429.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB430.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB431.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB429.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB432.Text = "" And LB433.Text = "" And LB434.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB432.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB433.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB434.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB432.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB435.Text = "" And LB436.Text = "" And LB437.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB435.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB436.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB437.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB435.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十四頁------------------------------------------------------------------ If LB393.Text = LB348.Text Or LB394.Text = LB349.Text Or (LB348.Text = "" And LB349.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB348.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB349.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB351.Text = "" And LB352.Text = "" And LB353.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB351.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB352.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB353.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB351.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB354.Text = "" And LB355.Text = "" And LB356.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB354.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB355.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB356.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB354.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB357.Text = "" And LB358.Text = "" And LB359.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB357.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB358.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB359.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB357.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB360.Text = "" And LB361.Text = "" And LB362.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB360.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB361.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB362.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB360.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB363.Text = "" And LB364.Text = "" And LB365.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB363.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB364.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB365.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB363.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB366.Text = "" And LB367.Text = "" And LB368.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB366.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB367.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB368.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB366.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB369.Text = "" And LB370.Text = "" And LB371.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB369.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB370.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB371.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB369.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB372.Text = "" And LB373.Text = "" And LB374.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB372.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB373.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB374.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB372.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB375.Text = "" And LB376.Text = "" And LB377.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB375.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB376.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB377.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB375.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB378.Text = "" And LB379.Text = "" And LB380.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB378.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB379.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB380.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB378.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB381.Text = "" And LB382.Text = "" And LB383.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB381.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB382.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB383.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB381.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB384.Text = "" And LB385.Text = "" And LB386.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB384.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB385.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB386.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB384.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB387.Text = "" And LB388.Text = "" And LB389.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB387.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB388.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB389.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB387.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB390.Text = "" And LB391.Text = "" And LB392.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB390.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB391.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB392.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB390.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十五頁------------------------------------------------------------------ If LB348.Text = LB303.Text Or LB349.Text = LB304.Text Or (LB303.Text = "" And LB304.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB303.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB304.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB306.Text = "" And LB307.Text = "" And LB308.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB306.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB307.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB308.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB306.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB309.Text = "" And LB310.Text = "" And LB311.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB309.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB310.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB311.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB309.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB312.Text = "" And LB313.Text = "" And LB314.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB312.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB313.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB314.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB312.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB315.Text = "" And LB316.Text = "" And LB317.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB315.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB316.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB317.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB315.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB318.Text = "" And LB319.Text = "" And LB320.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB318.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB319.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB320.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB318.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB321.Text = "" And LB322.Text = "" And LB323.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB321.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB322.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB323.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB321.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB324.Text = "" And LB325.Text = "" And LB326.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB324.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB325.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB326.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB324.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB327.Text = "" And LB328.Text = "" And LB329.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB327.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB328.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB329.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB327.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB330.Text = "" And LB331.Text = "" And LB332.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB330.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB331.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB332.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB330.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB333.Text = "" And LB334.Text = "" And LB335.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB333.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB334.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB335.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB333.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB336.Text = "" And LB337.Text = "" And LB338.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB336.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB337.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB338.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB336.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB339.Text = "" And LB340.Text = "" And LB341.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB339.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB340.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB341.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB339.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB342.Text = "" And LB343.Text = "" And LB344.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB342.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB343.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB344.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB342.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB345.Text = "" And LB346.Text = "" And LB347.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB345.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB346.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB347.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB345.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十六頁------------------------------------------------------------------ 列印成Word補空() SSTR = Replace(LB267.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB268.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() If LB270.Text = "" And LB121.Text = "" And LB122.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB270.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB121.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB122.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB270.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB271.Text = "" And LB123.Text = "" And LB124.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB271.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB123.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB124.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB271.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB272.Text = "" And LB125.Text = "" And LB126.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB272.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB125.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB126.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB272.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB273.Text = "" And LB127.Text = "" And LB126.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB273.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB127.Text & " " & LB274.Text & " " & LB128.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB129.Text & " " & LB275.Text & " " & LB130.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB273.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB276.Text = "" And LB277.Text = "" And LB278.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB276.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB277.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB278.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB276.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB279.Text = "" And LB280.Text = "" And LB281.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB279.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB280.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB281.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB279.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB282.Text = "" And LB283.Text = "" And LB284.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB282.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB283.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB284.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB282.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB285.Text = "" And LB286.Text = "" And LB287.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB285.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB286.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB287.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB285.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB288.Text = "" And LB289.Text = "" And LB290.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB288.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB289.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB290.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB288.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB291.Text = "" And LB292.Text = "" And LB293.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB291.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB292.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB293.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB291.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB294.Text = "" And LB295.Text = "" And LB296.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB294.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB295.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB296.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB294.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB297.Text = "" And LB298.Text = "" And LB299.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB297.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB298.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB299.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB297.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB300.Text = "" And LB301.Text = "" And LB302.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB300.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB301.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB302.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB300.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十七頁------------------------------------------------------------------ If LB267.Text = LB228.Text Or LB268.Text = LB229.Text Or (LB228.Text = "" And LB229.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB228.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB229.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB231.Text = "" And LB131.Text = "" And LB132.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB231.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB131.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB132.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB231.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB232.Text = "" And LB133.Text = "" And LB134.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB232.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB133.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB134.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB232.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB233.Text = "" And LB135.Text = "" And LB136.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB233.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB135.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB136.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB233.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB234.Text = "" And LB235.Text = "" And LB236.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB233.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB235.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB236.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB234.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB237.Text = "" And LB238.Text = "" And LB239.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB237.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB238.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB239.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB237.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB240.Text = "" And LB241.Text = "" And LB242.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB240.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB241.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB242.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB240.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB243.Text = "" And LB244.Text = "" And LB245.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB243.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB244.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB245.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB243.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB246.Text = "" And LB247.Text = "" And LB248.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB246.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB247.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB248.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB246.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB249.Text = "" And LB250.Text = "" And LB251.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB249.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB250.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB251.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB249.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB252.Text = "" And LB253.Text = "" And LB254.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB252.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB253.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB254.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB252.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB255.Text = "" And LB256.Text = "" And LB257.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB255.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB256.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB257.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB255.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB258.Text = "" And LB259.Text = "" And LB260.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB258.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB259.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB260.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB258.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB261.Text = "" And LB262.Text = "" And LB263.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB261.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB262.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB263.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB261.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB264.Text = "" And LB265.Text = "" And LB266.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB264.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB265.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB266.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB264.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十八頁------------------------------------------------------------------ If LB228.Text = LB187.Text Or LB229.Text = LB188.Text Or (LB187.Text = "" And LB188.Text = "") Then : Else : 列印成Word補空() SSTR = Replace(LB187.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB188.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() End If If LB226.Text = "" And LB137.Text = "" And LB138.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB226.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB137.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB138.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB226.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB227.Text = "" And LB139.Text = "" And LB140.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB227.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB139.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB140.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB227.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB190.Text = "" And LB191.Text = "" And LB192.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB190.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB191.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB192.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB190.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB193.Text = "" And LB194.Text = "" And LB195.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB193.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB194.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB195.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB193.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB196.Text = "" And LB197.Text = "" And LB198.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB196.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB197.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB198.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB196.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB199.Text = "" And LB200.Text = "" And LB201.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB199.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB200.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB201.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB199.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB202.Text = "" And LB203.Text = "" And LB204.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB202.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB203.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB204.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB202.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB205.Text = "" And LB206.Text = "" And LB207.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB205.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB206.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB207.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB205.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB208.Text = "" And LB209.Text = "" And LB210.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB208.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB209.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB210.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB208.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB211.Text = "" And LB212.Text = "" And LB213.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB211.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB212.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB213.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB211.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB214.Text = "" And LB215.Text = "" And LB216.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB214.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB215.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB216.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB214.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB217.Text = "" And LB218.Text = "" And LB219.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB217.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB218.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB219.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB217.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB220.Text = "" And LB221.Text = "" And LB222.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB220.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB221.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB222.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB220.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB222.Text = "" And LB224.Text = "" And LB225.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB222.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB224.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB225.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB222.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第十九頁------------------------------------------------------------------ 列印成Word補空() SSTR = Replace(LB153.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(LB154.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() If LB156.Text = "" And LB141.Text = "" And LB142.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB156.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB141.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB142.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB156.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB157.Text = "" And LB143.Text = "" And LB144.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB157.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB143.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB144.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB157.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB158.Text = "" And LB159.Text = "" And LB148.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB158.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB159.Text & " " & LB160.Text & " " & LB161.Text & " " & LB145.Text & " " & LB162.Text & " " & LB146.Text & " " & LB147.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB148.Text & " " & LB163.Text & " " & LB149.Text & " " & LB164.Text & " " & LB150.Text & " " & LB165.Text & " " & LB151.Text & " " & LB152.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB158.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB166.Text = "" And LB167.Text = "" And LB168.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB166.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB167.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB168.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB166.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB169.Text = "" And LB170.Text = "" And LB171.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB169.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB170.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB171.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB169.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB172.Text = "" And LB173.Text = "" And LB174.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB172.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB173.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB174.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB172.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB175.Text = "" And LB176.Text = "" And LB177.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB175.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB176.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB177.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB175.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB178.Text = "" And LB179.Text = "" And LB180.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB178.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB179.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB180.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB178.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB181.Text = "" And LB182.Text = "" And LB183.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB181.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB182.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB183.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB181.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If If LB184.Text = "" And LB185.Text = "" And LB186.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2) Otable(CN).Cell(1, 1).Range.Text = LB184.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB185.Text, vbCrLf, "") Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack SSTR = Replace(LB186.Text, vbCrLf, "") Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) If LB184.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If '------系統第二十頁------------------------------------------------------------------ 列印成Word補空() SSTR = Replace(SLB1.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(SLB2.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() SSTR = Replace(SLB6.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB4.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(SLB9.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB7.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(SLB12.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB10.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(SLB15.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB13.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word補空() : 列印成Word補空() SSTR = Replace(SLB18.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB16.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(SLB21.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB19.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(SLB24.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB22.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 SSTR = Replace(SLB27.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB25.Text & " : " & SSTR Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 'Oword.ActiveDocument.Protect(Password:="0911274990", NoReset:=False, Type:=WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True) Dim Str3 As String Str3 = My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text & "合約.docx" Oword.ActiveDocument.SaveAs(Str3) Dim SS, SS1, SS2 As String If 系統語言 = "繁體中文" Then : SS = "存檔成功 !!!" : SS1 = "檔案儲存於 : 您的電腦桌面。" : SS2 = "檔存檔資訊" Else : SS = "Silakan masukkan kode otorisasi!!" : SS1 = "File disimpan di : desktop komputer Anda." : SS2 = "informasi arsip file" : End If MessageBox.Show(SS & vbCrLf & SS1, SS2, MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception MsgBox(ex.Message) End Try End If End Sub Private Sub 列印成Word畫線() Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "_____________________________________________________________________________________________________________" Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft Opara(BN).Range.InsertParagraphAfter() : BN += 1 End Sub Private Sub 列印成Word補空() Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5 Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0 Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1 End Sub End Class