[ Srdjan Prpa @ 03.07.2007. 13:36 ] @
E ovako imam jedan TextBox ili ListBox moze i jedno i drugo, imam jos jedno TextBox2 polje gde cu upisivati broj na kolko grupa ce da mi se deli prvi TextBox ili ti ListBox i imam jos jedno dugme na kojem cu kad kliknem da mi u novom TextBox3 ispise nesumicni redolsed podeljen u onoliko grupa u kolko sam upisao u TextBox2.


Evo slike da vidite kako bi to izgledalo




http://i151.photobucket.com/albums/s129/highagain87/es.jpg
[ BinLaden @ 06.07.2007. 18:40 ] @
Mozes ovako:
Code:
Private Sub Command1_Click()
Dim I As Integer
Dim sKlan As Collection
Dim iCount As Integer
Dim iRnd As Integer

    Text1.Text = ""
    Set sKlan = New Collection
    
    For I = 0 To List1.ListCount - 1
        sKlan.Add List1.List(I)
    Next I
    
    While sKlan.Count > 0
        iCount = iCount + 1
        Text1.Text = Text1.Text & "> Grupa broj " & iCount & ":" & vbCrLf
        For I = 1 To Text2.Text
            If sKlan.Count = 0 Then
                Set sKlan = Nothing
                Exit Sub
            End If
            iRnd = Rnd(1) * sKlan.Count
            If iRnd = 0 Then iRnd = 1
            Text1.Text = Text1.Text & sKlan.Item(iRnd) & vbCrLf
            sKlan.Remove iRnd
        Next I
        Text1.Text = Text1.Text & vbCrLf
    Wend
    Set sKlan = Nothing
    
End Sub
[ Srdjan Prpa @ 08.07.2007. 12:16 ] @
Radi mi ovo samo sto mi prebaci u tekt kolonu redom a nece jedno ispod drugog kao sto je na slici, jel znas sta treba da se ispravi da bi mi pokazivalo jedno ispod drugog kao na slici gore?

[Ovu poruku je menjao highagain87 dana 08.07.2007. u 13:31 GMT+1]
[ Marko_L @ 08.07.2007. 14:01 ] @
Trebaš da staviš svojstvo Multiline textbox-a na true. I još bih ti predložio da dodaš Randomize na početku procedure inače ćeš svaki put kad startuješ program dobijati isti redosled.
[ Srdjan Prpa @ 08.07.2007. 15:28 ] @
Namestio sam Multiline textbox-a na true i radi mi. A jel mozes da mi pomognes kako da namestim randomize!
[ Marko_L @ 08.07.2007. 15:41 ] @
Posle linije Private Sub Command1_Click() samo upiši Randomize.
[ Srdjan Prpa @ 25.07.2007. 20:01 ] @
E kako da namestim da ako neko upise u text2 ili ti klanova po grupi brojeve 0 ili 1 da izbaci obavestenje da moraju veci brojevi da se ubace!
[ Marko_L @ 25.07.2007. 20:06 ] @
Ovo ubaciš u Click event Command Button-a pre onog koda koji si već dobio
Code:
If Val(Text2.Text) < 2 Then
Msgbox "Morate uneti veci broj"
Exit Sub
End If