Fastreport + VB.Net

Hallo @all,

ich lade in einem VB.Net (oder C#) Programm (Desktopprogramm , WinForms) einen FASTREPORT-Report.
Wie kann ich mit FOR-EACH im VB.Net-Programm alle "Textobjekt"-Objekte des Reports durchlaufen.
Die Report.AllObjects.InnerList ist leider "gesperrt".
Ziel ist es, alle "Textobjekt"-Objekte zu finden und das jeweilige TAG-Property auszuwerten.
Vielen Dank
SH

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 12719290479

Url: https://administrator.de/contentid/12719290479

Ausgedruckt am: 22.11.2024 um 00:11 Uhr

1 Kommentar

Ich antworte mir wieder mal selber

Die Lösung ist:

Dim _obj As ObjectCollection = _Report.ForEachAllConvectedObjects(_Report)

For Each _item As Object In _obj   
    If _item.ClassName = "TextObject" Then  
        Dim _LangId As Int16 = 0
        If Not String.IsNullOrEmpty(AsendiaFrameWork.NZ(_item.Tag, "")) Then  
            If Int16.TryParse(_item.Tag, _LangId) Then 
                _item.Text = appLanguage.GetLanguageOnlyText(_LangId)
            End If
        End If
    End If
Next