用vb.net开发api viewer(4)

作者:袖梨 2022-07-02
在项目中添加新项---类(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

相关文章

精彩推荐