Prikazi cijelu temu 21.02.2011 13:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Text Align u ListBox-u
Ovo je moja procedura iz posta 4 na nju sam i mislio i U rowsource da upises ovo gore sto sam ti dao.
Tada ti kirova procedura netreba.
Kirova procedura je dobra i tacno radi ali je poteska za koristiti pa sam ja napravio ovu sebi nekad prije.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PTXT(ByVal Str As String, P As String) As String
  2. Dim str1 As String * 27 ' ako ti je siroko onda ovdje stavi napr. 20 ali ne manje od broja karaktera
  3. str1 = Str
  4.  
  5. If P = "L" Then
  6. LSet str1 = Str
  7. PTXT = str1
  8. ElseIf P = "D" Then
  9. RSet str1 = Str
  10. PTXT = str1
  11. End If
  12. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.