[es] - Menjanje redosleda u TextBox ili ListBox HITNO

highagain87
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 92
82.208.236.*

Sajt: www.djus.net

Profil

Menjanje redosleda u TextBox ili ListBox HITNO

^{03.07.2007. u 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

www.djus.net www.e-nalozi.info www.djusteam.net www.bmwmotorrad.rs

^{03.07.2007. u 13:36}

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba

Profil

Re: Menjanje redosleda u TextBox ili ListBox HITNO

^{06.07.2007. u 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

Ero S Onoga Sveta

^{06.07.2007. u 18:40}

highagain87
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 92
*.041net.co.yu.

Sajt: www.djus.net

Profil

Re: Menjanje redosleda u TextBox ili ListBox HITNO

^{08.07.2007. u 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]}

www.djus.net www.e-nalozi.info www.djusteam.net www.bmwmotorrad.rs

^{08.07.2007. u 12:16}

Marko_L
Marko Lošonc
Project Manager, Maxifer d.o.o
Beograd

Moderator
Član broj: 20532
Poruke: 2109
89.216.213.*

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoft.com

Profil

Re: Menjanje redosleda u TextBox ili ListBox HITNO

^{08.07.2007. u 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.

-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

^{08.07.2007. u 14:01}

highagain87
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 92
*.041net.co.yu.

Sajt: www.djus.net

Profil

Re: Menjanje redosleda u TextBox ili ListBox HITNO

^{08.07.2007. u 15:28}

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

www.djus.net www.e-nalozi.info www.djusteam.net www.bmwmotorrad.rs

^{08.07.2007. u 15:28}

Re: Menjanje redosleda u TextBox ili ListBox HITNO

^{08.07.2007. u 15:41}

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

^{08.07.2007. u 15:41}

highagain87
Srdjan Prpa
Srbija - Pozega

Član broj: 120238
Poruke: 92
*.eunet.yu.

Sajt: www.djus.net

Profil

Re: Menjanje redosleda u TextBox ili ListBox HITNO

^{25.07.2007. u 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!

www.djus.net www.e-nalozi.info www.djusteam.net www.bmwmotorrad.rs

^{25.07.2007. u 20:01}

Marko_L
Marko Lošonc
Project Manager, Maxifer d.o.o
Beograd

Moderator
Član broj: 20532
Poruke: 2109
89.216.220.*

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoft.com

Profil

Re: Menjanje redosleda u TextBox ili ListBox HITNO

^{25.07.2007. u 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

^{25.07.2007. u 20:06}