GF00-ERP-SYS-SIU/GF00-ERP-SYS/10.背景程式與對話視窗/查詢視窗.vb

Public Class 查詢視窗
    Private Sub 查詢視窗_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        通知內容_lb.Text = 通知訊息 : 首次開啟 = False : Me.StartPosition = FormStartPosition.CenterScreen
    End Sub

    Private Sub 確定_rbt_Click(sender As Object, e As EventArgs) Handles 確定_rbt.Click
        If 首次開啟 = False Then : 訊息回應 = 輸入_rtb.Text : 首次開啟 = True : 輸入_rtb.Text = "" : Me.Close() : End If
    End Sub
End Class