HX-PGS-ERP-SYS-LEEHSIEHJUI/舊功能/合約列印選擇.vb

Public Class 合約列印選擇
    Private Sub 合約列印選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 合約列印選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        風格()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("G000-230-" & 語言) : 報價含稅_bt.Text = 系統語言字典("G000-228-" & 語言) : 報價不含稅_bt.Text = 系統語言字典("G000-229-" & 語言)
    End Sub
    Private Sub 報價含稅_bt_Click(sender As Object, e As EventArgs) Handles 報價含稅_bt.Click
        BL = True : Me.Close()
    End Sub
    Private Sub 報價不含稅_bt_Click(sender As Object, e As EventArgs) Handles 報價不含稅_bt.Click
        BL = False : Me.Close()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            報價含稅_bt.BackColor = Color.White : 報價含稅_bt.ForeColor = Color.Black
            報價不含稅_bt.BackColor = Color.White : 報價不含稅_bt.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            報價含稅_bt.BackColor = Color.DimGray : 報價含稅_bt.ForeColor = Color.White
            報價不含稅_bt.BackColor = Color.DimGray : 報價不含稅_bt.ForeColor = Color.White
        End If
    End Sub
End Class