Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Control.tag
Autor: Madless
Datum: 05.02.15 10:39
Hallo, ich habe ein Kleines Problem mit dem Control.Tag Objekt. Private Sub checkFrage(Frage As String, FrageID As Integer, Zeilensumme As Integer, Format As String, Grid As SourceGrid.Grid) If Frage <> FrageAlt Or IsNothing(FrageAlt) Then 'Neuen Header für den Kalkulationsbereich Dim Tagstring As New ArrayList Tagstring.Add(FrageID) Tagstring.Add(Format) With Grid .Rows.Insert(.RowsCount) .Item(.RowsCount - 1, 0) = New SourceGrid.Cells.Cell(Frage, New Celltype().NoEditText) .Item(.RowsCount - 1, 0).View = New CellFormat().TextLinksFett .Item(.RowsCount - 1, 0).Tag = Tagstring .Item(.RowsCount - 1, 0).ToolTipText = FrageID Dim x As SourceGrid.Cells.Editors.EditorBase = Getcellformat(Format) If Zeilensumme <> 0 Then .Item(.RowsCount - 1, 1) = New SourceGrid.Cells.Cell(CDbl(0), x) .Item(.RowsCount - 1, 1).View = New CellFormat().TextRechts .Columns(1).Width = 80 End If End With SSpalte = 0 End If FrageAlt = Frage End Sub Das Zuweisen vom Array Tagstring auf das Tag Objekt ist unglaublich langsam. Verwende ich anstelle des Tagstring Array einen einfachen String, läuft mein Programm in 22 Sekunden durch, bei Verwendung des Array benötigt es 64 Sekunden. Wo ist mein Fehler? Kann mir da einer Weiterhelfen? Gruß Madless

Control.tag	1.172	Madless	05.02.15 10:39
Re: Control.tag	675	Manfred X	05.02.15 20:11
Re: Control.tag	669	Madless	06.02.15 13:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen