رفتن به مطلب
  • 0

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


hunter0010

سوال

سلام

من میخوام یه کتاب درست کنم اما مطالبش زیاده و نمیخوام برای هر موضوعی یه activity مجزا درست کنم میخواستم راهنماییم کنید که چه طور میشه تو قسمت sub click کد نوشت که بیاد یه فایل تکست بگیره و داخل یه لایوت نشون بده؟

و همین طور برای موضوع های دیگه هم بیاد یه فایل تکست دیگه رو بگیره و داخل همون لایوت نشون بده؟

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

6 پاسخ به این سوال تاکنون داده شده است

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


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

#Region Activity Attributes

#FullScreen: true

#IncludeTitle: false

#End Region

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

End Sub

Sub Globals

Dim panelheight As Int

Dim ScrollView1 As ScrollView

Dim PnelHeight As Int

Dim Text As String

Dim strUtil As StringUtils

Dim ht As Float

Dim mfont As Typeface

End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("LDoaImportant")

Text=File.ReadString(File.DirAssets,"txtDoaImportant.txt")

mfont=Typeface.LoadFromAssets("AdobeArabic-Regular.ttf")

scroll

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub scroll

ScrollView1.Initialize(500dip)

Activity.AddView(ScrollView1, 0, 17%y, 100%x, 70%y)

panelheight=0

Dim lbltest As Label

lbltest.Initialize("lbltest")

ScrollView1.Panel.AddView(lbltest,2dip, panelheight, 100%x-5dip, 50dip)

lbltest.TextSize=22

lbltest.TextColor=Colors.White

ht= art (Text,lbltest,mfont,22)

panelheight=panelheight+ht+25dip

panelheight=panelheight+80dip

ScrollView1.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")

Obj1.Target = leb

Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")

Obj1.Target = leb

after = Obj1.RunMethod("getLineHeight")

ht = ((after * ht)/before)

leb.Height = ht

Return ht

End Sub

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

دوستان منظورم بدون استفاده از دیتابیس بود

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

سلام ، اگه از دیتابیس استفاده کنی میتونم یه راه بهت بگم که کلا از یک اکتویتی و یک لایوت استفاده کنی دیگه نیاز نیست واسه هر موضوع و هر صفحه یک اکتویتی استفاده کنی

 

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

 

------------------

 

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

میتونی یه لایوت بسازی و توی رویداد کلیک آیتم لیست ویو تعریف کنی اگه روی آیتم1 کلیک شد بیا لایوت لود کن و فایل تکست فلان رو از فلان جا بگیر و = بده با لیبل و لیبل رو به اسکرول ادد کنی. یکم فکر کنی راهش رو پیدا میکنی

 

اگه کارت راه نیفتاد فردا وقت شد واست مینویسم الان پی سی آفیده !

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

سلام

شما بیا یه فایل تکست به پوشه File اضافه کن بعد با دستور Open فایل رو در لیبیل لود کنید

موفق باشید

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

سلام

ساختن کتاب به وسیله فایل تکست یکم پیچیدس.

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

بازم خواستید به صورت یک پروژه تجاری بنده واستون انجامش میدم ولی خب هیچ اصول درستی توی این مورد نیست.

موفق باشید.

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

بایگانی شده

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

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

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