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

Listbox1.AddItem poravnanje

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

[ Pregleda: 3067 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

steve585
Stevan Stanić
Project Manager
Zagreb

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



+1 Profil

icon Listbox1.AddItem poravnanje02.11.2007. u 17:37 - pre 200 meseci
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?
steve585
Prikačeni fajlovi
 
Odgovor na temu

BiF

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



Profil

icon Re: Listbox1.AddItem poravnanje02.11.2007. u 19:25 - pre 200 meseci
jedno resenje je da koristite fontove fiksne sirine (npr courier) drugo resenje je da npr umesto listbox koristite msflexgrid
Nijedan nepušač još nije preživeo.
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

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



+1 Profil

icon Re: Listbox1.AddItem poravnanje02.11.2007. u 20:10 - pre 200 meseci
Flex ne dolazi u obzir, radi se o VBA aplikaciji, tamo nisam nikada koristio Flex objekt.

Moze li pojasnjenje vezano za fontove.
steve585
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

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



+1 Profil

icon Re: Listbox1.AddItem poravnanje02.11.2007. u 20:45 - pre 200 meseci
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

steve585
 
Odgovor na temu

izonic
ishab zonic
Tuzla

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

Sajt: www.icentar.ba


+2 Profil

icon Re: Listbox1.AddItem poravnanje11.11.2007. u 17:28 - pre 200 meseci
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
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

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



+1 Profil

icon Re: Listbox1.AddItem poravnanje12.11.2007. u 15:44 - pre 200 meseci
Idjea stoji, ali problem je sto i jedna i druga kolona trebaju biti poravnate na lijevo., a ne samo jedna od njih.
steve585
 
Odgovor na temu

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

[ Pregleda: 3067 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

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