🚀 go-pugleaf

Per cortesia sempre inerente ad inserimenti di campi in automatico da
casella a scendere, potete aiutarmi a correggere questo codice dato che �
incompleto? Sono nel pallone
Selezionando il lst.index PaeseCitta (casella a scendere) mi deve ritornare
nel LstCapProv (seconda casella a scendere) il valore corrispondente
nell'Array creato (es selezionando nel primo array "Pluto") nel secondo
Array me deve ritornare "25100 - Bs), oppure meglio ancora, il valore del
secondo array ritornarmi in un campoTxt.

Con questo codice gli array vengono caricati nel form ma dopo tentativi non
sono in grado di creare una funzione o codice per terminare l'idea.

 Parte creata in un modulo Sorgente
--------------------------------------------------------------- 
Public PaeseCitta As Variant
Public Const NPaeseCitta = 4
Public Const NCapProv = 4
Public CapProv As Variant

Public Sub InizializzaArray()

PaeseCitta = Array("Pippo", _
"Pluto", _
"Caino", _
"Abele")

CapProv = Array("25075 - Bs", _
"25100 - Bs", _
"23498 - Na", _
"10000 - Pa")

End Sub
--------------------------------------------------------
Public Function CercaPaeseCitta(PaeseCittaCercata)
Dim CercaPaCi As Integer
CercaPaCi = -1
For i = LBound(PaeseCitta) To UBound(PaeseCitta)
If (PaeseCitta(i) = PaeseCittaCercata) Then
CercaPaCi = i
Exit For
End If
Next i
CercaPaeseCitta = CercaPaCi
End Function
------------------------------------------------
Public Function CercaCapProv(CapProvCercata)
Dim CercaCP As Integer
CercaCP = -1
For i = LBound(CapProv) To UBound(CapProv)
If (CapProv(i) = CapProvCercata) Then
CercaCP = i
Exit For
End If
Next i
CercaCapProv = CercaCP
End Function
----------------------------------------- 

' Parte inserita nel Form

Option Compare Text
------------------------- 
Sub CaricaPaeseCitta()
Dim i
Me.lstDest.Clear
For i = 0 To NPaeseCitta - 1
Me.lstDest.AddItem PaeseCitta(i) ' aggiunge gli elementi al list box
Next i
End Sub
------------------ 
Private Sub Form_Load()
Dim i
Sorgenti.InizializzaArray
CaricaPaeseCitta
CaricaCapProv
End Sub
-----------------------------------------------
Sub CaricaCapProv()
Dim i
Me.lstCapProv.Clear
For i = 0 To NCapProv - 1
Me.lstCapProv.AddItem CapProv(i) ' aggiunge gli elementi al list box
Next i
End Sub
------------------- 
Grazie e saluti
Giorgio