رفتن به مطلب
  • 0

مشکل با علاقه مندی و تگ


absolutezero

سوال

سلام اقا شهاب پستو ویرایش کردم قسمت تگ درسته ولی قسمت علاقه مندی ها خرابه میخام وقتی روی پنل لانگ کلیک میشه اون عنوانی که از مولتی پنل انتخاب شده بره جزو علاقه مندی ها اینم کدم

Sub Panel1_Click
	p1=Sender
	matn.a=p1.Tag
	StartActivity(matn)
End Sub
Sub Panel1_LongClick
p1.Initialize("p1")
	sql1.ExecNonQuery("update tblfara set fav = 1 where id = "P1.Tag)
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

ارسال های توصیه شده

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

fara.zip

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

اینم کد ها اگه کسی میدونه کمک کنه لطفا

Sub Panel1_Click
	p1=Sender
	matn.a=p1.Tag
	StartActivity(matn)
End Sub
Sub Panel1_LongClick
p1.Initialize("p1")
sql1.ExecNonQuery("update tblfara set fav = 1 where id = "&p1.Tag)
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub

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

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

سلام

دوستم توی هر رویداد یک متغییر از نوع پنل جداگونه تعریف و برابر با Sender  قرار بدید

Sub Panel1_Click  
 Dim p1 As Panel
 p1=Sender
 matn.a=p1.Tag
 StartActivity(matn)
End Sub

Sub Panel1_LongClick
 Dim p1 As Panel
 p1 = Sender
 sql1.ExecNonQuery("UPDATE tblfara SET fav = '1' WHERE id = "&p1.Tag)
 ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

p1 رو کجا تعریف کردید؟

همون پنلی هست که خودتون درست کردید و اطلاعات رو توش قرار دادید؟

بهتره یه پنل جدید رو توی ساب تعریف کنید، در کل کداتون مشکل خاصی ندارن

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

خوب

الان تگ و سندرت درسته

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

درستش کن این خطو

sql1.ExecNonQuery("update tblfara set fav = 1 where id = "P1.Tag)

sql1.ExecNonQuery("update tblfara set fav = 1 where id = "&P1.Tag)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

اقا شهاب اشتباه اینجا تایپ کرده بودم & رو گذاشته بودم تو کدم الان پروژه ارور نمیده پیغام میده به علاقه مندی ها اضافه شد ولی تو صفحه علاقه مندی چیزی نشون نمیده

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

یه بار از برنامه برو بیرون و دوباره برو توش
بازم ردیف نشد، کدهاتو بذار ببینیم چه خبره
مطمئن شو که دیتابیست رو هر بار کپی یا اینیشایالیز نمیکنی

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

الان به جای p1.tag نوشتم

cur1.GetInt("id")

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

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

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

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

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

کدهاتون رو توی تگ  <>  کد قرار بدید.کل کد رو قرار بدید باز یک خط دو خط قرار ندید.

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

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

Dim sql1 As SQL

End Sub

Sub Globals
Dim cur1 As Cursor
	Private Panel1 As Panel
	Private Label1 As Label
	Private ScrollView1 As ScrollView
	
	Dim stop As  Int=3%y
	Private Button1 As Button
	'Dim dd As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
If File.Exists(File.DirInternal,"fara.db") = False Then
				File.Copy(File.DirAssets,"fara.db",File.DirInternal,"fara.db")
			End If
			If sql1.IsInitialized = False Then
				sql1.Initialize(File.DirInternal,"fara.db",False)
			End If
If Main.meghdar = 1 Then
	cur1=sql1.ExecQuery("select * from tblfara where fasl = 1")
else If Main.meghdar = 2 Then
	cur1=sql1.ExecQuery("select * from tblfara where fasl = 2")
else If Main.meghdar = 3 Then
	cur1=sql1.ExecQuery("select * from tblfara where fasl = 3")
	End If
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+10%y
	p.LoadLayout("2")
		Label1.Text =cur1.GetString("onvan")
		Panel1.Tag = i
		ScrollView1.Panel.Height =stop+10%y
Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Panel1_Click
	Dim p1 As Panel
	p1=Sender
	matn.a=p1.Tag
	StartActivity(matn)
End Sub
Sub Panel1_LongClick
Dim p1 As Panel
p1=Sender
sql1.ExecNonQuery("update tblfara set fav = 1 where id = "&p1.Tag)
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub
Sub Button1_Click
	StartActivity(fav)
	Activity.Finish
End Sub

اینم کد صفحه fav

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim sql1 As SQL
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 cur1 As Cursor
	Private ScrollView1 As ScrollView
	Dim stop As Int
	Private Panel1 As Panel
	Private Label1 As Label
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
sql1.Initialize(File.DirInternal,"fara.db",True)
cur1=sql1.ExecQuery("select * from tblfara where fav = 1 ")
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+10%y
	p.LoadLayout("2")
		Label1.Text =cur1.GetString("onvan")
		Panel1.Tag = i
		ScrollView1.Panel.Height =stop+50%y
Next
cur1.Close
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click
	StartActivity(fehrest)
	Activity.Finish
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

اقا شهاب باز شد پروژه یا تو جای دیگه اپلود کنم؟

پروژه تون باز شده، مشکلی هم نداره

یکم بد قلقه :)

اما مشکلی نمیبینیم توش،،،

متوجه هم نشدم که 3 تا بیشتر نمیاره، 3 تا چی؟

علاقه مندی، 

تیتر،

زیر تیتر؟

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

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

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

والا من هر چی چک میکنم، نمیبینم مشکل خاصی

کدهات درست به نظر میرسه

سعی کن کدهاتو قرار بدی تا دوستان هم یه نگا بندازن(سورس نه ، کدها توی تگ CODE) 

:gol:

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...