[VB6] Creazione di oggetti correlati a DB

[Wanny]

Salve a tutti.
Eccomi con un quesito forse insolito.

Ho un programmino che gestisce un magazzino e delle sale , ed ho un problema. Ho una tabella con appunto contenute tutte le sale

ID NSALA ecc ecc

ed ho un from in VB6 dove ho posizionato manualmente una 20ina di icone che si abilitano solo nel caso in cui la sala esista nel DB. Mi spiego meglio , nel form sono già posizionate 20 IMG box contenti le icone che rappresentano la sala, ma sono impostate a Visible= Flase nel caso in cui l'ID della sala tramite un controllo nella tabella , sia trovato , la propietà Visible dell'IMG BOX viene impostata a true, per capirci meglio metto anche una porzione di codice

If rs("numero_sala") = 1  Then 
IMG_sala1.Visible = True
endif

Quello che io mi chiedo è questo, è meglio una soluzione tipo questa , che alla fine andrebbe a realizzarsi in questo modo

If rs("numero_sala") = 1  Then 
IMG_sala1.Visible = True
endif

If rs("numero_sala") = 2  Then 
IMG_sala2.Visible = True
endif

If rs("numero_sala") = 3  Then 
IMG_sala3.Visible = True
endif

ecc..

Oppure , c'è un modo più veloce , meno pesante più funzionale per realizzare questa cosa ?
Vi chiedo aiuto nella risoluzione di questo problema a cui penso da un po!

Grazie a tutti in anticipo

[gibra]

La soluzione più efficiente sarebbe quella di 'trasformare' i tuoi controlli Image in un'array di controlli Image, ovvero invece di avere:

IMG_sala1
IMG_sala2
IMG_sala3
...

avrai

IMG_sala(1)
IMG_sala(2)
IMG_sala(3)
...

In questo caso la verifica diventerebbe

Do While Not rs.EOF
    IMG_Sala(rs("numero_sala").Value).Visible = True
Loop

Se, come immagino, durante l'esecuzione del programma devi mostrare/nascondere alternativamente una o più sale, allora prima del Do While/Loop devi nasconderle tutte:

For i = 1 to 20
    IMG_Sala(i).Visible = False
Next i

Poi il Do While/Loop ri-mostrerà quelle esistenti.

[Wanny]

Grazie per la risposta. Come immaginavo mi conviene usare un array di controlli.
Ora mi stampo qualcosina e comincio a capire bene come fare

Grazie ancora