رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
iranapp

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

سوال

سلام ...

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

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

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

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

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


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

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

Recommended Posts

  • 0

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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 بیا و متنت رو فراخونی کن

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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

ارور را بدید

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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  میتونید مطالب رو از دیتابیس چه آنلاین و چ آفلاین بیرون بکشید

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


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

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

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

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

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

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

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

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

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

×