Question

我正在使用2D数组来存储用户的用户名和密码。 users定义为全局字符串数组：

Dim users(9, 2) As String

如何将用户添加到该阵列？一次设置用户名和密码。

Answer 1

一旦有Dim具有显式边界的数组用户，就不能ReDim它。你可以尝试这个，它不会编译（数组已经标注尺寸）

Dim users(9, 2) As String
ReDim Preserve users(10, 2) ' doesn't compile!

您将遇到的另一个问题是尝试ReDim Preserve数组的第一个索引。你也可以尝试，你会得到运行时错误（下标超出范围）

Dim users() As String
ReDim Preserve users(0, 1)
ReDim Preserve users(1, 1) ' runtime error!

相反，我想出了以下内容。您需要保留第一个索引以区分username或password。这将是1号（而不是2号）。随着您添加更多用户，第二个索引将会增加：

Private Sub Form_Load()
    Dim users() As String
    ReDim users(1, 0)
    Add users, "name1", "pw1"
    Add users, "name2", "pw2"
End Sub

Private Sub Add(ByRef users() As String, username As String, password As String)
    If Not (users(0, 0) = vbNullString And users(1, 0) = vbNullString) Then
        ReDim Preserve users(1, UBound(users, 2) + 1)
    End If
    users(0, UBound(users, 2)) = username
    users(1, UBound(users, 2)) = password
End Sub

如果您无法交换用户名和密码，您可能需要查看其他数据结构，例如集合或带有用户名和密码字段的自定义类的数组。

Answer 2

创建包含所有字段的用户定义类型

Private Type UserData
  strName As String
  strPass As String
End Type

然后创建一个用户定义类型的数组

Dim udtUser() As UserData
ReDim udtUser(9) As UserData
With udtUser(9)
  .strName = "captain hook"
  .strPass = "parrotname"
End With 'udtUser(9)

Answer 3

循环访问用户并直接为aray指定值：

Dim cntr As Integer
For cntr = 0 To UBound(cntr) - 1
    users(x, 0) = "username"
    users(x, 1) = "password"
Next cntr

如何将项添加到VB6 2D阵列

3 个答案: