comment ajouter un élément à une VB6 tableau 2D

Je suis à l'aide d'un tableau 2D pour le stockage des utilisateurs nom d'utilisateur et mot de passe. users définie comme un phénomène global tableau de chaînes:

Dim users(9, 2) As String

Comment ajouter un utilisateur à ce tableau? définir l'utilisateur et le mot de passe à la fois.

Probablement un meilleur modèle serait une collection ou un tableau de classes.

OriginalL'auteur mrdaliri | 2013-01-31

7

Une fois que vous avez Dim le tableau des utilisateurs avec des limites explicites, vous ne pouvez pas ReDim il.
Vous pouvez l'essayer, il ne compile pas (Tableau déjà dimensionnée)
```
Dim users(9, 2) As String
ReDim Preserve users(10, 2) ' doesn't compile!
```
Une autre question que vous aurez seront en essayant de ReDim Preserve le premier indice du tableau. Vous pouvez essayer aussi, vous obtiendrez une erreur d'exécution (Indice hors de portée)
```
Dim users() As String
ReDim Preserve users(0, 1)
ReDim Preserve users(1, 1) ' runtime error!
```
Au lieu de cela, je suis venu avec la suivante. Vous aurez besoin de garder le premier index de distinguer entre username ou password. Ce sera la taille de 1 (pas le 2). Le deuxième indice augmentera à mesure que vous ajoutez plus d'utilisateurs:
```
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
```
Si vous ne pouvez pas permuter le nom d'utilisateur et le mot de passe, vous voudrez peut-être regarder dans une autre structure de données, telles que la collecte, ou tableau d'une classe personnalisée avec nom d'utilisateur et le mot de passe dans les champs.

OriginalL'auteur djv

créer un type défini par l'utilisateur contenant l'ensemble des champs

Private Type UserData
  strName As String
  strPass As String
End Type

et puis créer un tableau de ce type défini par l'utilisateur

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

OriginalL'auteur Hrqls

Boucle par les utilisateurs et attribuer des valeurs à l'aray directement:

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

OriginalL'auteur George

Vous devez vous connecter pour publier un commentaire.