|
Salve a tutti!!
Dovrei riuscire a collegare label di form diversi.
Mi spiego... l'obiettivo sarebbe quello di portare il testo immagazzinato in un array in una label di un form diverso.
Il mio proggetto č questo:
Devo calcolare il preventivo di un albergo in base alle stelle.
Quindi ho delle optionbox collegate a una combobox; adesso vorrei, premento su un command botton far aprire un nuovo form con: nome albergo, prezzo per notte, che, al momento dell'apertura del form sono riempite in automatico. E' possibile??
Io sono arrivato al collegamento al secondo form!!
Private Sub cmd1_Click()
Form2.Show
For i = 1 To 10
If cbo1 = alberghi(i) Then
lbl2.Caption = cbo1.Text
lbl3.Caption = prezzo(i)
End If
Next i
End Sub
Private Sub cmdavvia_Click()
cbo1.Clear
If opt1 = True Then
star = 1
Else
If opt2 = True Then
star = 2
Else
If opt3 = True Then
star = 3
End If
End If
End If
For i = 1 To 10
If stelle(i) = star Then
cbo1.AddItem alberghi(i)
End If
Next i
End Sub
Private Sub Form_Load()
alberghi(1) = "Miramonti"
stelle(1) = 1
alberghi(2) = "Monte di Malo"
stelle(2) = 3
alberghi(3) = "Cā trenta "
stelle(3) = 3
alberghi(4) = "Baia Imperiale"
stelle(4) = 2
alberghi(5) = "X-SO"
stelle(5) = 1
alberghi(6) = "Corte dei pomi"
stelle(6) = 3
alberghi(7) = "Da Tony"
stelle(7) = 1
alberghi(8) = "Da Stefani"
stelle(8) = 2
alberghi(9) = "Colline con gli occhi"
stelle(9) = 3
alberghi(10) = "Da Berna"
stelle(10) = 3
prezzo(1) = 13
prezzo(2) = 25
prezzo(3) = 27
prezzo(4) = 18
prezzo(5) = 11
prezzo(6) = 50
prezzo(7) = 10
prezzo(8) = 30
prezzo(9) = 28
prezzo(10) = 65
End Sub
P.S. Nomi, prezzi e stella degli alberghi sono inventati!!
Ringrazio e aspetto risposta!
| 
