HX-PGS-ERP_New/10、背景程式與對話�.../待辦事項連接_三項.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 : Me.Text = "請選擇" : Else : Me.Text = "Silakan pilih" : End If
        If PB = "保固未簽回" Then : BT1.Text = 系統語言字典("H001-122-" & 語言) : BT2.Text = 系統語言字典("H001-126-" & 語言) : BT3.Text = 系統語言字典("H001-119-" & 語言)
        End If
        首次開啟 = False
    End Sub
    Private Sub BT1_Click(sender As Object, e As EventArgs) Handles BT1.Click
        If 首次開啟 = True Then : Else : PB = "A" : 首次開啟 = True : Me.Close() : End If
    End Sub
    Private Sub BT2_Click(sender As Object, e As EventArgs) Handles BT2.Click
        If 首次開啟 = True Then : Else : PB = "B" : 首次開啟 = True : Me.Close() : End If
    End Sub
    Private Sub BT3_Click(sender As Object, e As EventArgs) Handles BT3.Click
        If 首次開啟 = True Then : Else : PB = "C" : 首次開啟 = True : Me.Close() : End If
    End Sub
End Class