درخواست آموزش پارالکس b4a

[hakan22 39]

با سلام.

میخوام وقتی متن رو اسکرول میکنم عکس و دکمه  کپی و اشتراک گذاری مخفی بشه .(یعنی همون پارالکس)

 

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

[مهدی ایزدی 9,203]

خواهش میکنم

 

اینجا رو نگاه کنید چیزی که خواستید رو استاد شاهدی قرار دادن :

http://answercenter.ir/topic/14707-%D8%B3%D9%88%D8%B1%D8%B3-%D9%84%DB%8C%D9%88%D8%AA-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84%DB%8C%D9%86%DA%AF-%D9%85%D8%B4%D8%A7%D8%A8%D9%87-%D9%85%D8%AA%D8%B1%DB%8C%D8%A7%D9%84/

 

اون کتابخونه هم احتمالا به محض اینکه آماده بشه قرارش میدن 

[مهدی ایزدی 9,203]

درود

کتابخانه AriaParalla رو استاد شاهدی دو روز پیش استارتش رو زدن که آماده کنند

فکر کنم امروز فردا آماده بشه 

[hakan22 39]

درود

کتابخانه AriaParalla رو استاد شاهدی دو روز پیش استارتش رو زدن که آماده کنند

فکر کنم امروز فردا آماده بشه 

ایول .

پس منتظرش میمونم

[hakan22 39]

خواهش میکنم

 

اینجا رو نگاه کنید چیزی که خواستید رو استاد شاهدی قرار دادن :

http://answercenter.ir/topic/14707-%D8%B3%D9%88%D8%B1%D8%B3-%D9%84%DB%8C%D9%88%D8%AA-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84%DB%8C%D9%86%DA%AF-%D9%85%D8%B4%D8%A7%D8%A8%D9%87-%D9%85%D8%AA%D8%B1%DB%8C%D8%A7%D9%84/

 

اون کتابخونه هم احتمالا به محض اینکه آماده بشه قرارش میدن 

 

دستت درد نکنه اقای ایزدی .واقعا ممنون

[hakan22 39]

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

شات ها 

 

 

کد:

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("nv111")
    lab.DatabesCopy(s,"ModernBodyBuilding.db",True)
     cur=s.ExecQuery("select * from tbl_abs where id="&Onvan_m.idonvan)
     cur.Position=0
    l.Initialize("l")
    l.Text=cur.GetString("matn")
    l.TextColor=Colors.White
    l.TextSize=20
	l.Typeface=Typeface.LoadFromAssets("byekan.TTF") 
    Label1.Text=cur.GetString("onvan")
    Label1.TextColor=Colors.White
    Label1.TextSize=18
	
    Dim ani As ICOSScaleAnimation
    ani.ScaleCenterIn("ani",1000)
    ani.StartAnim(l)

    ani.ScaleCenterIn("ani",1500)
    ani.StartAnim(ImageView_copy)

    ani.ScaleCenterIn("ani",1500)
    ani.StartAnim(ImageView_shear)	
	
	 MS_share.MaxElevation=20   
     MS_share.Elevation=20 
	 MS_share.Radius=50
	 MS_copy.MaxElevation=20   
     MS_copy.Elevation=20 
	 MS_copy.Radius=50
	
	PanelJO=Panel1
     ScrollView1.Panel.AddView(l,2%X,5%y,98%x-2%x,100%y)
	 ScrollView1.Panel.LoadLayout("layoutsc")
	 ImageView1.Bitmap=LoadBitmap(File.DirAssets,cur.GetString("aks")&".jpg")
	 Panel1.Color=Colors.RGB(98,0,234)
	
	Dim f As Float = 0
	 PanelJO.RunMethod("setAlpha",Array(f))
	 SetStatusBarColor(Colors.Transparent)
	 FloatingVisibility=True
   
    Dim su As StringUtils
     ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(l,l.Text)+10%y
     l.Height=su.MeasureMultilineTextHeight(l,l.Text)
	 ScrollView1.Panel.Color=0xFF1565C0

End Sub

[mohsenaa 32]

IMAGE VIEW فراخوانی نشده ...