HX-PGS-ERP_New/10、背景程式與對話�.../測試線路選擇.vb

Public Class 測試線路選擇
    Dim SS As Boolean
    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 : Label1.Text = "請選擇測試伺服器所在位置!!" : 主題_lb.Text = "測試線路選擇"
        ElseIf 系統語言 = "English" Then : Label1.Text = "Please Select the location Of the test server" : 主題_lb.Text = "Select Test Server Location!!"
        ElseIf 系統語言 = "Indonesian" Then : Label1.Text = "Silakan pilih lokasi server uji coba!!" : 主題_lb.Text = "Pilih Lokasi Server Uji Coba" : End If
    End Sub
    Private Sub 內網_bt_Click(sender As Object, e As EventArgs) Handles 內網_bt.Click
        If SS = False Then : SS = True : Else : PA = "T" : Me.Close() : End If
    End Sub
    Private Sub 外網_bt_Click(sender As Object, e As EventArgs) Handles 外網_bt.Click
        If SS = False Then : SS = True : Else : PA = "I" : Me.Close() : End If
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.Linen : Panel1.BackgroundImage = My.Resources._62951168976601486 : 主題_lb.ForeColor = Color.Black
            Label1.ForeColor = Color.Black : 內網_bt.BackColor = Color.White : 內網_bt.ForeColor = Color.Green : 外網_bt.BackColor = Color.White : 外網_bt.ForeColor = Color.Red
        Else
            Me.BackColor = Color.Black : Panel1.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines : 主題_lb.ForeColor = Color.White
            Label1.ForeColor = Color.White : 內網_bt.BackColor = Color.DimGray : 內網_bt.ForeColor = Color.GreenYellow : 外網_bt.BackColor = Color.DimGray : 外網_bt.ForeColor = Color.LightPink
        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_Paint(sender As Object, e As PaintEventArgs) Handles PnlTitleBar.Paint

    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