VB OposCCOs 钱箱驱动

VERSION 5.00
Object = "{CCB90040-B81E-11D2-AB74-0040054C3719}#1.0#0"; "OPOSCashDrawer.ocx"
Begin VB.Form frmMain 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin OposCashDrawer_CCOCtl.OPOSCashDrawer obj 
      Left            =   960
      OleObjectBlob   =   "frmMain.frx":0000
      Top             =   1080
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
'由于OposCCOs-1_12_901setup.exe驱动与delphi不兼容,缺少驱动属性
'所以钱箱驱动改为由VB编写
'add by jzh 2012-07-24
Private Sub Form_Load()
    Dim rc As Integer
    
    '打开钱箱设备接口,并返回打开结果
    rc = obj.Open("CD")
    If rc <> 0 Then
        MsgBox ("钱箱设备 CD 无法打开!")
    End If
    
    '声明设备
    obj.ClaimDevice (5000)
    '激活设备
    obj.DeviceEnabled = True
    '打开钱箱
    rc = obj.OpenDrawer()
    Sleep (100)
    '解除设备
    obj.DeviceEnabled = False
    '释放设备
    rc = obj.ReleaseDevice()
    
    '退出
    Unload Me
End Sub

VB 基础语法 ArrayList

Public Class frmMain

    Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
        Dim name As String
        Dim age As Integer
        Dim i As Integer
        Dim user As ArrayList

        user = New ArrayList()

        For i = 1 To 3
            user.Add("user" + i.ToString())

            If i = 1 Then
                MsgBox("a" + i.ToString())
            Else
                MsgBox(i.ToString())
            End If

        Next

        name = "jzh"
        age = 35
        MsgBox(name + " " + age.ToString())

        For i = 0 To user.Count - 1
            MsgBox(user.Item(i))
        Next

    End Sub
End Class