Array con VB6

[foreach]

Ciao a tutti,

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

$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

[sevenjeak]

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:

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.

[foreach]

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





Grazie,
foreach

[binarysun]

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.

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)

[foreach]

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

[binarysun]

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.

[foreach]

Allora quello che so fare io è:

Form di login:

public username as string
public login as boolean

username= txtuser.Text
login=True

Form successivo:

public username as string
public login as boolean

lbluser.Caption=username

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

Devo fare altro?


Grazie,
foreach