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
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”