Option Explicit On Imports CefSharp.WinForms Imports CefSharp Imports System.IO Public Class GCM_ERP_SYS ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height ReadOnly ds As New DataSet Dim Str As String = Application.StartupPath Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click ' 建立子表單的新執行個體。 ' 將它變成這個 MDI 表單的子表單,然後才顯示。 Dim ChildForm As New Form With { .MdiParent = Me } m_ChildFormNumber += 1 ChildForm.Text = "視窗 " & m_ChildFormNumber ChildForm.Show() End Sub Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click Login.Close() : Me.Close() End Sub Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click '----------關閉父表單的所有子表單--------------------------------------------------------------------------------------------------------------- For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next End Sub Private m_ChildFormNumber As Integer Private Sub MDIParentbreak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox3.Text = "主畫面" 'Me.Size = New Point(1366, 768) : MyModule1.清單字體大小調整() : 視窗1_pl.Visible = False Dim SS1, SS2 As Integer : SS1 = 527 : SS2 = 325 : 幣別 = " (TWD)" '聯絡函_未審_dgv.Location = New Point(1, 1) : 聯絡函_未審_dgv.Size = New Point(SS1, SS2) : 聯絡函_未收_dgv.Location = New Point(1, 1) : 聯絡函_未收_dgv.Size = New Point(SS1, SS2) '聯絡函_未執行_dgv.Location = New Point(1, 1) : 聯絡函_未執行_dgv.Size = New Point(SS1, SS2) : 聯絡函_未驗收_dgv.Location = New Point(1, 1) : 聯絡函_未驗收_dgv.Size = New Point(SS1, SS2) '合約預估利潤_dgv.Location = New Point(1, 1) : 合約預估利潤_dgv.Size = New Point(SS1, SS2) : 報價未完成_dgv.Location = New Point(1, 1) : 報價未完成_dgv.Size = New Point(SS1, SS2) '合約未放行_dgv.Location = New Point(1, 1) : 合約未放行_dgv.Size = New Point(SS1, SS2) : 報價未簽回_dgv.Location = New Point(1, 1) : 報價未簽回_dgv.Size = New Point(SS1, SS2) '合約請款1_dgv.Location = New Point(1, 1) : 合約請款1_dgv.Size = New Point(SS1, SS2) : 合約請款2_dgv.Location = New Point(1, 1) : 合約請款2_dgv.Size = New Point(SS1, SS2) '合約請款3_dgv.Location = New Point(1, 1) : 合約請款3_dgv.Size = New Point(SS1, SS2) : 合約請款4_dgv.Location = New Point(1, 1) : 合約請款4_dgv.Size = New Point(SS1, SS2) '合約請款5_dgv.Location = New Point(1, 1) : 合約請款5_dgv.Size = New Point(SS1, SS2) : 合約未簽回_dgv.Location = New Point(1, 1) : 合約未簽回_dgv.Size = New Point(SS1, SS2) '合約未指定主管_dgv.Location = New Point(1, 1) : 合約未指定主管_dgv.Size = New Point(SS1, SS2) : 未開工程進度表_dgv.Location = New Point(1, 1) : 未開工程進度表_dgv.Size = New Point(SS1, SS2) '合約未驗收_dgv.Location = New Point(1, 1) : 合約未驗收_dgv.Size = New Point(SS1, SS2) : 驗收未簽回_dgv.Location = New Point(1, 1) : 驗收未簽回_dgv.Size = New Point(SS1, SS2) '保固未簽回_dgv.Location = New Point(1, 1) : 保固未簽回_dgv.Size = New Point(SS1, SS2) '請購單_dgv.Location = New Point(1, 1) : 請購單_dgv.Size = New Point(SS1, SS2) : 詢價單_dgv.Location = New Point(1, 1) : 詢價單_dgv.Size = New Point(SS1, SS2) '採購核准11_dgv.Location = New Point(1, 1) : 採購核准11_dgv.Size = New Point(SS1, SS2) : 採購核准12_dgv.Location = New Point(1, 1) : 採購核准12_dgv.Size = New Point(SS1, SS2) '----------讀取系統閒置時間設定----------------------------------------------------------------------------------------------------------------- ConnOpen() SQL1 = "SELECT timeExit, timeExit2 FROM 系統閒置時間設定" CmdSet_For_dr() If dr.Read() Then : timeExit = dr("timeExit") : timeExit2 = dr("timeExit2") : End If : conn.Close() Timer1.Enabled = False : Timer2.Enabled = False 主頁開啟 = True : 重登確認 = False : timeNow = 0 : timeNow2 = 0 系統登出計時重至_MouseMove() '----------系統登入時抬頭資訊顯示--------------------------------------------------------------------------------------------------------------- Text = Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 '----------系統登入權限執行--------------------------------------------------------------------------------------------------------------------- 系統管理_tsm.Enabled = CC(0) : 系統使用者管理_tsm.Enabled = CC(7) : FTP資料夾管理_tsm.Enabled = CC(8) 系統執行檔版本管理_tsm.Enabled = CC(9) : 系統編碼原則_tsm.Enabled = CC(10) : 系統通用變數管理_tsm.Enabled = CC(11) 系統對應電腦註冊_tsm.Enabled = CC(12) : 原代碼存放區_tsm.Enabled = CC(18) : 共享文件_tsm.Enabled = CC(19) '----------業務--------------------------------------------------------------------------------------------------------------------- 業務管理_tsm.Visible = CC(6) : 業務專案建檔_tsm.Enabled = CC(23) '----------人事--------------------------------------------------------------------------------------------------------------------- 人事系統管理新_tsm.Enabled = CC(5) : ID卡系統配置設定_tsm.Enabled = CC(22) : 人員入職資料表_tsm.Enabled = CC(21) 人事請假申請1_tsm.Enabled = CC(28) : 人事請假核准1_tsm.Enabled = CC(29) : 人員考勤明細表1_tsm.Enabled = CC(30) 考勤打卡資料補登1_tsm.Enabled = CC(31) : 國定假日設定1_tsm.Enabled = CC(32) '----------新人事--------------------------------------------------------------------------------------------------------------------- 系統使用者權限設定_tsm.Enabled = BB(1) : 系統使用者權限設定_tsm.Enabled = BB(2) : 人事系統變數設定_tsm.Enabled = BB(3) : ID卡配置設定_tsm.Enabled = BB(4) : 人員資料表_tsm.Enabled = BB(5) 排班資料_tsm.Enabled = BB(6) 加班申請審核_tsm.Enabled = BB(7) : 加班申請_tsm.Enabled = BB(8) : 加班核准_tsm.Enabled = BB(9) : 最後關班時間_tsm.Enabled = BB(10) : 加班申請資料_tsm.Enabled = BB(24) 休假申請審核_tsm.Enabled = BB(11) : 休假申請_tsm.Enabled = BB(12) : 休假核准_tsm.Enabled = BB(13) : 國定假日設定_tsm.Enabled = BB(15) : 歷史休假紀錄_tsm.Enabled = BB(25) 考勤管理_tsm.Enabled = BB(14) : 考勤明細表_tsm.Enabled = BB(26) : 到離職管理_tsm.Enabled = BB(27) : 到離職核准_tsm.Enabled = BB(13) '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '----------財務系統--------------------------------------------------------------------------------------------------------------------- 財務管理_tsm.Enabled = CC(1) : 個人財務_tsm.Enabled = CC(13) : 帳務系統_tsm.Enabled = CC(16) : 匯率管理_tsm.Enabled = CC(17) '----------設備開發--------------------------------------------------------------------------------------------------------------------- 設備開發系統_tsm.Visible = CC(4) '----------軟體開發--------------------------------------------------------------------------------------------------------------------- 軟件開發系統管理_tsm.Visible = CC(3) : 工作日志_tsm.Enabled = CC(20) : 系統開發點檢控制表_tsm.Enabled = CC(25) '----------決策喜統--------------------------------------------------------------------------------------------------------------------- 決策系統管理_tsm.Enabled = CC(2) : 卜卦簡易_tsm.Enabled = CC(14) : 卜卦進階_tsm.Enabled = CC(15) End Sub Private Sub MDIParentbreak_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : Login.Close() : End If End Sub Private Sub MDIParentbreak_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3 End Sub Private Sub 系統登出計時重至_MouseMove() timeNow = 0 : timeNow2 = 0 : Timer1.Enabled = False : Timer2.Enabled = False : Timer1.Enabled = True End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick timeNow += 1 If (timeNow >= timeExit) Then Timer1.Enabled = False : Timer2.Enabled = True : 系統登出.ShowDialog() If 重登確認 = True And 主頁開啟 = True Then Timer1.Enabled = False : Timer2.Enabled = False 判斷重登 = True : 重登確認 = False : 主頁開啟 = False : Login.Show() : Me.Close() : Exit Sub ElseIf 重登確認 = False And 主頁開啟 = True Then timeNow = 0 : Timer1.Enabled = True : Timer2.Enabled = False : timeNow2 = 0 End If End If End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick Timer1.Enabled = False : timeNow2 += 1 If (timeNow2 >= timeExit2) Then Timer1.Enabled = False : Timer2.Enabled = False : 判斷重登 = True : 重登確認 = False : 主頁開啟 = False : Login.Show() : 系統登出.Close() : Me.Close() : Exit Sub End If End Sub Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged If ComboBox3.Text = "主畫面" Then If screenWidth = 1920 And screenHeight = 1080 Then : Me.BackgroundImage = My.Resources._1980X1010 ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.BackgroundImage = My.Resources._1366X719 ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.BackgroundImage = My.Resources._1440X828 ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.BackgroundImage = My.Resources._1280X956 ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.BackgroundImage = My.Resources._1601X896 End If Me.BackgroundImageLayout = 3 ElseIf ComboBox3.Text = "系統運作流程邏輯01" Then Me.BackgroundImageLayout = 3 End If End Sub Private Sub 計算機_bt_Click(sender As Object, e As EventArgs) Handles 計算機_bt.Click Shell("calc") End Sub Private Sub 重置() BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False : BL8 = False N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0 : N5 = 0 BBL1 = "" : BBL2 = "" : BBL3 = "" : BBL4 = "" : BBL5 = "" : BBL6 = "" : PA = "" : PA1 = "" : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "" : PA6 = "" : PA7 = "" : PA8 = "" : PA9 = "" PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = "" : PA15 = "" : PA16 = "" : PA17 = "" : PA18 = "" : PA19 = "" : PA20 = "" : PA21 = "" : PA22 = "" : PA23 = "" : PA24 = "" PA25 = "" : PA26 = "" : PA27 = "" : PA28 = "" : PA29 = "" : PA30 = "" : PA31 = "" : PA32 = "" : PA33 = "" : PA34 = "" : PA35 = "" : PA36 = "" : PA37 = "" : PA38 = "" : PA39 = "" PA40 = "" : PA41 = "" : PA42 = "" : PA43 = "" : PA44 = "" : PA45 = "" : PA46 = "" : PA47 = "" : 列印用SQL = "" : 列印用SQL2 = "" : PPAA = "" : DTP = "" : DTP1 = "" : DTP2 = "" DTP3 = "" End Sub '---------------------系統介面------------------------------------------------------------------------------------------------- Private Sub ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡系統配置設定_tsm.Click 系統登出計時重至_MouseMove() : 重置() : 人員ID卡系統配置設定.ShowDialog() End Sub Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click 系統登出計時重至_MouseMove() : 重置() : 個人帳號管理.ShowDialog() End Sub Private Sub FTP資料夾管理_tsm_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront() End Sub Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront() End Sub Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統使用者管理.Show() : 系統使用者管理.BringToFront() End Sub Private Sub 系統編碼原則_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼原則_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統編碼原則_1.Show() : 系統編碼原則_1.BringToFront() End Sub Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront() End Sub Private Sub 系統對應電腦註冊_tsm_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront() End Sub Private Sub 簽名檔管理_tsm_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 簽名檔管理.Show() : 簽名檔管理.BringToFront() End Sub Private Sub 系統使用者權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者權限設定_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統使用者權限設定.Show() : 系統使用者權限設定.BringToFront() End Sub '---------------------決策系統------------------------------------------------------------------------------------------------- Private Sub 卜卦簡易_tsm_Click(sender As Object, e As EventArgs) Handles 卜卦簡易_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 卜卦.ShowDialog() : 卜卦.BringToFront() End Sub Private Sub 卜卦進階_tsm_Click(sender As Object, e As EventArgs) Handles 卜卦進階_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 卜卦2.ShowDialog() : 卜卦2.BringToFront() End Sub '---------------------財務系統------------------------------------------------------------------------------------------------- Private Sub 個人財務_tsm_Click_1(sender As Object, e As EventArgs) Handles 個人財務_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 私有財務.Show() : 私有財務.BringToFront() End Sub Private Sub 帳務系統_tsm_Click(sender As Object, e As EventArgs) Handles 帳務系統_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務流水帳系統.Show() : 財務流水帳系統.BringToFront() End Sub Private Sub 匯率管理_tsm_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 匯率修改.ShowDialog() : 匯率修改.BringToFront() End Sub Private Sub 會計科目管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 會計科目管理.Show() : 會計科目管理.BringToFront() End Sub Private Sub 財務支付申請_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務支付申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_收支單申請_GCM.Show() : 財務_收支單申請_GCM.BringToFront() End Sub Private Sub 財務支付審核_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務支付審核_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_收支單審核_GCM.Show() : 財務_收支單審核_GCM.BringToFront() End Sub Private Sub 財務支付單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務支付單一覽表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_收支單一覽表_GCM.Show() : 財務_收支單一覽表_GCM.BringToFront() End Sub Private Sub 財務對帳表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務對帳表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_對帳單_GCM.Show() : 財務_對帳單_GCM.BringToFront() End Sub Private Sub 財務決算表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務決算表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_決算表_GCM.Show() : 財務_決算表_GCM.BringToFront() End Sub Private Sub 財務彙總表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務彙總表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_彙總表_GCM.Show() : 財務_彙總表_GCM.BringToFront() End Sub Private Sub ICS財務支付申請_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務支付申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_收支單申請_ICS.Show() : 財務_收支單申請_ICS.BringToFront() End Sub Private Sub ICS財務支付審核_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務支付審核_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_收支單審核_ICS.Show() : 財務_收支單審核_ICS.BringToFront() End Sub Private Sub ICS財務支付單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務支付單一覽表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_收支單一覽表_ICS.Show() : 財務_收支單一覽表_ICS.BringToFront() End Sub Private Sub ICS財務對帳表_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務對帳表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_對帳單_ICS.Show() : 財務_對帳單_ICS.BringToFront() End Sub Private Sub ISC財務決算表_tsm_Click(sender As Object, e As EventArgs) Handles ISC財務決算表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_決算表_ICS.Show() : 財務_決算表_ICS.BringToFront() End Sub Private Sub ISC財務彙總表_tsm_Click(sender As Object, e As EventArgs) Handles ISC財務彙總表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 財務_彙總表_ICS.Show() : 財務_彙總表_ICS.BringToFront() End Sub '---------------------人事系統------------------------------------------------------------------------------------------------- Private Sub 人事系統變數設定_tsm_Click(sender As Object, e As EventArgs) Handles 人事系統變數設定_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 人事系統變數設定.Show() : 人事系統變數設定.BringToFront() End Sub Private Sub 人員資料表_tsm_Click(sender As Object, e As EventArgs) Handles 人員資料表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 人員資料表.Show() : 人員資料表.BringToFront() End Sub Private Sub ID卡配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡配置設定_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront() End Sub Private Sub 排班資料_tsm_Click(sender As Object, e As EventArgs) Handles 排班資料_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 排班資料.Show() : 排班資料.BringToFront() End Sub Private Sub 休假申請_tsm_Click(sender As Object, e As EventArgs) Handles 休假申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 休假申請.Show() : 休假申請.BringToFront() End Sub Private Sub 休假核准_tsm_Click(sender As Object, e As EventArgs) Handles 休假核准_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 休假核准.Show() : 休假核准.BringToFront() End Sub Private Sub 加班申請_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 加班申請.Show() : 加班申請.BringToFront() End Sub Private Sub 加班核准_tsm_Click(sender As Object, e As EventArgs) Handles 加班核准_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 加班核准.Show() : 加班核准.BringToFront() End Sub Private Sub 國定假日設定_tsm_Click(sender As Object, e As EventArgs) Handles 國定假日設定_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 國定假日設定.Show() : 國定假日設定.BringToFront() End Sub Private Sub 歷史休假紀錄_tsm_Click(sender As Object, e As EventArgs) Handles 歷史休假紀錄_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 歷史休假紀錄.Show() : 歷史休假紀錄.BringToFront() End Sub Private Sub 加班申請資料_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請資料_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 加班申請資料.Show() : 加班申請資料.BringToFront() End Sub Private Sub 最後關班時間_tsm_Click(sender As Object, e As EventArgs) Handles 最後關班時間_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 最後關班時間.Show() : 最後關班時間.BringToFront() End Sub Private Sub 到離職核准_tsm_Click(sender As Object, e As EventArgs) Handles 到離職核准_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 休假核准.Show() : 休假核准.BringToFront() End Sub Private Sub 到離職管理_tsm_Click(sender As Object, e As EventArgs) Handles 到離職管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 到離職管理.Show() : 到離職管理.BringToFront() End Sub Private Sub 考勤明細表_tsm_Click(sender As Object, e As EventArgs) Handles 考勤明細表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 考勤明細表.Show() : 考勤明細表.BringToFront() End Sub '---------------------未使用封存介面------------------------------------------------------------------------------------------------- Private Sub 業務專案建檔ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 業務專案建檔_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 業務專案控制表.Show() : 業務專案控制表.BringToFront() End Sub Private Sub 原代碼存放區ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 原代碼存放區_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 原代碼存放區.Show() : 原代碼存放區.BringToFront() End Sub Private Sub 共享文件ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 共享文件_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 開發文件存放區.Show() : 開發文件存放區.BringToFront() End Sub Private Sub 工作日志ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 工作日志_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 工作日誌與代辦事項.Show() : 工作日誌與代辦事項.BringToFront() End Sub Private Sub 供應商管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 供應商資料.Show() : 供應商資料.BringToFront() End Sub Private Sub 進貨管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 進貨管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 進貨管理.Show() : 進貨管理.BringToFront() End Sub Private Sub 領物管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 領物管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 銷貨管理.Show() : 銷貨管理.BringToFront() End Sub Private Sub 庫存查詢ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 庫存查詢_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 庫存管理.Show() : 庫存管理.BringToFront() End Sub Private Sub 出庫紀錄ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 出庫紀錄_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 出庫紀錄表.Show() : 出庫紀錄表.BringToFront() End Sub Private Sub 零件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 零件成本_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 零件成本建檔.Show() : 零件成本建檔.BringToFront() End Sub Private Sub 零組件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件成本_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 零組件零件成本建檔.Show() : 零組件零件成本建檔.BringToFront() End Sub Private Sub 機構件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件成本_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 機構件零件成本建檔.Show() : 機構件零件成本建檔.BringToFront() End Sub Private Sub 機構組件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件成本_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 機構組件零件成本建檔.Show() : 機構組件零件成本建檔.BringToFront() End Sub Private Sub 機台成本ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles 機台成本_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 機台零件成本建檔.Show() : 機台零件成本建檔.BringToFront() End Sub Private Sub 服務項目成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 服務項目成本_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 服務項目成本建檔.Show() : 服務項目成本建檔.BringToFront() End Sub Private Sub 零組件零件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件零件BOM表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 零組件零件BOM表.Show() : 零組件零件BOM表.BringToFront() End Sub Private Sub 機構件零組件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件零組件BOM表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 機構件零件BOM表.Show() : 機構件零件BOM表.BringToFront() End Sub Private Sub 機構組件機構件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件機構件BOM表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 機構組件零件BOM表.Show() : 機構組件零件BOM表.BringToFront() End Sub Private Sub 機台機構組件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機台機構組件BOM表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 機台零件BOM表.Show() : 機台零件BOM表.BringToFront() End Sub Private Sub 系統開發點檢控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發點檢控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統開發點檢控制表.Show() : 系統開發點檢控制表.BringToFront() End Sub Private Sub 系統開發功能點檢表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發功能點檢表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統開發功能點檢表.Show() : 系統開發功能點檢表.BringToFront() End Sub Private Sub 人員考勤明細表1_tsm_Click(sender As Object, e As EventArgs) Handles 人員考勤明細表1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 人員考勤明細表.Show() : 人員考勤明細表.BringToFront() End Sub Private Sub 人事請假申請1_tsm_Click(sender As Object, e As EventArgs) Handles 人事請假申請1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 人事請假申請.Show() : 人事請假申請.BringToFront() End Sub Private Sub 人事請假核准1_tsm_Click(sender As Object, e As EventArgs) Handles 人事請假核准1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 人事請假核准.Show() : 人事請假核准.BringToFront() End Sub Private Sub 考勤打卡資料補登1_tsm_Click(sender As Object, e As EventArgs) Handles 考勤打卡資料補登1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 考勤打卡資料補登.Show() : 考勤打卡資料補登.BringToFront() End Sub Private Sub 國定假日設定1_tsm_Click(sender As Object, e As EventArgs) Handles 國定假日設定1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 國定假日設定_舊.Show() : 國定假日設定_舊.BringToFront() End Sub Private Sub 人員入職資料表_tsm_Click(sender As Object, e As EventArgs) Handles 人員入職資料表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 人員入職資料表.Show() : 人員入職資料表.BringToFront() End Sub Private Sub 物料資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料庫_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 物料資料庫.Show() : 物料資料庫.BringToFront() End Sub Private Sub 請購單申請_tsm_Click(sender As Object, e As EventArgs) Handles 請購單申請_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 請購單申請.Show() : 請購單申請.BringToFront() End Sub Private Sub 請購單核準_tsm_Click(sender As Object, e As EventArgs) Handles 請購單核準_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 請購單核准.Show() : 請購單核准.BringToFront() End Sub Private Sub 單次授權功能_tsm_Click(sender As Object, e As EventArgs) Handles 單次授權功能_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 單次授權功能.ShowDialog() : 單次授權功能.BringToFront() End Sub Private Sub 請購一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 請購一覽表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 請購單歷史檔案.Show() : 請購單歷史檔案.BringToFront() End Sub Private Sub 採購單詢價_tsm_Click(sender As Object, e As EventArgs) Handles 採購單詢價_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 採購單詢價.Show() : 採購單詢價.BringToFront() End Sub Private Sub 採購單編輯_tsm_Click(sender As Object, e As EventArgs) Handles 採購單編輯_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 系統登出計時重至_MouseMove() : 重置() : 採購單一級核准.Close() : 採購單二級核准.Close() : 採購單編輯.Show() : 採購單編輯.BringToFront() End Sub Private Sub 採購單一級核准_tsm_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 系統登出計時重至_MouseMove() : 重置() : 採購單二級核准.Close() : 採購單編輯.Close() : 採購單一級核准.Show() End Sub Private Sub 採購單二級核准_tsm_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 系統登出計時重至_MouseMove() : 重置() : 採購單編輯.Close() : 採購單一級核准.Close() : 採購單二級核准.Show() : 採購單二級核准.BringToFront() End Sub Private Sub 採購單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 採購單歷史檔案.Show() : 採購單歷史檔案.BringToFront() End Sub Private Sub 入庫驗收單_tsm_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 採購單驗收.Show() : 採購單驗收.BringToFront() End Sub Private Sub 合約執行進度_tsm_Click(sender As Object, e As EventArgs) Handles 合約執行進度_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約執行進度.Show() : 合約執行進度.BringToFront() End Sub Private Sub 物料供應商管理_tsm_Click(sender As Object, e As EventArgs) Handles 物料供應商管理_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 供應商管理.Show() : 供應商管理.BringToFront() End Sub Private Sub 合約利潤預估表_tsm_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約利潤預估表.Show() : 合約利潤預估表.BringToFront() End Sub Private Sub 合約報價單_tsm_Click(sender As Object, e As EventArgs) Handles 合約報價單_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約報價單.Show() : 合約報價單.BringToFront() End Sub Private Sub 合約報價單審核ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 合約報價單審核ToolStripMenuItem.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約報價單審核.Show() : 合約報價單審核.BringToFront() End Sub Private Sub 附錄合約_tsm_Click(sender As Object, e As EventArgs) Handles 附錄合約_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 附錄合約.ShowDialog() : 附錄合約.BringToFront() End Sub Private Sub 合約請款單_tsm_Click(sender As Object, e As EventArgs) Handles 合約請款單_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約請款單.Show() : 合約請款單.BringToFront() End Sub Private Sub 合約請款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約請款控制表.Show() : 合約請款控制表.BringToFront() End Sub Private Sub 合約驗收單_tsm_Click(sender As Object, e As EventArgs) Handles 合約驗收單_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統分區控制 = True : 合約驗收單.Show() : 合約驗收單.BringToFront() End Sub Private Sub 合約驗收控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統分區控制 = True : 合約驗收控制表.Show() : 合約驗收控制表.BringToFront() End Sub Private Sub 合約保固書_tsm_Click(sender As Object, e As EventArgs) Handles 合約保固書_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約保固書.ShowDialog() : 合約保固書.BringToFront() End Sub Private Sub 合約文件簽回存檔_tsm_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約文件簽回存檔.Show() : 合約文件簽回存檔.BringToFront() End Sub Private Sub 合約文件簽核控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約文件簽核控制表.Show() : 合約文件簽核控制表.BringToFront() End Sub Private Sub 合約結案控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 合約結案控制表.Show() : 合約結案控制表.BringToFront() End Sub Private Sub 工程項目BOM表_tsm_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 工程項目BOM表.Show() : 工程項目BOM表.BringToFront() End Sub Private Sub 工程分區控制表_tsm_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront() End Sub Private Sub 客戶資料表_tsm_Click(sender As Object, e As EventArgs) Handles 客戶資料表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 客戶資料表.Show() : 客戶資料表.BringToFront() End Sub Private WithEvents Browser As ChromiumWebBrowser Public Sub New() InitializeComponent() Dim settings As New CefSettings() settings.Locale = "zh-TW" ' 或者 "en-US" CefSharp.Cef.Initialize(settings) Browser = New ChromiumWebBrowser("https://gcm-smart.com/2023/05/20/gcm-erp-set1/") With { .Dock = DockStyle.Fill } MyBrowser.Controls.Add(Browser) End Sub Private Sub Browser_AddressChanged(sender As Object, e As AddressChangedEventArgs) Handles Browser.AddressChanged Dim currentUrl As String = e.Address ' 在這裡處理獲取到的網址 您可以將網址存儲到變數中或進行其他操作 End Sub Private Sub 回首頁_tb_Click(sender As Object, e As EventArgs) Handles 回首頁_tb.Click 'Browser.Load("https://www.google.com/") Browser.Load("https://gcm-smart.com/2023/05/20/gcm-erp-set1/") End Sub Private Sub SAQ_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate Dim activeChildForm As Form = Me.ActiveMdiChild If activeChildForm Is Nothing Then MyBrowser.Visible = True Else MyBrowser.Visible = False End If End Sub End Class