Menjanje redosleda u TextBox ili ListBox HITNO

Menjanje redosleda u TextBox ili ListBox HITNO 03.07.2007. u 14:36 · pre 235 meseci #1

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

Re: Menjanje redosleda u TextBox ili ListBox HITNO 06.07.2007. u 19:40 · pre 235 meseci #2

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

Potpis

Ero S Onoga Sveta

Re: Menjanje redosleda u TextBox ili ListBox HITNO 08.07.2007. u 13:16 · pre 235 meseci #3

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?

Re: Menjanje redosleda u TextBox ili ListBox HITNO 08.07.2007. u 15:01 · pre 235 meseci #4

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.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Menjanje redosleda u TextBox ili ListBox HITNO 08.07.2007. u 16:28 · pre 235 meseci #5

Namestio sam Multiline textbox-a na true i radi mi. A jel mozes da mi pomognes kako da namestim randomize!

Re: Menjanje redosleda u TextBox ili ListBox HITNO 08.07.2007. u 16:41 · pre 235 meseci #6

Posle linije Private Sub Command1_Click() samo upiši Randomize.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Menjanje redosleda u TextBox ili ListBox HITNO 25.07.2007. u 21:01 · pre 234 meseca #7

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!

Re: Menjanje redosleda u TextBox ili ListBox HITNO 25.07.2007. u 21:06 · pre 234 meseca #8

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

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Forum kao aplikacija na telefonu

Srodne teme