Ciao a tutti , sto riprendendo un lavoro sospeso giorni fa , praticamente alla scelta di un elemento di una combo(ce ne sono 5) DOVREBBE venir caricata un immagine dentro una picture , alla scelta successiva un'altra immagine viene caricata dopo la 1^ e cosi via.
Le immagini hanno tutte la stessa altezza ma larghezza diversa , e , sono già caricate nel form .
Sotto posto il codice che , ahimè non funge .
Private Sub Form_Load()
'
Combo1(0).AddItem "cd musica leggera"
Combo1(0).AddItem "cd hard-rock"
Combo1(0).AddItem "cd recenti" '
'
Combo1(1).AddItem "dvd film thriller”
Combo1(1).AddItem "dvd film fantascienza
Combo1(1).AddItem "dvd film romantic
'
Combo1(2).AddItem "mp3 cd 1”
Combo1(2).AddItem "mp3 cd 2
Combo1(2).AddItem "mp3 cd 3”
'
Combo1(3).AddItem "mpeg gare karate”
Combo1(3).AddItem "mpeg stage karate”
Combo1(3).AddItem "mpeg kataeate”
'
Combo1(4).AddItem "Programmi beta
Combo1(4).AddItem "Pogrammi VB”
Combo1(4).AddItem "programmi autocad.lisp
'
End sub
‘
‘
Private Sub Inizializzo_Combo1()
Dim CaricoCombo As Variant
Dim x As Integer
''Creo una matrice con i nomi delle combo
CaricoCombo = Array("CD", "DVD", "MP3", "MPEG", "Programmi", )
For x = 0 To 4
Combo1(x).Text = CaricoCombo(x)
Next x
End Sub
‘
Private Sub Combo1_Click(Index As Integer)
varIndiceElemento = Combo1(Index).ListIndex
txtSceltaIndice.Text = varIndiceElemento
'
'inserisco nella variabile il nome dell'elemento scelto
varVariabileNomeTxtriepilogo = Combo1(Index).Text
'
'
'Con un ciclo for next , disabilito tutti i combobox che non hanno l'indice di quella selezionata
Dim x As Integer
For x = 0 To 4
If x <> Index Then Combo1(x).Enabled = False
Next x
'’
Select Case Index
'Case 0
On Error Resume Next
Combo2.Clear
Combo2.AddItem "25"
Combo2.AddItem "15"
Combo2.AddItem "20"
Combo2.ListIndex = Combo1(Index).ListIndex
'
Dim imag() As Image
imag(0) = Image1
imag(1) = Image2
imag(2) = Image3
'
Case 1
On Error Resume Next
Combo2.Clear
Combo2.AddItem "2"
Combo2.AddItem "115"
Combo2.AddItem "200"
Combo2.ListIndex = Combo1(Index).ListIndex
'
Dim imag() As Image
imag(0) = Image4
imag(1) = Image5
imag(2) = Image6
'
'
'Case 2
On Error Resume Next
Combo2.Clear
Combo2.AddItem "77"
Combo2.AddItem "252"
Combo2.AddItem "359"
Combo2.ListIndex = Combo1(Index).ListIndex
'
Dim imag() As Image
imag(0) = Image7
imag(1) = Image8
imag(2) = Image9
'
Case 3
On Error Resume Next
Combo2.Clear
Combo2.AddItem "35"
Combo2.AddItem "199”
Combo2.AddItem "205"
Combo2.ListIndex = Combo1(Index).ListIndex
'
Dim imag() As Image
imag(0) = Image10
imag(1) = Image11
imag(2) = Image12
'
Case 4
On Error Resume Next
Combo2.Clear
Combo2.AddItem "135"
Combo2.AddItem "55”
Combo2.AddItem "205"
Combo2.ListIndex = Combo1(Index).ListIndex
'
Dim imag() As Image
imag(0) = Image13
imag(1) = Image14
imag(2) = Image15
Combo2.ListIndex = Combo1(Index).ListIndex
‘
End sub
Private Sub cmdProvaprofondita_Click()
‘
Dim x As Integer, ultimo As Integer
For x = 0 To 4
Picture1.PaintPicture imag(x + Combo1(x).ListIndex).Picture, ultimo, 0
ultimo = ultimo + imag(x + Combo1(x).ListIndex).Width
Next x
End Sub
|