PDA

Visualizza la versione completa : [VB6]Come richiamare elementi di un'array?


ANTAGONIA
19-09-2002, 12:27
Vorrei risolvere grazie al vostro aiuto questo ennesimo problema!

Ho un form con due text una per la Login e una per la Password
chiamate rispettivamente txtLogin e txtPassword.

Il problema che ho Ŕ il seguente:vorrei inserire pi¨ login e password e logicamente richiamarle a coppie,per poi visualizzare un qualcosa per es. mioform.frm come devo fare?:dh˛: :bh˛:

Il codice che ho Ŕ:

If txtLogin.Text = Array("nero", "bianco", "rosso", "verde") And txtPassword.Text = Array("arancio", "viola", "blu", "celeste") Then
cmdEntra.Visible = True
end if

Ditemi per favore se e come dichiarare un'array,perche' non ci sono riuscito!scusate se faccio delle domande stupide,ma se mi aiuterete vi ringraziero a vita!:ciauz:

ladyBlu
19-09-2002, 13:17
Vedi un po' se capisci quello che ti ho postato...


Dim mioArraySettimana() As String

Private Sub Command1_Click()
RiempiArray
End Sub

Sub RiempiArray()

ReDim mioArraySettimana(6, 6)

mioArraySettimana(0, 0) = "Lunedý"
mioArraySettimana(0, 1) = "uno"

mioArraySettimana(1, 0) = "Martedý"
mioArraySettimana(1, 1) = "due"

mioArraySettimana(2, 0) = "Mercoledý"
mioArraySettimana(2, 1) = "tre"

mioArraySettimana(3, 0) = "Giovedý"
mioArraySettimana(3, 1) = "quattro"

mioArraySettimana(4, 0) = "Venerdý"
mioArraySettimana(4, 1) = "cinque"

mioArraySettimana(5, 0) = "Sabato"
mioArraySettimana(5, 1) = "sei"

mioArraySettimana(6, 0) = "Domenica"
mioArraySettimana(6, 1) = "sette"
End Sub

Private Sub Command2_Click()

Text.Text = mioArraySettimana(0, 1) & ": " & mioArraySettimana(0,
0) & vbNewLine
Text.Text = Text.Text & mioArraySettimana(1, 1) & ": " &
mioArraySettimana(1, 0) & vbNewLine

Text.Text = Text.Text & mioArraySettimana(2, 1) & ": " &
mioArraySettimana(2, 0) & vbNewLine

Text.Text = Text.Text & mioArraySettimana(3, 1) & ": " &
mioArraySettimana(3, 0) & vbNewLine

Text.Text = Text.Text & mioArraySettimana(4, 1) & ": " &
mioArraySettimana(4, 0) & vbNewLine

Text.Text = Text.Text & mioArraySettimana(5, 1) & ": " &
mioArraySettimana(5, 0) & vbNewLine

Text.Text = Text.Text & mioArraySettimana(6, 1) & ": " &
mioArraySettimana(6, 0) & vbNewLine

End Sub

Private Sub Command3_Click()

Text.Text = ""
Erase mioArraySettimana

End Sub


cmq caro Antagonia, io ti consiglierei di cuore di prenderti un manuale e cominciare a dargli un'occhiatina seriamente... Ŕ inutile che tenti strade pi¨ o meno complesse senza avere ben ferme le basi.

il mio Ŕ un consiglio, puoi accettarlo come no... sta a te.

ciao...
:ciauz:

ANTAGONIA
19-09-2002, 13:22
Ti ringrazio del consiglio ma, il manuale ce l'ho sottomano...se scrivo qua Ŕ perche' non riesco a capire come mettere in pratica quello che leggo,mi dispiace rompere cosi tanto, ma non penso di chiedere tanto!Come hai detto te sono cose basilari,che con il vostro aiuto(sopratutto con il tuo) sto riuscendo a capire piano piano come funziona questo mondo!

Ti ringrazier˛ sempre se vorrai te e gli altri darmi una mano,altrimenti vi ringrazio per tutto l'aiuto che mi avete dato fin'ora!

Ciao a tutti!:ciauz:

ladyBlu
19-09-2002, 13:34
beh, io volevo dire che se non hai ben impostate le basi forse non Ŕ il caso di buttarsi sugli array bi o tri dimensionali, o cose del genere.
io se potr˛ ti aiuter˛ sempre.... come faccio con tutti.
:D

cmq, hai capito l'esempio che ti ho postato?
sul form ci stanno 1 textbox con proprietÓ multiline=true e 3 commandbutton.

Loading