【www.gdgbn.com--.Net开发】

在项目中添加新项---类（CTypes.vb）
代码如下
Namespace API
    Public Class CTypes
        Implements IStore
        Dim TypeList As SortedList
        Dim TypeListCSharp As SortedList
        Sub New()
       TypeList = New SortedList()
       TypeListCSharp = New SortedList()
        End Sub
        Sub Add(ByVal Key As String, ByVal Data As String, Optional ByVal bCSharp As Boolean = False) Implements IStore.Add
       If Not bCSharp Then
           If Not TypeList.ContainsKey(Key) Then
          TypeList.Add(Key, Data)
           End If
       Else
           If Not TypeListCSharp.ContainsKey(Key) Then
          TypeListCSharp.Add(Key, Data)
           End If
       End If
        End Sub

本文来源：http://www.gdgbn.com/asp/4888/