Imports System.IO
Public Class 會議記錄
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    Dim 圖片資料庫指定 As String
    Dim DGVX As Integer
    DIM 對話框(18), WW(14), WA(14) As String
    Dim 第1段開始, 第2段開始, 第3段開始, 第4段開始, 第5段開始, 第6段開始, 判斷, 放大 As Boolean
    Private Sub Set_會議記錄()
        Dim ds6 As New DataSet : 會議記錄表_dgv.DataSource = Nothing : ds6.Clear()
        會議記錄表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        會議記錄表_dgv.ColumnHeadersHeight = 40 : 會議記錄表_dgv.AllowUserToAddRows = False : 會議記錄表_dgv.RowTemplate.Height = 45
        If 已完成資料顯示_ch.Checked = False Then : SQL2 = " WHERE 已完成 = 0 " : Else : SQL2 = "" : End If
        SQL_會議記錄清單()
        da.Fill(ds6) : 會議記錄表_dgv.DataSource = ds6.Tables(0) : conn.Close()
        會議記錄表_dgv.Columns(0).Visible = False : 會議記錄表_dgv.Columns(2).Visible = False : 會議記錄表_dgv.Columns(4).Visible = False : 會議記錄表_dgv.Columns(11).Visible = False
        會議記錄表_dgv.Columns(1).FillWeight = 60 : 會議記錄表_dgv.Columns(3).FillWeight = 180 : 會議記錄表_dgv.Columns(8).FillWeight = 80
        會議記錄表_dgv.Columns(9).FillWeight = 40 : 會議記錄表_dgv.Columns(10).FillWeight = 40
        For i As Integer = 0 To 11 : 會議記錄表_dgv.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Set_會議執行()
        Dim ds6 As New DataSet : 執行人_dgv.DataSource = Nothing : ds6.Clear()
        執行人_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        執行人_dgv.ColumnHeadersHeight = 25 : 執行人_dgv.AllowUserToAddRows = False
        SQL_會議決議執行人()
        da.Fill(ds6) : 執行人_dgv.DataSource = ds6.Tables(0) : conn.Close()
        執行人_dgv.Columns(0).Visible = False : 執行人_dgv.Columns(1).FillWeight = 40
        For i As Integer = 0 To 1 : 執行人_dgv.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Set_會議圖片()
        Dim ds6 As New DataSet : 圖片清單_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單_dgv.ColumnHeadersHeight = 25 : 圖片清單_dgv.AllowUserToAddRows = False
        If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
        SQL_連線字串_圖片資料庫() : SQL_會議圖片()
        da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單_dgv.Columns(0).ReadOnly = True
        If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : Else : 圖片_pb.Image = Nothing : End If
    End Sub
    Private Sub 地點下拉表單資料載入()
        SQL_會議記錄_會議地點() : 地點_cb.Items.Clear() : 地點_cb.Items.Add("") : While (dr.Read()) : 地點_cb.Items.Add(dr("地點")) : End While : conn.Close()
    End Sub
    Private Sub 姓名下拉表單資料載入()
        PA1 = "%%" : SQL_會議記錄_姓名_下拉清單() : 執行人_cb.Items.Clear() : 執行人_cb.Items.Add("") : 執行人_cb.Items.Add("全員 / Setiap Orang")
        While (dr.Read()) : 執行人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub 執行時間下拉表單資料載入()
        執行時間_cb.Items.Clear() : SQL_會議記錄_執行時間_下拉清單() : 執行時間_cb.Items.Add("") : While (dr.Read()) : 執行時間_cb.Items.Add(dr("執行時間")) : End While : conn.Close()
    End Sub
    Private Sub 預計完成下拉表單資料載入()
        預計完成_cb.Items.Clear() : SQL_會議記錄_預計完成_下拉清單() : 執行時間_cb.Items.Add("") : While (dr.Read()) : 預計完成_cb.Items.Add(dr("預計完成")) : End While : conn.Close()
    End Sub
    Private Sub 執行情況下拉表單資料載入()
        執行情況_cb.Items.Clear() : SQL_會議記錄_執行情況_下拉清單() : 執行情況_cb.Items.Add("") : While (dr.Read()) : 執行情況_cb.Items.Add(dr("執行情況")) : End While : conn.Close()
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1 : 語言_dgv.Rows.RemoveAt(0) : Next
        If File.Exists(Str + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "")
                    If Strings.Left(line, 4) = "G000" Or Strings.Left(line, 8) = "H001-203" Or Strings.Left(line, 4) = 介面 Then
                        If 系統語言 = "繁體中文" Then
                            If Strings.Mid(line, 10, 2) = "CH" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "English" Then
                            If Strings.Mid(line, 10, 2) = "EN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        ElseIf 系統語言 = "Indonesian" Then
                            If Strings.Mid(line, 10, 2) = "IN" Then : 語言_dgv.Rows.Insert(0)
                                語言_dgv.Rows(0).Cells(0).Value = Strings.Left(line, 11)
                                If Strings.Mid(line, 13, 300).EndsWith(",") Then
                                    語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300).Substring(0, Strings.Mid(line, 13, 300).Length - 1)
                                Else : 語言_dgv.Rows(0).Cells(1).Value = Strings.Mid(line, 13, 300) : End If
                            End If
                        End If
                    End If
                End If
            End While
            filereader.Close()
        End If
    End Sub
    Private Sub Set_語言查詢()
        RI = -1 : For Each row As DataGridViewRow In 語言_dgv.Rows
            If Strings.Left(row.Cells(0).Value.ToString(), 8) = SK Then
                RI = row.Index : Exit For
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言()
        SK = "H001-203" : Set_語言查詢() : Me.Text = 語言_dgv(1, RI).Value.ToString : SK = "G000-108" : Set_語言查詢() : ToolTip1.ToolTipTitle = 語言_dgv(1, RI).Value.ToString
        SK = "H902-100" : Set_語言查詢() : 表頭(159) = 語言_dgv(1, RI).Value.ToString : SK = "H902-101" : Set_語言查詢() : 表頭(5) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-102" : Set_語言查詢() : 表頭(10) = 語言_dgv(1, RI).Value.ToString : SK = "H902-103" : Set_語言查詢() : 表頭(17) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-104" : Set_語言查詢() : 表頭(14) = 語言_dgv(1, RI).Value.ToString : SK = "H902-105" : Set_語言查詢() : 表頭(116) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-106" : Set_語言查詢() : 表頭(155) = 語言_dgv(1, RI).Value.ToString : SK = "H902-107" : Set_語言查詢() : 表頭(3) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-108" : Set_語言查詢() : 已完成_ch.Text = 語言_dgv(1, RI).Value.ToString : SK = "H902-109" : Set_語言查詢() : 已完成資料顯示_ch.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H902-110" : Set_語言查詢() : 地點_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H902-111" : Set_語言查詢() : 刪除執行人_bt.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H902-112" : Set_語言查詢() : 長期執行_ch.Text = 語言_dgv(1, RI).Value.ToString : SK = "H902-113" : Set_語言查詢() : 執行人_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H902-114" : Set_語言查詢() : 執行時間_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H902-115" : Set_語言查詢() : 執行情況_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H902-116" : Set_語言查詢() : 細項說明_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H902-117" : Set_語言查詢() : 備註_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H902-118" : Set_語言查詢() : 新建執行人_bt.Text = 語言_dgv(1, RI).Value.ToString : SK = "H902-119" : Set_語言查詢() : 會議日期_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H902-120" : Set_語言查詢() : 會議項目_lb.Text = 語言_dgv(1, RI).Value.ToString : SK = "H902-121" : Set_語言查詢() : 預計完成_lb.Text = 語言_dgv(1, RI).Value.ToString
        SK = "H902-122" : Set_語言查詢() : 對話框(0) = 語言_dgv(1, RI).Value.ToString : SK = "H902-123" : Set_語言查詢() : 對話框(1) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-124" : Set_語言查詢() : 對話框(2) = 語言_dgv(1, RI).Value.ToString : SK = "H902-125" : Set_語言查詢() : 對話框(3) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-126" : Set_語言查詢() : 對話框(4) = 語言_dgv(1, RI).Value.ToString : SK = "H902-127" : Set_語言查詢() : 對話框(5) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-128" : Set_語言查詢() : 對話框(6) = 語言_dgv(1, RI).Value.ToString : SK = "H902-129" : Set_語言查詢() : 對話框(7) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-130" : Set_語言查詢() : 對話框(8) = 語言_dgv(1, RI).Value.ToString : SK = "H902-131" : Set_語言查詢() : 對話框(9) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-132" : Set_語言查詢() : 對話框(10) = 語言_dgv(1, RI).Value.ToString : SK = "G000-197" : Set_語言查詢() : 對話框(11) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-171" : Set_語言查詢() : 對話框(12) = 語言_dgv(1, RI).Value.ToString : SK = "G000-196" : Set_語言查詢() : 對話框(13) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-164" : Set_語言查詢() : 對話框(14) = 語言_dgv(1, RI).Value.ToString : SK = "H902-133" : Set_語言查詢() : 對話框(15) = 語言_dgv(1, RI).Value.ToString
        SK = "G000-175" : Set_語言查詢() : 對話框(16) = 語言_dgv(1, RI).Value.ToString : SK = "G000-110" : Set_語言查詢() : 對話框(17) = 語言_dgv(1, RI).Value.ToString
        SK = "H902-134" : Set_語言查詢() : 對話框(18) = 語言_dgv(1, RI).Value.ToString
    End Sub
    Private Sub 讀取資料夾路徑_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.讀取資料夾路徑_rbt, 對話框(13))
    End Sub
    Private Sub 圖檔入系統_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.圖檔入系統_rbt, 對話框(14))
    End Sub
    Private Sub 新建議題_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 新建議題_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.新建議題_rbt, 對話框(15))
    End Sub
    Private Sub 翻譯_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 翻譯_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.翻譯_rbt, 對話框(16))
    End Sub
    Private Sub 存檔_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.存檔_rbt, 對話框(17))
    End Sub
    Private Sub 刪除_rtb_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_rtb.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_rtb, 對話框(18))
    End Sub
    Private Sub 會議記錄_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(902) = True : 介面 = "H902" : 語言轉換讀取() : 顯示說明(999, True)
        If CInt(登入人級別) <= 5 Then
            新建議題_rbt.Enabled = True : 存檔_rbt.Enabled = True : 刪除_rtb.Enabled = True : 新建執行人_bt.Enabled = True : 刪除執行人_bt.Enabled = True : 圖檔入系統_rbt.Enabled = True
        Else
            新建議題_rbt.Enabled = False : 存檔_rbt.Enabled = False : 刪除_rtb.Enabled = False : 新建執行人_bt.Enabled = False : 刪除執行人_bt.Enabled = False : 圖檔入系統_rbt.Enabled = False
        End If
        MyMod.清單字體大小調整()
        會議記錄表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        執行人_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 會議記錄_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        風格() : SQL_圖片資料庫查詢() : If dr.Read() Then : 圖片資料庫指定 = dr("工程圖片資料庫") : Else : MGB(對話框(0), 1) : Me.Close() : End If
        執行情況下拉表單資料載入() : 預計完成下拉表單資料載入() : 執行時間下拉表單資料載入() : 姓名下拉表單資料載入() : 地點下拉表單資料載入() : Set_會議記錄()
    End Sub
    Private Sub 銷售單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyMod.清單字體大小調整()
        會議記錄表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        執行人_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 會議記錄_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(902) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H902" : 語言轉換讀取() : Set_會議記錄()
    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
            會議編號_tb.Text = 會議記錄表_dgv("會議編號", e.RowIndex).Value.ToString : 地點_cb.Text = 會議記錄表_dgv("地點", e.RowIndex).Value.ToString
            會議項目_tb.Text = 會議記錄表_dgv(表頭(155), e.RowIndex).Value.ToString : 會議日期_dtp.Value = 會議記錄表_dgv(表頭(116), e.RowIndex).Value.ToString
            細項說明_tb.Text = 會議記錄表_dgv("細項說明", e.RowIndex).Value.ToString : 執行時間_cb.Text = 會議記錄表_dgv(表頭(10), e.RowIndex).Value.ToString
            預計完成_cb.Text = 會議記錄表_dgv(表頭(3), e.RowIndex).Value.ToString : 執行情況_cb.Text = 會議記錄表_dgv(表頭(17), e.RowIndex).Value.ToString
            備註_tb.Text = 會議記錄表_dgv(表頭(14), e.RowIndex).Value.ToString : 已完成_ch.Checked = 會議記錄表_dgv(表頭(159), e.RowIndex).Value
            長期執行_ch.Checked = 會議記錄表_dgv(表頭(5), e.RowIndex).Value : 圖片庫_tb.Text = 會議記錄表_dgv("圖片庫", e.RowIndex).Value.ToString
            PA1 = 會議編號_tb.Text : 圖片_pb.Image = Nothing : Set_會議執行() : Set_會議圖片()
        End If
    End Sub
    Private Sub 執行人_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 執行人_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 執行人_cb.Text = 執行人_dgv("執行人", e.RowIndex).Value.ToString : End If
    End Sub
    Private Sub 圖片清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 圖片清單讀取() : End If
    End Sub
    Private Sub 圖片清單讀取()
        圖片_pb.Image = Nothing : PA1 = 會議編號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
        PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value
        If 圖片清單_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            SQL_會議圖片讀取()
            While dr.Read() = True
                Dim unused As Byte() = New Byte(-1) {}
                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                Dim oStream As New MemoryStream(bytes)
                圖片_pb.Image = Bitmap.FromStream(oStream)
            End While : conn.Close() : 圖片_pb.SizeMode = 4
        Else : 圖片_pb.Image = My.Resources.PDF : 圖片_pb.SizeMode = 4 : End If
    End Sub
    Private Sub 會議記錄表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 會議記錄表_dgv.RowPostPaint
        Dim linePen As New  Pen(Color.Blue, 2)
        If e.RowIndex = 會議記錄表_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 會議記錄表_dgv(表頭(116), e.RowIndex).Value.ToString <> 會議記錄表_dgv(表頭(116), e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(會議記錄表_dgv.RowHeadersVisible, 會議記錄表_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 會議記錄表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 會議記錄表_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 預計完成_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 預計完成_cb.SelectedIndexChanged
        If 預計完成_cb.Text = "已完成 / Selesai" Then : 已完成_ch.Checked = True : Else : 已完成_ch.Checked = False : End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 新建議題_rbt_Click(sender As Object, e As EventArgs) Handles 新建議題_rbt.Click
        Dim 跳過 As Boolean : Dim DD As Integer : 會議日期_dtp.Value = Today : DD = Weekday(會議日期_dtp.Value)
        If DD = 6 Then : Else
            If DD >= 2 Or DD <= 5 Then : 會議日期_dtp.Value = 會議日期_dtp.Value.AddDays(6 - DD)
            ElseIf DD = 1 Then : 會議日期_dtp.Value = 會議日期_dtp.Value.AddDays(6 + DD)
            ElseIf DD = 7 Then : 會議日期_dtp.Value = 會議日期_dtp.Value.AddDays(6) : End If
        End If
        If 會議項目_tb.Text <> "" Then : MGB(對話框(1), 2) : If 訊息回應 = "YES" Then : 跳過 = False : Else : 跳過 = True : End If : Else : 跳過 = False : End If
        If 跳過 = False Then
            會議項目_tb.Text = "" : 細項說明_tb.Text = "" : 執行時間_cb.Text = "" : 執行情況_cb.Text = "" : 預計完成_cb.Text = ""
            備註_tb.Text = "" : 執行人_cb.Text = "" : 已完成_ch.Checked = False : 長期執行_ch.Checked = False
            執行人_dgv.DataSource = Nothing
            Set_日期格式轉換() : Dim NUM1 As Integer
            For i As Integer = 1 To 999 : NUM1 = 0 + i
                If NUM1 < 10 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-00" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-0" & NUM1
                ElseIf NUM1 > 99 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-" & NUM1 : End If
                PA1 = 會議編號_tb.Text : SQL_會議記錄_單號查詢() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
            Next
        End If
    End Sub
    Private Sub 存檔_rbt_Click(sender As Object, e As EventArgs) Handles 存檔_rbt.Click
        If 地點_cb.Text = "" Then : MGB(對話框(2), 1) : Else
            If 會議項目_tb.Text = "" Then : MGB(對話框(3), 1) : Else
                If 執行時間_cb.Text = "" Then : MGB(對話框(4), 1) : Else
                    If 會議編號_tb.Text = "" Then : MGB(對話框(5), 1) : Else
                        PA1 = 會議編號_tb.Text : PA2 = Strings.Format(會議日期_dtp.Value, "yyyy/MM/dd") : PA3 = 地點_cb.Text : PA4 = 會議項目_tb.Text : PA5 = 細項說明_tb.Text
                        PA6 = 執行時間_cb.Text : PA7 = 執行情況_cb.Text : PA8 = 預計完成_cb.Text : PA9 = 備註_tb.Text : BL1 = 已完成_ch.Checked : BL2 = 長期執行_ch.Checked
                        PA10 = 圖片資料庫指定 : SQL_會議記錄_單號查詢()
                        If dr.Read() Then : MGB(對話框(6), 2) : If 訊息回應 = "YES" Then : SQL_會議記錄修改() : End If : Else : SQL_會議記錄新增() : End If
                        conn.Close() : Set_會議記錄()
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 刪除_rtb_Click(sender As Object, e As EventArgs) Handles 刪除_rtb.Click
        If 會議編號_tb.Text = "" Then : MGB(對話框(7), 1) : Else
            MGB(對話框(8), 2)
            If 訊息回應 = "YES" Then : PA1 = 會議編號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫() : SQL_會議記錄刪除() : Set_會議記錄() : End If
        End If
    End Sub
    Private Sub 新建執行人_bt_Click(sender As Object, e As EventArgs) Handles 新建執行人_bt.Click
        If 會議編號_tb.Text = "" Then : MGB(對話框(7), 1) : Else
            If 執行人_cb.Text = "" Then : MGB(對話框(9), 1) : Else
                PA1 = 會議編號_tb.Text : PA3 = 執行人_cb.Text : Dim 編號 As String : Dim NUM1 As Integer
                For i As Integer = 1 To 999
                    NUM1 = 0 + i
                    If NUM1 < 10 Then : 編號 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 編號 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 編號 = NUM1 : End If
                    PA2 = 編號 : SQL_會議決議執行人_單號查詢() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
                Next : SQL_會議決議執行人新增() : PA1 = 會議編號_tb.Text : Set_會議執行() : Set_會議圖片()
            End If
        End If
    End Sub
    Private Sub 刪除執行人_bt_Click(sender As Object, e As EventArgs) Handles 刪除執行人_bt.Click
        If 會議編號_tb.Text = "" Then : MGB(對話框(7), 1) : Else
            If 執行人_cb.Text = "" Then : MGB(對話框(9), 1) : Else
                MGB(對話框(8), 2)
                If 訊息回應 = "YES" Then : PA1 = 會議編號_tb.Text : PA3 = 執行人_cb.Text : SQL_會議決議執行人刪除() : PA1 = 會議編號_tb.Text : Set_會議執行() : Set_會議圖片() : End If
            End If
        End If
    End Sub
    Private Sub 已完成資料顯示_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已完成資料顯示_ch.CheckedChanged
        Set_會議記錄()
    End Sub
    Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 圖片_pb.Click
        If IsNothing(圖片_pb.Image) = False Then
            If 圖片清單_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                圖片傳遞 = 圖片_pb.Image : 圖片放大視窗.ShowDialog()
            Else
                PA1 = 會議編號_tb.Text : 圖片庫 = 圖片庫_tb.Text : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value : SQL_連線字串_圖片資料庫()
                Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_會議圖片讀取1() : da.Fill(ds1)
                If ds1.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 讀取資料夾路徑_rbt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_rbt.Click
        If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            If OpenFileDialog1.FileNames.Length > 6 Then : MGB(對話框(11), 1) : Else
                For i As Integer = 0 To 5 : WW(i) = "" : WA(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
                NU1 = OpenFileDialog1.FileNames.Length - 1
                For i As Integer = 0 To OpenFileDialog1.FileNames.Length - 1 : WW(i) = OpenFileDialog1.FileNames(i) : Next
                For i As Integer = 0 To NU1
                    Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(WW(i))
                    For ii As Integer = 1 To 10
                        If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : Else
                            If Strings.Mid(取變數, ii, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : End If
                        End If
                    Next
                    If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or
                           驗證 = "JPEG" Or 驗證 = "jpeg" Then : WA(i) = "JPG"
                        Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Image.FromFile(WW(i)) : 選擇.SizeMode = 4
                    ElseIf 驗證 = "PDF" Or 驗證 = "pdf" Then : WA(i) = "PDF"
                        Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = My.Resources.PDF : 選擇.SizeMode = 4
                    Else : WW(i) = "" : WA(i) = "" : End If
                Next
            End If
        End If
    End Sub
    Private Sub 圖檔入系統_rbt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.Click
        If 會議編號_tb.Text = "" Then : MGB(對話框(7), 1) : Else
            PA1 = 會議編號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
            MyMod.計算顯示2() : MyMod.進度條1()
            For i As Integer = 0 To NU1
                MyMod.計算顯示2() : MyMod.進度條1()
                If WW(i) = "" Then : Else
                    Dim 文件號 As String : Dim 文件編號 As Integer : SQL_會議圖片最後一筆編號查詢()
                    If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("項次").ToString, 2)) : Else : 文件編號 = 0 : End If
                    conn.Close() : 文件編號 += 1
                    If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
                    ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
                    PA2 = 文件號 : PA49 = WW(i) : PA3 = WA(i) : SQL_會議圖片入系統()
                End If
            Next
            For i As Integer = 0 To 5 : WW(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
            Set_會議圖片() : MyMod.計算顯示3() : MGB(對話框(10), 1)
        End If
    End Sub
    Private Sub 字體大小_nud_ValueChanged(sender As Object, e As EventArgs) Handles 字體大小_nud.ValueChanged
        細項說明_tb.Font = New Font("Arial", 字體大小_nud.Value)
        備註_tb.Font = New Font("Arial", 字體大小_nud.Value)
    End Sub
    Private Sub 翻譯_rbt_Click(sender As Object, e As EventArgs) Handles 翻譯_rbt.Click
        If 會議項目_tb.Text = "" Then : Else : 資料數 = 30 : MyMod.進度條()
            翻譯 = 會議項目_tb.Text : MyModule2.執行翻譯() : 第1段開始 = True : 第2段開始 = False : 等待翻譯_tim.Enabled = True
        End If
    End Sub
    Private Sub 等待翻譯_tim_Tick(sender As Object, e As EventArgs) Handles 等待翻譯_tim.Tick
        MyMod.進度條()
        If 第1段開始 = True Then : MyMod.進度條()
            If 會議項目_tb.Text <> "" Then
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                If File.Exists("ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    會議項目_tb.Text = stringReader : fileReader.Close() : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    會議項目_tb.Text = stringReader : fileReader.Close() : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯()
                End If
            Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯() : End If
        If 第2段開始 = True Then : MyMod.進度條()
            If 細項說明_tb.Text <> "" Then
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                If File.Exists("ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    細項說明_tb.Text = stringReader : fileReader.Close() : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    細項說明_tb.Text = stringReader : fileReader.Close() : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯()
                End If
            Else : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯() : End If
        If 第3段開始 = True Then : MyMod.進度條()
            If 備註_tb.Text <> "" Then
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                If File.Exists("ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    備註_tb.Text = stringReader : fileReader.Close() : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    備註_tb.Text = stringReader : fileReader.Close() : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯()
                End If
            Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯() : End If
        Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯() : End If
        If 第4段開始 = True Then : MyMod.進度條()
            If 執行時間_cb.Text <> "" Then
                For i = 1 To Len(執行時間_cb.Text)
                    If Mid(執行時間_cb.Text, i, 1) = "/" Then : 判斷 = False : Exit For : Else : 判斷 = True : End If
                Next
                If 判斷 = True Then
                    Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                    If File.Exists("ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        執行時間_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行時間_cb.Text = 執行時間_cb.Text & " / " & stringReader : fileReader.Close()
                        第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯()
                    ElseIf File.Exists(Str2 & "\ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        執行時間_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行時間_cb.Text = 執行時間_cb.Text & " / " & stringReader : fileReader.Close()
                        第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯()
                    End If
                Else : 第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯() : End If
            Else : 第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯() : End If
        Else : 第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯() : End If
        If 第5段開始 = True Then : MyMod.進度條()
            If 預計完成_cb.Text <> "" Then
                For i = 1 To Len(預計完成_cb.Text)
                    If Mid(預計完成_cb.Text, i, 1) = "/" Then : 判斷 = False : Exit For : Else : 判斷 = True : End If
                Next
                If 判斷 = True Then
                    Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                    If File.Exists("ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        預計完成_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        預計完成_cb.Text = 預計完成_cb.Text & " / " & stringReader : fileReader.Close()
                        第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯()
                    ElseIf File.Exists(Str2 & "\ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        預計完成_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        預計完成_cb.Text = 預計完成_cb.Text & " / " & stringReader : fileReader.Close()
                        第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯()
                    End If
                Else : 第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯() : End If
            Else : 第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯() : End If
        Else : 第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯() : End If
        If 第6段開始 = True Then : MyMod.進度條()
            If 執行情況_cb.Text <> "" Then
                For i = 1 To Len(執行情況_cb.Text)
                    If Mid(執行情況_cb.Text, i, 1) = "/" Then : 判斷 = False : Exit For : Else : 判斷 = True : End If
                Next
                If 判斷 = True Then
                    Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                    If File.Exists("ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        執行情況_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行情況_cb.Text = 執行情況_cb.Text & " / " & stringReader : fileReader.Close()
                        第6段開始 = False : 等待翻譯_tim.Enabled = False
                        HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                        MGB(對話框(12), 1)
                    ElseIf File.Exists(Str2 & "\ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        執行情況_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行情況_cb.Text = 執行情況_cb.Text & " / " & stringReader : fileReader.Close()
                        第6段開始 = False : 等待翻譯_tim.Enabled = False
                        HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                        MGB(對話框(12), 1)
                    End If
                Else : 第6段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : End If : MGB(對話框(12), 1)
            Else : 第6段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : End If : MGB(對話框(12), 1)
        Else : 第6段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : End If : MGB(對話框(12), 1)
    End Sub
    Private Sub TW_ch_CheckedChanged(sender As Object, e As EventArgs) Handles TW_ch.Click
        TW_ch.Checked = True : IN_ch.Checked = False : TW = TW_ch.Visible : EN = IN_ch.Visible
    End Sub
    Private Sub IN_ch_CheckedChanged(sender As Object, e As EventArgs) Handles IN_ch.Click
        TW_ch.Checked = False : IN_ch.Checked = True : TW = TW_ch.Visible : EN = IN_ch.Visible
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.White
            會議項目_lb.ForeColor = Color.Black : 地點_lb.ForeColor = Color.Black : 會議日期_lb.ForeColor = Color.Black : 執行人_lb.ForeColor = Color.Black
            細項說明_lb.ForeColor = Color.Black : 備註_lb.ForeColor = Color.Black : TW_ch.ForeColor = Color.Black : IN_ch.ForeColor = Color.Black
            執行時間_lb.ForeColor = Color.Black : 預計完成_lb.ForeColor = Color.Black : 執行情況_lb.ForeColor = Color.Black : 已完成_ch.ForeColor = Color.Black
            長期執行_ch.ForeColor = Color.Black : 已完成資料顯示_ch.ForeColor = Color.Black : 字體大小_lb.ForeColor = Color.Black

            圖片_pb.BackColor = Color.White : PB1.BackColor = Color.White : PB2.BackColor = Color.White : PB3.BackColor = Color.White
            PB4.BackColor = Color.White : PB5.BackColor = Color.White : PB6.BackColor = Color.White
            新建執行人_bt.BackColor = Color.White : 新建執行人_bt.ForeColor = Color.Blue : 刪除執行人_bt.BackColor = Color.White : 刪除執行人_bt.ForeColor = Color.Red
            地點_cb.BackColor = Color.White : 地點_cb.ForeColor = Color.Black : 會議項目_tb.BackColor = Color.White : 會議項目_tb.ForeColor = Color.Black
            細項說明_tb.BackColor = Color.White : 細項說明_tb.ForeColor = Color.Black : 執行時間_cb.BackColor = Color.White : 執行時間_cb.ForeColor = Color.Black
            預計完成_cb.BackColor = Color.White : 預計完成_cb.ForeColor = Color.Black : 執行情況_cb.BackColor = Color.White : 執行情況_cb.ForeColor = Color.Black
            備註_tb.BackColor = Color.White : 備註_tb.ForeColor = Color.Black : 執行人_cb.BackColor = Color.White : 執行人_cb.ForeColor = Color.Black
            字體大小_nud.BackColor = Color.White : 新建執行人_bt.ForeColor = Color.Black
            圖片清單_dgv.EnableHeadersVisualStyles = True : 圖片清單_dgv.BackgroundColor = Color.White : 圖片清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            圖片清單_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單_dgv.DefaultCellStyle.ForeColor = Color.Black
            會議記錄表_dgv.EnableHeadersVisualStyles = True : 會議記錄表_dgv.BackgroundColor = Color.White : 會議記錄表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            會議記錄表_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            會議記錄表_dgv.DefaultCellStyle.BackColor = Color.White : 會議記錄表_dgv.DefaultCellStyle.ForeColor = Color.Black
            執行人_dgv.EnableHeadersVisualStyles = True : 執行人_dgv.BackgroundColor = Color.White : 執行人_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            執行人_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            執行人_dgv.DefaultCellStyle.BackColor = Color.White : 執行人_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            會議項目_lb.ForeColor = Color.White : 地點_lb.ForeColor = Color.White : 會議日期_lb.ForeColor = Color.White : 執行人_lb.ForeColor = Color.White
            細項說明_lb.ForeColor = Color.White : 備註_lb.ForeColor = Color.White : TW_ch.ForeColor = Color.White : IN_ch.ForeColor = Color.White
            執行時間_lb.ForeColor = Color.White : 預計完成_lb.ForeColor = Color.White : 執行情況_lb.ForeColor = Color.White : 已完成_ch.ForeColor = Color.White
            長期執行_ch.ForeColor = Color.White : 已完成資料顯示_ch.ForeColor = Color.White : 字體大小_lb.ForeColor = Color.White

            圖片_pb.BackColor = Color.DimGray : PB1.BackColor = Color.DimGray : PB2.BackColor = Color.DimGray : PB3.BackColor = Color.DimGray
            PB4.BackColor = Color.DimGray : PB5.BackColor = Color.DimGray : PB6.BackColor = Color.DimGray
            新建執行人_bt.BackColor = Color.DimGray : 新建執行人_bt.ForeColor = Color.LightBlue : 刪除執行人_bt.BackColor = Color.DimGray : 刪除執行人_bt.ForeColor = Color.LightPink
            地點_cb.BackColor = Color.DimGray : 地點_cb.ForeColor = Color.White : 會議項目_tb.BackColor = Color.DimGray : 會議項目_tb.ForeColor = Color.White
            細項說明_tb.BackColor = Color.DimGray : 細項說明_tb.ForeColor = Color.White : 執行時間_cb.BackColor = Color.DimGray : 執行時間_cb.ForeColor = Color.White
            預計完成_cb.BackColor = Color.DimGray : 預計完成_cb.ForeColor = Color.White : 執行情況_cb.BackColor = Color.DimGray : 執行情況_cb.ForeColor = Color.White
            備註_tb.BackColor = Color.DimGray : 備註_tb.ForeColor = Color.White : 執行人_cb.BackColor = Color.DimGray : 執行人_cb.ForeColor = Color.White
            字體大小_nud.BackColor = Color.DimGray : 新建執行人_bt.ForeColor = Color.White

            圖片清單_dgv.EnableHeadersVisualStyles = False : 圖片清單_dgv.BackgroundColor = Color.Black : 圖片清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            圖片清單_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單_dgv.DefaultCellStyle.ForeColor = Color.White
            會議記錄表_dgv.EnableHeadersVisualStyles = False : 會議記錄表_dgv.BackgroundColor = Color.Black : 會議記錄表_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            會議記錄表_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 會議記錄表_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            會議記錄表_dgv.DefaultCellStyle.BackColor = Color.Black : 會議記錄表_dgv.DefaultCellStyle.ForeColor = Color.White
            執行人_dgv.EnableHeadersVisualStyles = False : 執行人_dgv.BackgroundColor = Color.Black : 執行人_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            執行人_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 執行人_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            執行人_dgv.DefaultCellStyle.BackColor = Color.Black : 執行人_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class