رفتن به مطلب

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


نیما قبادی

ارسال‌های توصیه شده

با سلام به دوستان گلم تو این آموزش نحوی ادد کردن یه فایل تکست(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]

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 4 ماه بعد...

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

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

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

باتشکر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

خوب

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

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

شخصی فرستادم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

Sub listview1_ItemClick (Position As Int, Value As Object)

End Sub

استفاده کنی

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 4 هفته بعد...

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

ببینید شما الان لیست ویو رو با سینگل لاین گذاشتی . من وقتی میخوام از 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")'ادد کردن فونت

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

    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

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

attachment.php?attachmentid=1001&stc=1

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...