Click here to Skip to main content
Click here to Skip to main content
Articles » Languages » VB.NET » Applications » Downloads
 
Add your own
alternative version
Go to top

VB 9.0, C# 3.0 API Viewer

, 24 May 2012
This is a remake of Pramod Kumar Sing's 2002 API Viewer.
VSAPIVIEWER.zip
APIViewer12
APIViewer12
APIViewer12.sln.docstates.suo
APIViewer12.suo
APIviewer.ICO
APIViewer12.vbproj.user
bin
Debug
API
APIViewer12.exe
APIViewer12.pdb
APIViewer12.vshost.exe
APIViewer12.vshost.exe.manifest
GlassButtonVB.dll
Release
My Project
Application.myapp
Settings.settings
obj
x86
Debug
APIViewer12.exe
APIViewer12.FormSplash.resources
APIViewer12.frmAbout.resources
APIViewer12.frmViewer.resources
APIViewer12.pdb
APIViewer12.Resources.resources
APIViewer12.vbproj.GenerateResource.Cache
DesignTimeResolveAssemblyReferences.cache
DesignTimeResolveAssemblyReferencesInput.cache
TempPE
My Project.Resources.Designer.vb.dll
Release
Resources
arrow_in.png
arrow_left.png
arrow_out.png
arrow_right.png
backgroundGradient_BOB-1.png
Fullscreen.png
OilcanHarry.jpg
Namespace RSP
    Public Class CSubs
        Implements IStore
        Dim TorpedoeList As SortedList
        Dim TorpedoeListCSharp As SortedList

        Sub New()
            TorpedoeList = New SortedList()
            TorpedoeListCSharp = 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 TorpedoeList.ContainsKey(Key) Then
                    TorpedoeList.Add(Key, Data)
                End If
            Else
                If Not TorpedoeListCSharp.ContainsKey(Key) Then
                    TorpedoeListCSharp.Add(Key, Data)
                End If
            End If
        End Sub

        Overloads Function GetData(ByVal Key As String) As String Implements IStore.GetData
            If TorpedoeList.ContainsKey(Key) Then
                Return CType(TorpedoeList.Item(Key), String)
            Else
                Return Nothing
            End If
        End Function

        Overloads Function GetData(ByVal index As Integer) As String Implements IStore.GetData
            Return CType(TorpedoeList.GetByIndex(index), String)
        End Function

        ReadOnly Property Count() As Integer Implements IStore.Count
            Get
                Return TorpedoeList.Count()
            End Get
        End Property

        ReadOnly Property GetKey(ByVal index As Integer) As String Implements IStore.GetKey
            Get
                If index < TorpedoeList.Count Then
                    Return CType(TorpedoeList.GetKey(index), String)
                Else
                    Return ""
                End If
            End Get
        End Property

        Overloads Function GetDataCSharp(ByVal Key As String) As String Implements IStore.GetDataCSharp
            If TorpedoeListCSharp.ContainsKey(Key) Then
                Return CType(TorpedoeListCSharp.Item(Key), String)
            Else
                Return Nothing
            End If
        End Function

        Overloads Function GetDataCSharp(ByVal index As Integer) As String Implements IStore.GetDataCSharp
            If index < TorpedoeListCSharp.Count Then
                Return CType(TorpedoeListCSharp.GetByIndex(index), String)
            Else
                Return Nothing
            End If
        End Function
    End Class
End Namespace

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

rspercy65
Retired
United States United States
I am currently retired.
I have no degree but I have some programming experience
when I was in college(Cobol, Pascal).
 
My accomplishments thus far are;
Best VB.Net article for January(2009)
Best VB.Net article for July(2009)

| Advertise | Privacy | Mobile
Web04 | 2.8.140916.1 | Last Updated 24 May 2012
Article Copyright 2010 by rspercy65
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid