Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 0
iranapp

رویداد کلیک برای مولتی پنل

سوال

سلام ...

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

حالا من فیلد ها عنوان رو توی مولتی پنل لود کردم به جای لیست ویو

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

لطفا کد یا نمونه سورسی بزارید ممنون میشم ...

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تا کنون داده شده است

  • 0

باید از خاصیت تگ و سندر استفاده کنی 

پسند شده توسط H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

باید از خاصیت تگ و سندر استفاده کنی 

خب کد یا سورسی یا آموزشی بدین

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

خب کد یا سورسی یا آموزشی بدین

 

ببینید واسه کار با دیتا بیس بهترین و آسون ترین را کار کردن با id ها هست چون منحصر به فرد هستن حالا چکار کنیم؟؟؟!!!

 

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

panel.tag=mp.get("id")

اینجا شما ای دی رو به panel نسبت دادید حالا میاید تو خاصیت کلیک پنل از کد زیر استفاده میکنید

Sub Panel1_Click
  Dim pan As  Panel
  pan=Sender
  log(pan.tag)
End Sub

حالا میبینی که id فیلدت رو لاگ کرد

 

حالا با همین id بیا و متنت رو فراخونی کن

پسند شده توسط Sina، H@mid.RS و mr.edris

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0
	If File.Exists(File.DirInternal,"nmjza.db") = False Then
	File.Copy(File.DirAssets,"nmjza.db" , File.DirInternal,"nmjza.db")
	End If

	sql1.Initialize(File.DirInternal,"nmjza.db" , True)
	cur1 = sql1.ExecQuery("Select * FROM time DISC")
	
	For i = 0 To cur1.RowCount -1
		cur1.Position = i
		Dim p As Panel
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,stop,100%x , 100%y)
		stop = stop + 24%y
		p.LoadLayout("main")
		Label1.Text = cur1.GetString("txt")
		Label1.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		Label2.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		Label3.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		Label4.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		
		Label2.Text = cur1.GetString("loc")
		Label3.Text = cur1.GetString("Field6")
		Label4.Text = cur1.GetString("money")
		Panel1.tag = cur1.getstring("id")
		
	'	ps.tag = cur1.GetString("name") & "#" & cur1.GetString("ax")
	ImageView1.tag = cur1.GetString("ax")
	Dim caso As Picasso
	caso.Initialize
	caso.LoadUrl(cur1.GetString("ax")).IntoImageView(ImageView1)
	ScrollView1.Panel.Height = stop
	Next

 کلا کد من اینه شما براش اون کد هایی که دادی رو اضافه کن بده ممنون من تازه مولتی پنل کار میکنم

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0
	If File.Exists(File.DirInternal,"nmjza.db") = False Then
	File.Copy(File.DirAssets,"nmjza.db" , File.DirInternal,"nmjza.db")
	End If

	sql1.Initialize(File.DirInternal,"nmjza.db" , True)
	cur1 = sql1.ExecQuery("Select * FROM time DISC")
	
	For i = 0 To cur1.RowCount -1
		cur1.Position = i
		Dim p As Panel
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,stop,100%x , 100%y)
		stop = stop + 24%y
		p.LoadLayout("main")
		Label1.Text = cur1.GetString("txt")
		Label1.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		Label2.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		Label3.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		Label4.Typeface=Typeface.LoadFromAssets("iran_sans.ttf")
		
		Label2.Text = cur1.GetString("loc")
		Label3.Text = cur1.GetString("Field6")
		Label4.Text = cur1.GetString("money")
		Panel1.tag = cur1.getstring("id")
		
	'	ps.tag = cur1.GetString("name") & "#" & cur1.GetString("ax")
	ImageView1.tag = cur1.GetString("ax")
	Dim caso As Picasso
	caso.Initialize
	caso.LoadUrl(cur1.GetString("ax")).IntoImageView(ImageView1)
	ScrollView1.Panel.Height = stop
	Next

 کلا کد من اینه شما براش اون کد هایی که دادی رو اضافه کن بده ممنون من تازه مولتی پنل کار میکنم

 

 

داداش کدات درستن و مشکلی نداره الان تو کد شما panel1.tag میشه id  جدولتون طبق خط زیر کدتون

Panel1.tag = cur1.getstring("id")

حالا کافیه این کد رو که رویداد کلیک پنل هست رو اضاف کنی به اکتیویتی

 

Sub Panel1_Click
  Dim pan As  Panel
  pan=Sender
  log(pan.tag)
End Sub

میبینید که id رو براتون log میکنه حالا با استفاده از id  میتونید مطالب رو از دیتابیس چه آنلاین و چ آفلاین بیرون بکشید

پسند شده توسط nasim، mr.edris و طاها الیاس زاده

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری