熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 09:40:44  來源: .NET編程 

  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
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.