[vb] Comporre nome oggetto

[freezone]

Se io ho una label che si chiama lblEnrico ed una lblFranco esiste un modo per richiamarle componendo il loro nome?
Tipo

strE = "Enrico"
strF = "Franco"
lbl & strE.Caption = "Enrico Frascon"
lbl & strF.Caption = "Franco Franchetti"

Si so che il codice è sbagliato, ma capite cosa intendevo dire? Esiste un modo per richiamare un oggetto senza scriverne il nome esatto ma componendolo con altre variabili (magari stringa)
Grazie

[ladyBlu]

ok, cerchiamo di ragionare...:master:

ora faccio una prova e ti faccio sapere...

[freezone]

Originariamente inviato da ladyBlu
ok, cerchiamo di ragionare...:master:

ora faccio una prova e ti faccio sapere...

Grazie mille

[Toeke]

Originariamente inviato da freezone
Se io ho una label che si chiama lblEnrico ed una lblFranco esiste un modo per richiamarle componendo il loro nome?
Tipo

strE = "Enrico"
strF = "Franco"
lbl & strE.Caption = "Enrico Frascon"
lbl & strF.Caption = "Franco Franchetti"

Si so che il codice è sbagliato, ma capite cosa intendevo dire? Esiste un modo per richiamare un oggetto senza scriverne il nome esatto ma componendolo con altre variabili (magari stringa)
Grazie

Non puoi farlo, un oggetto e' un oggetto e nn puoi considerarlo una variabile.



Toe

[ladyBlu]

io credo che quello che vuoi fare tu sia impossibile.
Visual Basic non ti consente di settare via codice il nome di un oggetto perchè la proprietà name è di sola lettura. c'ho provato, ma non va, mi genera un errore in cui mi dice appunto: "Impossibile assegnare un valore, la proprietà è di sola lettura".

mi dispiace...

ciao free... come sempre è stato un piacere...

[freezone]

Originariamente inviato da ladyBlu
io credo che quello che vuoi fare tu sia impossibile.
Visual Basic non ti consente di settare via codice il nome di un oggetto perchè la proprietà name è di sola lettura. c'ho provato, ma non va, mi genera un errore in cui mi dice appunto: "Impossibile assegnare un valore, la proprietà è di sola lettura".

mi dispiace...

ciao free... come sempre è stato un piacere...

Grazie cmq ad entrambi è stato un piacere anche per me...
Al limite se la metto così ci sono alternative? Se io ho 6 label: lblProvaABC, lblCiccioABC e lblLilloABC; lblProvaDEF, lblCiccioDEF e lblLilloDEF come posso settare i loro valori aproffittando del fatto che 3 a 3 hanno il suffisso uguale?

strSuff = "ABC"
lblProva & strSuff = "Ciao"
lblCiccio & strSuff = "Ciao2"
lblLillo & strSuff = "Ciao3"

Nessuna idea? Siamo ancora al punto di partenza?
Boh!

[Toeke]

Originariamente inviato da freezone
Grazie cmq ad entrambi è stato un piacere anche per me...
Al limite se la metto così ci sono alternative? Se io ho 6 label: lblProvaABC, lblCiccioABC e lblLilloABC; lblProvaDEF, lblCiccioDEF e lblLilloDEF come posso settare i loro valori aproffittando del fatto che 3 a 3 hanno il suffisso uguale?

strSuff = "ABC"
lblProva & strSuff = "Ciao"
lblCiccio & strSuff = "Ciao2"
lblLillo & strSuff = "Ciao3"

Nessuna idea? Siamo ancora al punto di partenza?
Boh!

Resti al punto di partenza

Potresti fare un select case, ma se ne hai solo sei ti conviene definirli uno ad uno


Toe

[chipdb]

Ciao freezone. Io ho dato un'occhiata e sono arrivato a questa conclusione. Vedi un pò se fa al caso tuo:

Private Sub Form_Load()
    Dim Object As Object
    
    For Each Object In Form1
        If LCase(Object.Name) Like "lbl*" Then
            Object.Caption = Cambia(Object)
        End If
    Next
End Sub

Private Function Cambia(ByRef lblName As Label) As String
    On Error Resume Next
    Cambia = "CIAO"
End Function

Ciao

[freezone]

Originariamente inviato da chipdb
Ciao freezone. Io ho dato un'occhiata e sono arrivato a questa conclusione. Vedi un pò se fa al caso tuo:

Private Sub Form_Load()
    Dim Object As Object
    
    For Each Object In Form1
        If LCase(Object.Name) Like "lbl*" Then
            Object.Caption = Cambia(Object)
        End If
    Next
End Sub

Private Function Cambia(ByRef lblName As Label) As String
    On Error Resume Next
    Cambia = "CIAO"
End Function

Ciao

Ora provo, e mi sa che stavolta è quella buona! Sei un grande, altro che membro junior!

[ladyBlu]

Originariamente inviato da chipdb
Ciao freezone. Io ho dato un'occhiata e sono arrivato a questa conclusione. Vedi un pò se fa al caso tuo:

Private Sub Form_Load()
    Dim Object As Object
    
    For Each Object In Form1
        If LCase(Object.Name) Like "lbl*" Then
            Object.Caption = Cambia(Object)
        End If
    Next
End Sub

Private Function Cambia(ByRef lblName As Label) As String
    On Error Resume Next
    Cambia = "CIAO"
End Function

Ciao

bravo chip... funziona benissimo...
ottima trovata...

ciao e complimenti...