HX-PGS-ERP-SYS-SIU/07、章程管理系統/部門聯絡函/部門聯絡函選擇假別.vb

Public Class 部門聯絡函選擇假別
    Dim 對話框(13) As String
    Dim 已開啟 As Boolean
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H000-124-" & 語言) : Label1.Text = 系統語言字典("H614-100-" & 語言)

        對話框(9) = 系統語言字典("H609-133-" & 語言) : 對話框(10) = 系統語言字典("H609-134-" & 語言) : 對話框(11) = 系統語言字典("H609-135-" & 語言)
        對話框(12) = 系統語言字典("H609-136-" & 語言) : 對話框(13) = 系統語言字典("H609-137-" & 語言)

    End Sub
    Private Sub 假別清單()
        假別_cb.Items.Clear() : 假別1_cb.Items.Clear() : 假別_cb.Items.Add(對話框(9)) : 假別1_cb.Items.Add("1") : 假別_cb.Items.Add(對話框(10)) : 假別1_cb.Items.Add("2")
        假別_cb.Items.Add(對話框(11)) : 假別1_cb.Items.Add("3") : 假別_cb.Items.Add(對話框(12)) : 假別1_cb.Items.Add("4") : 假別_cb.Items.Add(對話框(13)) : 假別1_cb.Items.Add("5")
    End Sub
    Private Sub 部門聯絡函選擇假別_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        已開啟 = False : 語言轉換讀取() : 假別清單() : 已開啟 = True
    End Sub

    Private Sub 假別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 假別_cb.SelectedIndexChanged
        If 已開啟 Then : 假別1_cb.SelectedIndex = 假別_cb.SelectedIndex : PA52 = 假別1_cb.Text : Me.Close() : End If
    End Sub
    Private Sub 假別_cb_Click(sender As Object, e As EventArgs) Handles 假別_cb.Click
        CB選擇清單(假別_cb, 假別_cb.Text)
    End Sub
End Class