ادد کردن یه فایل تکست(txt) به عنوان منو در لیست ویو

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

با سلام به دوستان گلم تو این آموزش نحوی ادد کردن یه فایل تکست(txt) به عنوان منودر لیست ویو ادد میکنیم

خوب بریم سر کارم

خوب اول در قسمت Globals این خاصیت هارو تعریف میکنیم

Sub Globals

Dim listview1 As ListView
Dim list1 As List
Dim text As String
End Sub

خوب حالا در قسمت Activity_Create مینویسیم:

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
    list1=File.ReadList(File.DirAssets,"list.txt") 'این قسمت واسه ادد کردن فایل تکست مون هست

listview1.Initialize("listview1")'اومدیم لیست ویو رو فراخوندیم
'listview1.Color=Colors.Green
Activity.AddView(listview1,0,41dip,100%x,100%y-82dip)'مقدار دادیم به لیست ویومون
For i = 0 To list1.Size-1'حلقه فور براش تعریف کردیم
text=list1.Get(i)
listview1.AddSingleLine(text)
Next

'این قسمت هم برای بهتر شدن لیست ویومون هست

Dim lbl  As Label                                                  
   lbl= listview1.SingleLineLayout.Label
   lbl.Gravity=Gravity.CENTER
   lbl.Left=lbl.Left-5dip
   lbl.Top=0dip
   lbl.TextColor = Colors.white
   lbl.TextSize  = 28
   lbl.Typeface=Typeface.LoadFromAssets("n.ttf")'ادد کردن فونت
End Sub

امیدوارم کمک کرده باشم

در آخر کار شما باید اینجوری بشه:

[ATTACH=CONFIG]231[/ATTACH]

[wryakamangar 10]

سلام باتشکر از آموزش خوبتون

من هر کاری کردم و هر فونتی رو اضافه کردم به جای متنی که نوشتم مربع میزاره

میشه ی فونت مناسب بهم معرفی کنید و راهنمایی کنید؟

باتشکر

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

حتما فونت شما مناسب نیست

خوب

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

اکر فونت هاش روی برنامه عمل میکنه

شخصی فرستادم

[wryakamangar 10]

اگه فونت خاصی نیازه پیوست کنید لطفا

[wryakamangar 10]

از فونتb nazanin استفاده کردم

ممنون

چه فونتی رو پیشنهاد میکنید؟

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

والا فونت دیگه باید سلیقه خودتون باشه*عطسه*

[wryakamangar 10]

*ناز*منظورم اینه که فونتی باشه که کار کنه!!!!!!

ی سوال دیگه برای کلیک روی هر کدوم از لیستها دستور رفتن به اکتیویتی دیگه مثلstartactivity()هست؟

ی تیکه از کد رو لطف میکنید؟

[wryakamangar 10]

آقا نیما مشکلم حل نشد*عطسه*

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

شما میتونی از ساب

Sub listview1_ItemClick (Position As Int, Value As Object)

End Sub

استفاده کنی

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

[nicetitle 18]

تو امولاتور مربع میاد

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

[wryakamangar 10]

نه تو خود گوشی درست نشون نمیده

ازb4a-bridgاستفاده میکنم

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

یعنی گوشی هم فونت هارو ساپورت نمیکنه؟؟؟؟

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

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

ببینین

[wryakamangar 10]

آقا دمت گرم درست شد.

[مهدی ایزدی 9,203]

آقا دمت گرم درست شد.

ضمن تشکر از اینکه در تاپیک ایجاد شده بعد از به هدف رسیدن تشکر و اعلام حل شدن موضوع میکنید.

فقط لطفا برای حمایت از پاسخ دهندگان از کلید تشکر که در زیر تمامی پست های دیگران وجود دارد استفاده کنید تا به رتبه افراد

در انجمن اضافه کنید. در کنار آن می توانید روی علامت ستاره ( افزودن به شهرت این کاربر ) هم استفاده کنید برای حمایت بشتر *همینه*

موفق باشید *قلب*

[wryakamangar 10]

*زبونک*ممنون و ی ستاره هم از طرف من به مدیر انجمن فعال

خسته نباشی.

[wryakamangar 10]

آقا ی سوال دیگه چطور برای این لیست ،لیست علاقه مندی بسازم؟*غمگین*

[mahfelsoft 130]

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

ببینید شما الان لیست ویو رو با سینگل لاین گذاشتی . من وقتی میخوام از twolines استفاده کنم دچار مشکل میشه . کدهای من اینا هست . میشه ببینید مشکلم کجاست ؟

    Dim listview1 As ListView
Dim list1 As List
Dim text As String
Dim text2 As String
End Sub  


Sub Activity_Create(FirstTime As Boolean)

    list1=File.ReadList(File.DirAssets,"ahd.txt") 'این قسمت واسه ادد کردن فایل تکست مون هست
    list1=File.ReadList(File.DirAssets,"ahd1.txt")
   listview1.Initialize("listview1")'اومدیم لیست ویو رو فراخوندیم
   'listview1.Color=Colors.Green
   Activity.AddView(listview1,0,41dip,100%x,100%y-82dip)'مقدار دادیم به لیست ویومون
   For i = 0 To list1.Size-1'حلقه فور براش تعریف کردیم
   text=list1.Get(i)
   text2=list1.Get(i)
   listview1.AddTwoLines2(text,text2,i)
   listview1.TwoLinesLayout.ItemHeight = 300
   Next

   'این قسمت هم برای بهتر شدن لیست ویومون هست

   Dim lbl  As Label     
   lbl= listview1.SingleLineLayout.Label
   lbl.Gravity=Gravity.CENTER
   lbl.Left=lbl.Left-5dip
   lbl.Top=5dip
   lbl.TextColor = Colors.white
   lbl.TextSize  = 20
   lbl.Typeface=Typeface.LoadFromAssets("mobham.ttf")'ادد کردن فونت


 lbl= listview1.TwoLinesLayout.SecondLabel
   lbl.Gravity=Gravity.CENTER
   lbl.Left=lbl.Left-5dip
   lbl.TextColor = Colors.white
   lbl.TextSize  = 20
   lbl.Typeface=Typeface.LoadFromAssets("mobham.ttf")'ادد کردن فونت

[مجید آرتا 5,875]

دوست من این کد نیازی نیست در حلقه باشه:

[color=#333333]    [b]listview1.TwoLinesLayout.ItemHeight = 300[/b][/color]

نیازی نیست یک متغییر Label برای مقدار دادن به پراپرتی های لیست ویو استفاده کنید.

شما بیا کد های مربوط به ارتفاع و تاپ و لفت و اینا رو قبل از حلقه بنویس بعد از ADDView بنویس مشکلت رفع میشه

[mahfelsoft 130]

ببینید من الان کدهامو اینطوری کردم

    Dim listview1 As ListView
Dim list1 As List
Dim text As String
Dim text2 As String
End Sub  


Sub Activity_Create(FirstTime As Boolean)

    list1=File.ReadList(File.DirAssets,"ahd.txt") 'این قسمت واسه ادد کردن فایل تکست مون هست
    list1=File.ReadList(File.DirAssets,"ahd1.txt")
   listview1.Initialize("listview1")'اومدیم لیست ویو رو فراخوندیم
   'listview1.Color=Colors.Green
   Activity.AddView(listview1,0,41dip,100%x,100%y-82dip)'مقدار دادیم به لیست ویومون
     Dim lbl  As Label      
   lbl= listview1.SingleLineLayout.Label
   lbl.Gravity=Gravity.CENTER
   lbl.Left=lbl.Left-5dip
   lbl.TextColor = Colors.Black
   lbl.TextSize  = 20
   lbl.Typeface=Typeface.LoadFromAssets("mobham.ttf")'ادد کردن فونت
   listview1.TwoLinesLayout.ItemHeight = 200

 lbl= listview1.TwoLinesLayout.SecondLabel
   lbl.Gravity=Gravity.CENTER
   lbl.Left=lbl.Left-5dip
   lbl.TextColor = Colors.Black
   lbl.TextSize  = 20
   lbl.Typeface=Typeface.LoadFromAssets("mobham.ttf")'ادد کردن فونت
   For i = 0 To list1.Size-1'حلقه فور براش تعریف کردیم
   text=list1.Get(i)
   text2=list1.Get(i)
   listview1.AddTwoLines2(text,text2,i)

   listview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"ash.jpg"))
   Next

End Sub

اما این شکلی میشه. متن خرابه

میبینید متن میره توی کادر . بعد تازه من متن سفیدی ندارم . نمیدونم این متن سفید چیه میاد . ببینید من متن رو درست لود کردم ؟