HX-PGS-ERP_New/10、背景程式與對話�.../輸入視窗.vb

Public Class 輸入視窗
    Dim EER As String
    Private Sub pnlTitleBar_Paint(sender As Object, e As PaintEventArgs) Handles pnlTitleBar.Paint
    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
        通知內容2_lb.Text = "" : 風格()
        If 系統語言 = "繁體中文" Then : 主題_lb.Text = "HX-PGS-ERP-SYS  訊息通知" : EER = "沒有輸入任何內容!!"
        ElseIf 系統語言 = "English" Then : 主題_lb.Text = "Pick List" : EER = "No content has been entered!!"
        ElseIf 系統語言 = "Indonesian" Then : 主題_lb.Text = "Pemberitahuan Pesan" : EER = "Tidak ada konten yang dimasukkan!!" : End If
        通知內容_lb.Text = 通知訊息 : 首次開啟 = False
        輸入_rtb.Focus()
    End Sub
    Private Sub 確定_rbt_Click(sender As Object, e As EventArgs) Handles 確定_rbt.Click
        If 輸入_rtb.Text = "" Then : 通知內容2_lb.Text = EER : Else
            If 首次開啟 = False Then : 訊息回應 = 輸入_rtb.Text : 首次開啟 = True : 輸入_rtb.Text = "" : Me.Close() : End If
        End If
    End Sub
    Private Sub 輸入_rtb_TextChanged(sender As Object, e As EventArgs) Handles 輸入_rtb.TextChanged
        通知內容2_lb.Text = ""
    End Sub
    Private Sub 輸入_rtb_KeyDown(sender As Object, e As KeyEventArgs) Handles 輸入_rtb.KeyDown
        If e.KeyCode = Keys.Enter Then : 確定_rbt.PerformClick() : End If
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.Linen : Panel1.BackgroundImage = My.Resources._62951168976601486
            主題_lb.ForeColor = Color.Black : 通知內容_lb.ForeColor = Color.Black : 通知內容2_lb.ForeColor = Color.Red : 輸入_rtb.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : Panel1.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            主題_lb.ForeColor = Color.White : 通知內容_lb.ForeColor = Color.White : 通知內容2_lb.ForeColor = Color.LightPink : 輸入_rtb.ForeColor = Color.White
        End If
    End Sub
    Dim nOldWndLeft, nOldWndTop, nClickX, nClickY As Integer
    Private Sub PnlTitleBar_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlTitleBar.MouseDown
        '紀錄滑鼠點選時的視窗位置與滑鼠點選位置
        nOldWndLeft = Me.Left : nOldWndTop = Me.Top : nClickX = e.X : nClickY = e.Y
    End Sub
    Private Sub PnlTitleBar_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlTitleBar.MouseMove
        If pnlTitleBar.Capture = True Then        '如果滑鼠按著拖曳
            Me.Top = e.Y + nOldWndTop - nClickY : Me.Left = e.X + nOldWndLeft - nClickX   '設定新的視窗位置
            nOldWndLeft = Me.Left : nOldWndTop = Me.Top   '更新紀錄的視窗位置
        End If
    End Sub
    Private Sub 主題_lb_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 主題_lb.MouseDown
        '紀錄滑鼠點選時的視窗位置與滑鼠點選位置
        nOldWndLeft = Me.Left : nOldWndTop = Me.Top : nClickX = e.X : nClickY = e.Y
    End Sub
    Private Sub 主題_lb_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 主題_lb.MouseMove
        If 主題_lb.Capture = True Then        '如果滑鼠按著拖曳
            Me.Top = e.Y + nOldWndTop - nClickY : Me.Left = e.X + nOldWndLeft - nClickX   '設定新的視窗位置
            nOldWndLeft = Me.Left : nOldWndTop = Me.Top   '更新紀錄的視窗位置
        End If
    End Sub
End Class