Delete string from Combobox

[hosbar]

oke
dus ik was ff bezig met iets, en ik heb nu het volgende probleem, ik heb 1300 regels code, maar mijn vraag is, hy selecteert ergens uit 3 verschillende combobox'es random 1 ding, en die zet ie alledrie in een eigen textbox.
ik heb nog 3 textbox'es en nog EEN combobox, maar dan met een paar strings uit elke van de 3 combobox'es die ik hier boven heb gedaan, en daaruit worden 3 strings gehaald, en allemaal in hun eigen textbox gedaan, maar hoe kan ik er voor zorgen dat in de 3 textbox'es die ik als laatste noemde, NIET dezelfde string KUNNEN krijgen als.
dus hier een voorbeeld:

combobox1.items.add ("pietje")
combobox1.items.add("jantje")
combobox1.items.add("pieter")
combobox1.items.add("balkenende")
combobox1.items.add("etc")
combobox1.items.add("etcc")

'dan heb ik hier een random select dingetje, en dan gooi ik hem in de textbox

combobox2.items.add("drol")
combobox2.items.add("dit")
combobox2.items.add("dat")
combobox2.items.add("nog iets")
combobox2.items.add("trol")
combobox2.items.add("lolol")

'dan heb ik hier een random select dingetje, en dan gooi ik hem in de textbox

combobox3.items.add("a")
combobox3.items.add("b")
combobox3.items.add("c")
combobox3.items.add("d")
combobox3.items.add("e")
combobox3.items.add("f")
combobox3.items.add("g")

'dan heb ik hier een random select dingetje, en dan gooi ik hem in de textbox

comboboxmetallessamen.items.add("pietje")
comboboxmetallessamen.items.add("jantje")
comboboxmetallessamen.items.add("pieter")
comboboxmetallessamen.items.add("balkenende")
comboboxmetallessamen.items.add("a")
comboboxmetallessamen.items.add("b")
comboboxmetallessamen.items.add("c")
comboboxmetallessamen.items.add("d")
comboboxmetallessamen.items.add("drol")
comboboxmetallessamen.items.add("dit")
comboboxmetallessamen.items.add("dat")
comboboxmetallessamen.items.add("nog iets")

'een random select scriptje

textbox4.text = randomselectedding

maar hoe kan ik er dan voor zorgen dat iets dat in textbox1,2, of 3 zit ,dat dat niet in textbox4 kan komen?

alvast bedankt :)

 

[JoZ1]

Pseudo-code (zodat je het principe snapt):

[cpp]Do
Dim str As String = randomstring''// Selecteer een random string
Loop Until str <> ComboBox1.Text Or str <> ComboBox2.Text Or str <> ComboBox3.Text[/cpp]

 

[hosbar]

ik gebruik het nu zo:

Do
                Do
                    g = r.Next(special.Items.Count)
                Loop While g = special.SelectedIndex()
                out1.Text = special.Items(g).ToString()
                special.Items.Remove(special.Items(g))
            Loop Until out1.Text() <> perk1.Text Or out1.Text() <> Perk2.Text Or out1.Text() <> perk3.Text

            Do
                Do
                    g = r.Next(special.Items.Count)
                Loop While g = special.SelectedIndex()
                out2.Text = special.Items(g).ToString()
                special.Items.Remove(special.Items(g))
            Loop Until out2.Text() <> perk1.Text Or out2.Text() <> Perk2.Text Or out2.Text() <> perk3.Text

            Do
                Do
                    g = r.Next(special.Items.Count)
                Loop While g = special.SelectedIndex()
                out3.Text = special.Items(g).ToString()
                special.Items.Remove(special.Items(g))
            Loop Until out3.Text() <> perk1.Text Or out3.Text() <> Perk2.Text Or out3.Text() <> perk3.Text

maar het werkt niet.

 

[JoZ1]

Dat komt waarschijnlijk omdat je teveel Do-Loop's er in hebt zitten. Waarom zoveel?

 

[hosbar]

ze doen allemaal iets anders...

 

[JoZ1]

Probeer het eerst eens even zo ('k heb de overtollige Do-Loops weggehaald):

[CPP] Do
g = r.Next(special.Items.Count)
Loop While g = special.SelectedIndex()
out1.Text = special.Items(g).ToString()
special.Items.Remove(special.Items(g))
Loop Until out1.Text() <> perk1.Text Or out1.Text() <> Perk2.Text Or out1.Text() <> perk3.Text

Do
g = r.Next(special.Items.Count)
Loop While g = special.SelectedIndex()
out2.Text = special.Items(g).ToString()
special.Items.Remove(special.Items(g))
Loop Until out2.Text() <> perk1.Text Or out2.Text() <> Perk2.Text Or out2.Text() <> perk3.Text

Do
g = r.Next(special.Items.Count)
Loop While g = special.SelectedIndex()
out3.Text = special.Items(g).ToString()
special.Items.Remove(special.Items(g))
Loop Until out3.Text() <> perk1.Text Or out3.Text() <> Perk2.Text Or out3.Text() <> perk3.Text[/CPP]