alitabriz 31 ارسال شده در 27 آذر، ۱۳۹۳ اشتراک گذاری ارسال شده در 27 آذر، ۱۳۹۳ خسته نباشید میخوام بدونم چطور میشه توی متن هایی که توی برناممون هست از ی جایی که مثلا داستان خیلی بلنده از جایی که خوندیم علامت گذاری کنیم و بعدا که رفتیم داخل همون داستان ادامشو از جایی که مونده بخونیم . ممنون میشم راهنمایی کنین لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Farzad Musavi 576 ارسال شده در 28 آذر، ۱۳۹۳ اشتراک گذاری ارسال شده در 28 آذر، ۱۳۹۳ داداش این کل کدهامه ببین کجاهارو باید تغییر دیم خیلی ممنونم ببخشید زحمت زیاد دادم بهت#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 علی جان کدهاتو تو کادر بزار لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
alitabriz 31 ارسال شده در 28 آذر، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 28 آذر، ۱۳۹۳ ببخشید بلد نبودم میشه راهنماییم کنین ؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
alitabriz 31
خسته نباشید میخوام بدونم چطور میشه توی متن هایی که توی برناممون هست از ی جایی که مثلا داستان خیلی بلنده از جایی که خوندیم علامت گذاری کنیم و بعدا که رفتیم داخل همون داستان ادامشو از جایی که مونده بخونیم . ممنون میشم راهنمایی کنین
لینک ارسال
به اشتراک گذاری در سایت های دیگر
22 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.