استفاده از یک sub در اسکرول ویو

[Moonday 3]

سلام!

یک (این اولین تاپیک منه!)

من یه ساب تعریف کردم که بشه به کمکش یه عکس رو دریافت کرد و اونو به ادامه مطالب یه اسکرول ویو اضافه کرد. منتها هم نمی دونم درست نوشتمش یا نه (نوعی کپی  سازی از یک ساب هست که متن رو می گیره و توی اسکرول ویو نشون میده) و هم نمی دونم چطوری توی اسکرول ویو بهش مقدار بدم. دوستان لطف می کنید راهنمایی کنید. ممنون

Sub addImg (Img As ImageView)
	
	Dim ImgView As ImageView
	ImgView.Initialize("ImgView")
	ImgView.Bitmap=Img
	
	If sc.Panel.NumberOfViews>0 Then h=sc.Panel.GetView(sc.Panel.NumberOfViews-1).Height+sc.Panel.GetView(sc.Panel.NumberOfViews-1).Top

	sc.Panel.AddView(ImgView,10%x,h+5dip,80%x,0)
	ImgView.Height=Img.Height

	sc.Panel.Height=h+ImgView.Height
	
End Sub

 

[reza sabouri 444]

درود

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

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	

End Sub

Sub Globals
	
	Dim bit1 As Bitmap
	Dim bit2 As Bitmap

	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("Layout1")
	bit1.Initialize(File.DirAssets,"answercenter.png")
	bit2.Initialize(File.DirAssets,"answercenter.png")
	Dim top As Int
	top=0
	Dim a2() As Bitmap
	a2=Array As Bitmap(bit1,bit2)
	For i = 0 To a2.Length-1
		Dim img As ImageView
		img.Initialize("")
		ScrollView1.Panel.AddView(img,0,top,100%x,15%y)
		img.Bitmap=a2(i)
		top=top+70%y
		ScrollView1.Panel.Height=top+1%y
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

[Moonday 3]

بسیار سپاسگزار!

فقط یکم گیج شدم! مطلب اینه که من می خوام از تابع بالا (ساب بالا) وسط یه اسکرول ویو استفاده کنم که البته توش یه سری متن و لیبل و تایتل هم هست. اون بقیه خوب کار می کنن چون کد رو کپی کردم ;) حالا میخوام به همون ترتیب یه ساب دیگه هم بذارم که با گرفتن اسم عکس ، عکسو در ادامه اون مطالب لود کنه و بعدش دوباره یه ساب مربوط به یه متن دیگه رو لود کنم!

ساب تایتل به شکل زیر هست:

Sub addTitle(text As String)
	Dim lblText As Label
	lblText.Initialize("lblText")
	lblText.TextColor=0xFFE91E63
	lblText.text=text
	lblText.Typeface=Typeface.LoadFromAssets("arial.ttf")
	lblText.TextSize=24

	If sc.Panel.NumberOfViews>0 Then h=sc.Panel.GetView(sc.Panel.NumberOfViews-1).Height+sc.Panel.GetView(sc.Panel.NumberOfViews-1).Top


	sc.Panel.AddView(lblText,10%x,h+5dip,80%x,0)
	lblText.Height=su.MeasureMultilineTextHeight(lblText,lblText.text)
	sc.Panel.Height=h+lblText.Height
End Sub

حالا من توی ساب Activity_Create هربار بنویسم:

addTitle("تیتر اصلی")

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

ممنون می شم راهنمایی کنید.

[reza sabouri 444]

درود 

دوست عزیز چرا از دیتابیس استفاده نمیکنید پس ؟ ) البته اگه درست متوجه شده باشم (

با استفاده از دیتابیس ،  میتونی مثلا آیدی اولتو متن رو لود کنی و آیدی دوم عکشس و آیدی سوم متن و آیدی چهارم عکس و ...

هرچی دوس داری .

کارت راحتتر هم میشه که