[VB6 SP6] Problema di definizione di un 'command' come variabile

[benjy]

Cari amici,

sto cercando di genaralizzare una routine, per spostarla in un modulo.

la routine è:

Public Sub modifica_massa(ByVal lista As ListView, ByVal index As Byte, ByVal tasto As CommandButton)

istruzioni 

 la richiamo con:

Call modifica_massa(ListView3, 0, Command10)

Allora, se il command10 è un taso non indicizzato funge, se il command10 è indicizzato (il mio caso) mi da errore di tipo non definito.
Non riesco a capire come devo definirlo. Lo stesso problema mi sorge se uso una TEXTBOX, anch'essa indicizzata: purtroppo mi servono, in quanto a seconda del tasto schiacciato, nella routine, mi cambiano delle elaborazioni e, devo riempire le caselle con dei dati differenti (caso textbox).

Spero che qualche anima pia riesca ad aiutarmi.

Grazie
saluti a tutti

[oregon]

Non è tutto chiaro ma non capisco perché non chiami la sub con

Call modifica_massa(List1, Command1(0))

eliminando il parametro Index

[benjy]

Caro Oregon,

grazie per la tempestività.

Per il command, al limite, modificando la routine posso fare qualcosa, ma per la text non so come potrei modificare.

Nella routine, leggo un record (per la precisione la riga di un documento, oridne, bolla, fattura, a seconda dei casi) e devo andare a popolare varie caselle di testo con i dati, codice articolo, descrizione, qta etc. etc..

In questo caso ho

text1(1).text = !descrizione: text1(3).text = !qta: text1(4).text = !prezzo etc. etc.
(sono una 10 i campi che mi servono)

quindi vorrei sostituire con

testo(1).text = !descrizione: testo(3).text = !qta: testo(4).text = !prezzo etc. etc.

dove testo 'arriva' da

Public Sub modifica_massa(ByVal lista As ListView, ByVal index As Byte, ByVal tasto As CommandButton, ByVal testo As TextBox)


Grazie

P.S.: scusate il mio italiano, ma oltre a essere imbra, ho anche il problema che mentre scrivo, quando vado a fare l'anteprima o l'invia risposta, mi si è scollegato, eppure, non ho fatto pause, se non 4/ secondi per fare un copia dal sorgente dell'istruzione.

[oregon]

Non ho completamente seguito il tuo discorso ma se ho capito questo esempio ti potrà servire

Se Text1 è un array di text allora chiami la tua sub con

Call TuaSub(Text1)

e scrivi

Public Sub TuaSub(txt As Variant)

In questo modo potrai utilizzare i controlli dentro alla sub con

txt(0).
txt(1).

...

[LeleFT]

Tutte le versioni di VB vengono trattate nel forum "Visual Basic e .NET Framework".

Ho spostato la discussione.


Ciao.

[benjy]

Grazie Oregon,

funziona alla perfezione.

Grazie



X LeleFT

Mi scuso per il disguido, purtroppo, come ho accennato, questa mattina ho dovuto riscrivere due volte il messaggio (anche se la 2° volta mi sono premunito con il "copia (che nessuno ti si) incolla" (scherzo) in quanto quando finivo di scrivere mi diceva che non ero collegato. Per cui, nella fretta di rientrare e riscrivere, non sono stato attento a posizionarmi correttamente. Mea Culpa.