最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用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
代码如下
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
相关文章
- 荒原曙光奇物愈合珍珠怎么获得 奇物愈合珍珠获取攻略 10-15
- 荒原曙光黏土怎么获得 黏土获取攻略 10-15
- 荒原曙光奇物收容箱子怎么获得 奇物收容箱子获取攻略 10-15
- 荒原曙光雪莲怎么获得 雪莲获取攻略 10-15
- 荒原曙光怎么驯服动物 驯服动物方法 10-15
- 洛克王国世界火灵石怎么获得 火灵石获取攻略 10-15