条形码编程摘录

bsp;      .Picture1.Width = .BarCode1.Width
        .Picture1.Height = .BarCode1.Height
        .Conel.Width = .BarCode1.Width
        .Conel.Height = .BarCode1.Height
    End With
    End Sub
     
    Private Sub cmdRefresh_Click()
        BarCode1.Width = BarWidth
        BarCode1.Height = BarHeight
    End Sub
     
    Private Sub Form_Load()
        LoadBarInfo
        BarWidth = BarCode1.Width
        BarHeight = BarCode1.Height
    End Sub

    Sub LoadBarInfo() ''初始化选项
        LoadBigClass cboBig
        LoadSmallClass cboSmall
        LoadLineSize cboLine
        LoadDirection cboDirection
    End Sub


    Sub LoadBigClass(cbo As ComboBox) ''条码标准
    With cbo
        .AddItem "UPC-A"
        .AddItem "UPC-E"
        .AddItem "EAN-13"
        .AddItem "EAN-8"
        .AddItem "Case Code"
        .AddItem "Codabar (NW-T)"
        .AddItem "Code-39"
        .AddItem "Code-128"
        .AddItem "U.S. Postnet"
        .AddItem "U.S. Postal FIM"
        .AddItem "JP Post"
        .ListIndex = 2
    End With
    End Sub


    Sub LoadSmallClass(cbo As ComboBox) ''条码样式
    With cbo
        .AddItem "Standard"
        .AddItem "2-Digit Supplement"
        .AddItem "5-Digit Supplement"
        .AddItem "POS Case Code"
        .ListIndex = 0
    End With
    End Sub
　

　

许多人在编写数据库应用程序时，都想要加上