|
| |
VB.NET - Ein- und Umsteiger| Problem mit DirectCast | |  | | Autor: Dideldum | | Datum: 19.12.22 19:20 |
| Hallo Ihr Profis,
ich habe eine ListView "liv_Dateien" und möchte diese nach Spaltenkopfklick sortieren lassen.
Hierzu habe ich ein Script im VB-Paradise verwendet:
https://www.vb-paradise.de/index.php/Thread/9730-listview-nach-spalten-sortieren/
und zusätzlich das vom:
Donnerstag, 29. März 2018, 19:23
zugefügte Script verwendet
Private Sub ColumnSort(ByVal columnindex As Int32)
Dim idx As Int32 = columnindex
If Not idx = colIndex Then
colIndex = idx
sortord = SortOrder.Descending
End If
'Sortierung umkehren
If Not sortord = SortOrder.Ascending Then
sortord = SortOrder.Ascending
Else : sortord = SortOrder.Descending
End If
Dim typ As Type = Me.GetColumnType(idx)
Me.liv_Dateien.ListViewItemSorter = New ListViewItemComparer(idx, typ, _
sortord)
End Sub
Private Function GetColumnType(ByVal idx As Int32) As Type
'Den Type per Designer (oder per Code) in das Tag-Property des
' ColumnHeader
'schreiben, dann kann man so drauf greifen.
Return DirectCast(Me.liv_Dateien.Columns(idx).Tag, Type)
End Function
End ClassHierin geht es darum, in den Spaltenköpfen der Listview den zu sortierenden Spalten-Type in den jeweiligen Tags eingegebenen String ("String", "Integer", "Long" oder "Date") mit DirectCast in das Format Type umzuwandeln.
Also habe ich die Tags entsprechend befüllt.
Tag(0) = "String" (Dateimname)
Tag(1) = "String" (Dateityp)
Tag(2) = "Long" (Grösse)
Tag(3) = "Date" (Erstellungsdatum)
Tag(4) = "Date" (Bearbeitungsdatum)
Klicke ich aber im gestarteten Programm auf einen der fünf Spaltenköpfe des Listviews, erhalte ich eine "Unbehandelte Ausnahme" mit Inhalt "System.InvalidCastException: Das Objekt des Typs "System.String" kann nicht in Typ "System.Type" umgewandelt werden.
Irgendwas mit dem "DirectCast" scheint nicht zu funktioinieren.
Da müsste eigentlich der Inhalt des Tag.Strings als entsprechender Type zurückgegeben werden.
Da ich absolut keine Erfahrung damit habe, wäre es nett, wenn mir hier einer von Euch weiterhelfen könnte.
Beste Grüsse | |
| Re: Problem mit DirectCast | | | | Autor: Dideldum | | Datum: 20.12.22 19:42 |
| Habe mich inzwischen anders beholfen.
Meine Viewlist arbeitet inzwischen und ich kann durch Klicken auf die Spaltenköpfe Up/Down sortieren.
Aber interessieren würde es mich schon, wie man aus einem Stringinhalt, der die Angabe eines Typs beinhaltet, tatsächlich einen Type-Wert machen kann.
Falls mir da jemand auf die Sprünge helfen könnte, wäre es nett.  | |
| Re: Problem mit DirectCast | | | | Autor: sv00010 | | Datum: 23.12.22 18:29 |
| Dideldum schrieb:
| Zitat: | |
Falls mir da jemand auf die Sprünge helfen könnte, wäre es
nett. | |
Die Typnamen sind schon mal falsch geschrieben.
Der Typname heisst in Wirklichkeit nicht String, sondern System.String.
Die anderen Typnamen müssen auch richtig benannt werden, also z.B. nicht Long, sondern System.Int64 usw. | |
| Re: Problem mit DirectCast | | | | Autor: Dideldum | | Datum: 23.12.22 18:47 |
| Hi, danke Dir für die Info.
Allerdings scheint es, dass "String" korrekt als "System.string" interpretiert wurde.
Zumindest der Fehlermeldung nach.
Ich kann das leider nicht mehr testen, da ich das Script umgemoddelt und an meine Anforderungen adaptiert habe.
Muss das aber bei Gelegenheit nochmal ausführlich testen.
Kann ja sein, dass ich das nochmal wo brauchen werde.
Frohe Weihnachten @all und beste Grüsse | |
 | 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 |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.