چگونگی استفاده از عکس و متن با هم

[dr.soosmar 11]

سلام

دئستان میخوام بدونم چطور میتونم متن هایی رو اضافه کنم و بین متن هام از عکس استفاده بکنم

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

[shahab1392 47]

سلام

دئستان میخوام بدونم چطور میتونم متن هایی رو اضافه کنم و بین متن هام از عکس استفاده بکنم

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

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

Sub Globals
Dim scvMain As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("m2")
text = File.ReadString(File.DirAssets,"jok.txt")
Bitmap1.Initialize(File.DirAssets,"o1.png")
Scroll
End Sub

Sub Scroll                                                                                'تابع ساخت اسکرول ویو'
scvMain.Initialize(500)
Activity.AddView(scvMain, 0, 0, 100%x, 100%y)
PanelHeight=0


       Dim lblTest As Label
       Dim ImageView1 As ImageView


       ImageView1.Initialize("Imageview1")                       'اضافه کردن عکس اول'
       scvMain.Panel.AddView(ImageView1,((Activity.Width/2)-(Bitmap1.Width/2)),25dip,Bitmap1.Width,Bitmap1.Height)
       ImageView1.Bitmap=Bitmap1
       ImageView1.Gravity=Gravity.FILL
       PanelHeight=Bitmap1.Height+35dip


       lblTest.Initialize("lblTest")                                   'اضافه کردن متن'
       scvMain.Panel.AddView(lblTest,2dip, PanelHeight, 100%x-5dip, 50dip)
       lblTest.TextSize=18
       lblTest.TextColor = Colors.White
       ht=art(text,lblTest,myfont,20)
       PanelHeight=PanelHeight+ht+25dip
end sub

[dr.soosmar 11]

میشه یه توضیح مختصر در مورد کد ها و کاری که کردیم بدی ؟

[nicetitle 18]

میشه یه توضیح مختصر در مورد کد ها و کاری که کردیم بدی ؟

شما هر جایی رو ک متوجه نشدین بپرسین تا توضیح بدم(چون کلیت کدها سادس)