iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	19.02.2011 14:48
Predmet:Text Align u ListBox-u Dali je moguće mjenjati poravnavanje teksta (Text Align) u ListBox-u. Imam jednu kolonu u kojoj je cijena, a sve kolone poravnate su u lijevo, a ova bi trebala biti u desno.

pmiroslav

19.02.2011 14:48

Predmet:Text Align u ListBox-u

Dali je moguće mjenjati poravnavanje teksta (Text Align) u ListBox-u.
Imam jednu kolonu u kojoj je cijena, a sve kolone poravnate su u lijevo, a ova bi trebala biti u desno.

zxz	19.02.2011 16:22
Predmet:Re: Text Align u ListBox-u U gueryu u novu kolonu polja fields napisi CijenaTXT:str(Imepoljacijene)

zxz

19.02.2011 16:22

Predmet:Re: Text Align u ListBox-u

U gueryu u novu kolonu polja fields napisi CijenaTXT:str(Imepoljacijene)

pmiroslav	19.02.2011 18:17
Predmet:Re: Text Align u ListBox-u NaÅ¾alost to ne pomaÅ¾e opet je poravnato lijevo i to bez oznake valute. 10 1000 0 Da bih imao oznaku valute iza broja napisao sam u Query TextCijena:Format([Cijena];"Currency") tekst poravnat u lijevu stranu.

pmiroslav

19.02.2011 18:17

Predmet:Re: Text Align u ListBox-u

NaÅ¾alost to ne pomaÅ¾e opet je poravnato lijevo i to bez oznake valute.

10
1000
0
Da bih imao oznaku valute iza broja napisao sam u Query
TextCijena:Format([Cijena];"Currency")
tekst poravnat u lijevu stranu.

zxz	19.02.2011 23:28
Predmet:Re: Text Align u ListBox-u Uf izvini ja sam mislio da hoces poravnati lijevo. Nije mi jasno kako si dobio lijevo ako je currenci, naime broj i novac sam poravnava desno. Zbog toga ja nisam ni razmisljao dok si napisao da je novac mislio sam da hoces ulijevo misleci da je trenutno desno. Ovu proceduru stavi u neki modul: PreuzmiIzvorni kôd (Visual Basic): Function PTXT(ByVal Str As String, P As String) As String Dim str1 As String * 50 ' ako ti je siroko onda ovdje stavi napr. 20 ali ne manje od broja karaktera str1 = Str If P = "L" Then LSet str1 = Str PTXT = str1 ElseIf P = "D" Then RSet str1 = Str PTXT = str1 End If End Function u Queriy u novom polju fields napisi: I: PTXT([imepolja];"d") a ucolumn width sirinu ovog polja 4,5

zxz

19.02.2011 23:28

Predmet:Re: Text Align u ListBox-u

Uf izvini ja sam mislio da hoces poravnati lijevo. Nije mi jasno kako si dobio lijevo ako je currenci, naime broj i novac sam poravnava desno.
Zbog toga ja nisam ni razmisljao dok si napisao da je novac mislio sam da hoces ulijevo misleci da je trenutno desno.
Ovu proceduru stavi u neki modul:

PreuzmiIzvorni kôd (Visual Basic):

Function PTXT(ByVal Str As String, P As String) As String
Dim str1 As String * 50 ' ako ti je siroko onda ovdje stavi napr. 20 ali ne manje od broja karaktera
str1 = Str
If P = "L" Then
LSet str1 = Str
PTXT = str1
ElseIf P = "D" Then
RSet str1 = Str
PTXT = str1
End If
End Function

u Queriy u novom polju fields napisi:
I: PTXT([imepolja];"d")
a ucolumn width sirinu ovog polja 4,5

pmiroslav	20.02.2011 11:51
Predmet:Re: Text Align u ListBox-u NaÅ¾alost ni to ne pomaÅ¾e. Tekst se prikaÅ¾e centiran na sredini i opet nema oznake valute.
Prilozi: ListBox.rar (Velicina datoteke:14.40 KB)

pmiroslav

20.02.2011 11:51

Predmet:Re: Text Align u ListBox-u

NaÅ¾alost ni to ne pomaÅ¾e. Tekst se prikaÅ¾e centiran na sredini i opet nema oznake valute.

Prilozi:
ListBox.rar (Velicina datoteke:14.40 KB)

Kiro	20.02.2011 13:29
Predmet:Re: Text Align u ListBox-u http://www.lebans.com/justicombo.htm Primjer:
Prilozi: ListBox_a.zip (Velicina datoteke:28.12 KB)

Kiro

20.02.2011 13:29

Predmet:Re: Text Align u ListBox-u

http://www.lebans.com/justicombo.htm

Primjer:

Prilozi:
ListBox_a.zip (Velicina datoteke:28.12 KB)

pmiroslav	20.02.2011 18:06
Predmet:Re: Text Align u ListBox-u Ovo je vrlo dobro iako malo bugovito. Prijetio sam da kada se promjeni veličina fonta, poravnanje se poremerti, a i dosta je teÅ¡ko podesiti Å¡irinu kolone u kojoj je tekst koji se poravnava.

pmiroslav

20.02.2011 18:06

Predmet:Re: Text Align u ListBox-u

Ovo je vrlo dobro iako malo bugovito.
Prijetio sam da kada se promjeni veličina fonta, poravnanje se poremerti, a i dosta je teÅ¡ko podesiti Å¡irinu kolone u kojoj je tekst koji se poravnava.

zxz	20.02.2011 20:27
Predmet:Re: Text Align u ListBox-u Zakaci primjer.

zxz

20.02.2011 20:27

Predmet:Re: Text Align u ListBox-u

Zakaci primjer.

pmiroslav	21.02.2011 11:03
Predmet:Re: Text Align u ListBox-u Evo primjer. Znači, ne mogu pravilno podesiti Å¡irinu kolone u kojoj je cijena. Ovdje je puno Å¡ira od potrebnog da bi se vidio tekst.
Prilozi: ListBox_2.rar (Velicina datoteke:63.05 KB)

pmiroslav

21.02.2011 11:03

Predmet:Re: Text Align u ListBox-u

Evo primjer.
Znači, ne mogu pravilno podesiti Å¡irinu kolone u kojoj je cijena. Ovdje je puno Å¡ira od potrebnog da bi se vidio tekst.

Prilozi:
ListBox_2.rar (Velicina datoteke:63.05 KB)

zxz	21.02.2011 12:52
Predmet:Re: Text Align u ListBox-u U rowsource Lista upisi: `SELECT tblArtikli.IDgrupe, tblArtikli.Sifra, tblArtikli.Proizvod, PTXT([Cijena],"D") & " kn" AS C FROM tblArtikli;` a u proceduri: Dim str1 As String * 27 ' ako ovo Mijenjas mora biti djeljivo sa 3. Nisi ni tamo u listu dobro napravio. Zbir svih kolona u listu mora biti jednak duzini lista.

zxz

21.02.2011 12:52

Predmet:Re: Text Align u ListBox-u

U rowsource Lista upisi:
SELECT tblArtikli.IDgrupe, tblArtikli.Sifra, tblArtikli.Proizvod, PTXT([Cijena],"D") & " kn" AS C FROM tblArtikli;

a u proceduri:
Dim str1 As String * 27 '

ako ovo Mijenjas mora biti djeljivo sa 3.
Nisi ni tamo u listu dobro napravio.
Zbir svih kolona u listu mora biti jednak duzini lista.