و به لیبل هم یک متن طولانی میدم!تا اینجا همچی منطقی و باید در هر صفحه متن طولانی اسکرول بخوره!
ولی نمیشه! متن اسکرول نمیخوره ! (نمایش داده میشه)
این هم کد های اکتیویتی کریت :
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("reading_part")
'Initialize a PageContainer Object with 3 pages. Each page contains a panel with different color
PC.Initialize
For i = 0 To 4
Dim p As Panel
p.Initialize("")
p.Color = Colors.White
p.LoadLayout("scroll_view")
matn_roman.Initialize("")
sv.Panel.AddView(matn_roman,0,0,100%x,100%y)
tx.LongText(matn_roman,matn_roman.Text,16,sv,30)
matn_roman.TextColor = Colors.Black
Select i
Case 0
If fehrest_fasl.fasl = "fasl1" Then
matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part5.txt")
Else If fehrest_fasl.fasl = "fasl2" Then
matn_roman.Text = "متن قسمت 5 از فصل 2"
Else If fehrest_fasl.fasl = "fasl3" Then
matn_roman.Text = "متن قسمت 5 از فصل 3"
Else If fehrest_fasl.fasl = "fasl4" Then
matn_roman.Text = "متن قسمت 5 از فصل 4"
End If
PC.AddPage(p,"قسمت 5")
'-----------------------------------------------------------
Case 1
If fehrest_fasl.fasl = "fasl1" Then
matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part4.txt")
Else If fehrest_fasl.fasl = "fasl2" Then
matn_roman.Text = "متن قسمت 4 از فصل 2"
Else If fehrest_fasl.fasl = "fasl3" Then
matn_roman.Text = "متن قسمت 4 از فصل 3"
Else If fehrest_fasl.fasl = "fasl4" Then
matn_roman.Text = "متن قسمت 4 از فصل 4"
End If
PC.AddPage(p,"قسمت 4")
'-----------------------------------------------------------
Case 2
If fehrest_fasl.fasl = "fasl1" Then
matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part3.txt")
Else If fehrest_fasl.fasl = "fasl2" Then
matn_roman.Text = "متن قسمت 3 از فصل 2"
Else If fehrest_fasl.fasl = "fasl3" Then
matn_roman.Text = "متن قسمت 3 از فصل 3"
Else If fehrest_fasl.fasl = "fasl4" Then
matn_roman.Text = "متن قسمت 3 از فصل 4"
End If
PC.AddPage(p,"قسمت 3")
'-----------------------------------------------------------
Case 3
If fehrest_fasl.fasl = "fasl1" Then
matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part2.txt")
Else If fehrest_fasl.fasl = "fasl2" Then
matn_roman.Text = "متن قسمت 2 از فصل 2"
Else If fehrest_fasl.fasl = "fasl3" Then
matn_roman.Text = "متن قسمت 2 از فصل 3"
Else If fehrest_fasl.fasl = "fasl4" Then
matn_roman.Text = "متن قسمت 2 از فصل 4"
End If
PC.AddPage(p,"قسمت 2")
'-----------------------------------------------------------
Case 4
If fehrest_fasl.fasl = "fasl1" Then
matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part1.txt")
Else If fehrest_fasl.fasl = "fasl2" Then
matn_roman.Text = "متن قسمت 1 از فصل 2"
Else If fehrest_fasl.fasl = "fasl3" Then
matn_roman.Text = "متن قسمت 1 از فصل 3"
Else If fehrest_fasl.fasl = "fasl4" Then
matn_roman.Text = "متن قسمت 5 از فصل 4"
End If
PC.AddPage(p,"قسمت 1")
'-----------------------------------------------------------
End Select
Next
'Set the PageContainer for the ViewPager
VP.PageContainer = PC
VP.GotoPage(4,False)
'Set colors. The indicator color defaults to "colorAccent"
Dim ac As AppCompat
TabLayout.Color = Colors.RGB(233,30,99)
TabLayout.TabIndicatorColor = Colors.White
ToolBar.Color = Colors.RGB(233,30,99)
TabLayout.SetTabTextColors(Colors.White , Colors.White)
'TabLayot.TabIndicatorColor = Colors.White
'Connect the TabLayout with the Viewpager.
'This will create the tabs and will keep tabs and pages
'in sync and creates a nice indicator animation.
TabLayout.SetViewPager(VP)
ToolBar.Title = ""
End Sub
سوال
smm1378 2
سلام دوستان
من در یک تاپیک دیگه این مشکل رو مطرح کردم که نتیجه ای نداشت!
گفتم تو یک تاپیک مخصوص مطرح کنم اساتید بلاخره حلش کنند.
من با ahviewpager چند تا پتل ساختم که تو همش یک لایوت حاوی scrollview تمام صفحه ، لود میشه.
در اسکرول ویو هم با دستور زیر یک lable ادد میکنم:
scrollview1.panel.addview(lable1,0,0,100%x,100%y) scrollview1.heaght = 100%y scrollview1.withe = 100%x
و به لیبل هم یک متن طولانی میدم!تا اینجا همچی منطقی و باید در هر صفحه متن طولانی اسکرول بخوره!
ولی نمیشه! متن اسکرول نمیخوره ! (نمایش داده میشه)
این هم کد های اکتیویتی کریت :
Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("reading_part") 'Initialize a PageContainer Object with 3 pages. Each page contains a panel with different color PC.Initialize For i = 0 To 4 Dim p As Panel p.Initialize("") p.Color = Colors.White p.LoadLayout("scroll_view") matn_roman.Initialize("") sv.Panel.AddView(matn_roman,0,0,100%x,100%y) tx.LongText(matn_roman,matn_roman.Text,16,sv,30) matn_roman.TextColor = Colors.Black Select i Case 0 If fehrest_fasl.fasl = "fasl1" Then matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part5.txt") Else If fehrest_fasl.fasl = "fasl2" Then matn_roman.Text = "متن قسمت 5 از فصل 2" Else If fehrest_fasl.fasl = "fasl3" Then matn_roman.Text = "متن قسمت 5 از فصل 3" Else If fehrest_fasl.fasl = "fasl4" Then matn_roman.Text = "متن قسمت 5 از فصل 4" End If PC.AddPage(p,"قسمت 5") '----------------------------------------------------------- Case 1 If fehrest_fasl.fasl = "fasl1" Then matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part4.txt") Else If fehrest_fasl.fasl = "fasl2" Then matn_roman.Text = "متن قسمت 4 از فصل 2" Else If fehrest_fasl.fasl = "fasl3" Then matn_roman.Text = "متن قسمت 4 از فصل 3" Else If fehrest_fasl.fasl = "fasl4" Then matn_roman.Text = "متن قسمت 4 از فصل 4" End If PC.AddPage(p,"قسمت 4") '----------------------------------------------------------- Case 2 If fehrest_fasl.fasl = "fasl1" Then matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part3.txt") Else If fehrest_fasl.fasl = "fasl2" Then matn_roman.Text = "متن قسمت 3 از فصل 2" Else If fehrest_fasl.fasl = "fasl3" Then matn_roman.Text = "متن قسمت 3 از فصل 3" Else If fehrest_fasl.fasl = "fasl4" Then matn_roman.Text = "متن قسمت 3 از فصل 4" End If PC.AddPage(p,"قسمت 3") '----------------------------------------------------------- Case 3 If fehrest_fasl.fasl = "fasl1" Then matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part2.txt") Else If fehrest_fasl.fasl = "fasl2" Then matn_roman.Text = "متن قسمت 2 از فصل 2" Else If fehrest_fasl.fasl = "fasl3" Then matn_roman.Text = "متن قسمت 2 از فصل 3" Else If fehrest_fasl.fasl = "fasl4" Then matn_roman.Text = "متن قسمت 2 از فصل 4" End If PC.AddPage(p,"قسمت 2") '----------------------------------------------------------- Case 4 If fehrest_fasl.fasl = "fasl1" Then matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part1.txt") Else If fehrest_fasl.fasl = "fasl2" Then matn_roman.Text = "متن قسمت 1 از فصل 2" Else If fehrest_fasl.fasl = "fasl3" Then matn_roman.Text = "متن قسمت 1 از فصل 3" Else If fehrest_fasl.fasl = "fasl4" Then matn_roman.Text = "متن قسمت 5 از فصل 4" End If PC.AddPage(p,"قسمت 1") '----------------------------------------------------------- End Select Next 'Set the PageContainer for the ViewPager VP.PageContainer = PC VP.GotoPage(4,False) 'Set colors. The indicator color defaults to "colorAccent" Dim ac As AppCompat TabLayout.Color = Colors.RGB(233,30,99) TabLayout.TabIndicatorColor = Colors.White ToolBar.Color = Colors.RGB(233,30,99) TabLayout.SetTabTextColors(Colors.White , Colors.White) 'TabLayot.TabIndicatorColor = Colors.White 'Connect the TabLayout with the Viewpager. 'This will create the tabs and will keep tabs and pages 'in sync and creates a nice indicator animation. TabLayout.SetViewPager(VP) ToolBar.Title = "" End Sub
ممنون میشم دوستان این مشکلو برای همه حل کنید.
با تشکر!
لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.