Srodne teme

10.10.2003. .NET setfocus
28.06.2004. listbox1.Items.SaveToFile(); kako sta?
15.04.2005. Uporedjivanje Listbox1 i Listbox2?
19.05.2005. poravnanje teksta u borlandu
03.12.2005. Slanje/Primanje fajla preko TCPklijent/server
18.07.2006. u ListBox podatke iz DataSet
26.07.2006. Poravnanje edit-a
04.08.2006. Pomoc oko dinamickog kreiranja klasa
16.08.2006. c# ekvivalent za ListBox1.Items.Item();
10.05.2007. ListBox - suma brojeva u listBoxu

Navigacija

Brisanje liste

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

Listbox1.AddItem poravnanje

[es] :: Visual Basic 6 :: Listbox1.AddItem poravnanje	[ Pregleda: 535 \| Odgovora: 5 ]	Postavi temu Odgovori

Autor

steve585
Stevan Stanić
Peskovec

Član broj: 131815
Poruke: 166
*.xnet.hr.

Profil

Listbox1.AddItem poravnanje

^{02.11.2007. u 17:37}

u exel tabeli imam podatke sljedeceg izgleda:

Naziv Status
Stevan 1
Stevan_Stevan 2
Stevan Stevan 3
Stevan Stevan 2 Stevan 4

Na userform dodao sam Listbox koji ucitava podatke iz navedene tabele.
Ovo je kod:

Code:

Private Sub UserForm_Click()
i = 1
Do While Sheets(1).Cells(i, 1) <> ""
   i = i + 1
     DS1 = Sheets(1).Cells(i, 1)
     DS2 = Sheets(1).Cells(i, 2)

     DS = DS1 & vbTab & vbTab & vbTab & vbTab & DS2
       ListBox1.AddItem DS
Loop
End Sub

E sada kada se izvsi ucitavanje status podaci su rastrkani po Listbox-u (vidi sliku u prilogu), a zelio bih da budu u jednom stupcu.

Sta bi trebalo napraviti da Status podaci budu u jednom stupcu u Listbox-u?

Prikačeni fajlovi

DS1.gif - 5.21k

^{02.11.2007. u 17:37}

BiF

Član broj: 39763
Poruke: 43
*.SMIN.panline.net.

Profil

Re: Listbox1.AddItem poravnanje

^{02.11.2007. u 19:25}

jedno resenje je da koristite fontove fiksne sirine (npr courier) drugo resenje je da npr umesto listbox koristite msflexgrid

^{02.11.2007. u 19:25}

steve585
Stevan Stanić
Peskovec

Član broj: 131815
Poruke: 166
*.xnet.hr.

Profil

Re: Listbox1.AddItem poravnanje

^{02.11.2007. u 20:10}

Flex ne dolazi u obzir, radi se o VBA aplikaciji, tamo nisam nikada koristio Flex objekt.

Moze li pojasnjenje vezano za fontove.

^{02.11.2007. u 20:10}

steve585
Stevan Stanić
Peskovec

Član broj: 131815
Poruke: 166
*.xnet.hr.

Profil

Re: Listbox1.AddItem poravnanje

^{02.11.2007. u 20:45}

Imam rjesenje

Code:

i = 1
Do While Sheets(1).Cells(i, 1) <> ""
   i = i + 1
     DS1 = Sheets(1).Cells(i, 1)
     UserForm1.TextBox1.Text = DS1
     Duzina = TextBox1.TextLength
     Rezervirano = 20
     Razlika = Rezervirano - Duzina
     For j = 0 To Razlika
        UserForm1.TextBox1.Text = UserForm1.TextBox1 & "x"
     Next j
     DS1 = UserForm1.TextBox1.Text
     DS2 = Sheets(1).Cells(i, 2)

     DS = DS1 & vbTab & vbTab & vbTab & vbTab & DS2
       ListBox1.Font = "Courier"
       ListBox1.AddItem DS
Loop

^{02.11.2007. u 20:45}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 378
*.PPPoE-5673.sa.bih.net.ba.

Sajt: www.icentar.com

Profil

Re: Listbox1.AddItem poravnanje

^{11.11.2007. u 17:28}

Private Sub UserForm_Click()
dim Ds1 as string *15
dim Ds2 as string *15
i = 1
Do While Sheets(1).Cells(i, 1) <> ""
i = i + 1
RSet DS1 = Sheets(1).Cells(i, 1)
RSet DS2 = Sheets(1).Cells(i, 2)
'desno za lijevo Lset
DS = DS1 & DS2
ListBox1.AddItem DS
Loop
End Sub

zxz

^{11.11.2007. u 17:28}

steve585
Stevan Stanić
Peskovec

Član broj: 131815
Poruke: 166
*.xnet.hr.

Profil

Re: Listbox1.AddItem poravnanje

^{12.11.2007. u 15:44}

Idjea stoji, ali problem je sto i jedna i druga kolona trebaju biti poravnate na lijevo., a ne samo jedna od njih.

^{12.11.2007. u 15:44}

[es] :: Visual Basic 6 :: Listbox1.AddItem poravnanje

[ Pregleda: 535 | Odgovora: 5 ]

Srodne teme

10.10.2003. .NET setfocus
28.06.2004. listbox1.Items.SaveToFile(); kako sta?
15.04.2005. Uporedjivanje Listbox1 i Listbox2?
19.05.2005. poravnanje teksta u borlandu
03.12.2005. Slanje/Primanje fajla preko TCPklijent/server
18.07.2006. u ListBox podatke iz DataSet
26.07.2006. Poravnanje edit-a
04.08.2006. Pomoc oko dinamickog kreiranja klasa
16.08.2006. c# ekvivalent za ListBox1.Items.Item();
10.05.2007. ListBox - suma brojeva u listBoxu

Navigacija

Brisanje liste

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