عکس در اسکرول ویو

[mahfelsoft 130]

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

[maxnet12 10]

سلام بچه خدایی اگر گسی میدونه چطور مثلا 100 تا عکس در اسکرول ویو است و کم کم لود بشن مثلا 10 تا 10 تا عکس ها لود بشن کمک کنه خیلی مهم و حیاتی برام

ککککککککککککککککککککککککککککککککککککککککککککککککککککککممممممممممممممممممممممممممممممممممممممممممممکککککککککککککککککککک

[vistamobile 1,700]

سلام . لطفا اسپم ندین. اگه بلد باشیم سورس یا آموزش میدیم. الان دوستا این همه راهنمایی کردین ولی شما دریغ از یک ذره تلاش. اگه واجبه و خودتون سر در نمیارین به یکی از مدیران پیام بدین واستون بسازین

[نیما قبادی 246]

سلام فقط جای لیبل ایمج ویو بزار حله

اندازه

شرمنده گفتم که چه مشکل برام پیش اومده با همینم کارت راه میفته

[mahfelsoft 130]

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

[نیما قبادی 246]

خوب شما فقط بجای لیبل ایمج بزارید همین او فراخونی دیتابیس رو هم وردارید

[mahfelsoft 130]

خوب حالا اگه بین هم عکس و هم متن بزارم چی ؟ یعنی یه قسمت متن یه دونه عکس و الی آخر

[نیما قبادی 246]

اینجور هم میشه ولی یکم کارتون سخت میشه *عصبانی2*

[M_M_A 112]

نترس کاری نداره

این کد قسمتی از یه پروژمه

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

هرجاش نفهمیدی بپرس

توی دیساینرش هم چیزی نذاشتم خیالت راحت باشه

فقط اگه میخوای عکس ها و متن و فیلم ظاهر بشن عکس ومتن و فیلمت رو توی پروژه بذار و اسشونو داخل پروژه و کد یکی کن

هرجاهم سوالی داشتی بپرس

#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 roboticp As ImageView
   Private ScrollView1 As ScrollView
   Dim video1 As VideoView
   Dim Label1 As Label
   Dim Label2 As Label
   Dim p1 As ImageView
   Dim p2 As ImageView
   roboticp.Initialize("roboticp")
   p1.Initialize("p1")
   p2.Initialize("p2")
   video1.Initialize("video")
   Label1.Initialize("Label1")
   Label2.Initialize("Label2")
   ScrollView1.Initialize(500%y)
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("Layout1")
   Activity.LoadLayout("roboticl")
   roboticp.Gravity = Gravity.FILL
   roboticp.Bitmap = LoadBitmap(File.DirAssets,"roboticp.JPG")
   p1.Bitmap = LoadBitmap(File.DirAssets,"roboticp1.jpg")
   p2.Bitmap = LoadBitmap(File.DirAssets,"roboticp2.jpg")
   p1.Gravity = Gravity.FILL
   p2.Gravity = Gravity.FILL
   Label1.Text = "رباتیک"
   Label1.TextSize = 22
   Label1.Gravity = Gravity.CENTER_HORIZONTAL+Gravity.CENTER_VERTICAL
   Label1.TextColor = Colors.Black
   Label1.Typeface = Typeface.LoadFromAssets("dastnevis.otf")
   Label2.Typeface = Typeface.LoadFromAssets("bnazanin.ttf")
   Label2.TextSize = 17
   Label2.Text = File.ReadString(File.DirAssets,"robotic.txt")
   Label2.Gravity = Gravity.RIGHT
   Label2.TextColor = Colors.Black
   Activity.AddView(Label1,0%x,0%y,100%x,15%y)
   Activity.AddView(ScrollView1,0%x,15%y,100%x,95%y)
   ScrollView1.Panel.AddView(roboticp,20%x,5%y,60%x,30%y)
   ScrollView1.Panel.AddView(video1,20%x,5%y,60%x,30%y)
   ScrollView1.Panel.AddView(Label2,10%x,40%y,80%x,370%y)
   ScrollView1.Panel.AddView(p1,20%x,415%y,60%x,30%y)
   ScrollView1.Panel.AddView(p2,20%x,450%y,60%x,30%y)
   File.Copy(File.DirAssets,"robotic.mp4",File.DirDefaultExternal,"robotic.mp4")
   video1.LoadVideo(File.DirDefaultExternal,"robotic.mp4")
   video1.Visible = False
   video1.Enabled = False
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub roboticp_Click
   video1.Visible = True
   video1.Enabled = True
   roboticp.Enabled = False
   roboticp.Visible = False
   video1.Play
End Sub

[ارمین رمضانی دلیجانی 381]

فیلم آموزشی هست تو سایت سرچ کنید پیدا کنید به درد میخوره موفق باشید