当前位置:编程学习 > C#/ASP.NET >>

用vb.net开发api viewer(4)

在项目中添加新项---类(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
补充:asp.net教程,Win开发 
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,