Oppure

Loading
27/03/09 17:54
dade
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!
aaa
27/03/09 20:32
GrG
Quelle variabili le puoi mettere o in un modulo oppure le dichiari public esempio:
public ciao as string
aaa
28/03/09 0:06
antometal
se ho capito bene vuoi che quando mostri la form2 (form2.show) nelle 2 label venga scritto il nome e il prezzo/notte

private sub command1_click()
form2.show
form2.label1.caption="albergo"
form2.label2.caption=prezzo
end sub
aaa