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

نشانه گذاری برای متن


alitabriz

سوال

خسته نباشید میخوام بدونم چطور میشه توی متن هایی که توی برناممون هست از ی جایی که مثلا داستان خیلی بلنده از جایی که خوندیم علامت گذاری کنیم و بعدا که رفتیم داخل همون داستان ادامشو از جایی که مونده بخونیم . ممنون میشم راهنمایی کنین

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

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

داداش این کل کدهامه ببین کجاهارو باید تغییر دیم خیلی ممنونم ببخشید زحمت زیاد دادم بهت

#Region Activity Attributes

#FullScreen: False

#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

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

Dim cur1 As Cursor

Dim TextSetting1 As TextSetting

Private Label1 As Label

Private ScrollView1 As ScrollView

Private Label2 As Label

Private ImageView1 As ImageView

Private ImageView2 As ImageView

Private Button1 As Button

Private Button2 As Button

Private ImageView4 As ImageView

Private ImageView3 As ImageView

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("gudzilamatn")

Dim Label1 As Label

Label1.Initialize("")

TextSetting1.Initialize()

ScrollView1.Panel.AddView(Label1,5,5,80%x,90%y)

cur1 = gudzila.sql1.ExecQuery("SELECT matn FROM gudzilaa WHERE list ='" &gudzila.meghdar & "'")

For i = 0 To cur1.RowCount-1

cur1.Position = i

Label1.text = cur1.GetString("matn")

Label1.TextColor = Colors.Black

If File.Exists(File.DirInternal,"FontType.txt") = False Then

File.Copy(File.DirAssets,"FontType.txt",File.DirInternal,"FontType.txt")

End If

If File.Exists(File.DirInternal,"FontSize.txt") = False Then

File.Copy(File.DirAssets,"FontSize.txt",File.DirInternal,"FontSize.txt")

End If

If File.Exists(File.DirInternal,"lineheight.txt") = False Then

File.Copy(File.DirAssets,"lineheight.txt",File.DirInternal,"lineheight.txt")

End If

Label1.Typeface = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".TTF")

TextSetting1.LongText(Label1,Label1.text,20,ScrollView1,1)

Next

End Sub

Sub Activity_Pause (UserClosed As Boolean)

ScrollView1.ScrollPosition

For i = 0 To cur1.RowCount-1

cur1.Position = i

Label1.text = cur1.GetString("matn")

cur1 .sql1.bank.ExecNonQuery("UPDATE matn SET zambyy=" & ScrollView.ScrollPosition &" WHERE Id=1"

End Sub

Sub ImageView1_Click

Dim i As Intent

Dim s As String

s = Label1.Text

i.Initialize(i.ACTION_SEND, "")

i.SetType("text/plain")

i.PutExtra("android.intent.extra.TEXT", s)

i.WrapAsIntentChooser("Share...")

StartActivity(i)

End Sub

Sub ImageView2_Click

StartActivity("Setting")

End Sub

Sub Button1_Click

Label1.TextColor = Colors.White

ImageView3.Enabled=False

ImageView3.Visible=False

ImageView4.Enabled=True

ImageView4.Visible=True

End Sub

Sub Button2_Click

Label1.TextColor = Colors.Black

ImageView3.Enabled=True

ImageView3.Visible=True

ImageView4.Enabled=False

ImageView4.Visible=False

End Sub

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

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

بایگانی شده

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

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

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