BarCode Ëã·¨ VBÀà¿â 1
Option Explicit
' VB / VBA Functions for Code128(A, B,C), UCC/EAN 128
' Copyright 2004 by MW6 Technologies Inc. All rights reserved.
'
' This code may not be modified or distributed unless you purchase
' the license from MW6.
Public UFPrefixFunctions As Boolean
Private I As Integer
Private StrLen As Integer
Private Sum As Integer
Private CurrSet As Integer
Private CurrChar As Integer
Private NextChar As Integer
Private Message As String
Private Weight As Integer
Public Function Code128Auto(ByVal Src As String) As String
StrLen = Len(Src)
Sum = 104
' 2 indicates Set B
CurrSet = 2
' start character with value 202 for Set B
Message = "" & Chr(202)
CurrChar = Asc(Mid(Src, 1, 1))
If (CurrChar <= 31 And CurrChar >= 0) Then
' switch to Set A
' 1 indicates Set A
CurrSet = 1
' start character with value 201 for Set A
Message = "" & Chr(201)
Sum = 103
End If
Weight = 1
Call GeneralEncode(Src)
Code128Auto = Message
End Function
Public Function UCCEAN128(ByVal Src As String) As String
StrLen = Len(Src)
Sum = 105
' 3 indicates Set C
CurrSet = 3
' start character (203) + FNC1 (200)
Message = Chr(203) & Chr(200)
Su
Ïà¹ØÎĵµ£º
°ïÅóÓѸĵÄһС¶Î¹Ø¼ü´Ê·ÖÎö´úÂ룻 º¬Á½¸öµ¥´Ê¸´ºÏ¼ÆÊý
Private Function CollectWords() As Dictionary(Of String, Integer)
'Create a new dictionary
Dim table As New Dictionary(Of String, Integer)
'Prompt for the user
Console.WriteLine(
"Enter a line : ")
'Get the user's input
Dim input As St ......
¸ø³ö´úÂëÈçÏÂ:
Type WAPPushPDUStruct
SMSCLen As String
SMSCType As String
SMSC As String
PROTOCOL As String
TPMRBase As String
RePhoneNumLen As String
ReP ......
½ÌÄãÈçºÎÓÃVB×ö¿Ø¼þ*.ocx
Ò»¸ö¿Ø¼þÓкܶàʼþÈ磺Click¡¢MouseDown¡¢MouseUp¡¢MouseMoveµÈ¡£Òª´¥·¢ÕâЩʼþ¶¼ÐèÒªÄã¼ÓÈë´úÂë¡£ÔڿؼþµÄÉùÃ÷´¦¼ÓÈëPublic Event Click()¾Í±íÃ÷¸Ã¿Ø¼þÓÐÒ»“Click”ʼþ¡£×Ô¼º±àдµÄ¿Ø¼þÓÐʲôʼþ¾ÍÔÚÉùÃ÷´¦¼Ó¼¸Ìõʼþ
Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØλ,ÎÒÃÇ¿ÉÒÔÀûÓÃOC ......
Ç°¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñÈ¡Ò»ÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£ ......
VBÏÂÈçºÎ±àдCRCУÑé³ÌÐò
¡¡¡¡Ëæ׿ÆËã»ú¼¼ÊõµÄ²»¶Ï·¢Õ¹£¬ÔÚÏÖ´ú¹¤ÒµÖУ¬ÀûÓÃ΢»ú½øÐÐÊý¾ÝͨѶµÄ¹¤Òµ¿ØÖÆÓ¦ÓõÃÒ²Ô½À´Ô½¹ã·º¡£ÓÉÓÚ´«Êä¾àÀë¡¢ÏÖ³¡×´¿öµÈÖî¶à¿ÉÄܳöÏÖµÄÒòËØÓ°Ï죬¼ÆËã»úÓëÊÜ¿ØÉ豸֮¼äµÄͨѶÊý¾Ý³£»á·¢ÉúÎÞ·¨Ô¤²âµÄ´íÎó¡£ÎªÁË·ÀÖ¹´íÎóËù´øÀ´µÄÓ°Ï죬һ°ãÔÚͨѶʱ²ÉÈ¡Êý¾ÝУÑéµÄ°ì·¨£¬¶øÑ»·ÈßÓàÂëУ ......