01.Public Class IC_MainMenu_V1001
02. Inherits System.Web.UI.Page
03. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
04.
05.
06.
07. If Not IsPostBack Then
08. Dim usrCtrlDyn As UserControl = Nothing
09. usrCtrlDyn = Page.LoadControl(mnuSelected.Item("_FixedSlow"))
10. usrCtrlDyn.ID = "_FixedSlow"
11. myPH.Controls.Add(usrCtrlDyn)
12. End If
13. End Sub
14.
15. Private mnuSelected As New Dictionary(Of String, String) From {{"IC_A1_01", "~/IC/usrCtrl_IC_A1_01_.ascx"},
16. {"IC_A1_02", "~/IC/usrCtrl_IC_A1_02.ascx"},
17. {"IC_A1_03", "~/IC/usrCtrl_IC_A1_03.ascx"},
18. {"IC_A1_04", "~/IC/usrCtrl_IC_A1_04.ascx"},
19. {"IC_A1_05", "~/IC/usrCtrl_IC_A1_05.ascx"},
20. {"IC_A2_01", "~/IC/usrCtrl_IC_A2_01_.ascx"},
21. {"IC_A2_02", "~/IC/usrCtrl_IC_A2_02.ascx"},
22. {"IC_A3_01", "~/IC/usrCtrl_IC_A3_01.ascx"},
23. {"IC_A3_02", "~/IC/usrCtrl_IC_A3_02.ascx"},
24. {"IC_A3_03", "~/IC/usrCtrl_IC_A3_03.ascx"},
25. {"IC_A4_01", "~/IC/usrCtrl_IC_A4_01.ascx"},
26. {"IC_A4_02", "~/IC/usrCtrl_IC_A4_02.ascx"},
27. {"IC_A4_03", "~/IC/usrCtrl_IC_A4_03.ascx"},
28. {"IC_A4_04", "~/IC/usrCtrl_IC_A4_04.ascx"},
29. {"IC_A5_01", "~/IC/usrCtrl_IC_A5_01.ascx"},
30. {"IC_A5_02", "~/IC/usrCtrl_IC_A5_02.ascx"},
31. {"IC_A6_01", "~/IC/usrCtrl_IC_A6_01.ascx"},
32. {"IC_A6_02", "~/IC/usrCtrl_IC_A6_02.ascx"},
33. {"IC_A6_03", "~/IC/usrCtrl_IC_A6_03.ascx"},
34. {"IC_B1_01", "~/IC/usrCtrl_IC_B1_01.ascx"},
35. {"IC_B2_01", "~/IC/usrCtrl_IC_B2_01.ascx"},
36. {"IC_B2_02", "~/IC/usrCtrl_IC_B2_02.ascx"},
37. {"IC_B3_01", "~/IC/usrCtrl_IC_B3_01.ascx"},
38. {"IC_B4_01", "~/IC/usrCtrl_IC_B4_01.ascx"},
39. {"IC_B4_02", "~/IC/usrCtrl_IC_B4_02.ascx"},
40. {"IC_B4_03", "~/IC/usrCtrl_IC_B4_03.ascx"},
41. {"IC_B4_04", "~/IC/usrCtrl_IC_B4_04.ascx"},
42. {"IC_C1_01", "~/IC/usrCtrl_IC_C1_01.ascx"},
43. {"IC_C1_02", "~/IC/usrCtrl_IC_C1_02.ascx"},
44. {"IC_C1_03", "~/IC/usrCtrl_IC_C1_03.ascx"},
45. {"_FixedSlow", "~/IC/_FixedSpeed.ascx"}
46. }
47.
48.
49.
50.
51.
52.
53. Private Sub LoadUserControl(ByVal s_key As String)
54. Dim usrCtrlDyn As UserControl = Nothing
55. If myPH.Controls.Count > 0 Then
56. myPH.Controls.Clear()
57. End If
58. If "IC_A1_01, IC_A1_02, IC_A1_03, IC_A4_01, IC_A4_02, IC_A4_03".Contains(s_key) Then
59. If s_key.Contains("A1") Then
60. Page.Items.Add("IC_A1", {"RC", "IS", "AJ"}(CByte(s_key.Last().ToString()) - 1))
61. usrCtrlDyn = Page.LoadControl(mnuSelected.Item("IC_A1_01"))
62. Else
63. Page.Items.Add("IC_A4", {"RC", "IS", "AJ"}(CByte(s_key.Last().ToString()) - 1))
64. usrCtrlDyn = Page.LoadControl(mnuSelected.Item("IC_A4_01"))
65. End If
66. Else
67. usrCtrlDyn = Page.LoadControl(mnuSelected.Item(s_key))
68. End If
69. usrCtrlDyn.ID = "dyn" & s_key
70. myPH.Controls.Add(usrCtrlDyn)
71. End Sub
72.End Class
