doppelte Einträge in der Listbox

vbfreak19 · 23. Juli 2010, 16:31

WICHTIG an Administration: Ich weis dieses Thema ist doppelt, aber das andere Thema finde ich nicht!!! ALSO MEIN PROBLEM: Wie kann ich durch einen klick auf einen Button alle doppelten Einträge in der Listbox löschen? Danke für eure Antworten

PascalN · 23. Juli 2010, 16:34

So: vbarchiv.net/tipps/tipp_1952-d…mbo-listbox-loeschen.html
Übrigens: Dass du dein Thema nicht findest ist logisch, denn nachdem du gestern 5(!!!) Threads zum EXAKT SELBEN THEMA eröffnet hast, wurden dies zu Recht gelöscht.

Gruss
Pascal

vbfreak19 · 23. Juli 2010, 16:36

Danke für schnelle Antwort, aber ich möchte es gerne mit einem Button click machen danke für antwort

Kangaroo · 23. Juli 2010, 16:37

vbfreak19 schrieb:

aber ich möchte es gerne mit einem Button click

Dann solltest Du es auch tun ...
@PacalN hübsche Lösung

PascalN · 23. Juli 2010, 16:38

OMG!!! Das ist eine Funktion! Die kannst du von (fast) überall aufrufen.
Lern Grundlagen.
Ich kann dir doch nicht sagen "Jetzt machst du CTRL+V da, dann drückst du Enter, dann suchst du 'Private' dann 'Sub', etc.."

http://openbook.galileocomputing.de/einstieg_vb_2008/
oder lies am besten zuerst DAS: [VB 2008] wie log ich in diese seite ein?

Gruss
Pascal

vbfreak19 · 23. Juli 2010, 16:38

danke aber die Erklärung von der Seite ist für mich nicht so verständlich

Kangaroo · 23. Juli 2010, 16:41

vbfreak19 schrieb:

danke aber die Erklärung von der Seite ist für mich nicht so verständlich

1. Nachdenken
2. Grundlagen lesen
3. Verstehen
4. nochmal nachdenken

und dann fragst Du hier nach dem was Du nicht verstanden hast ...

PascalN · 23. Juli 2010, 16:44

Nicht?
Wie gesagt: openbook.galileocomputing.de/einstieg_vb_2008/
Denn du willst doch Programmierer sein und nicht so ein obercooler 'C0d€r', der sich alles vorgaukeln lässt, nichts denkt und dann am Schluss ein '1334 Pr0009' haben will.
Programmierer lernen Grundlagen, lernen diese zu verstehen und zeigen Eigeninitiative.
Ich will dich jetzt keinen Falls beleidigen, aber bei deinen Fragen sehe ich nicht, dass du die Grundlagen (und wirklich die allerbasierendsten Grundlagen) beherrschst.
Denn dann hättest du sofort erkannt, dass das eine Funktion ist, ein wichtiger Bestandteil der OOP, welche du von verschiedenen Orten aufrufen kannst.

Gruss
Pascal

vbfreak19 · 23. Juli 2010, 16:45

ok frage was ist string-arrey? EDIT: Ich möchte jetzt nicht für dieses eine Project grundkenntnisse lernen, aber ich werde mir eure seiten anschauen

PascalN · 23. Juli 2010, 16:47

Erklärung eines Arrays: msdn.microsoft.com/de-de/library/system.array.aspx
Im Grunde genommen bietet eine Variable, die als Array deklariert ist, die Möglichkeit, mehrere Werte des selben Datentyps in einer Art Auflistung aufzunehmen.
Arrays werden folgendermassen deklariert:

VB.NET-Quellcode

'1. Methode
Dim arr() As String = {"hallo", "welt", "..."}
'2. Methode
Dim arr(5) As String
arr(0) = "hallo"
arr(1) = "welt"
arr(2) = ...
...

EDIT: Hier ist es ziemlich schön erklärt: openbook.galileocomputing.de/e…341930a21d550b8e961dbe979

Gruss
Pascal

vbfreak19 · 23. Juli 2010, 16:53

Früher hat mir mal einer so einen Code gegeben für nen Button aber habe ich verschmissen EDIT: Ich verspreche ich werde nie wieder hier ein Forum erstellen wenn ich bitte dieses Problem gelöst habe

PascalN · 23. Juli 2010, 16:58

Ääh doch es geht:

VB.NET-Quellcode

Public Class Form1
' Diese Funktion stammt aus dem Tipp:
' Doppelte Werte bei Ausgabe eines Arrays unterdrücken
Private Function DestinctArray(Of T)(ByVal arr() As T) As T()
Dim tList As New List(Of T)
For Each i As T In arr
If Not tList.Contains(i) Then
tList.Add(i)
End If
Next
Return tList.ToArray
End Function
Private Sub btnDoppeltLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDoppeltLöschen.Click
With ListBox1.Items
' Inhalt der Liste in ein String-Array kopieren
Dim sItems(.Count - 1) As String
.CopyTo(sItems, 0)
' ListBox löschen
.Clear()
' doppelte Einträge aus dem Array entfernen und
' Array zurück in die ListBox schreiben
.AddRange(DestinctArray(Of String)(sItems))
End With
End Sub
End Class

EDIT: Wieso hast du deinen obigen Post wegeditiert?

EDIT2:

Ich verspreche ich werde nie wieder hier ein Forum erstellen wenn ich bitte dieses Problem gelöst habe

Ok. Du meinst glaube ich Threads.. Und darum gehts es doch gar nicht, im Gegenteil. Du sollst ja Fragen stellen, ABER gleichzeitig Grundlagen lernen und Eigeninitiative aufbringen, damit man merkt, dass du auch arbeitest und nicht nur wartest bis irgendjemand dir Schritt für Schritt erklärt wie du das machen musst. Denn so vergisst du alles wieder in kürzester Zeit.

Gruss
Pascal

vbfreak19 · 23. Juli 2010, 17:00

Fehler 1 Der Name "DestinctArray" wurde nicht deklariert. C:\Users\Johannes\Documents\Visual Studio 2008\Projects\Mein Webbrowser\Mein Webbrowser\Form1.vb 672 23 Mein Webbrowser

PascalN · 23. Juli 2010, 17:02

Jetzt habe ich dir doch kompletten C&P Code gegeben, der EINWANDFREI funktioniert...
Schau dir das mal an.
Die Funktion 'DestinctArray' muss separat geschrieben werden...
So langsam aber sicher frage ich mich...

Gruss
Pascal

vbfreak19 · 23. Juli 2010, 17:04

...ich wollte doch nur meinen Browser verbessern *Heul*... ich werde die grundkentnisse lernen gut? Aber ich möchte das entlich erledigen

JU84553Hgd · 23. Juli 2010, 17:04

Du musst alles kopieren

NUR KOPIEREN + EINFÜGEN

Ist noicht schwer

PascalN · 23. Juli 2010, 17:05

vbfreak19 schrieb:

...ich wollte doch nur meinen Browser verbessern *Heul*... ich werde die grundkentnisse lernen gut? Aber ich möchte das entlich erledigen

DANN SCHAU AUF MEINEN OBIGEN POST!!!! Gibts ja nicht...

Oder nochmal hier:

VB.NET-Quellcode

' Diese Funktion stammt aus dem Tipp:
' Doppelte Werte bei Ausgabe eines Arrays unterdrücken
Private Function DestinctArray(Of T)(ByVal arr() As T) As T()
Dim tList As New List(Of T)
For Each i As T In arr
If Not tList.Contains(i) Then
tList.Add(i)
End If
Next
Return tList.ToArray
End Function
Private Sub btnDoppeltLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDoppeltLöschen.Click
With ListBox1.Items
' Inhalt der Liste in ein String-Array kopieren
Dim sItems(.Count - 1) As String
.CopyTo(sItems, 0)
' ListBox löschen
.Clear()
' doppelte Einträge aus dem Array entfernen und
' Array zurück in die ListBox schreiben
.AddRange(DestinctArray(Of String)(sItems))
End With
End Sub

@Mod: Ich glaube, hier kann geschlossen werden...

Gruss
Pascal

vbfreak19 · 23. Juli 2010, 17:07

nur ich suche grade aber nirgens steht wie man DestinctArray schreibt

jvbsl · 23. Juli 2010, 17:08

Private Function DestinctArray(Of T)(ByVal arr() As T) As T()
Dim tList As New List(Of T)
For Each i As T In arr
If Not tList.Contains(i) Then
tList.Add(i)
End If
Next
Return tList.ToArray
End Function

tatsächlich ich kann das auch nirgends finden...

SystemUnknow · 23. Juli 2010, 17:08

ich poste mal C&P, dann ist schluss mit lustig:
visual-basic5.de/vbclassic/dotnet/noduitem.htm

Lerne zuerst Grundlagen/Programmieren:
openbook.galileocomputing.de/einstieg_vb_2008/
openbook.galileocomputing.de/vb_net/msvb010000.htm

doppelte Einträge in der Listbox

doppelte Einträge in der Listbox

vbfreak19 schrieb:

vbfreak19 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

vbfreak19 schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben