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.
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
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]
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
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
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
Menjanje redosleda u TextBox ili ListBox HITNO
Registrovani: 3 ( zeoN_Rider, Ivan Dimkovic, bojanum )