GF00-ERP-SYS-SIU/GF00-ERP-SYS/10.背景程式與對話視窗/可複製訊息通知框.vb

Public Class 可複製訊息通知框
    Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
        BL1 = False : 訊息_tb.Text = "" : Me.Close()
    End Sub
    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 CC(61) = True Then : 忽略_bt.Enabled = True : Else : 忽略_bt.Enabled = False : End If
        訊息_tb.SelectionStart = 訊息_tb.Text.Length : 訊息_tb.SelectionLength = 0 : BL1 = False
    End Sub
    Private Sub 忽略_bt_Click(sender As Object, e As EventArgs) Handles 忽略_bt.Click
        BL1 = True : 訊息_tb.Text = "" : Me.Close()
    End Sub
End Class