HX-PGS-ERP_New/10、背景程式與對話�.../WEB說明頁面.vb

Imports CefSharp.WinForms
Public Class WEB說明頁面
    Private Sub WEB說明頁面_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If 系統語言 = "繁體中文" Then : Me.Text = "WEB說明頁面" : ElseIf 系統語言 = "English" Then : Me.Text = "Web Instruction Page"
        ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Halaman Instruksi Web" : End If

        ' 根据屏幕分辨率设置窗体高度
        Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
        Me.Height = screenHeight - 50

        ' 将窗体位置设置为垂直居中
        Dim screenCenterY As Integer = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
        Me.Top = screenCenterY - 20
    End Sub
    Private Sub WEB說明頁面_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        MyBrowser.Controls.Clear()
        If 介面 = "H001" Then
            If 系統語言 = "繁體中文" Then
                If PA50 = "" Or PA50 = "1" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/24/hx-pgs-erp-set1/")
                    browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
                Else : Dim browser As New ChromiumWebBrowser(PA50) : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
            Else
                If PA50 = "" Or PA50 = "1" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/24/hx-pgs-erp-set2/")
                    browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
                Else : Dim browser As New ChromiumWebBrowser(PA50) : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
            End If
        ElseIf 介面 = "H000" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/04/11/hx-erp-sop-index-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/04/11/hx-erp-sop-index-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H002" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/04/11/hx-h002-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/04/11/hx-h002-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H004" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/11/12/hx_cm_tw/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/11/14/hx_cm_in/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H104" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/19/hx-h104-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/19/hx-h104-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H106" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/13/hx-h106-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/13/hx-h106-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H108" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/22/hx-h108-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/22/hx-h108-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H109" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/23/hx-h109-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/23/hx-h109-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H112" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/23/hx-h112-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/23/hx-h112-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H115" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/25/hx-h115-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/25/hx-h115-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H201" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/14/hx-h201-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/16/hx-h201-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H202" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/16/hx-h202-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/16/hx-h202-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H204" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/17/hx-h204-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/17/hx-h204-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H205" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/23/hx-h205-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/23/hx-h205-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H206" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/25/hx-h206-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/25/hx-h206-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H207" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/25/hx-h206-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/25/hx-h206-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H211" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/26/hx-h211-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/26/hx-h211-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H299" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/19/hx-h299-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/19/hx-h299-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H304" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/30/hx-h308-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/31/hx-h308-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H305" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/31/hx-h305-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/31/hx-305-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H308" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/31/hx-h304-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/31/hx-h304-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H309" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/13/hx-h309-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/13/hx-h309-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H310" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/15/hx-h310-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/15/hx-h310-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H311" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/27/hx-h311-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/27/hx-h311-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H312" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/27/hx-h312-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/06/27/hx-h312-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H402" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/18/hx-h402-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/18/hx-h402-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H502" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/30/hx-h502-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/30/hx-h502-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H506" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/30/hx-h506-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/30/hx-h506-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H509" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/30/hx-h509-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/30/hx-h509-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H601" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/19/hx-h601-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/19/hx-h601-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H607" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/20/hx-h607-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/20/hx-h607-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H609" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/22/hx-h609-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/22/hx-h609-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H611" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/22/hx-h611-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/22/hx-h611-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H614" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/20/hx-h614-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/03/20/hx-h614-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H902" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/11/21/hx-h902-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/11/28/hx-h902-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H904" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/12/01/hx-h904-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/12/01/hx-h904-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        ElseIf 介面 = "H905" Then
            If 系統語言 = "繁體中文" Then : Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/12/13/hx-h905-t/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/12/13/hx-h905-i/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser) : End If
        Else
            If 系統語言 = "繁體中文" Then
                Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2024/10/11/tset/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
                'Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/24/hx-pgs-erp-set1/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            Else
                Dim browser As New ChromiumWebBrowser("https://gcm-smart.com/2023/05/24/hx-pgs-erp-set2/") : browser.Dock = DockStyle.Fill : MyBrowser.Controls.Add(browser)
            End If
        End If
    End Sub
End Class