VB.NET制作Code39的規律類的方法

　　Imports System
    Imports SystemCollectionsGeneric
    Imports SystemText
    Public Class CodeClass Code
    Inherits BarcodeVariables
    Implements IBarcodeIBarcode

　　Private C_Code As New SystemCollectionsHashtable()

　　Public Sub New()Sub New(ByVal input As String)
        Raw_Data = input
    End Sub

　　Private Function Encode_Code()Function Encode_Code() As String
        Meinit_Code()
        Dim result As String = C_Code(*c)ToString()
        result +=

　　For Each c As Char In Raw_Data
            result += C_Code(c)ToString()

　　result +=
        Next
        result += C_Code(*c)ToString()
        MeC_CodeClear()
        Return result
    End Function

　　Private Sub init_Code()Sub init_Code()
        C_CodeClear()
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd(Ac )
        C_CodeAdd(Bc )
        C_CodeAdd(Cc )
        C_CodeAdd(Dc )
        C_CodeAdd(Ec )
        C_CodeAdd(Fc )
        C_CodeAdd(Gc )
        C_CodeAdd(Hc )
        C_CodeAdd(Ic )
        C_CodeAdd(Jc )
        C_CodeAdd(
       
        Kc )
        C_CodeAdd(Lc )
        C_CodeAdd(Mc )
        C_CodeAdd(Nc )
        C_CodeAdd(Oc )
        C_CodeAdd(Pc )
        C_CodeAdd(Qc )
        C_CodeAdd(Rc )
        C_CodeAdd(Sc )
        C_CodeAdd(Tc )
        C_CodeAdd(Uc )
        C_CodeAdd(Vc )
        C_CodeAdd(Wc )
        C_CodeAdd(Xc )
        C_CodeAdd(Yc )
        C_CodeAdd(Zc )
        C_CodeAdd(c )
        C_CodeAdd(c )
        C_CodeAdd( c )
        C_CodeAdd($c )
        C_CodeAdd(/c )
        C_CodeAdd(+c )
        C_CodeAdd(%c )
        C_CodeAdd(*c )
    End Sub
    Public ReadOnly Property Encoded_Value()Property Encoded_Value() As String Implements IBarcodeIBarcodeEncoded_Value
        Get
            Return Encode_Code()
        End Get
    End Property
    End Class
    最近在考慮VBNET怎麼處理大容量的數據比如萬條數據要怎麼很快的讀出來或者是查找在VBNET裡還是滿難實現有這方面的高手們幫幫忙!~謝謝了!

From:http://tw.wingwit.com/Article/program/net/201311/11313.html