Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎĵµ£º

VB ¸ßËÙ±éÀú×¢²á±í

 Option Explicit
Private Type UNICODE_STRING
    Length As Integer
    MaximumLength As Integer
    Buffer As Long
End Type
Private Type OBJECT_ATTRIBUTES
    Length As Long
    RootDirectory As Long
   ......

vb Ä£ÄâÊó±ê°´¼ü

 °ÑÊó±êÒƵ½ÆÁĻָ¶¨Î»Öà È磨111.111£© µ¥»÷Ò»ÏÂ
ÔÙÒƵ½ÆÁÄ»ÁíÒ»Ö¸¶¨Î»ÖÃÖ¸¶¨Î»Öà È磨222.222£©µ¥»÷Ò»ÏÂ
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPo ......

C#Öе÷ÓÃVBÖÐInputbox¹¦ÄÜ

  C#×Ô¼ºÃ»ÓÐInputboxÕâ¸öÀ࣬µ«ÊÇInputboxÒ²ÂùºÃÓõģ¬ËùÒÔÓÐÁ½ÖÖ·½·¨¿ÉÒÔʹÓÃ
   Ò»£º.¼ä½Óµ÷ÓÃvbÖеÄInputbox¹¦ÄÜ
      1¡£ÔÚÏîÄ¿ÖÐÌí¼Ó¶ÔMicrosoft.VisualBasicÒýÓÃ
      2¡£ÔÚÏîÄ¿ÖÐÌí¼ÓÃüÃû¿Õ¼äUsing Microsoft.VisualBasic;
  &n ......

VB È¡µØÖ·º¯Êý´óÈ«

Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
È¡¶ÔÏóµØÖ·: ObjPtr
È¡OLE¶ÔÏóµÄµØÖ·: OLE_NAME.LpOleObject
È¡º¯ÊýµØÖ·: AddressOf
È¡×Ö·û´®µØÖ·: StrPtr
È¡ ......

VBÈ¡µÃÏ߳̾ä±ú

 Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
 OpenThread(THREAD_ALL_ACCESS, 1, Ïß³ÌID)    'ÓÉÏß³ÌIDÈ¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ