GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/10.背景程式與對話視窗/通知視窗.vb

Public Class 通知視窗
    Private Sub 通知視窗_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "GF00-ERP-SYS  訊息通知"
        If 訊息類型 = "1" Then : 確定_rbt.Location = New Point(352, 123) : 取消_rbt.Visible = False
        Else : 確定_rbt.Location = New Point(279, 123) : 取消_rbt.Visible = True : End If
        通知內容_lb.Text = 通知訊息 : 首次開啟 = False
    End Sub
    Private Sub 確定_rbt_Click(sender As Object, e As EventArgs) Handles 確定_rbt.Click
        If 首次開啟 = False Then : 訊息回應 = "YES" : 首次開啟 = True : Me.Close() : End If
    End Sub
    Private Sub 取消_rbt_Click(sender As Object, e As EventArgs) Handles 取消_rbt.Click
        If 首次開啟 = False Then : 訊息回應 = "NO" : 首次開啟 = True : Me.Close() : End If
    End Sub
End Class