CustomDGV, Datasource, Serializable, Token Error

Rootbob91 · 6. Februar 2014, 23:09

Guten Tag,

ich sitze nun schon seit mehreren Stunden an folgendem Problem.

Ich möchte einem Datagridview bei der Instanzierung im Sub New, eine neu hinzugefügte Eigenschaft von sich selbst als Datasource verwenden. Das will nicht :(...

Seit Stunden probiere ich hier rum und versuchs zu lösen, ich kriegs nicht hin und langsam verzweifel ich :cursing:

.

Ich habe euch das Projekt mal hochgeladen, entfernt zur Nachstellung einfach nur das "'" innerhalb der Sub New und packt das Control testweise auf eure Form..

Alternativ: Kopiert den Code von hier, falls ihr nicht downloaden wollt:

"Problemcode :("

VB.NET-Quellcode

Imports System.ComponentModel
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'CustomDGV1.foos = New List(Of foo) From {New foo("blaaaa", 1)}
End Sub
End Class
Public Class CustomDGV : Inherits DataGridView
Private _foos As List(Of foo)
Public Property foos() As List(Of foo)
Get
Return _foos
End Get
Set(ByVal value As List(Of foo))
_foos = value
End Set
End Property
Sub New()
'Me._foos = New List(Of foo)
Me.DataSource = Me._foos
End Sub
End Class
Public Class foo
Private _Text As String
Public Property Text() As String
Get
Return _Text
End Get
Set(ByVal value As String)
_Text = value
End Set
End Property
Private _ID As Integer
Public Property ID() As Integer
Get
Return _ID
End Get
Set(ByVal value As Integer)
_ID = value
End Set
End Property
Sub New()
End Sub
Sub New(t As String, i As Integer)
Me._Text = t
Me._ID = i
End Sub
End Class

PS!!!:
- Implementierung des Serializable Interface bereits versucht
- Bei einer Google Suche stieß ich auf die Meinung einer Person, dass man keinen generischen Code verwenden soll blabla im Sub New, deshalb hatte ich auch testweise von System.Collections.Generic.List (o.ä...) auf normale Arrays umgebaut, aber das wollte auch nicht :(!

Andy16823 · 6. Februar 2014, 23:26

du musst die List of serilisieren

grüße Andy

Rootbob91 · 6. Februar 2014, 23:29

Ist das viel Arbeit?

Wie genau serialisieren, reicht die Setzung des Serializable-Attributes, oder muss dies komplett implememtiert werden mit GetObjectData oder wie die Funktion nochmal hieß? Kommt das dann in die einzelne Klasse foo, oder wie geht das? Würdest du bitte helfen?!

Das wäre echt göttlich wenn ich das noch hinbekommen würde, liege zwar gerade schon im Bett, aber dann würde ich nochmal rausspringen um das Erfolgserlebnis zu catchen :0

Grüße zurück :)!

Andy16823 · 6. Februar 2014, 23:36

so serialisierst du das

Deine Klasse aus der du die List of erstellen willst

VB.NET-Quellcode

<Serializable()> _
Public Class foo
'.....

und dann dein Code

VB.NET-Quellcode

<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
Private _foos As List(Of foo)
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
Public Property foos() As List(Of foo)
Get
Return _foos
End Get
Set(ByVal value As List(Of foo))
_foos = value
End Set
End Property

hoffe es ist so richtig, so funktioniert es bei mir in der Outbar

Rootbob91 · 6. Februar 2014, 23:41

Verdammte kacke xD.. So ähnlich hatte ich das vorhin mal, ich hatte das einmal auf Hidden stehen und einmal auf Content, allerdings (und jetzt kommt wahrscheinlich der Fail) nur 1x.

Du hast das ja für Property sowie für die Private Variable gesetzt gehabt, dass hatte ich nicht T.T..

Wäre geil wenns jetzt gelöst ist, ich hüpf mal raus und probiers aus :)!

Auf jeden Fall danke soweit!

EDIT:
Habs ausprobiert, leider kommt dann der angehangene Fehler

;(!
Nun ist noch ne kleine Info/Warnung hinzugekommen.

Andy16823 · 6. Februar 2014, 23:50

hast du das DGV als Control in einer Dll ? wenn ja, versuche sie mal mit ein Neues Projekt

Rootbob91 · 6. Februar 2014, 23:53

Nene, hab extra n frische Projekt aufgemacht, den Code so reingehauen einmal gedebuggt damit das Control in der Toolbox erscheint, auf die Form gezogen Debuggen - Fehler.

Was mir gerade noch aufgefallen ist: Instanziere ich das Control während der Laufzeit und via manuellem ..Controls.Add() dann klappt es. Über die Toolbox allerdings nicht, wobei das einer mit der größten Vorteile wäre.

Andy16823 · 6. Februar 2014, 23:58

Ich hasse diese Serilisierungs sachen, hmm, ich sende dir morgen mal die Sources eines Projektes von mir ok.

Rootbob91 · 6. Februar 2014, 23:59

Okay danke dir ;)!

ErfinderDesRades · 7. Februar 2014, 09:19

Rootbob91 schrieb:

Ich möchte einem Datagridview bei der Instanzierung im Sub New, eine neu hinzugefügte Eigenschaft von sich selbst als Datasource verwenden. Das will nicht

Sei froh, denn die Idee taugt glaub nix.
Nimm ein normales DGV, und gib ihm als Datasource die List(Of Foo)

Wie bist du auf die Idee verfallen, die List(Of Foo) müsste eine zusätzliche Property des DGVs sein?
Nun musste der Property einen Wert geben - denselben, den du zuvor der Datasource gegeben hättest.
Also was ist der Gewinn - ausser dass der FormDesigner spinnt?

us4711 · 7. Februar 2014, 10:24

Du musst bei Zuweisung von

VB.NET-Quellcode

CustomDGV1.foos = New List(Of foo) From {New foo("blaaaa", 1)}

im PopertySetter von Property foos die Datasource neu initialisieren (Zeile 10). Zeile 17 weist nämlich ein Objekt des Wertes NOTHING zu. Selbst bei Übernahme des auskommentierten Wertes in Zeile 15 würde eine leere List(of foo) zugewiesen

VB.NET-Quellcode

Public Class CustomDGV : Inherits DataGridView
Private _foos As List(Of foo)
Public Property foos() As List(Of foo)
Get
Return _foos
End Get
Set(ByVal value As List(Of foo))
_foos = value
Me.DataSource = Me._foos
End Set
End Property
Sub New()
'Me._foos = New List(Of foo)
Me.DataSource = Me._foos
End Sub
End Class

Zu meinem Verständnis: Warum der Umweg über die Property foos ? Direkte Zuweisung auf Datagridview.Datasource ergäbe das gleiche Ergebnis ...

//Edit:
@ErfinderDesRades war schneller ... sorry.

Rootbob91 · 7. Februar 2014, 10:52

Also allg. dachte ich mir das so:
Ich habe ungefähr an die 100 DGVs die Daten speichern, bzw. eher anzeigen müssen.
Und dann müsste ich sozusagen 100 getrennt Lists of anlegen und diese dem Datasource extra zuweisen.

Dann dachte ich mir gut, dann machste dir n DGV, welches die zu speichernden Daten als Eigenschaft hat, dann noch ne Funktion/Sub mit der du neue Items hinzufügst und die Enthaltenen kannst du dann über die Getter abfragen und bearbeiten.

An sich funktioniert das DGV jetzt.. Das einzige was noch n bisschen doof ist, ist das ich es nicht aus der Toolbox auf die Form ziehen kann, da gibt es noch ein Problem.
Mir war schon klar, dass ihr ggf. ne bessere Lösung habt und diese auch begründet, wie EDR oben angefangen hatte. Leider blicke ich da noch nicht so ganz durch wie er das gerade meint, könnte daran liegen das ich 15 Stunden Arbeit hinter mir habe und wenig Schlaf, sorry.

Der Datasource wird jetzt immer beim hinzufügen (über eine Sub) aktualisiert.

Ps: Noch eine Frage hätte ich, ich habe mich zwischendurch vertan, weil ich leider auch CustomDGV1.foos.Add() geschrieben hatte, statt es über die dafür angelegte funktion zu regeln (fooHinzufügen()).
Obwohl die Eigenschaft foos auf Readonly ist, kann ich .Add anwählen.

Kann man das deaktivieren? Wahrscheinlich müsste ich dafür ne eigene ListOf Klasse schreiben und dann die .Add() Funktion überschreiben oder sogar darin dann deaktivieren oder?

Andy16823 · 7. Februar 2014, 13:27

So habe es mal gebaut, den Source Kannst du gerne weite rausbauen, Ohne Namensnennung oder Sonstiges. Funktioniert mal bei mir.

Grüße Andy

ErfinderDesRades · 7. Februar 2014, 20:15

Rootbob91 schrieb:

Ich habe ungefähr an die 100 DGVs die Daten speichern, bzw. eher anzeigen müssen.
Und dann müsste ich sozusagen 100 getrennt Lists of anlegen und diese dem Datasource extra zuweisen.

naja - man hätte halt 100 BindingSources auf den Forms rumzufahren.
Was, wenn man eh 100 DGVs rumfahren hat, den Kohl auch nicht weiter fett macht.

Rootbob91 schrieb:

Leider blicke ich da noch nicht so ganz durch wie er das gerade meint,...

Darum solltest du dich vlt. bemühen, denn wenn du so weiter machst, wird vmtl. demnächst niemand mehr deine Anwendung durchblicken können.

Rootbob91 · 8. Februar 2014, 00:44

Hi Andy, habs mal ausprobiert, leider geht es noch nicht ganz.

Spiele jetzt schon wieder lange hier rum, allerdings gehts nicht.

Ich hab folgendes rausgefunden (da ich immer einen Index Fehler bekomme):
Man siehe sich die Codes an - Könnte mir das jemand erklären? Wie ich das löse?

"Code1 - Geht nicht"

VB.NET-Quellcode

Imports System.ComponentModel
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dgv_foo As New DBTerminDGV
Me.Controls.Add(dgv_foo)
dgv_foo.Hinzufügen(New foo("5","sddddd"))
End Sub
End Class
Public Class CustomDGV : Inherits DataGridView
Public Event foosChanged(e As List(Of foo))
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
Private _foos As New List(Of foo)
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
ReadOnly Property foos() As List(Of foo)
Get
Return _foos
End Get
End Property
Private _SichtbareSpalten As String() = New String() {}
Public Property SichtbareSpalten() As String()
Get
Return _SichtbareSpalten
End Get
Set(ByVal value As String())
_SichtbareSpalten = value
For Each C As DataGridViewColumn In Me.Columns
C.Visible = False
Next
Dim i As Integer = 0
For Each Spalte As String In _SichtbareSpalten
Dim Col As DataGridViewColumn = Me.Columns(Spalte)
If Not IsNothing(Col) Then
Col.Visible = True
Col.DisplayIndex = i
End If
i += 1
Next
End Set
End Property
''' <summary>
''' Setzt alle angegebenen Spalten (falls vorhanden) auf den gewählten Text. Bsp: = {"Spalte1;Text1","Spalte2;Text2"}
''' </summary>
''' <remarks></remarks>
Private _Spaltenbezeichnungen As String() = New String() {}
Public Property Spaltenbezeichnungen() As String()
Get
_Spaltenbezeichnungen = New String() {}
If Me.Columns.Count > 0 Then
Dim tmpList As New List(Of String)
For Each col As DataGridViewColumn In Me.Columns
tmpList.Add(col.HeaderText)
Next
_Spaltenbezeichnungen = tmpList.ToArray
End If
Return _Spaltenbezeichnungen
End Get
Set(values As String())
_Spaltenbezeichnungen = values
'für jede angegebene Spaltenkonfiguration prüfen
For Each Spbz As String In values
'ob eine Spalte mit der Bezeichnung vorhanden ist, wenn ja dann Text setzen
For Each Col As DataGridViewColumn In Me.Columns
If Col.Name = Spbz.Split(";")(0) Then Col.HeaderText = Spbz.Split(";")(1)
Next
Next
End Set
End Property
Sub New()
Me.DoubleBuffered = True
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
Me.DataSource = Nothing
Me.Refresh()
Me.DataSource = _foos
End Sub
Sub New(T As System.Collections.Generic.List(Of foo))
Me.DoubleBuffered = True
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
Me.DataSource = Nothing
Me.Refresh()
_foos = T
Me.DataSource = _foos
End Sub
#Region "######## METHODEN ##########################################################################################################################################################################################"
Public Sub Hinzufügen(ByVal T As foo)
Me.DataSource = Nothing
Me.Refresh()
_foos.Add(T)
Me.DataSource = _foos
RaiseEvent foosChanged(_foos)
End Sub
#End Region
End Class
<Serializable> _
Public Class foo
Private _ID As String
Public Property ID() As String
Get
Return _ID
End Get
Set(ByVal value As String)
_ID = value
End Set
End Property
Private _Betreff As String
Public Property Betreff() As String
Get
Return _Betreff
End Get
Set(ByVal value As String)
_Betreff = value
End Set
End Property
Sub New()
End Sub
Sub New(i As String, b As String)
Me._ID = i
Me._Betreff = b
End Sub
End Class

Leider habe ich im folgenden Beispiel dann einen leeren Eintrag.. Könnte mir jmd. helfen das zu fixen?

"Code2 - Geht!!"

VB.NET-Quellcode

Imports System.ComponentModel
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dgv_foo As New DBTerminDGV
Me.Controls.Add(dgv_foo)
dgv_foo.Hinzufügen(New foo With {.ID = 5, .Betreff = "sddddd"})
End Sub
End Class
Public Class CustomDGV : Inherits DataGridView
Public Event foosChanged(e As List(Of foo))
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
Private _foos As List(Of foo) = New List(Of foo) From {New foo()}
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
ReadOnly Property foos() As List(Of foo)
Get
Return _foos
End Get
End Property
Private _SichtbareSpalten As String() = New String() {}
Public Property SichtbareSpalten() As String()
Get
Return _SichtbareSpalten
End Get
Set(ByVal value As String())
_SichtbareSpalten = value
For Each C As DataGridViewColumn In Me.Columns
C.Visible = False
Next
Dim i As Integer = 0
For Each Spalte As String In _SichtbareSpalten
Dim Col As DataGridViewColumn = Me.Columns(Spalte)
If Not IsNothing(Col) Then
Col.Visible = True
Col.DisplayIndex = i
End If
i += 1
Next
End Set
End Property
''' <summary>
''' Setzt alle angegebenen Spalten (falls vorhanden) auf den gewählten Text. Bsp: = {"Spalte1;Text1","Spalte2;Text2"}
''' </summary>
''' <remarks></remarks>
Private _Spaltenbezeichnungen As String() = New String() {}
Public Property Spaltenbezeichnungen() As String()
Get
_Spaltenbezeichnungen = New String() {}
If Me.Columns.Count > 0 Then
Dim tmpList As New List(Of String)
For Each col As DataGridViewColumn In Me.Columns
tmpList.Add(col.HeaderText)
Next
_Spaltenbezeichnungen = tmpList.ToArray
End If
Return _Spaltenbezeichnungen
End Get
Set(values As String())
_Spaltenbezeichnungen = values
'für jede angegebene Spaltenkonfiguration prüfen
For Each Spbz As String In values
'ob eine Spalte mit der Bezeichnung vorhanden ist, wenn ja dann Text setzen
For Each Col As DataGridViewColumn In Me.Columns
If Col.Name = Spbz.Split(";")(0) Then Col.HeaderText = Spbz.Split(";")(1)
Next
Next
End Set
End Property
Sub New()
Me.DoubleBuffered = True
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
Me.DataSource = Nothing
Me.Refresh()
Me.DataSource = _foos
End Sub
Sub New(T As System.Collections.Generic.List(Of foo))
Me.DoubleBuffered = True
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
Me.DataSource = Nothing
Me.Refresh()
_foos = T
Me.DataSource = _foos
End Sub
#Region "######## METHODEN ##########################################################################################################################################################################################"
Public Sub Hinzufügen(ByVal T As foo)
Me.DataSource = Nothing
Me.Refresh()
_foos.Add(T)
Me.DataSource = _foos
RaiseEvent foosChanged(_foos)
End Sub
#End Region
End Class
<Serializable> _
Public Class foo
Private _ID As String
Public Property ID() As String
Get
Return _ID
End Get
Set(ByVal value As String)
_ID = value
End Set
End Property
Private _Betreff As String
Public Property Betreff() As String
Get
Return _Betreff
End Get
Set(ByVal value As String)
_Betreff = value
End Set
End Property
Sub New()
End Sub
Sub New(i As String, b As String)
Me._ID = i
Me._Betreff = b
End Sub
End Class

Ps: Es funktioniert auch, wenn ich im "nicht funktionierenden Code", ein Item hinzufüge, bevor das DGV zu den Controls hinzugefügt wird, dann gehts. Andernfalls kommt der Index-Fehler..
Selbst wenn ich nachträglich Items hinzufüge und diese auch im DGV angezeigt werden, kommt der Index-Fehler :thumbdown:

Der Fehler kommt scheinbar nur zustande, wenn das DGV eine leere Liste aufweist.

EDIT:
Hab den gerade beschrieben Fehler gefixt, indem ich eine Bindinglist statt der normalen List genommen habe.
Allerdings würde ich das ggf. noch gerne hinbekommen, dass man das Control aus der Toolbox ziehen und benutzen kann und nicht diese angehangene Fehler aus Post #5

CustomDGV, Datasource, Serializable, Token Error

CustomDGV, Datasource, Serializable, Token Error

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Rootbob91 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Rootbob91 schrieb:

Rootbob91 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben