一聚教程网:一个值得你收藏的教程网站

热门教程

用vb.net开发api viewer(4)

时间:2022-07-02 11:38:07 编辑:袖梨 来源:一聚教程网

在项目中添加新项---类(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

热门栏目