نحوه جدا کردن اعداد در لیست باکس

[shamim_41]

با سلام
می خواهم در لیست باکس ارقام را بصورت سه رقم سه رقم از یکدیگر جدا کنم اما در پروپرتیز لیست باکس گزینه ای به نام Inputmask پیدا نکردم چیزی که تو گرید هست آیا روشی برای این کار هست.
- از گزینه RighttoLeft جهت راست چین کردن در لیست باکس استفاده کردم اما راست چین نمیشه باید چه کار کنم؟
جستجو هم کردم چیزی پیدا نکردم استادان عزیز اگه لینکی هست لطف کنند بزارن هینجا
با تشکر :گریه:

[farhad_shiri_ex]

اول اینکه بله روشی هست!!! باید از کد زیر در Listbox تان طوری استفاده نمایید که در هنگام نمایش اعداد 3 رقم 3 رقم جدا شوند.


FUNCTION sepbyvirgul
PARAMETERS x

IF x<0
RETURN '-'+sepbyvirgul(-x)
ENDIF

si = ALLTRIM(STR(x))
s = ''

DO while LEN(si)>3
s = ','+RIGHT(si,3)+s
si = LEFT(si,LEN(si)-3)
endd

RETURN si+s



و بعد هم اینکه Left to Right کردن Object ها در V-fox از طریق کلاسها ممکن است!..

[shamim_41]

با تشکر از فرهاد عزیز
اگه ممکنه یک مثال هم از کلاس برام بزارین ممنونم

[shamim_41]

ببین بیشتر توضیح بدم من از rowsource در یک تکس باکس استفاده می کنم که اینو در قسمت Interactivechange قرار دادم که از اونجا لیست باکس رو فراخوانی می کنه این یک سرچه حالا مشکل من اینکه این فانکشنو باید کجا بزارم نمونه این فانکشنو را هم توی توابع شرکت نفت دارم
با تشکر