Array af objekter?

Jo, men kun for Objekter (kontroller) af samme type. Du kan f.eks. have 10 textboxe, der hedder Text1(0) til Text(9), og så ændre properties i et loop.

Lille fejl: Text1(0) til Text1(9)

Du kan bruge en collection til det du ønsker. Jeg har lavet en textbox en combobox og en trykknap på en formular og brugt flg. kode.

Dim Col As Collection

Private Sub Command1_Click()
    For Each Item In Col
        Item.Visible = Not Item.Visible
    Next
End Sub

Private Sub Form_Load()
    Set Col = New Collection
    Col.Add txt
    Col.Add combo
End Sub

VH CK

Hejsa igen!

Tjacob,

Det holder desværre ikke, at jeg kun kan få fat i én type objekter! ;)

Kedde,

God ide med en collection, men hvordan sender jeg mit objekt til en funktion?.. Jeg har f.eks en sub der hedder

Private sub SwitchWin(byVal oldWin As Object)

End Sub

Hvis jeg så prøver at sende min RTF-box til sub'en:

SwitchWin RtfBox

Så melder den sgu' fejl! Det samme før sig gældende ved RtfBox.Object.

Hvordan sender jeg et objekt til en funktion!?

På forhånd tak,

Thomas.

Du skal i hvertfald som det første sende din parameter med som en reference ByRef og ikke som en værdi som du gør med ByVal.

Jeg har udvidet koden lidt :-)

Dim Col As Collection

Private Sub Command1_Click()
    Switch Col.Item(1)
    For Each Item In Col
        Item.Visible = Not Item.Visible
    Next
End Sub

Private Sub Form_Load()
    Set Col = New Collection
    Col.Add txt
    Col.Add combo
End Sub

Public Sub Switch(ByRef obj As Object)
    MsgBox obj.Visible
End Sub

VH CK

Private Sub Command2_Click()
' alle RichTextBox bliver synlige
    Dim Kontrol As Control
    For Each Kontrol In Me.Controls
        If TypeOf Kontrol Is RichTextBox Then
            Kontrol.Viseble = True
        End If
    Next
End Sub

Ups. Jeg glemte lige at vende tilbage på dette spørgsmål.

Det endte med at jeg droppede dette med objekterne og fortsatte som vanligt, fordi tingene ikke helt funkede efter hensigten.

Jeg har derfor besluttet at dele pointene imellem jer.

Undskyld ulejligheden og tak for hjælpen ;)

Med venlig hilsen,

Thomas Regin.