HX-PGS-ERP-SYS-SIU/07、章程管理系統/部門聯絡函/部門聯絡函申請.vb

Option Strict Off
Imports System.IO
Public Class 部門聯絡函申請
    Dim RI As Integer = -1
    Dim SK As String = ""
    Dim Str As String = Application.StartupPath
    Dim 圖片資料庫指定 As String
    Dim DGVX As Integer
    Dim 對話框(11), WW(14), WA(14) As String
    Dim 第1段開始, 第2段開始, 第3段開始, 第4段開始 As Boolean
    Private Sub Set_清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 35 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 45
        If CInt(登入人級別) <= 3 Then
            If 未審核_ch.Checked = True And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = True And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 LIKE '') AND (申請核准 NOT LIKE '作廢%') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = True And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = True Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請核准 LIKE '作廢%') "
            End If
        Else
            If 未審核_ch.Checked = True And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = True And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請核准 LIKE '') AND 
                               (申請核准 NOT LIKE '作廢%')  AND (申請部門 LIKE N'" & 登入人部門 & "') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = True And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "')"
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = True Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請核准 LIKE '作廢%') AND 
                               (申請部門 LIKE N'" & 登入人部門 & "')"
            End If
        End If
        SQL_部門聯絡函_清單()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 80 : 清單_dgv.Columns(1).FillWeight = 100 : 清單_dgv.Columns(2).FillWeight = 100 : 清單_dgv.Columns(3).FillWeight = 80
        清單_dgv.Columns(4).FillWeight = 100 : 清單_dgv.Columns(5).FillWeight = 100 : 清單_dgv.Columns(6).FillWeight = 400 : 清單_dgv.Columns(7).Visible = False
    End Sub
    Private Sub Set_聯繫圖片()
        If 圖片庫_tb.Text <> "" Then
            Dim ds6 As New DataSet
            圖片清單_dgv.DataSource = Nothing : ds6.Clear()
            圖片清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            圖片清單_dgv.ColumnHeadersHeight = 25 : 圖片清單_dgv.AllowUserToAddRows = False : 圖片清單_dgv.RowTemplate.Height = 25
            圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
            SQL_聯絡函圖片()
            da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
            圖片清單_dgv.Columns(0).FillWeight = 80 : 圖片清單_dgv.Columns(0).ReadOnly = True
            If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : Else : 圖片_pb.Image = Nothing : End If
        End If
    End Sub
    Private Sub Set_聯絡事項()
        PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_聯絡事項() : If dr.Read() Then : 聯絡事項_tb.Text = dr("聯絡事項").ToString : End If
    End Sub
    Private Sub Set_建議()
        PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_建議() : If dr.Read() Then : 建議_tb.Text = dr("建議").ToString : End If
    End Sub
    Private Sub Set_擬辦()
        PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_擬辦() : If dr.Read() Then : 擬辦_tb.Text = dr("擬辦").ToString : End If
    End Sub
    Private Sub 部門下拉表單資料載入()
        SQL_系統使用者管理_下拉清單_部門() : 部門_cb.Items.Clear() : While (dr.Read()) : 部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
    End Sub
    Private Sub 姓名下拉表單資料載入()
        SQL_部門聯絡函_姓名_下拉清單() : 聯絡人_cb.Items.Clear() : While (dr.Read()) : 聯絡人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub 代理下拉表單資料載入()
        SQL_職務代理人_下拉清單() : 代理_cb.Items.Clear() : While (dr.Read()) : 代理_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub 車輛下拉表單資料載入()
        SQL_車輛_下拉清單() : 車輛_cb.Items.Clear() : While (dr.Read()) : 車輛_cb.Items.Add(dr("車輛編號") & "-" & dr("車牌號碼") & "-" & dr("車輛品牌")) : End While : conn.Close()
        SQL_車輛地點_下拉清單() : 地點_cb.Items.Clear() : While (dr.Read()) : 地點_cb.Items.Add(dr("外出地點")) : End While : conn.Close()
        SQL_外出地點_下拉清單() : 外出地點_cb.Items.Clear() : While (dr.Read()) : 外出地點_cb.Items.Add(dr("外出地點")) : End While : conn.Close()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-194-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 表頭(72) = 系統語言字典("H904-100-" & 語言)
        表頭(187) = 系統語言字典("H904-101-" & 語言) : 表頭(117) = 系統語言字典("H904-102-" & 語言) : 表頭(19) = 系統語言字典("H904-103-" & 語言)
        表頭(20) = 系統語言字典("H904-104-" & 語言) : 表頭(6) = 系統語言字典("H904-105-" & 語言) : 表頭(5) = 系統語言字典("H904-106-" & 語言)
        表頭(99) = 系統語言字典("H904-107-" & 語言) : 表頭(4) = 系統語言字典("H904-108-" & 語言) : 表頭(7) = 系統語言字典("H904-109-" & 語言)
        申請人_lb.Text = 系統語言字典("H904-112-" & 語言) : 申請日期_lb.Text = 系統語言字典("H904-113-" & 語言) : 申請部門_lb.Text = 系統語言字典("H904-114-" & 語言)
        建議_lb.Text = 系統語言字典("H904-117-" & 語言) : 部門聯絡函本文_tp.Text = 系統語言字典("H904-121-" & 語言) : 部門聯絡函清單_tp.Text = 系統語言字典("H904-122-" & 語言)
        擬辦_lb.Text = 系統語言字典("H904-128-" & 語言) : 聯絡部門_lb.Text = 系統語言字典("H904-134-" & 語言) : 聯絡人_lb.Text = 系統語言字典("H904-130-" & 語言)
        聯絡事項_lb.Text = 系統語言字典("H904-131-" & 語言) : 聯絡函主題_lb.Text = 系統語言字典("H904-132-" & 語言) : 聯絡函單號_lb.Text = 系統語言字典("H904-133-" & 語言)
        已審核_ch.Text = 系統語言字典("H905-100-" & 語言) : 主管作廢_ch.Text = 系統語言字典("H905-101-" & 語言) : 借車_bt.Text = 系統語言字典("H905-115-" & 語言)
        未審核_ch.Text = 系統語言字典("H905-102-" & 語言) : 老闆作廢_ch.Text = 系統語言字典("H905-104-" & 語言) : 請假_bt.Text = 系統語言字典("H905-116-" & 語言)
        Label2.Text = 系統語言字典("H401-109-" & 語言) : Label7.Text = 系統語言字典("H401-109-" & 語言) : Label16.Text = 系統語言字典("H905-119-" & 語言)
        Label1.Text = 系統語言字典("H905-115-" & 語言) : Label8.Text = 系統語言字典("H905-116-" & 語言) : Label3.Text = 系統語言字典("H401-110-" & 語言)
        Label6.Text = 系統語言字典("H401-110-" & 語言) : 需要司機_cb.Text = 系統語言字典("H905-120-" & 語言) : Label4.Text = 系統語言字典("H905-121-" & 語言)
        Label9.Text = 系統語言字典("H905-122-" & 語言) : Label5.Text = 系統語言字典("H905-123-" & 語言) : Label10.Text = 系統語言字典("H905-124-" & 語言)
        Label19.Text = 系統語言字典("H905-125-" & 語言) : Label18.Text = 系統語言字典("H401-109-" & 語言) : Label17.Text = 系統語言字典("H401-110-" & 語言)
        Label13.Text = 系統語言字典("H902-110-" & 語言) : Label12.Text = 系統語言字典("H902-110-" & 語言) : Label11.Text = 系統語言字典("H905-126-" & 語言)
        Label15.Text = 系統語言字典("H905-127-" & 語言) : 外出_bt.Text = 系統語言字典("H905-125-" & 語言) : 加班_bt.Text = 系統語言字典("H609-124-" & 語言)
        對話框(1) = 系統語言字典("H905-107-" & 語言) : 對話框(2) = 系統語言字典("H905-108-" & 語言) : 對話框(3) = 系統語言字典("H905-109-" & 語言)
        對話框(4) = 系統語言字典("H905-110-" & 語言) : 對話框(5) = 系統語言字典("H905-111-" & 語言) : 對話框(6) = 系統語言字典("H905-112-" & 語言)
        對話框(7) = 系統語言字典("H905-113-" & 語言) : 對話框(8) = 系統語言字典("H905-114-" & 語言) : 對話框(0) = 系統語言字典("H905-106-" & 語言)
        對話框(9) = 系統語言字典("G000-195-" & 語言) : 對話框(10) = 系統語言字典("G000-196-" & 語言) : 對話框(11) = 系統語言字典("G000-164-" & 語言)
    End Sub
    Private Sub 翻譯_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 翻譯_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.翻譯_rbt, 系統語言字典("G000-175-" & 語言))
    End Sub
    Private Sub 開立聯絡函_bt_MouseEnter(sender As Object, e As EventArgs) Handles 開立聯絡函_bt.MouseEnter
        ToolTip1.SetToolTip(Me.開立聯絡函_bt, 系統語言字典("H905-105-" & 語言))
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改_bt, 系統語言字典("G000-111-" & 語言))
    End Sub
    Private Sub 修改存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改存檔_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改存檔_bt, 系統語言字典("H605-100-" & 語言))
    End Sub
    Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, 系統語言字典("G000-112-" & 語言))
    End Sub
    Private Sub 申請完成_bt_MouseEnter(sender As Object, e As EventArgs) Handles 申請完成_bt.MouseEnter
        ToolTip1.SetToolTip(Me.申請完成_bt, 系統語言字典("H905-103-" & 語言))
    End Sub
    Private Sub 讀取資料夾路徑_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.讀取資料夾路徑_rbt, 對話框(10))
    End Sub
    Private Sub 圖檔入系統_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.圖檔入系統_rbt, 對話框(11))
    End Sub
    Private Sub 圖檔入系統_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.MouseEnter
        ToolTip1.SetToolTip(Me.圖檔入系統_bt, 對話框(11))
    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 : SK = "部門聯絡函申請"
        H(905) = True : 介面 = "H905" : 語言轉換讀取() : 風格() : 顯示說明(999, True)
        申請完成_bt.Enabled = False : 修改_bt.Enabled = False : 修改存檔_bt.Enabled = False : 刪除_bt.Enabled = False
        聯絡函單號_rtb.Enabled = False : 申請部門_rtb.Enabled = False : 申請人_rtb.Enabled = False : Me.KeyPreview = True
        修改_bt.Enabled = True : 刪除_bt.Enabled = True : 視窗2_pl.Visible = False : 視窗1_pl.Visible = False : 視窗3_pl.Visible = False : 視窗4_pl.Visible = False : 視窗5_pl.Visible = False

        If 跨部門開啟 = False Then : 借車_bt.Enabled = True : 外出_bt.Enabled = True : 加班_bt.Enabled = True : 請假_bt.Enabled = False
        ElseIf 跨部門開啟 = True Then : 借車_bt.Enabled = False : 外出_bt.Enabled = False : 加班_bt.Enabled = False : 請假_bt.Enabled = True : 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_清單()

        If 跨部門開啟 = True Then : 請假_bt.PerformClick() : End If
    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 Form_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.Control And e.KeyCode = Keys.S Then : 修改_bt.PerformClick() : 修改存檔_bt.PerformClick() : End If
    End Sub
    Private Sub 部門聯絡函申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(905) = False : MyMod.虛擬桌面開啟() : Me.KeyPreview = True
        If 申請完成_bt.Enabled = True Then : PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_刪除() : conn.Close() : End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H905" : 語言轉換讀取() : 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
        聯絡函單號_rtb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 申請部門_rtb.Text = 清單_dgv(1, e.RowIndex).Value.ToString : 申請人_rtb.Text = 清單_dgv(2, e.RowIndex).Value.ToString
        申請日期_dtp.Value = 清單_dgv(3, e.RowIndex).Value : 部門_cb.Text = 清單_dgv(4, e.RowIndex).Value.ToString : 聯絡人_cb.Text = 清單_dgv(5, e.RowIndex).Value.ToString
        聯絡函主題_tb.Text = 清單_dgv(6, e.RowIndex).Value.ToString : 圖片庫_tb.Text = 清單_dgv("圖片庫", e.RowIndex).Value.ToString
        Set_聯絡事項() : Set_擬辦() : Set_建議() : TabControl1.SelectedIndex = 0 : Set_聯繫圖片()
    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 圖片清單讀取()
        If 圖片庫_tb.Text <> "" Then
            圖片_pb.Image = Nothing
            PA1 = 聯絡函單號_rtb.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 If
    End Sub
    Private Sub 部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 部門_cb.SelectedIndexChanged
        PA1 = 部門_cb.Text : 姓名下拉表單資料載入()
    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()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    聯絡函主題_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡函主題_tb.Text = "" Then : 聯絡函主題_tb.Text = stringReader : Else : 聯絡函主題_tb.Text = 聯絡函主題_tb.Text & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡函主題_tb.Text = "" Then : 聯絡函主題_tb.Text = stringReader : Else : 聯絡函主題_tb.Text = 聯絡函主題_tb.Text & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
                第1段開始 = False : 第2段開始 = True : 翻譯 = 聯絡事項_tb.Text : MyModule2.執行翻譯()
            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()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    聯絡事項_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡事項_tb.Text = "" Then : 聯絡事項_tb.Text = stringReader : Else : 聯絡事項_tb.Text = 聯絡事項_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡事項_tb.Text = "" Then : 聯絡事項_tb.Text = stringReader : Else : 聯絡事項_tb.Text = 聯絡事項_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
                第2段開始 = False : 第3段開始 = True : 翻譯 = 建議_tb.Text : MyModule2.執行翻譯()
            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()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    建議_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 建議_tb.Text = "" Then : 建議_tb.Text = stringReader : Else : 建議_tb.Text = 建議_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 建議_tb.Text = "" Then : 建議_tb.Text = stringReader : Else : 建議_tb.Text = 建議_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
                第3段開始 = False : 第4段開始 = True : 翻譯 = 擬辦_tb.Text : MyModule2.執行翻譯()
            Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 擬辦_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 擬辦_tb.Text : MyModule2.執行翻譯() : End If
        If 第4段開始 = 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()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    擬辦_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 擬辦_tb.Text = "" Then : 擬辦_tb.Text = stringReader : Else : 擬辦_tb.Text = 擬辦_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 擬辦_tb.Text = "" Then : 擬辦_tb.Text = stringReader : Else : 擬辦_tb.Text = 擬辦_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
            Else : End If
        Else : End If : TW = False : EN = False
        第4段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub CanceL1_bt_Click(sender As Object, e As EventArgs) Handles CanceL1_bt.Click
        If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : End If
    End Sub
    Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
        If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else : 視窗2_pl.Visible = False : End If
    End Sub
    Private Sub CanceL3_bt_Click(sender As Object, e As EventArgs) Handles CanceL3_bt.Click
        If 視窗3_pl.Visible = False Then : 視窗3_pl.Visible = True : 視窗3_pl.BringToFront() : Else : 視窗3_pl.Visible = False : Me.Close() : End If
    End Sub
    Private Sub CanceL4_bt_Click(sender As Object, e As EventArgs) Handles CanceL4_bt.Click
        If 視窗4_pl.Visible = False Then : 視窗4_pl.Visible = True : 視窗4_pl.BringToFront() : Else : 視窗4_pl.Visible = False : End If
    End Sub
    Private Sub CanceL5_bt_Click(sender As Object, e As EventArgs) Handles CanceL5_bt.Click
        If 視窗5_pl.Visible = False Then : 視窗5_pl.Visible = True : 視窗5_pl.BringToFront() : Else : 視窗5_pl.Visible = False : End If
    End Sub
    Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        If 視窗2_pl.Visible = False Then
            視窗2_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗2_pl.Size.Width) / 2, (Me.Size.Height - 視窗2_pl.Size.Height) / 2)
            視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
        Else : 視窗2_pl.Visible = False : End If
    End Sub
    Private Sub 開立聯絡函_bt_Click(sender As Object, e As EventArgs) Handles 開立聯絡函_bt.Click
        開立聯絡函_bt.Enabled = False : 申請完成_bt.Enabled = True
        Set_日期格式轉換() : Dim NUM1 As Integer
        For i As Integer = 1 To 999
            NUM1 = 0 + i
            If NUM1 < 10 Then : 聯絡函單號_rtb.Text = "LI-" & DTP1 & "-00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 聯絡函單號_rtb.Text = "LI-" & DTP1 & "-0" & NUM1
            ElseIf NUM1 > 99 Then : 聯絡函單號_rtb.Text = "LI-" & DTP1 & "-" & NUM1 : End If
            PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_單號查詢()
            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        PA2 = 部門_cb.Text : PA3 = 聯絡人_cb.Text : PA20 = 圖片資料庫指定
        SQL_部門聯絡函_新增()
        申請部門_rtb.Text = 登入人部門 : 申請人_rtb.Text = gUserName : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : conn.Close()
        Set_聯絡事項() : Set_擬辦() : Set_建議() : 部門下拉表單資料載入() : 聯絡人_cb.Items.Clear()
    End Sub
    Private Sub 申請完成_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click
        If 部門_cb.Text = "" Or 聯絡人_cb.Text = "" Or 聯絡函主題_tb.Text = "" Or 聯絡事項_tb.Text = "" Then : MGB(對話框(1), 1) : Else
            開立聯絡函_bt.Enabled = True : 申請完成_bt.Enabled = False : Dim 直接通過 As Boolean = False
            PA1 = 聯絡函單號_rtb.Text : PA2 = 部門_cb.Text : PA3 = 部門_cb.Text : PA4 = 聯絡人_cb.Text : PA5 = 聯絡函主題_tb.Text : PA6 = 聯絡事項_tb.Text : PA7 = 申請人_rtb.Text
            SQL_部門聯絡函_修改聯絡事項() : conn.Close()
            If 聯絡函主題_tb.Text.Contains("車輛使用申請") Then
                Dim 流水號 As Integer = 0 : SQL_取得車輛外出最後一筆流水號()
                If dr.Read() Then : 流水號 = Val(dr("流水號").ToString.Substring(2)) : End If
                流水號 += 1
                Dim 流水號文字 As String = "IA" & 流水號.ToString.PadLeft(8, "0")
                SQL_車輛外出明細_新增(流水號文字, 車輛編號_tb.Text, 車輛開始時間_tb.Text, 車輛結束時間_tb.Text, 車輛地點_tb.Text, 聯絡函單號_rtb.Text)
            End If
            If 聯絡函主題_tb.Text.Contains("請假申請") Or 聯絡函主題_tb.Text.Contains("外出申請") Then
                Dim 人員狀態 As String : If 聯絡函主題_tb.Text.Contains("請假申請") Then : 人員狀態 = "請假" : Else : 人員狀態 = "外出" : End If
                Dim 流水號 As Integer = 0 : SQL_取得人員外出最後一筆流水號() : If dr.Read() Then : 流水號 = Val(dr("流水號").ToString.Substring(2)) : End If
                流水號 += 1 : Dim 流水號文字 As String = "IB" & 流水號.ToString.PadLeft(8, "0")
                SQL_人員外出明細_新增(流水號文字, gUser帳號, 外出開始時間_tb.Text, 外出結束時間_tb.Text, 人員狀態, 聯絡函單號_rtb.Text, 外出地點_tb.Text)
            End If
            If 聯絡函主題_tb.Text.Contains("加班申請") Then
                SQL_加班資料_新增(聯絡函單號_rtb.Text, 加班日期_tb.Text)
            End If
            If CInt(登入人級別) <= 5 Then
                MGB(對話框(2), 2)
                If 訊息回應 = "YES" Then : 直接通過 = True
                    Set_日期格式轉換() : PA1 = 聯絡函單號_rtb.Text : PA2 = 建議_tb.Text : SQL_部門聯絡函部門主管審核_外發審核() : conn.Close()
                    If 聯絡函主題_tb.Text.Contains("車輛使用申請") Then : SQL_車輛外出明細_外發審核(聯絡函單號_rtb.Text) : End If
                    If 聯絡函主題_tb.Text.Contains("請假申請") Or 聯絡函主題_tb.Text.Contains("外出申請") Then : SQL_人員外出明細_外發審核(聯絡函單號_rtb.Text) : End If
                End If
            End If
            If SK <> "部門聯絡函申請" Then
                Set_日期格式轉換() : PA1 = 聯絡函單號_rtb.Text : PA2 = "" : PA3 = "Lulus secara otomatis" : SQL_部門聯絡函部門主管審核_自動外發() : conn.Close()
            End If
            If 跨部門開啟 = True Then
                PA1 = 聯絡函單號_rtb.Text : PA2 = 申請人_rtb.Text : PA3 = Strings.Format(請假開始_dtp.Value, "yyyy/MM/dd") : PA4 = Strings.Format(請假結束_dtp.Value, "yyyy/MM/dd")
                PA5 = 請假天數_nud.Value : PA6 = 代理_cb.Text : SQL_請假資料寫入()
            End If
            聯絡函單號_rtb.Text = "" : 申請部門_rtb.Text = "" : 申請人_rtb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = ""
            建議_tb.Text = "" : 擬辦_tb.Text = ""
            If 直接通過 = True Then : MGB(對話框(3), 1) : Else : MGB(對話框(4), 1) : End If
            Set_清單() : TabControl1.SelectedIndex = 1
        End If
        '---LINE_AUTO 訊息通知------------------------------------------------------------------------------------------------------------------------------------------
        If 登入人IP = 測試IP Then : Else
            LIN訊息通知("CC248", "李協叡", PA7, SK) : LIN訊息通知("CC250", PA4, PA7, SK)
        End If : SK = "部門聯絡函申請"
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        修改_bt.Enabled = False : 修改存檔_bt.Enabled = True
    End Sub
    Private Sub 修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click
        If 聯絡函主題_tb.Text = "" Or 聯絡事項_tb.Text = "" Then : MGB(對話框(1), 1) : Else
            修改_bt.Enabled = True : 修改存檔_bt.Enabled = False
            PA1 = 聯絡函單號_rtb.Text : PA2 = 部門_cb.Text : PA4 = 聯絡人_cb.Text : PA5 = 聯絡函主題_tb.Text : PA6 = 聯絡事項_tb.Text
            SQL_部門聯絡函_修改存檔() : conn.Close() : MGB(對話框(5), 1) : Set_清單()
        End If
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        MGB(對話框(6), 2)
        If 訊息回應 = "YES" Then
            PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_刪除() : conn.Close()
            聯絡函單號_rtb.Text = "" : 申請部門_rtb.Text = "" : 申請人_rtb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
        End If : Set_清單() : TabControl1.SelectedIndex = 1
    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 > 9 Then : MGB(對話框(9), 1) : Else
                For i As Integer = 0 To 8 : 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 物料圖_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 = 聯絡函單號_rtb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫() : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value
                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 未審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_ch.Click
        未審核_ch.Checked = True : 已審核_ch.Checked = False : 主管作廢_ch.Checked = False : 老闆作廢_ch.Checked = False : 修改_bt.Enabled = True : 刪除_bt.Enabled = True : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_rtb.Text = ""
    End Sub
    Private Sub 已審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核_ch.Click
        未審核_ch.Checked = False : 已審核_ch.Checked = True : 主管作廢_ch.Checked = False : 老闆作廢_ch.Checked = False : 修改_bt.Enabled = False : 刪除_bt.Enabled = False : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_rtb.Text = ""
    End Sub
    Private Sub 主管作廢_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 主管作廢_ch.Click
        未審核_ch.Checked = False : 已審核_ch.Checked = False : 主管作廢_ch.Checked = True : 老闆作廢_ch.Checked = False : 修改_bt.Enabled = False : 刪除_bt.Enabled = False : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_rtb.Text = ""
    End Sub
    Private Sub 老闆作廢_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 老闆作廢_ch.Click
        未審核_ch.Checked = False : 已審核_ch.Checked = False : 主管作廢_ch.Checked = False : 老闆作廢_ch.Checked = True : 修改_bt.Enabled = False : 刪除_bt.Enabled = False : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_rtb.Text = ""
    End Sub
    Private Sub 圖檔入系統_rbt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.Click
        If 聯絡函單號_rtb.Text = "" Then : MGB(對話框(7), 1) : Else
            PA1 = 聯絡函單號_rtb.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 8 : WW(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
            Set_聯繫圖片() : MyMod.計算顯示3() : MGB(對話框(8), 1)
        End If
    End Sub
    Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 借車_bt_Click(sender As Object, e As EventArgs) Handles 借車_bt.Click
        車輛編號_tb.Text = "" : 車輛地點_tb.Text = "" : 車輛開始時間_tb.Text = "" : 車輛結束時間_tb.Text = ""
        If 視窗1_pl.Visible = False Then
            視窗1_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗1_pl.Size.Width) / 2, (Me.Size.Height - 視窗1_pl.Size.Height) / 2)
            視窗1_pl.Visible = True : 視窗1_pl.BringToFront()
        Else : 視窗1_pl.Visible = False : End If
        If 聯絡函單號_rtb.Text = "" Then : 開立聯絡函_bt.PerformClick() : End If
        Dim 部門 As Integer : Dim 主管 As String : SQL_讀取人事主管() : If dr.Read Then : 部門 = dr("部門").ToString : 主管 = dr("姓名").ToString : End If
        部門_cb.Text = 部門_cb.Items(部門).ToString : 聯絡人_cb.Text = 主管 : SK = "派車申請"
    End Sub
    Private Sub 派車資料寫入_bt_Click(sender As Object, e As EventArgs) Handles 派車資料寫入_bt.Click
        車輛開始時間_tb.Text = Strings.Format(開始1_dtp.Value, "yyyyMMdd") & Strings.Format(開始2_dtp.Value, "HHmmss")
        車輛結束時間_tb.Text = Strings.Format(結束1_dtp.Value, "yyyyMMdd") & Strings.Format(結束2_dtp.Value, "HHmmss")
        車輛地點_tb.Text = 地點_cb.Text : 車輛編號_tb.Text = 車輛_cb.Text.Substring(0, 4)
        If 車輛用途_tb.Text = "" Then : MGB(系統語言字典("H905-117-" & 語言), 1) : Else
            聯絡函主題_tb.Text = "車輛使用申請"
            If 需要司機_cb.Checked = True Then
                聯絡事項_tb.Text = "申請事由 : " & 車輛用途_tb.Text & vbCrLf &
                                   "開始 : " & 開始1_dtp.Text & " - " & 開始2_dtp.Text & vbCrLf &
                                   "結束 : " & 結束1_dtp.Text & " - " & 結束2_dtp.Text & vbCrLf &
                                   "車輛資料 : " & 車輛_cb.Text & vbCrLf &
                                   "地點 : " & 地點_cb.Text & vbCrLf &
                                   "備註 : 需要公司派遣司機"
            Else
                聯絡事項_tb.Text = "申請事由 : " & 車輛用途_tb.Text & vbCrLf &
                                   "開始 : " & 開始1_dtp.Text & " - " & 開始2_dtp.Text & vbCrLf &
                                   "結束 : " & 結束1_dtp.Text & " - " & 結束2_dtp.Text & vbCrLf &
                                   "車輛資料 : " & 車輛_cb.Text & vbCrLf &
                                   "地點 : " & 地點_cb.Text & vbCrLf &
                                   "備註 : "
            End If : CanceL1_bt.PerformClick() : TW = True : EN = False : 翻譯_rbt.PerformClick()
        End If
    End Sub
    Private Sub 請假_bt_Click(sender As Object, e As EventArgs) Handles 請假_bt.Click
        外出開始時間_tb.Text = "" : 外出結束時間_tb.Text = "" : 外出地點_tb.Text = ""
        If 視窗3_pl.Visible = False Then
            視窗3_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗3_pl.Size.Width) / 2, (Me.Size.Height - 視窗3_pl.Size.Height) / 2)
            視窗3_pl.Visible = True : 視窗3_pl.BringToFront()
        Else : 視窗3_pl.Visible = False : End If
        If 聯絡函單號_rtb.Text = "" Then : 開立聯絡函_bt.PerformClick() : End If
        Dim 部門 As Integer : Dim 主管 As String : SQL_讀取人事主管() : If dr.Read Then : 部門 = dr("部門").ToString : 主管 = dr("姓名").ToString : End If
        部門_cb.Text = 部門_cb.Items(部門).ToString : 聯絡人_cb.Text = 主管
        請假結束_dtp.Value = 請假結束_dtp.Value.AddDays(1) : 請假開始_dtp.Value = 請假開始_dtp.Value.AddDays(1)
        If 請假結束_dtp.Value < 請假開始_dtp.Value Then : 請假結束_dtp.Value = 請假開始_dtp.Value : End If
        請假天數_nud.Value = (請假結束_dtp.Value - 請假開始_dtp.Value).Days + 1 : 請假_bt.Enabled = False : SK = "請假申請"
    End Sub
    Private Sub 請假資料寫入_bt_Click(sender As Object, e As EventArgs) Handles 請假資料寫入_bt.Click
        外出開始時間_tb.Text = Strings.Format(請假開始_dtp.Value, "yyyyMMdd") & "080000"
        外出結束時間_tb.Text = Strings.Format(請假結束_dtp.Value, "yyyyMMdd") & "170000"
        外出地點_tb.Text = ""
        If Strings.Format(請假開始_dtp.Value, "yyyy/MM/dd") = Strings.Format(Today(), "yyyy/MM/dd") Then : MGB(系統語言字典("H905-118-" & 語言), 1) : Else
            If 請假內容_tb.Text = "" Then : MGB(系統語言字典("H905-117-" & 語言), 1) : Else
                聯絡函主題_tb.Text = "請假申請"
                聯絡事項_tb.Text = "申請事由 : " & 請假內容_tb.Text & vbCrLf &
                   "開始 : " & 請假開始_dtp.Text & vbCrLf &
                   "結束 : " & 請假結束_dtp.Text & vbCrLf &
                   "職務代理人 : " & 代理_cb.Text & vbCrLf &
                   "請人事部門同仁通知[職務代理]該人員請假區間他必須代理該人員的工作!!"
                請假_bt.Enabled = True : 視窗3_pl.Visible = False : TW = True : EN = False : 翻譯_rbt.PerformClick()
            End If
        End If
    End Sub
    Private Sub 請假開始_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 請假開始_dtp.ValueChanged
        If 請假結束_dtp.Value < 請假開始_dtp.Value Then : 請假結束_dtp.Value = 請假開始_dtp.Value : End If
        請假天數_nud.Value = (請假結束_dtp.Value - 請假開始_dtp.Value).Days + 1
    End Sub
    Private Sub 請假結束_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 請假結束_dtp.ValueChanged
        If 請假結束_dtp.Value < 請假開始_dtp.Value Then : 請假結束_dtp.Value = 請假開始_dtp.Value : End If
        請假天數_nud.Value = (請假結束_dtp.Value - 請假開始_dtp.Value).Days + 1
    End Sub
    Private Sub 外出_bt_Click(sender As Object, e As EventArgs) Handles 外出_bt.Click
        外出地點_tb.Text = "" : 外出開始時間_tb.Text = "" : 外出結束時間_tb.Text = ""
        If 視窗4_pl.Visible = False Then
            視窗4_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗4_pl.Size.Width) / 2, (Me.Size.Height - 視窗4_pl.Size.Height) / 2)
            視窗4_pl.Visible = True : 視窗4_pl.BringToFront()
        Else : 視窗4_pl.Visible = False : End If
        If 聯絡函單號_rtb.Text = "" Then : 開立聯絡函_bt.PerformClick() : End If
        Dim 部門 As Integer : Dim 主管 As String : SQL_讀取人事主管() : If dr.Read Then : 部門 = dr("部門").ToString : 主管 = dr("姓名").ToString : End If
        部門_cb.Text = 部門_cb.Items(部門).ToString : 聯絡人_cb.Text = 主管 : SK = "外出申請"
    End Sub
    Private Sub 外出資料寫入_bt_Click(sender As Object, e As EventArgs) Handles 外出資料寫入_bt.Click
        外出開始時間_tb.Text = Strings.Format(外出開始1_dtp.Value, "yyyyMMdd") & Strings.Format(外出開始2_dtp.Value, "HHmmss")
        外出結束時間_tb.Text = Strings.Format(外出結束1_dtp.Value, "yyyyMMdd") & Strings.Format(外出結束2_dtp.Value, "HHmmss")
        外出地點_tb.Text = 外出地點_cb.Text
        If 外出內容_tb.Text = "" Then : MGB(系統語言字典("H905-117-" & 語言), 1) : Else
            聯絡函主題_tb.Text = "外出申請"
            聯絡事項_tb.Text = "申請事由 : " & 外出內容_tb.Text & vbCrLf &
                                   "開始 : " & 外出開始1_dtp.Text & " - " & 外出開始2_dtp.Text & vbCrLf &
                                   "結束 : " & 外出結束1_dtp.Text & " - " & 外出結束2_dtp.Text & vbCrLf &
                                   "地點 : " & 外出地點_cb.Text & vbCrLf &
                                   "備註 : "
            CanceL4_bt.PerformClick() : TW = True : EN = False : 翻譯_rbt.PerformClick()
        End If
    End Sub
    Private Sub 加班_bt_Click(sender As Object, e As EventArgs) Handles 加班_bt.Click
        加班日期_tb.Text = ""
        If 視窗5_pl.Visible = False Then
            視窗5_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗5_pl.Size.Width) / 2, (Me.Size.Height - 視窗5_pl.Size.Height) / 2)
            視窗5_pl.Visible = True : 視窗5_pl.BringToFront()
        Else : 視窗5_pl.Visible = False : End If
        If 聯絡函單號_rtb.Text = "" Then : 開立聯絡函_bt.PerformClick() : End If
        If CInt(登入人級別) <= 5 Then
            Dim 部門 As Integer : Dim 主管 As String : SQL_讀取人事主管() : If dr.Read Then : 部門 = dr("部門").ToString : 主管 = dr("姓名").ToString : End If
            部門_cb.Text = 部門_cb.Items(部門).ToString : 聯絡人_cb.Text = 主管 : SK = "加班申請"
        Else
            Dim 部門 As Integer : Dim 主管 As String : Dim 主管離職 As Boolean : SQL_讀取部門主管(登入人部門, 登入人課別)
            If dr.Read Then : 部門 = dr("部門").ToString : 主管 = dr("姓名").ToString : 主管離職 = dr("CC63") : End If
            If 主管離職 Then
                SQL_讀取人事主管() : If dr.Read Then : 部門 = dr("部門").ToString : 主管 = dr("姓名").ToString : End If
                部門_cb.Text = 部門_cb.Items(部門).ToString : 聯絡人_cb.Text = 主管 : SK = "加班申請"
            Else
                部門_cb.Text = 部門_cb.Items(部門).ToString : 聯絡人_cb.Text = 主管 : SK = "加班申請"
            End If
        End If
    End Sub
    Private Sub 加班資料寫入_bt_Click(sender As Object, e As EventArgs) Handles 加班資料寫入_bt.Click
        加班日期_tb.Text = Strings.Format(加班日期_dtp.Value, "yyyy/MM/dd")
        If 加班內容_tb.Text = "" Then : MGB(系統語言字典("H905-117-" & 語言), 1) : Else
            聯絡函主題_tb.Text = "加班申請"
            聯絡事項_tb.Text = "申請事由 : " & 加班內容_tb.Text & vbCrLf &
                                   "日期 : " & 加班日期_dtp.Text & vbCrLf &
                                   "備註 : "
            CanceL5_bt.PerformClick() : TW = True : EN = False : 翻譯_rbt.PerformClick()
        End If
    End Sub
    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
    Dim OldX, OldY As Long
    Dim drag As Boolean
    Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
        If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
        drag = False
    End Sub
    Private Sub 視窗3_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗3_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseMove
        If drag Then : 視窗3_pl.Left = 視窗3_pl.Left + e.X - OldX : 視窗3_pl.Top = 視窗3_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗3_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗3_pl.MouseUp
        drag = False
    End Sub
    Private Sub 視窗1_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗1_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseMove
        If drag Then : 視窗1_pl.Left = 視窗1_pl.Left + e.X - OldX : 視窗1_pl.Top = 視窗1_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗1_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseUp
        drag = False
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            'Me.BackColor = Color.Linen
            部門聯絡函本文_tp.BackColor = SystemColors.Control : 部門聯絡函清單_tp.BackColor = SystemColors.Control : 視窗2_pl.BackColor = Color.White : Panel3.BackColor = Color.White
            視窗1_pl.BackColor = Color.White : Panel5.BackColor = Color.White : 視窗3_pl.BackColor = Color.White : Panel6.BackColor = Color.White
            視窗4_pl.BackColor = Color.White : Panel7.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 : 聯絡人_lb.ForeColor = Color.Black
            聯絡事項_lb.ForeColor = Color.Black : 建議_lb.ForeColor = Color.Black : 擬辦_lb.ForeColor = Color.Black
            Label2.ForeColor = Color.Black : Label3.ForeColor = Color.Black : 需要司機_cb.ForeColor = Color.Black : Label4.ForeColor = Color.Black
            Label7.ForeColor = Color.Black : Label6.ForeColor = Color.Black : Label9.ForeColor = Color.Black : Label5.ForeColor = Color.Black
            Label10.ForeColor = Color.Black : Label16.ForeColor = Color.Black : Label11.ForeColor = Color.Black : Label12.ForeColor = Color.Black
            Label13.ForeColor = Color.Black : Label15.ForeColor = Color.Black : Label17.ForeColor = Color.Black : Label18.ForeColor = Color.Black
            Label19.ForeColor = Color.Black

            未審核_ch.ForeColor = Color.Red : 已審核_ch.ForeColor = Color.Red : 主管作廢_ch.ForeColor = Color.Red : 老闆作廢_ch.ForeColor = Color.Red

            聯絡函主題_tb.BackColor = Color.White : 聯絡函主題_tb.ForeColor = Color.Black : 聯絡事項_tb.BackColor = Color.White : 聯絡事項_tb.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
            車輛用途_tb.BackColor = Color.White : 車輛用途_tb.ForeColor = Color.Black : 請假內容_tb.BackColor = Color.White : 請假內容_tb.ForeColor = Color.Black
            請假天數_nud.BackColor = Color.White : 請假天數_nud.ForeColor = Color.Black : 借車_bt.BackColor = Color.White : 借車_bt.ForeColor = Color.Black
            請假_bt.BackColor = Color.White : 請假_bt.ForeColor = Color.Black : 代理_cb.BackColor = Color.White : 代理_cb.ForeColor = Color.Black
            外出_bt.BackColor = Color.White : 外出_bt.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

            派車資料寫入_bt.BackColor = Color.White : 請假資料寫入_bt.BackColor = Color.White : 開立聯絡函_bt.BackColor = Color.White : 翻譯_rbt.BackColor = Color.White
            申請完成_bt.BackColor = Color.White : 圖檔入系統_bt.BackColor = Color.White : 修改_bt.BackColor = Color.White : 修改存檔_bt.BackColor = Color.White
            刪除_bt.BackColor = Color.White : 外出資料寫入_bt.BackColor = Color.White

            清單_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
            部門聯絡函本文_tp.BackColor = Color.Black : Panel3.BackColor = Color.Black : 部門聯絡函清單_tp.BackColor = Color.Black : 視窗2_pl.BackColor = Color.DimGray
            視窗1_pl.BackColor = Color.DimGray : Panel5.BackColor = Color.Black : 視窗3_pl.BackColor = Color.DimGray : Panel6.BackColor = Color.Black : Panel3.BackColor = Color.Black
            視窗4_pl.BackColor = Color.DimGray : Panel7.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 : 聯絡人_lb.ForeColor = Color.White
            聯絡事項_lb.ForeColor = Color.White : 建議_lb.ForeColor = Color.White : 擬辦_lb.ForeColor = Color.White
            Label2.ForeColor = Color.White : Label3.ForeColor = Color.White : 需要司機_cb.ForeColor = Color.White : Label4.ForeColor = Color.White
            Label7.ForeColor = Color.White : Label6.ForeColor = Color.White : Label9.ForeColor = Color.White : Label5.ForeColor = Color.White
            Label10.ForeColor = Color.White : Label16.ForeColor = Color.White : Label11.ForeColor = Color.White : Label12.ForeColor = Color.White
            Label13.ForeColor = Color.White : Label15.ForeColor = Color.White : Label17.ForeColor = Color.White : Label18.ForeColor = Color.White
            Label19.ForeColor = Color.White

            未審核_ch.ForeColor = Color.LightPink : 已審核_ch.ForeColor = Color.LightPink : 主管作廢_ch.ForeColor = Color.LightPink : 老闆作廢_ch.ForeColor = Color.LightPink

            聯絡函主題_tb.BackColor = Color.Black : 聯絡函主題_tb.ForeColor = Color.White : 聯絡事項_tb.BackColor = Color.Black : 聯絡事項_tb.ForeColor = Color.White
            建議_tb.BackColor = Color.Black : 建議_tb.ForeColor = Color.White : 擬辦_tb.BackColor = Color.Black : 擬辦_tb.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 : 請假內容_tb.BackColor = Color.DimGray : 請假內容_tb.ForeColor = Color.White
            請假天數_nud.BackColor = Color.DimGray : 請假天數_nud.ForeColor = Color.White : 借車_bt.BackColor = Color.DimGray : 借車_bt.ForeColor = Color.White
            請假_bt.BackColor = Color.DimGray : 請假_bt.ForeColor = Color.White : 代理_cb.BackColor = Color.DimGray : 代理_cb.ForeColor = Color.White
            外出_bt.BackColor = Color.DimGray : 外出_bt.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

            派車資料寫入_bt.BackColor = Color.DimGray : 請假資料寫入_bt.BackColor = Color.DimGray : 開立聯絡函_bt.BackColor = Color.DimGray : 翻譯_rbt.BackColor = Color.DimGray
            申請完成_bt.BackColor = Color.DimGray : 圖檔入系統_bt.BackColor = Color.DimGray : 修改_bt.BackColor = Color.DimGray : 修改存檔_bt.BackColor = Color.DimGray
            刪除_bt.BackColor = Color.DimGray : 外出資料寫入_bt.BackColor = Color.DimGray

            清單_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