افزودن فایل txt

[ali@ali 10]

سلام

من یه لیست ویو 8 تایی درست کردم ، 8 تا هم فایل txt دارم ... میخوام بدونم چجوری میشه فایل های طولانی و در قالب TXT بهشون اضافه کنم؟؟

فایل های txt فارسی هستند اگه چپ چین میشه راست چین کردنشم بگین پلیز!؟!؟!

فقط لطفا کد هارو میگین مَحَلشم بگین*گاز* خیلی تازه واردم ! ( مثلا بگین این کد برا sub globals و...)!!!

ممنونم )))

[ali@ali 10]

خوب فکر کنم از لیبل اومدی متن هارو گرفتی

پس بیا یکم با خاصیت های چپ و راست بازی کن

یعنی اول بیا لیبل رو بیار مثلا سمت راست

وبعد با لفت فاصله رو زیاد کن

اینجور:

l.gravity=gravity.right
l.left=left-10%x

خوب تو بیا این 10 بازی کن بعد به انداره که میخوای میرسی

نیما جان این کد هم به درد نخورد.... من میگم پایینش نشون داده نمیشه ... یعنی اصت نمیشه بکشی رو صفحه بره متن پایین تر و نشون بده

[dostmobile 329]

یه سورس دارم الان واست پیوست میکنم

میخوای رو آیتم ها کلیک بشه متن از تکست بیاد توی لیبل و نمایش بده درسته؟

[dostmobile 329]

حالا آموزشو میدم اگه نتونستی بگو سورس هم بزارم

Sub Globals

Dim scvMain As ScrollView
Dim PanelHeight As Int
Dim list1 As List
Dim text As String
Dim StrUtil As StringUtils
Dim ht As Float    
Dim myfont As Typeface
Dim Bitmap1 As Bitmap
End Sub

Sub Activity_Create(FirstTime As Boolean)

   Activity.LoadLayout("m2")
text = File.ReadString(File.DirAssets,"jok.txt")
myfont = Typeface.LoadFromAssets("byekan.ttf")
Bitmap1.Initialize(File.DirAssets,"o1.png")
sc
End Sub

Sub sc                                                                                 'تابع ساخت اسکرول ویو'
scvMain.Initialize(500)
Activity.AddView(scvMain, 0, 0, 100%x, 100%y)
PanelHeight=0


       Dim lblTest As Label
       Dim ImageView1 As ImageView


       ImageView1.Initialize("Imageview1")                       'اضافه کردن عکس اول'
       scvMain.Panel.AddView(ImageView1,((Activity.Width/2)-(Bitmap1.Width/2)),25dip,Bitmap1.Width,Bitmap1.Height)
       ImageView1.Bitmap=Bitmap1
       ImageView1.Gravity=Gravity.FILL
       PanelHeight=Bitmap1.Height+35dip


       lblTest.Initialize("lblTest")                                   'اضافه کردن متن'
       scvMain.Panel.AddView(lblTest,2dip, PanelHeight, 100%x-5dip, 50dip)
       lblTest.TextSize=18
       lblTest.TextColor = Colors.White
       ht=art(text,lblTest,myfont,20)
       PanelHeight=PanelHeight+ht+25dip


       lblTest.Initialize("lblTest1")                                   'اضافه کردن لینک'
       scvMain.Panel.AddView(lblTest,2dip, PanelHeight, 100%x-5dip, 50dip)
       lblTest.TextSize=22
       lblTest.TextColor = Colors.Yellow
       lblTest.text="منبع:سایت شمیم سافت"
       lblTest.Typeface=myfont
       lblTest.Gravity=Gravity.CENTER


       PanelHeight=PanelHeight+80dip

   scvMain.Panel.Height=PanelHeight
End Sub

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float                                  'تابع تنظیم ارتفاع لیبل ها'
Dim before,after As Float
   Dim Obj1 As Reflector
       leb.text=txt
       leb.TextSize=size
       leb.Gravity=Gravity.CENTER
       leb.Left=leb.Left
       leb.Typeface=font
   ht = StrUtil.MeasureMultilineTextHeight(leb , txt)
           Obj1.Target = leb  
           before = Obj1.RunMethod("getLineHeight")    'Get the height of line BEFORE you change it
           Obj1.Target = leb 
           Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")  'Change the space between lines
           Obj1.Target = leb 
           after = Obj1.RunMethod("getLineHeight")    'Get the height of line AFTER  you change it
           ht = ((after * ht)/before)
       leb.Height = ht
Return  ht

End Sub

تمام

فایل مربوطه رو پیوست کردم

scrool imp.rar

[ali@ali 10]

حالا آموزشو میدم اگه نتونستی بگو سورس هم بزارم

Sub Globals

Dim scvMain As ScrollView
Dim PanelHeight As Int
Dim list1 As List
Dim text As String
Dim StrUtil As StringUtils
Dim ht As Float    
Dim myfont As Typeface
Dim Bitmap1 As Bitmap
End Sub

Sub Activity_Create(FirstTime As Boolean)

   Activity.LoadLayout("m2")
text = File.ReadString(File.DirAssets,"jok.txt")
myfont = Typeface.LoadFromAssets("byekan.ttf")
Bitmap1.Initialize(File.DirAssets,"o1.png")
sc
End Sub

Sub sc                                                                                 'تابع ساخت اسکرول ویو'
scvMain.Initialize(500)
Activity.AddView(scvMain, 0, 0, 100%x, 100%y)
PanelHeight=0


       Dim lblTest As Label
       Dim ImageView1 As ImageView


       ImageView1.Initialize("Imageview1")                       'اضافه کردن عکس اول'
       scvMain.Panel.AddView(ImageView1,((Activity.Width/2)-(Bitmap1.Width/2)),25dip,Bitmap1.Width,Bitmap1.Height)
       ImageView1.Bitmap=Bitmap1
       ImageView1.Gravity=Gravity.FILL
       PanelHeight=Bitmap1.Height+35dip


       lblTest.Initialize("lblTest")                                   'اضافه کردن متن'
       scvMain.Panel.AddView(lblTest,2dip, PanelHeight, 100%x-5dip, 50dip)
       lblTest.TextSize=18
       lblTest.TextColor = Colors.White
       ht=art(text,lblTest,myfont,20)
       PanelHeight=PanelHeight+ht+25dip


       lblTest.Initialize("lblTest1")                                   'اضافه کردن لینک'
       scvMain.Panel.AddView(lblTest,2dip, PanelHeight, 100%x-5dip, 50dip)
       lblTest.TextSize=22
       lblTest.TextColor = Colors.Yellow
       lblTest.text="منبع:سایت شمیم سافت"
       lblTest.Typeface=myfont
       lblTest.Gravity=Gravity.CENTER


       PanelHeight=PanelHeight+80dip

   scvMain.Panel.Height=PanelHeight
End Sub

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float                                  'تابع تنظیم ارتفاع لیبل ها'
Dim before,after As Float
   Dim Obj1 As Reflector
       leb.text=txt
       leb.TextSize=size
       leb.Gravity=Gravity.CENTER
       leb.Left=leb.Left
       leb.Typeface=font
   ht = StrUtil.MeasureMultilineTextHeight(leb , txt)
           Obj1.Target = leb  
           before = Obj1.RunMethod("getLineHeight")    'Get the height of line BEFORE you change it
           Obj1.Target = leb 
           Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")  'Change the space between lines
           Obj1.Target = leb 
           after = Obj1.RunMethod("getLineHeight")    'Get the height of line AFTER  you change it
           ht = ((after * ht)/before)
       leb.Height = ht
Return  ht

End Sub

تمام

فایل مربوطه رو پیوست کردم

دمت گرم

فایل پیوست همون سورسشه؟

[ali@ali 10]

دوست عزیز دستت درد نکنه ولی من buttun درست نکردم همچنین اسکرول ویو

.

برا من لیست ویو هست http://s6.uplod.ir/i/00554/sl55egv5a8p3.png

چجوری واسش متن بزارم؟؟

[dostmobile 329]

عیب نداره درسته

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

[ali@ali 10]

dostmobile عزیز

سورس شما کلی کد داشت برای انواع تابع ها!!

اضافه کردن لینک و تابع اسکرول ویو نمیخوام بدتر منو گیج مینه!!

من فقط یه کد میخوام که بتونم فایل txt رو برا هرکدوم از فصل ها بزارم

[dostmobile 329]

دوتا تاپیک زدی و کلا گیج شدم!!!

یه لیست ویو میخوای با سه تا آیتم که روی هرکدوم کلیک بشه متن خاصی رو نشون بده؟؟؟؟

[ali@ali 10]

دوتا تاپیک زدی و کلا گیج شدم!!!

یه لیست ویو میخوای با سه تا آیتم که روی هرکدوم کلیک بشه متن خاصی رو نشون بده؟؟؟؟

بله

لیست ویو شو ساختم فقط لایوت جدیدم براشون ساختم فقط نمیدونم چجوری فایل تکست و بزارم

خیلیم فورییییییه!!

برا فردا صبح میخوامش*اشک کوچک*

[dostmobile 329]

دیگه خودت یه کم تلاش کن و از کدهایی که دادم استفاده کن و ایشالا موفق میشی

منم اگه اوایل بچه ها بهم سورس نمیدادن الان تنبل نمیبودم

متاسفانه هرچی خواستم بهم سورس دادن و چیزی یاد نگرفتم

[ali@ali 10]

آقا من سعی کردم و یه کارایی انجام دادم !

ولی وقتی فصل و باز میکنم این میاد ! http://s6.uplod.ir/i/00554/s344qarf5bna.png

کسی دلیلشو میدونه بگه ثواب کبیره داره

[حاج حسین 2,098]

این سورس اولین نمونه که من ساختم ببین به کارت میاد

New folder (8).rar

[ali@ali 10]

مرسی ولی نه

اینکه همش دیتا بیس و msgbox , toastmsg هست*گاز*

یه کد ساده برا فراخوانی فایل txt میخوام فقط

[حاج حسین 2,098]

دیتابیس کجا بوده ؟

تو هر قسمت لیست ویو یه استارت اکتیوتی که وقتی کلیک میکنی میره تو اکتیوتی مربوط به خودش

شما میخاید رو فصل اول کلیک شد تو همون اکتیوتی متنو نشون بده ؟

[ali@ali 10]

داداش حل شد

http://s6.uplod.ir/i/00554/vjewcsjel2fa.png

فقط میخوام متن فیت صفحه باشه... چیکارش کنم؟؟؟

[نیما قبادی 246]

از چی استفاده کردی تا بگم چیکارش کنی؟؟؟*تک قلب*

[ali@ali 10]

داداش یه مشکل دگهم داره... فایل ها که از صفحه پایین تره نشون داده نمیشه.... ینی میکشی رو صفحه گوشی برای دیدن مطلب پایین تر اتفاق خاصی نمیوفته... برا چیه؟

[ali@ali 10]

از چی استفاده کردی تا بگم چیکارش کنی؟؟؟*تک قلب*

نیما تو چرا واتس اپ نیستی :|

از این کد برا لود کردنش

Dim l As Label

l.Initialize("label1")

Activity.AddView(l,150dip,0,250dip,2000dip)

l.text = File.ReadString(File.DirAssets,"te.txt")

فک کنم مشکل خط سومه

پیکارش کنم؟

[نیما قبادی 246]

شما بگو از چی استفاده کردی ببینم میشه یا ن خوب؟؟؟؟*لال*

[ali@ali 10]

شما بگو از چی استفاده کردی ببینم میشه یا ن خوب؟؟؟؟*لال*

از

Sub Activity_Create(FirstTime As Boolean)	Dim l As Label	l.Initialize("label1")	Activity.AddView(l,150dip,0,250dip,2000dip)	l.text = File.ReadString(File.DirAssets,"te.txt")