HX-PGS-ERP-SYS-LEEHSIEHJUI/10、背景程式與對話�.../輸入密碼.vb

Public Class 輸入密碼
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 確認_rbt.Click
        PA = 密碼_rtb.Text : 密碼_rtb.Text = "" : Me.Close()
    End Sub
    Private Sub 密碼_rtb_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles 密碼_rtb.KeyPress
        If e.KeyChar = Chr(13) Then
            PA = 密碼_rtb.Text : 密碼_rtb.Text = "" : Me.Close()
        End If
    End Sub
    Private Sub 取消_rbt_Click(sender As Object, e As EventArgs) Handles 取消_rbt.Click
        PA = "" : 密碼_rtb.Text = "" : Me.Close()
    End Sub
    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
        If 系統語言 = "繁體中文" Then : 主題_lb.Text = "輸入管理密碼" : Label1.Text = "管理密碼!!"
        ElseIf 系統語言 = "English" Then : 主題_lb.Text = "Enter Manage Password" : Label1.Text = "Manage Password!!"
        ElseIf 系統語言 = "Indonesian" Then : 主題_lb.Text = "Masukkan kata Sandi Manajemen" : Label1.Text = "Sandi Manajemen!!" : End If
        Me.ActiveControl = 密碼_rtb : 密碼_rtb.ImeMode = 2
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.Linen : Panel1.BackgroundImage = My.Resources._62951168976601486 : Label1.ForeColor = Color.Black : 密碼_rtb.ForeColor = Color.Black
            主題_lb.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : Panel1.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines : Label1.ForeColor = Color.White : 密碼_rtb.ForeColor = Color.White
            主題_lb.ForeColor = Color.White
        End If
    End Sub
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = 163 AndAlso Me.ClientRectangle.Contains(Me.PointToClient(New Point(m.LParam.ToInt32()))) AndAlso m.WParam.ToInt32() = 2 Then
            m.WParam = 1
        End If
        MyBase.WndProc(m)
        If m.Msg = 132 AndAlso m.Result.ToInt32() = 1 Then
            m.Result = 2
        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