Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Menjanje redosleda u TextBox ili ListBox HITNO

[es] :: Visual Basic 6 :: Menjanje redosleda u TextBox ili ListBox HITNO

[ Pregleda: 2254 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

Član broj: 120238
Poruke: 131
82.208.236.*



+1 Profil

icon Menjanje redosleda u TextBox ili ListBox HITNO03.07.2007. u 13:36 - pre 175 meseci
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
 
Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

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

Sajt: www.sove-soft.rs.ba


Profil

icon Re: Menjanje redosleda u TextBox ili ListBox HITNO06.07.2007. u 18:40 - pre 175 meseci
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
 
Odgovor na temu

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

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



+1 Profil

icon Re: Menjanje redosleda u TextBox ili ListBox HITNO08.07.2007. u 12:16 - pre 175 meseci
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]
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.213.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Menjanje redosleda u TextBox ili ListBox HITNO08.07.2007. u 14:01 - pre 175 meseci
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
 
Odgovor na temu

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

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



+1 Profil

icon Re: Menjanje redosleda u TextBox ili ListBox HITNO08.07.2007. u 15:28 - pre 175 meseci
Namestio sam Multiline textbox-a na true i radi mi. A jel mozes da mi pomognes kako da namestim randomize!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.213.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Menjanje redosleda u TextBox ili ListBox HITNO08.07.2007. u 15:41 - pre 175 meseci
Posle linije Private Sub Command1_Click() samo upiši Randomize.
-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
 
Odgovor na temu

Srdjan Prpa
Senior FullStack developer
Cloud Horizon
Beograd, Srbija

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



+1 Profil

icon Re: Menjanje redosleda u TextBox ili ListBox HITNO25.07.2007. u 20:01 - pre 174 meseci
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!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.220.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Menjanje redosleda u TextBox ili ListBox HITNO25.07.2007. u 20:06 - pre 174 meseci
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

-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
 
Odgovor na temu

[es] :: Visual Basic 6 :: Menjanje redosleda u TextBox ili ListBox HITNO

[ Pregleda: 2254 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.