ComboBox Items

Dancger · 6. Juni 2011, 14:35

Hallo zusammen
Ich habe wieder einmal eine Frage für euch.

Meine Form besteht aus mehreren Comboboxen, welche durchnummeriert sind (cb_f1 , cb_f2 ,.. u.s.w.)
Zweitens habe ich Zahlen von 1 - 12. Jede Zahl ist als Item bei jeder ComboBox drin.

Nun:
Wenn ich bei der ersten Box (cb_f1) die Zahl 4 auswähle, soll dann bei allen anderen nur noch alle Zahlen ohne 4 zur Auswahl stellen.
Wenn ich dann bei der zweiten Box (cb_f2) die Zahl 8 auswähle, sollen nur noch 1,2,3,5,6,7,9,10,11 und 12 zur Auswahl stehen.

Mein Pseudocode sieht so aus:

Spoiler anzeigen

Ich will nun wissen wie ich das am besten realisieren soll.
- Was würde sich für diese Liste anbieten?
- Wie kann ich alle anderen ComboBoxen ansprechen (Eine Schleife wer schön, so das ich nicht jede einzeln notieren muss)

Mfg Dancger

picoflop · 6. Juni 2011, 14:43

Dancger schrieb:

Wenn ich dann bei der zweiten Box (cb_f2) die Zahl 8 auswähle, sollen nur noch 1,2,3,5,6,7,9,10,11 und 12 zur Auswahl stehen.

Nur in den "folgenden" Boxen oder auch in den/der "davorliegenden"?

Dancger · 6. Juni 2011, 14:51

In allen den anderen ComboBoxen, ausser in denen, welche man bereits gewählt hat.
Also in den "folgenden" und in den "davorliegenden".

Hilft evtl zur Vorstellung:

Spoiler anzeigen

Mfg Dancger

RodFromGermany · 6. Juni 2011, 15:54

In SelectedIndexChange oder SelectedItemChange jeder Box ein RemoveItem der anderen Boxen aufrufen.

Dancger · 6. Juni 2011, 15:59

In die Richtung bin ich am basteln.

Mein Code denn ich bis jetzt habe sieht so aus:

VB.NET-Quellcode

Private Sub cb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Handles cb_Boatkill.SelectedIndexChanged, cb_Bombarde.SelectedIndexChanged, cb_Erfahrung.SelectedIndexChanged, cb_Gold.SelectedIndexChanged, cb_Holz.SelectedIndexChanged, cb_Map.SelectedIndexChanged, cb_Monstertruck.SelectedIndexChanged, cb_Musketeer.SelectedIndexChanged, cb_Nahrung.SelectedIndexChanged, cb_Speed.SelectedIndexChanged, cb_VIP.SelectedIndexChanged, cb_Win.SelectedIndexChanged
'Variablen
Dim Zähler As Integer = 0
'Schleife
For Each Ctrl As Control In gb_1.Controls
If TypeOf Ctrl Is ComboBox Then
Dim Item_gewählt As String = ""
If Not Ctrl.Text = "" Then
Liste_BereitsGewählt(Zähler) = Ctrl.Text
End If
End If
Next
Zähler = 0

So wird jede ComboBox abgefragt, im Change Event, und zu Testzwecken vorübergehend zurückgesetzt.

Also würdest du nicht alle gewählten Items auflisten und die Liste der noch nicht gebrauchten Items zuteilen, sondern direkt bei allen anderen das Item rauslöschen?
Wenn ja, könntest du mir einen Beispielcode oder sowas in der Art hinterlegen?

Mfg Dancger

Vitox · 6. Juni 2011, 16:00

machs so (Pseudo-Code):

Sub ComboBox_SelectedIndexChanged(...) Handles cb_f1.SelectedINdexChanged, cb_f2.SelectedINdexChanged, _ cb_f3.SelectedINdexChanged, ...

For Each c As Control In Me.Controls
If TypeOf(c) Is ComboBox Then
Dim com As ComboBox = DirectCast(c, ComboBox)
If Not com.Equals(sender) Then
com.Items.Remove(sender.SelectedItem)
EdnIf
EndIf
Next

End Sub

Gruß Vitox

fichz · 6. Juni 2011, 16:29

Würde das so lösen

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private sList As New List(Of Integer)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 12
sList.Add(i)
Next
For Each sControl In Me.Controls
If TypeOf sControl Is ComboBox Then
Dim objCombobox As ComboBox = CType(sControl, ComboBox)
For Each item In sList
objCombobox.Items.Add(item)
Next
End If
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged, ComboBox3.SelectedIndexChanged
For Each sControl In Me.Controls
If TypeOf sControl Is ComboBox Then
Dim objCombobox As ComboBox = CType(sControl, ComboBox)
If objCombobox.Focused Then
sList.Remove(CInt(objCombobox.SelectedItem.ToString))
End If
End If
Next
For Each sControl In Me.Controls
If TypeOf sControl Is ComboBox Then
Dim objCombobox As ComboBox = CType(sControl, ComboBox)
If Not objCombobox.Focused Then
objCombobox.Items.Clear()
For Each item In sList
objCombobox.Items.Add(item)
Next
End If
End If
Next
End Sub
End Class

lg

ErfinderDesRades · 6. Juni 2011, 18:07

Dancger schrieb:

Wenn ich bei der ersten Box (cb_f1) die Zahl 4 auswähle, soll dann bei allen anderen nur noch alle Zahlen ohne 4 zur Auswahl stellen.
Wenn ich dann bei der zweiten Box (cb_f2) die Zahl 8 auswähle, sollen nur noch 1,2,3,5,6,7,9,10,11 und 12 zur Auswahl stehen.

Was soll passieren, wenn du anschließend in cb_f1 die 8 auswählst?
Dann kann die in cb_f2 ja nicht mehr angewählt sein, oder? Was ist dann in cb_f2 angewählt, wenn nicht mehr die 8?

Soll die Logik sich weiter fortsetzen über alle Boxen, oder sollen nur cb_f1 und cb_f2 die Auswahl der anneren Boxen einschränken?

Kannst du uns vlt. mitteilen, was du wirklich möchtest? Weil diese Zahlenspielerei scheint ja nur eine Übung für was anneres zu sein, oder?

Dancger · 7. Juni 2011, 07:59

@Vitox
Ah mit sender kann man das realisieren?
Werd ich mir genauer anschauen

EDIT:
Also der Code funktioniert schonmal nicht schlecht, jedoch wenn ich in einer ComboBox mehrmals ein anderes Item auswählen, verschwinden diese alle aus den weiteren Boxen.

@fichz
Funktioniert das?
Du liest in die S List die Zahl 1 - 12 ein, und entfernst dann mit remove das Item, was jedoch nicht in der Liste steht, ich würde ma behaupten du hast selextedIndex gemeint..

@Erfinder des Rades
Die Zahl 8 sollte gar nicht mehr zur Verfügung stehen. Wenn ich in cb_f1 die 8 will, muss ich sie zuerst aus der cb_f2 rausnehmen, also auf None stellen, und danach die 8 bei cb_f1 wählen.

Kurz und einfach gesagt:
Für alle ComboBoxen welche noch keine Zahl zugeordnet haben, sollen nur die Zahlen zur Verfügung stehen, welche noch nicht gewählt wurden.

Für die Zahlen 1 - 12 werde ich nacher f1 - f12 einfügen. Nur ein "f" dazu.
Vielleicht müsste man hier schon mit String arbeiten und nicht mit Integer.

Mfg Dancger

picoflop · 7. Juni 2011, 08:23

Dancger schrieb:

Vielleicht müsste man hier schon mit String arbeiten und nicht mit Integer.

Das spielt keine Rolle. Ein Item ist vom Typ OBJECT.

fichz · 7. Juni 2011, 08:27

Im Load wird die List Of mit 1-12 befüllt und an die Comboboxen verteilt.
Wird bei einer Combobox ein Item ausgewählt wird es aus der Liste entfernt. Bei den ComboBoxen welche nicht im Focus sind werden die Items gelöscht und die Liste vergibt diese neu. Somit fehlt der ausgewählte Eintrag. SelectedItem stimmt schon weil der Index sich immer ändert.
Der Code ansich funktioniert. Einziges Problem was noch abzufangen ist:
Wählt der User beispielsweise in der ersten Box ein Item (zB.: 4) aus, anschließend 3 und dann wieder 4 (was ja möglich ist da die erste ComboBox noch alle Items besitzt) wird es eine Exception geben da 4 nicht im in der Liste vorhanden ist.

Das müsstest du noch einbauen.

Zur Info: die Schleife durchlauft ALLE ComboBoxen auf der Form

lg

Dancger · 7. Juni 2011, 09:00

@picoflop
Stimmt :whistling:

Ausserdem kann ich es ja wenn nötig in einen anderen Datentyp wandeln, also den Wert der Combobox.

@fichz
Funktioniert eben noch nicht ganz

Zur Info: die Schleife durchlauft ALLE ComboBoxen auf der Form

Bei mir nicht, hab den Code so geändert, das die Controls von der Groupbox genommen werden.
Und in dieser Groupbox (gb_1) sind nur die benötigten ComboBoxen

Mein Code sieht gerade so aus:
Formvariablen:

Spoiler anzeigen

Load-Event:
Da alle Tasten "F1" bis "F12" verfügbar sind, werden sie in den array aufgelistet, die Werte aus der Comboboxxen gelöscht (Steht eben gerade anderes Zeug drin, kein Bock den Mist im Designer manuell zu löschen^^), alle Werte hinzufügen und alle auf "None" setzten.

Spoiler anzeigen

VB.NET-Quellcode

'Liste erstellen
For i = 0 To 11
tasten_verfügbar(i) = "F" & (i + 1).ToString
Next
'Werte aus ComboBoxen löschen
For Each c As Control In gb_1.Controls
If TypeOf (c) Is ComboBox Then
Dim com As ComboBox = DirectCast(c, ComboBox)
com.Items.Clear()
End If
Next
'Werte in ComboBoxen setzen
For Each c As Control In gb_1.Controls
If TypeOf (c) Is ComboBox Then
Dim com As ComboBox = DirectCast(c, ComboBox)
If Not com.Equals(sender) Then
com.Items.Add("None")
com.Items.Add("F1")
com.Items.Add("F2")
com.Items.Add("F3")
com.Items.Add("F4")
com.Items.Add("F5")
com.Items.Add("F6")
com.Items.Add("F7")
com.Items.Add("F8")
com.Items.Add("F9")
com.Items.Add("F10")
com.Items.Add("F11")
com.Items.Add("F12")
End If
End If
Next
'ComboBoxen Werte setzten
For Each c As Control In gb_1.Controls
If TypeOf (c) Is ComboBox Then
Dim com As ComboBox = DirectCast(c, ComboBox)
If Not com.Equals(sender) Then
com.SelectedItem = "None"
End If
End If
Next
Ready = True

Und im ChangedEvent steht das:
Falls ein Item gewählt ist, wird es in den Array "tasten_gewählt" geladen.
Aber nur wenn nicht kein oder das "None" Item ausgewählt ist.

Spoiler anzeigen

VB.NET-Quellcode

Private Sub cb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_Boatkill.SelectedIndexChanged, cb_Bombarde.SelectedIndexChanged, cb_Erfahrung.SelectedIndexChanged, cb_Gold.SelectedIndexChanged, cb_Holz.SelectedIndexChanged, cb_Map.SelectedIndexChanged, cb_Monstertruck.SelectedIndexChanged, cb_Musketeer.SelectedIndexChanged, cb_Nahrung.SelectedIndexChanged, cb_Speed.SelectedIndexChanged, cb_VIP.SelectedIndexChanged, cb_Win.SelectedIndexChanged
If Ready Then
'Zähler
Dim Zähler As Integer = 0
'Abfrage
For Each Ctrl As Control In gb_1.Controls
If TypeOf (Ctrl) Is ComboBox Then
Dim com As ComboBox = DirectCast(Ctrl, ComboBox)
If Not com.Equals(sender) Then
If Not com.SelectedIndex = -1 Then
If Not com.SelectedItem.ToString = "" And Not com.SelectedItem.ToString = "None" Then
tasten_gewählt(Zähler) = com.SelectedItem.ToString
Zähler += 1
Else
'Nichts
End If
End If
End If
End If
Next
For Each X As String In tasten_gewählt
If Not X Is Nothing Then
MsgBox(X.ToString)
End If
Next
End If
End Sub

Jetzt muss ich nur noch die String vom tasten_gewählten Array von dem tasten_verfügbaren Array entfernen, und dann denn die Strings vom tasten_verfügbaren Array allen anderen ComboBoxen zuweisen oder?
Oder mach ich einen Denkfehler..

Mfg Dancger

fichz · 7. Juni 2011, 09:52

Versteh nicht ganz was du da machst aber hab es nun abgeändert auf deine Bedürfnisse (Code von mir oben)
Auf der Form sind 3 ComboBoxen:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private sList As New List(Of String) ' Liste mit den ComboBoxItems
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sList.Add("<None>") 'None Eintrag
For i As Integer = 1 To 12
sList.Add("F" & i) 'Restliche Einträge
Next
For Each sControl In Me.Controls 'ComboBoxen befüllen
If TypeOf sControl Is ComboBox Then
Dim objCombobox As ComboBox = CType(sControl, ComboBox)
For Each item In sList
objCombobox.Items.Add(item)
Next
End If
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged, ComboBox3.SelectedIndexChanged
For Each sControl In Me.Controls 'Jedes Control durchgehen
If TypeOf sControl Is ComboBox Then 'Wenn Control eine ComboBox ist weiter
Dim objCombobox As ComboBox = CType(sControl, ComboBox) ' Neue Variable für Combobox
If objCombobox.Equals(sender) Then ' Ist die ComboBox der Sender
If sList.Contains(objCombobox.SelectedItem.ToString) Then 'Prüfen ob Item noch in der Liste ist
If Not objCombobox.SelectedItem.ToString = "<None>" Then 'Prüfen ob Item <None> ist
sList.Remove(objCombobox.SelectedItem.ToString) 'Wenn OK dann Item aus Liste löschen
Else
Exit Sub
End If
End If
End If
End If
Next
' Comboboxen neu befüllen
For Each sControl In Me.Controls ' Jedes Control durchgehen
If TypeOf sControl Is ComboBox Then ' Wenn Control ComboBox ist weiter
Dim objCombobox As ComboBox = CType(sControl, ComboBox) ' Neue Variable für ComboBox
If Not objCombobox.Equals(sender) Then ' Ist es NICHT der sender
objCombobox.Items.Clear() ' Items leeren
For Each item In sList ' Neu befüllen
objCombobox.Items.Add(item)
Next
End If
End If
Next
End Sub
End Class

getestet und funktioniert.

lg

Dancger · 7. Juni 2011, 10:42

Getestet und funktioniert nicht O.o

Sobald ich einer anderen ComboBox einen Wert zuteile, löscht er mir den Eintrag aus der vorher gewählten Box.
Hab es 1 zu 1 übernohmen, geht bei mir nicht.

Und wenn ich die 3 zugewiesen habe, der zweiten eine andere Zahl setzte, die 3 wieder lösche, ist sie weg

Dann kann ich sie gar nicht mehr auswählen.

Mfg Dancger

ErfinderDesRades · 7. Juni 2011, 11:00

VB.NET-Quellcode

Public Class frmExcludeSelectors
Private _DataTemplate As String() = {"None", "F0", "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9"}
Private _Combos As List(Of ComboBox)
Private Sub frmExcludeSelectors_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
_Combos = Me.Controls.OfType(Of ComboBox)().ToList
For Each combo In _Combos
Dim newSrc = New List(Of String)(_DataTemplate)
combo.DataSource = newSrc
Next
For Each combo In _Combos
AddHandler combo.SelectedIndexChanged, AddressOf ComboBox_SelectedIndexChanged
Next
End Sub
Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
For Each combo In _Combos
RemoveHandler combo.SelectedIndexChanged, AddressOf ComboBox_SelectedIndexChanged
Next
Dim selecteds As New List(Of String)
For Each combo In _Combos
Dim s = DirectCast(combo.DataSource, IList(Of String))(combo.SelectedIndex)
If s <> "None" Then selecteds.Add(s)
Next
For Each combo In _Combos
Dim s = DirectCast(combo.DataSource, IList(Of String))(combo.SelectedIndex)
Dim newSrc = New List(Of String)(_DataTemplate)
For Each itm In selecteds
If itm <> s Then newSrc.Remove(itm)
Next
combo.DataSource = newSrc
combo.SelectedIndex = newSrc.IndexOf(s)
Next
For Each combo In _Combos
AddHandler combo.SelectedIndexChanged, AddressOf ComboBox_SelectedIndexChanged
Next
End Sub
End Class

fichz · 7. Juni 2011, 11:05

Dachte das wolltest du so haben?
Beispiel:
In ComboBox 1 wird F3 ausgewählt. In ComboBox 2 und 3 werden F3 gelöscht.
In ComboBox 2 wird F10 ausgewählt. In ComboBox 1 und 3 wird F10 gelöscht.

Nun haben ComboBox1 und ComboBox3:
F1, F2, F4-F9 und F11,F12

ComboBox2:
F1,F2,F4-F12

Sollte dies nicht so sein?
Oder meintest du, dass es so passieren soll:

Beispiel:
In ComboBox 1 wird F3 ausgewählt. In ComboBox 2 und 3 werden F3 gelöscht.
In ComboBox 2 wird F10 ausgewählt. In ComboBox 1 und 3 wird F10 gelöscht.

Nun haben ComboBox1:
F1-F9 und F11,F12

ComboBox2:
F1,F2,F4-F12

ComboBox3:
F1,F2, F4-F9 und F11, F12

??

lg

Dancger · 7. Juni 2011, 11:19

Eigentlich wollte ich es so wie du in der zweiten Variante geschrieben hast.

Noch ein Anlauf zur Erklärung:

Spoiler anzeigen

Ich hoffe das es jetzt klar ist, ansonsten muss ich vielleicht ein Video, resp Gif Animation erstellen^^

Mfg Dancger

fichz · 7. Juni 2011, 11:38

Dancger schrieb:

Wenn ich jetzt die erste ComboBox wieder auf <None> stelle, soll:
In der ersten ComboBox: [<None>,F1,F2,F3,F4,F6,F7,F8,F9,F10,F11,F12]
In der zweiten ComboBox: [<None>,F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,F11,F12]
In der dritten ComboBox: [<None>,F1,F2,F3,F4,F6,F7,F8,F9,F10,F11,F12]

Es sind dann nur in der zweiten wieder alle Items verfügbar?

Dancger · 7. Juni 2011, 11:44

Ja. Weil die ComboBox 2 hat den Wert F5, und der eingene Wert soll in der ComboBox auch dargestellt werden.
Und da ComboBox 1 und 3 wieder leer sind, sollen alle angezeigt werden.

Eigentlich:
ComboBox Items = Alle Items - Alle schon ausgewählten + Eigener ComboBox Wert

Jeder Wert darf einfach nur einmal in allen ComboBoxen vorkommen.
Und damit man nicht nochmals einen gleichen Wert auswählen kann, sollen die bereits besetzten Werte nicht angezeigt werden.

Mfg Dancger

ErfinderDesRades · 7. Juni 2011, 11:54

warum probierste mein sample nicht mal aus?

ComboBox Items

ComboBox Items

Dancger schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Dancger schrieb:

Dancger schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Dancger schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben