Hallo,
ich bitte um Hilfe...
leider komme ich nicht mehr weiter...
Es geht um die Function doppelt().
Ich würde gerne beim Laden der Form und nach dem Hinzufügen der Items per Drag'n Drop zur Listbox, prüfen, ob in der Listbox Werte mehrfach vorkommen.
Also anz > 1...
Vielen Dank für die Hilfe...
Hier mein fehlerhafter Versuch:
ich bitte um Hilfe...
leider komme ich nicht mehr weiter...
Es geht um die Function doppelt().
Ich würde gerne beim Laden der Form und nach dem Hinzufügen der Items per Drag'n Drop zur Listbox, prüfen, ob in der Listbox Werte mehrfach vorkommen.
Also anz > 1...
Vielen Dank für die Hilfe...
Hier mein fehlerhafter Versuch:
VB.NET-Quellcode
- Public Class Form1
- Private Sub ListBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox.DragEnter
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- e.Effect = DragDropEffects.All
- End If
- End Sub
- Private Sub ListBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox.DragDrop
- Dim element As Integer = 0
- Dim j As Int32 = 0, z As Integer = 0
- Dim DroppedFiles As String() = e.Data.GetData(DataFormats.FileDrop)
- Dim DroppedFilesPath As String = DroppedFiles(j)
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- If RadioButtonHinzufügen.Checked Then
- For Each s As String In DroppedFiles
- ListBox.Items.Add(s)
- Next s
- Else
- If ListBox.Items.Contains(DroppedFilesPath) Then
- MessageBox.Show(DroppedFilesPath & " ist mehrfach vorhanden.")
- End If
- End If
- End If
- doppelt()
- End Sub
- Private Sub ButtonLoeschen_Click(sender As Object, e As EventArgs) Handles ButtonLoeschen.Click
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- RadioButtonHinzufügen.Checked = True
- doppelt()
- End Sub
- Function doppelt()
- Dim f As String = "", anz As Integer = 0, j As Integer = 0
- For j = 0 To ListBox.Items.Count - 1
- f = ListBox.Items.Item(j)
- For Each element In ListBox.Items
- If element.ToString.Contains(f) Then
- anz += 1
- If anz > 1 Then
- MessageBox.Show("Element mehrfach vorhanden: " & j.ToString)
- Exit For
- End If
- End If
- Next
- Next
- End Function
- End Class