Array con VB6

Ciao a tutti,

vorrei sapere come tradurre questo codice php in codice per VB6:

Codice PHP:

---

$utenti = array(
'Giuseppe' => '39rjd390',
'Michele' => '398jd3f90',
'Vito' => 'fj892309'
);
if(array_key_exists($utenti, $username)) {
if($pass = $utenti[$username]) {
$login = true;
} else {
$login = false;
} else {
$login = false;
}


---

Grazie,
foreach

Premetto che da molto che non utilizzo vb6, sono passato a vb.net, ma credo che per il tuo problema si risolva nello stesso modo.

Per creare un'array associativa in vb6, credo ci voglia la classe Collection, prova cosi:

Codice:

---

Dim login As Boolean = false
Dim username As String
Dim password As String
Dim utente As New Collection

utente.add("Giuseppe", "39rjd390")
utente.add("Michele", "398jd3f90")
utente.add("Vito", "'fj892309")

If utente.item(username) = password Then
  login = true;
End if

---

Come di certo avrai capito la variabile username e password sono due stringhe contenente la password e l'username definite dall'utente al momento del login.

Non sarei sicuro riguardo al suo funzionamento.

Il codice ora lo provo, ti faccio sapere. Ma non sai come si traduce array_key_exists()?





Grazie,
foreach

Citazione:

---

Originalmente inviato da foreach

Il codice ora lo provo, ti faccio sapere. Ma non sai come si traduce array_key_exists()?

Grazie,
foreach

---

Non puoi in VB6
Devi farti una funzione tua, semplicemente se non trova l'item genera un errore.
Ho trovato velocemente questa.

Codice:

---

public function keyExists(myCollection as collection, sKey as string) as Boolean
  on error goto handleerror:

  dim val as variant

  val = myCollection(sKey)
  keyExists = true
  exit sub
handleerror:
  keyExists = false
end function

---

nel tuo caso keyExists(utenti,username)

Il codice funziona bene, tranne qualche piccolo errore di sevenjeak che ho saputo correggere.

Vorrei sapere anche se e come è possibile memorizzare una variabile per tutti i form di un progetto, esempio:
io apro il progetto con un form di login, inserisco i dati e passo al form successivo, dove mi mostrerà l'username e/o la password inserita. Ovvio che questo non vale solo per user e pass, ma anche per altre circostanze che mi serviranno in futuro.


Grazie,
foreach

Citazione:

---

Originalmente inviato da foreach

Vorrei sapere anche se e come è possibile memorizzare una variabile per tutti i form di un progetto, esempio:
io apro il progetto con un form di login, inserisco i dati e passo al form successivo, dove mi mostrerà l'username e/o la password inserita. Ovvio che questo non vale solo per user e pass, ma anche per altre circostanze che mi serviranno in futuro.


Grazie,
foreach

---

Devi mantenerti i dati nella form o classe di avvio.
Ossia chi chiama la form gestisce anche che alla chiusura si faccia restituire i dati e li tiene per la form precedente.

Allora quello che so fare io è:

Form di login:

Codice:

---

public username as string
public login as boolean

username= txtuser.Text
login=True

---

Form successivo:

Codice:

---

public username as string
public login as boolean

lbluser.Caption=username

if(login=True)then
...
end if

---

Devo fare altro?


Grazie,
foreach