1
Public Enum webpages
2
yet_test1
3
yet_test2
4
yet_m_test2
5
yet_m_test1
6
End Enum
7
8
<ToolboxData("<{0}:Forum runat=""server""></{0}:Forum>")> _
9
Public Class class1
10
Inherits System.Web.UI.UserControl
11
12
Private Sub Forum_load(ByVal sender As Object, ByVal e As EventArgs)
13
Dim webpages1 As webpages
14
Dim m_baseDir As String = config.ConfigSection.Item("root")
15
Try
16
webpages1 = CType([Enum].Parse(GetType(webpages), MyBase.Request.QueryString.Item("g"), True), webpages)
17
Catch ex As Exception
18
webpages1 = webpages.yet_m_test1
19
End Try
20
Dim src As String = String.Format("{0}/{1}.ascx", m_baseDir, webpages1)
21
22
'Try
23
' Dim webpage As ForumPage = CType(MyBase.LoadControl(src), ForumPage)
24
' webpage.ForumControl = Me
25
' Me.Controls.Add(webpage)
26
'Catch exception2 As System.IO.FileNotFoundException
27
' Throw New ApplicationException(("Failed to load " & m_baseDir & "."))
28
'End Try
29
30
31
32
End Sub
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
2
![](/Images/OutliningIndicators/InBlock.gif)
3
![](/Images/OutliningIndicators/InBlock.gif)
4
![](/Images/OutliningIndicators/InBlock.gif)
5
![](/Images/OutliningIndicators/InBlock.gif)
6
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
7
![](/Images/OutliningIndicators/None.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
10
![](/Images/OutliningIndicators/InBlock.gif)
11
![](/Images/OutliningIndicators/InBlock.gif)
12
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
17
![](/Images/OutliningIndicators/InBlock.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/InBlock.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/ExpandedSubBlockEnd.gif)
1
Private m_section As System.Xml.XmlNode
2![](/Images/OutliningIndicators/None.gif)
3
Public Sub config(ByVal node As System.Xml.XmlNode)
4
m_section = node
5
End Sub
6![](/Images/OutliningIndicators/None.gif)
7
Public ReadOnly Property Item(ByVal key As String) As String
8
Get
9
Dim node As System.Xml.XmlNode = m_section.SelectSingleNode(key)
10
If Not node Is Nothing Then
11
Return node.InnerText
12
Else
13
Return Nothing
14
End If
15
End Get
16
End Property
17![](/Images/OutliningIndicators/None.gif)
18
Public Shared ReadOnly Property ConfigSection() As config
19
Get
20
Dim config1 As config = CType(ConfigurationSettings.GetConfig("yafnet"), config)
21
If (config1 Is Nothing) Then
22
Throw New ApplicationException("Failed to get configuration from Web.config")
23
Else
24
Return config1
25
End If
26
End Get
27
End Property
1
Private m_section As System.Xml.XmlNode
2![](/Images/OutliningIndicators/None.gif)
3
Public Sub config(ByVal node As System.Xml.XmlNode)
4
m_section = node
5
End Sub
6![](/Images/OutliningIndicators/None.gif)
7
Public ReadOnly Property Item(ByVal key As String) As String
8
Get
9
Dim node As System.Xml.XmlNode = m_section.SelectSingleNode(key)
10
If Not node Is Nothing Then
11
Return node.InnerText
12
Else
13
Return Nothing
14
End If
15
End Get
16
End Property
17![](/Images/OutliningIndicators/None.gif)
18
Public Shared ReadOnly Property ConfigSection() As config
19
Get
20
Dim config1 As config = CType(ConfigurationSettings.GetConfig("yafnet"), config)
21
If (config1 Is Nothing) Then
22
Throw New ApplicationException("Failed to get configuration from Web.config")
23
Else
24
Return config1
25
End If
26
End Get
27
End Property
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
4
![](/Images/OutliningIndicators/InBlock.gif)
5
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
8
![](/Images/OutliningIndicators/InBlock.gif)
9
![](/Images/OutliningIndicators/InBlock.gif)
10
![](/Images/OutliningIndicators/InBlock.gif)
11
![](/Images/OutliningIndicators/InBlock.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
17
![](/Images/OutliningIndicators/None.gif)
18
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)