Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

[VB6] Richiamare un'Array

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

[VB6] Richiamare un'Array

Messaggioda Webman » gio mar 12, 2009 7:05 pm

RICHIAMARE UN ARRAY!!!!!

silver ho quest'ultimo problemino che no nriesco a risolvere, per quanto riguarda l'array per fare la sottrazione:

nel pulsante "aggiungi nella lista" c'è il seguente codice, ovvero quello che mi memorizza i dati nelll'array:

Private Sub Command1_Click()

Dim contatore(100) As Integer

List1.AddItem (Text1.Text)

contatore(i) = Text1.Text

MsgBox " " & contatore(i) & " "


Label1 = Val(Label1) + (Text1.Text)
Text1.Text = ""

End Sub
---------------------------------------------------------------------------------------------------------------------
mentre qui c'è il codice dove vado a rimuovere il valore nella list (che va bene) e contemporarenamente DOVREI togliere il prezzo anche dal totale:

Private Sub Command2_Click()

Dim contatore(100) As Integer <----------qui dovrei richiamare l'array di sopra che mi ha salvato i valori


i = List1.ListCount - 1

While i >= 0

If List1.Selected(i) = True Then

List1.RemoveItem (List1.ListIndex)
MsgBox " " & contatore(i) & "" <----- qui giustamente mi stampa a video 0 perché non c'è niente.
Label1 = Label1 - contatore(i)

End If
i = i - 1
Wend

End Sub
Non si tratta di essere belli o brutti....è questione di Stile!
Avatar utente
Webman
Senior Member
Senior Member
 
Messaggi: 328
Iscritto il: mar ott 23, 2007 4:13 pm

Re: [VB6] Richiamare un'Array

Messaggioda Silver Black » mar mar 24, 2009 11:36 am

Non sai le basi della programmazione. [...] Se RIDICHIARI (non si dice "richiamare", non è un metodo di un oggetto!!!) un array questo sarà una porzione di momoria (detta "variabile") completamente diversa dall'array dichiarato in precedenza!

Devi perciò dichiarare un array globale nella sezione "declarations" del modulo (o della form), non direttamente nella routine "_Click". Fatto questo non lo ridichiarerai più ma lo riutilizzerai semplicemente facendo riferimento ad esso.
Sergio Pappalardo aka Silver Black
CyberInstaller - www.silvercybertech.com - http://silvercybertech-labs.com/cyberblog
Avatar utente
Silver Black
Silver Member
Silver Member
 
Messaggi: 1147
Iscritto il: gio gen 06, 2005 8:50 pm
Località: Bassano del Grappa (VI)

Re: [VB6] Richiamare un'Array

Messaggioda dararag » mar mar 24, 2009 7:18 pm

Insomma, detto in codice:
Codice: Seleziona tutto
Option Explicit
Public contatore(100) As Integer

Private Sub Command1_Click()
List1.AddItem (Text1.Text)
contatore(i) = Text1.Text
MsgBox " " & contatore(i) & " "
Label1 = Val(Label1) + (Text1.Text)
Text1.Text = ""
End Sub

Private Sub Command2_Click()
i = List1.ListCount - 1
While i >= 0
If List1.Selected(i) = True Then
List1.RemoveItem (List1.ListIndex)
MsgBox " " & contatore(i) & ""
Label1 = Label1 - contatore(i)
End If
i = i - 1
Wend
End Sub

oppure crei un nuovo elemento detto modulo, le cui variabili non azzerano il proprio valore e sono sempre accessibili, inserendo lì l'array contatore

EDIT: posso farti una richiesta? puoi scrivere il tuo codice tra i tag "
Codice: Seleziona tutto
" e "
"? scommetto che te ne saranno tutti grati, come lo scrivi tu non si capisce niente
Maledette aziende produttrici, l'unico telefilm interessante degli ultimi tempi l'hanno interrotto alla decima puntata... e chi voleva sapere la fine?
Avatar utente
dararag
Silver Member
Silver Member
 
Messaggi: 1116
Iscritto il: mar gen 22, 2008 8:57 pm
Località: Casoria


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising