تنظیمان حذف رکورد

[berayan 88]

سلام دوستان

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

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

من کدی می خوام که بتونم یک حالت ریفرش به صفحه بدم تا بعد از حذف مطلب ، لیست بروزرسانی بشه .

[berayan 88]

کاری رو که آقا فرزاد گفتن انجام دادم درست شد فقط یه مشکل هست که اسکرول از اول لود میشه ،( مثلا اگر کاربر رو مطلب 100 باشه بعد از این کار میاد مطلب اول که خودش برا نرم افزار یه نقطه ضعفه )

نمی شه فقط همون پنلی که حذف شده رو پاک کرد ؟

و اینکه در قسمت ( لایک ) بعد از اینکه کاربر دکمه رو زد و مطلب به علاقه مندی ها اضافه شد می خوام رنگ دکمه رو عوض کنم که این کارو هم کردم و لی مثل دکمه حذف، تا پنل رو پاک و دوباره لود نکنی نشون نمیده و اینکه اگر هم این کارو انجام بدی اسکرول از اول لود میشه و سر جاش نمی مونه .

[Farzad Musavi 576]

کاری رو که آقا فرزاد گفتن انجام دادم درست شد فقط یه مشکل هست که اسکرول از اول لود میشه ،( مثلا اگر کاربر رو مطلب 100 باشه بعد از این کار میاد مطلب اول که خودش برا نرم افزار یه نقطه ضعفه )

نمی شه فقط همون پنلی که حذف شده رو پاک کرد ؟

و اینکه در قسمت ( لایک ) بعد از اینکه کاربر دکمه رو زد و مطلب به علاقه مندی ها اضافه شد می خوام رنگ دکمه رو عوض کنم که این کارو هم کردم و لی مثل دکمه حذف، تا پنل رو پاک و دوباره لود نکنی نشون نمیده و اینکه اگر هم این کارو انجام بدی اسکرول از اول لود میشه و سر جاش نمی مونه .

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

[berayan 88]

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

position توضیح بدین .

[berayan 88]

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

لطفا یه نمونه کد بذارین ، متوجه نشدم

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

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

position توضیح بدین .

ساعت 10:00

لطفا یه نمونه کد بذارین ، متوجه نشدم

ساعت 11:33

×××××××××××××××××××××××××××××××××

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

وقت بکنند پاسخ شما رو خواهند داد ...

الان یک بحث هم پیش میاد که عنوان تاپیک شما جوابش حل شده.

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

با تشکر از شما

[berayan 88]

ساعت 10:00

ساعت 11:33

×××××××××××××××××××××××××××××××××

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

وقت بکنند پاسخ شما رو خواهند داد ...

الان یک بحث هم پیش میاد که عنوان تاپیک شما جوابش حل شده.

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

با تشکر از شما

بله فهمیدم معذرت

[Farzad Musavi 576]

یه تکست تو پروژه تعریف کن بعد وقتی رویدار حذف انجام میشه این کد رو بنویس

EditText1.Text=ScrollView1.ScrollPosition

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

ScrollView.ScrollPosition=EditText1.Text

[sepidpor 19]

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

[sepidpor 19]

می تونی کدهاتو بگذاری چک کنم شاید بتونم کمک کنم

[nicetitle 18]

تا حالا به رفرشی ک میخوای برنخوردم...نمیدونم تو میشه یا نه...

ولی اگر میتونی بد از زدن دکمه ی حذف تمام کدهایی ک اون اول مرتب چیده رو دوباره بذار...البته اگر شرایط خاصی نداری...

[jeqele 562]

سوال خیلی نامفهومه دوست عزیز.

[berayan 88]

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

Sub Process_Globals
     Dim kol1 As String
     Dim kol2 As  String
End Sub

Sub Globals

     Private Label1 As Label
     Private Label2 As Label
     Private Button4 As Button
     Private Button2 As Button
     Private Button1 As Button
     '=======================================
     Private ScrollView1 As ScrollView
     Dim EditText1 As EditText
     '=======================================
     Dim pw As PhoneWakeState
     Dim Buttonshir As List
     Dim Buttonlik As List
     Dim Buttondel As List
     '========================================
     Dim sql1 As SQL
     '========================================
     Private Searchtext As EditText
     '========================================
     Dim cur1 As  Cursor
     Dim cur2 As Cursor
     'Dim cur1 As Cursor
     Private back As Button
     Private Panelh As Panel
     Private Panel2 As Panel
     '=======================================
     Private ImageView2 As ImageView
     Private spinner1 As Spinner
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll")
spinner1.AddAll(Array As String ("متن","گوینده"))
'#############################################################################
'تنظیمات دیتا بیس
If File.Exists(File.DirInternal,"stings.db") = False Then
File.Copy(File.DirAssets,"stings.db",File.DirInternal,"stings.db")
End If
sql1.Initialize(File.DirInternal,"stings.db",False)
cur2 = sql1.ExecQuery("SELECT * FROM tb_stings WHERE id=1")
cur2.Position = 0
'#############################################################################
If File.Exists(File.DirInternal,"bankmatn3.db") = False Then
File.Copy(File.DirAssets,"bankmatn3.db",File.DirInternal,"bankmatn3.db")
End If
sql1.Initialize(File.DirInternal,"bankmatn3.db",False)
'========================================================================
cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn")
'========================================================================
EditText1.Initialize("EditText1")
Buttonshir.Initialize
Buttonlik.Initialize
Buttondel.Initialize
'ImageView1.Initialize("imageview1")
'ImageView2.Initialize("imageview2")
   '--------------------------------------------------
   Dim faseleh As Int
   faseleh = 0%y
   For i =0 To cur1.RowCount-1
   cur1.Position = i
     Dim P As Panel
   P.Initialize("P")
     Panel2.Initialize("panel2")
     ScrollView1.Panel.AddView(P,0,faseleh,100%x,0)
     P.LoadLayout("Panel")   
     Label1.Text = cur1.GetString("matn")
     Label2.Text = cur1.GetString("ostad")
     '------------------------------------------------------
     '*******************************************************'stings
     Label1.TextSize =  cur2.GetString("size")
     Label1.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label1.TextColor=cur2.GetString("color")
     Label2.TextSize = 18
     Label2.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label2.TextColor=cur2.GetString("color")
     '*******************************************************
     Dim la As String
     Button1.TextSize=1
     Button2.TextSize=1
     Button4.TextSize=1
     Button1.text = ""&(cur1.getstring("id"))
     Button1.tag = "shir"&(i)
     Button2.text = ""&(cur1.getstring("id"))
     Button2.Tag = "lik"&(i)
     Button4.text= ""&(cur1.getstring("id"))
     Button4.Tag= "del"&(i)
   Label1.tag = ""&(cur1.getstring("id"))
     Buttonshir.add("shir"&(i))
     Buttonlik.add("lik"&(i))
     Buttondel.Add("del"&(i))
     '=====================================
     'ScrollView1.Panel.Height = 100%y
     '======================================
     la = cur1.GetString("lik")
     If la = 1 Then
     Button2.Enabled=False
     Else If la = 0 Then
     Button2.Enabled=True
     End If
     '=======================================
     '********************************************************
     Dim txt As String
   Dim ht As Float
     Dim stut As StringUtils
     txt=Label1.Text
   ht = stut.MeasureMultilineTextHeight(Label1,txt)
     Label1.Top = 10%y
   Label1.Height = ht
     Panel2.top = ht + 13%y
     Panel2.Height =8%y
   Panelh.Height = 10%y + ht + 8%y + 10%Y
     ImageView2.Top = Panelh.Height - 6%y'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ImageView2.Height = 6%y
     P.Height=Panelh.Height
     faseleh = faseleh+Panelh.Height
   ScrollView1.Panel.Height = faseleh
     '**********************************************************
     Next
     cur1.Close
     '======================================='nor
   cur2.Position=0
     Dim nr As String
     nr= cur2.GetString("nor")
     If nr = 1 Then
     pw.KeepAlive(True)
     Else If nr = 0 Then
     pw.KeepAlive(False)
End If
'=======================================
End Sub
'OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
Sub Searchtext_TextChanged (Old As String, New As String)
If spinner1.SelectedItem = "گوینده" Then

Dim cur4 As Cursor
cur4 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE ostad LIKE '%" & Searchtext.Text & "%'")   
'================================================================================
EditText1.Initialize("EditText1")
Buttonshir.Initialize
Buttonlik.Initialize
Buttondel.Initialize
'ImageView1.Initialize("imageview1")
'ImageView2.Initialize("imageview2")
   '--------------------------------------------------
   Dim faseleh As Int
   faseleh = 0%y
   For i = 0 To cur4.RowCount-1
   cur4.Position = i
     Dim P As Panel
   P.Initialize("P")
     Panel2.Initialize("panel2")
     ScrollView1.Panel.AddView(P,0,faseleh,100%x,0)
     P.LoadLayout("Panel")   
     Label1.Text = cur4.GetString("matn")
     Label2.Text = cur4.GetString("ostad")
     '------------------------------------------------------
     '*******************************************************'stings
     Label1.TextSize =  cur2.GetString("size")
     Label1.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label1.TextColor=cur2.GetString("color")
     Label2.TextSize = 18
     Label2.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label2.TextColor=cur2.GetString("color")
     '*******************************************************
     Dim la As String
     Button1.TextSize=1
     Button2.TextSize=1
     Button4.TextSize=1
     Button1.text = ""&(cur4.getstring("id"))
     Button1.tag = "shir"&(i)
     Button2.text = ""&(cur4.getstring("id"))
     Button2.Tag = "lik"&(i)
     Button4.text= ""&(cur4.getstring("id"))
     Button4.Tag= "del"&(i)
   Label1.tag = ""&(cur4.getstring("id"))
     Buttonshir.add("shir"&(i))
     Buttonlik.add("lik"&(i))
     Buttondel.Add("del"&(i))
     '=====================================
     'ScrollView1.Panel.Height = 100%y
     '======================================
     la = cur4.GetString("lik")
     If la = 1 Then
     Button2.Enabled=False
     Else If la = 0 Then
     Button2.Enabled=True
     End If
     '=======================================
     '********************************************************
     Dim txt As String
   Dim ht As Float
     Dim stut As StringUtils
     txt=Label1.Text
   ht = stut.MeasureMultilineTextHeight(Label1,txt)
     Label1.Top = 10%y
   Label1.Height = ht
     Panel2.top = ht + 13%y
     Panel2.Height =8%y
   Panelh.Height = 10%y + ht + 8%y + 10%Y
     ImageView2.Top = Panelh.Height - 6%y'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ImageView2.Height = 6%y
     P.Height=Panelh.Height
     faseleh = faseleh+Panelh.Height
   ScrollView1.Panel.Height = faseleh
     '**********************************************************
     Next
     cur4.Close
     '======================================='nor
   cur2.Position=0
     Dim nr As String
     nr= cur2.GetString("nor")
     If nr = 1 Then
     pw.KeepAlive(True)
     Else If nr = 0 Then
     pw.KeepAlive(False)
End If
'=======================================
End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
If spinner1.SelectedItem = "متن"  Then
Dim cur3 As Cursor
cur3 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE matn LIKE '%" & Searchtext.Text & "%'")
'============================================================================================
EditText1.Initialize("EditText1")
Buttonshir.Initialize
Buttonlik.Initialize
Buttondel.Initialize
'ImageView1.Initialize("imageview1")
'ImageView2.Initialize("imageview2")
   '--------------------------------------------------
   Dim faseleh As Int
   faseleh = 0%y
   For i =0 To cur3.RowCount-1
   cur3.Position = i
     Dim P As Panel
   P.Initialize("P")
     Panel2.Initialize("panel2")
     ScrollView1.Panel.AddView(P,0,faseleh,100%x,0)
     P.LoadLayout("Panel")   
     Label1.Text = cur3.GetString("matn")
     Label2.Text = cur3.GetString("ostad")
     '------------------------------------------------------
     '*******************************************************'stings
     Label1.TextSize =  cur2.GetString("size")
     Label1.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label1.TextColor=cur2.GetString("color")
     Label2.TextSize = 18
     Label2.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label2.TextColor=cur2.GetString("color")
     '*******************************************************
     Dim la As String
     Button1.TextSize=1
     Button2.TextSize=1
     Button4.TextSize=1
     Button1.text = ""&(cur3.getstring("id"))
     Button1.tag = "shir"&(i)
     Button2.text = ""&(cur3.getstring("id"))
     Button2.Tag = "lik"&(i)
     Button4.text= ""&(cur3.getstring("id"))
     Button4.Tag= "del"&(i)
   Label1.tag = ""&(cur3.getstring("id"))
     Buttonshir.add("shir"&(i))
     Buttonlik.add("lik"&(i))
     Buttondel.Add("del"&(i))
     '=====================================
     'ScrollView1.Panel.Height = 100%y
     '======================================
     la = cur3.GetString("lik")
     If la = 1 Then
     Button2.Enabled=False
     Else If la = 0 Then
     Button2.Enabled=True
     End If
     '=======================================
     '********************************************************
     Dim txt As String
   Dim ht As Float
     Dim stut As StringUtils
     txt=Label1.Text
   ht = stut.MeasureMultilineTextHeight(Label1,txt)
     Label1.Top = 10%y
   Label1.Height = ht
     Panel2.top = ht + 13%y
     Panel2.Height =8%y
   Panelh.Height = 10%y + ht + 8%y + 10%Y
     ImageView2.Top = Panelh.Height - 6%y'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ImageView2.Height = 6%y
     P.Height=Panelh.Height
     faseleh = faseleh+Panelh.Height
   ScrollView1.Panel.Height = faseleh
     '**********************************************************
     Next
     cur3.Close
     '======================================='nor
   cur2.Position=0
     Dim nr As String
     nr= cur2.GetString("nor")
     If nr = 1 Then
     pw.KeepAlive(True)
     Else If nr = 0 Then
     pw.KeepAlive(False)
End If
'=======================================
     End If
End Sub
'00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Sub Button1_Click 'shir
Dim p2 As Button
p2 = Sender
'=============================================================================================
Dim cur2 As Cursor
cur2 = sql1.ExecQuery("SELECT * FROM Tb_bankmatn WHERE id='" & p2.text & "'")
'============================================================================================
cur2.Position = 0
Dim shir As String
shir=cur2.GetString("matn")&"...."&cur2.GetString("ostad")
     Dim share As Intent
     share.Initialize(share.ACTION_SEND,"")
     share.SetType("text/plain")
     share.PutExtra("android.intent.extra.TEXT",shir)
     share.WrapAsIntentChooser("اشتراک گذاری با؟")
     StartActivity(share)
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Button2_Click 'lik

Dim p2 As Button
p2 = Sender
     sql1.ExecNonQuery("UPDATE tb_bankmatn set lik = 1 WHERE id='" & p2.text & "'")
     Msgbox("به علاقه مندیها اضافه شد","پیام")
'========================================================================
Dim cur1 As  Cursor
cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn ")
'========================================================================
EditText1.Initialize("EditText1")
Buttonshir.Initialize
Buttonlik.Initialize
Buttondel.Initialize
'ImageView1.Initialize("imageview1")
'ImageView2.Initialize("imageview2")
   '--------------------------------------------------
   Dim faseleh As Int
   faseleh = 0%y
   For i =0 To cur1.RowCount-1
   cur1.Position = i
     Dim P As Panel
   P.Initialize("P")
     Panel2.Initialize("panel2")
     ScrollView1.Panel.AddView(P,0,faseleh,100%x,0)
     P.LoadLayout("Panel")   
     Label1.Text = cur1.GetString("matn")
     Label2.Text = cur1.GetString("ostad")
     '------------------------------------------------------
     '*******************************************************'stings
     Label1.TextSize =  cur2.GetString("size")
     Label1.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label1.TextColor=cur2.GetString("color")
     Label2.TextSize = 18
     Label2.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label2.TextColor=cur2.GetString("color")
     '*******************************************************
     Dim la As String
     Button1.TextSize=1
     Button2.TextSize=1
     Button4.TextSize=1
     Button1.text = ""&(cur1.getstring("id"))
     Button1.tag = "shir"&(i)
     Button2.text = ""&(cur1.getstring("id"))
     Button2.Tag = "lik"&(i)
     Button4.text= ""&(cur1.getstring("id"))
     Button4.Tag= "del"&(i)
   Label1.tag = ""&(cur1.getstring("id"))
     Buttonshir.add("shir"&(i))
     Buttonlik.add("lik"&(i))
     Buttondel.Add("del"&(i))
     '=====================================
     'ScrollView1.Panel.Height = 100%y
     '======================================
     la = cur1.GetString("lik")
     If la = 1 Then
     Button2.Enabled=False
     Else If la = 0 Then
     Button2.Enabled=True
     End If
     '=======================================
     '********************************************************
     Dim txt As String
   Dim ht As Float
     Dim stut As StringUtils
     txt=Label1.Text
   ht = stut.MeasureMultilineTextHeight(Label1,txt)
     Label1.Top = 10%y
   Label1.Height = ht
     Panel2.top = ht + 13%y
     Panel2.Height =8%y
   Panelh.Height = 10%y + ht + 8%y + 10%Y
     ImageView2.Top = Panelh.Height - 6%y'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ImageView2.Height = 6%y
     P.Height=Panelh.Height
     faseleh = faseleh+Panelh.Height
   ScrollView1.Panel.Height = faseleh
     '**********************************************************
     Next
     cur1.Close
     '======================================='nor
   cur2.Position=0
     Dim nr As String
     nr= cur2.GetString("nor")
     If nr = 1 Then
     pw.KeepAlive(True)
     Else If nr = 0 Then
     pw.KeepAlive(False)
End If
'=======================================
End Sub
'0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
Sub Button4_Click 'del
Dim p2 As Button
p2 = Sender
Select Msgbox2("از حذف مطمئن هستید ؟", "اخطارحذف", "آری","خیر", "", LoadBitmap(File.DirAssets,"eror.jpg"))
Case DialogResponse.NEGATIVE
Return True
Case DialogResponse.CANCEL
Return True
Case DialogResponse.POSITIVE
sql1.ExecNonQuery("delete from tb_bankmatn where id='" & p2.text & "'")
Msgbox("مطلب حذف شد","پیام")
Msgbox(p2.text,"sender")
End Select
'==============================================================================
Dim cur5 As Cursor
cur5 = sql1.ExecQuery("SELECT * FROM tb_bankmatn")
'========================================================================
EditText1.Initialize("EditText1")
Buttonshir.Initialize
Buttonlik.Initialize
Buttondel.Initialize
'ImageView1.Initialize("imageview1")
'ImageView2.Initialize("imageview2")
   '--------------------------------------------------
   Dim faseleh As Int
   faseleh = 0%y
   For i =0 To cur5.RowCount-1
   cur5.Position = i
     Dim P As Panel
   P.Initialize("P")
     Panel2.Initialize("panel2")
     ScrollView1.Panel.AddView(P,0,faseleh,100%x,0)
     P.LoadLayout("Panel")   
     Label1.Text = cur5.GetString("matn")
     Label2.Text = cur5.GetString("ostad")
     '------------------------------------------------------
     '*******************************************************'stings
     Label1.TextSize =  cur2.GetString("size")
     Label1.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label1.TextColor=cur2.GetString("color")
     Label2.TextSize = 18
     Label2.Typeface = Typeface.LoadFromAssets(cur2.GetString("font")&".ttf")
     Label2.TextColor=cur2.GetString("color")
     '*******************************************************
     Dim la As String
     Button1.TextSize=1
     Button2.TextSize=1
     Button4.TextSize=1
     Button1.text = ""&(cur5.getstring("id"))
     Button1.tag = "shir"&(i)
     Button2.text = ""&(cur5.getstring("id"))
     Button2.Tag = "lik"&(i)
     Button4.text= ""&(cur5.getstring("id"))
     Button4.Tag= "del"&(i)
   Label1.tag = ""&(cur5.getstring("id"))
     Buttonshir.add("shir"&(i))
     Buttonlik.add("lik"&(i))
     Buttondel.Add("del"&(i))
     '=====================================
     'ScrollView1.Panel.Height = 100%y
     '======================================
     la = cur5.GetString("lik")
     If la = 1 Then
     Button2.Enabled=False
     Else If la = 0 Then
     Button2.Enabled=True
     End If
     '=======================================
     '********************************************************
     Dim txt As String
   Dim ht As Float
     Dim stut As StringUtils
     txt=Label1.Text
   ht = stut.MeasureMultilineTextHeight(Label1,txt)
     Label1.Top = 10%y
   Label1.Height = ht
     Panel2.top = ht + 13%y
     Panel2.Height =8%y
   Panelh.Height = 10%y + ht + 8%y + 10%Y
     ImageView2.Top = Panelh.Height - 6%y'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     ImageView2.Height = 6%y
     P.Height=Panelh.Height
     faseleh = faseleh+Panelh.Height
   ScrollView1.Panel.Height = faseleh
     '**********************************************************
     Next
     cur5.Close
     '======================================='nor
   cur2.Position=0
     Dim nr As String
     nr= cur2.GetString("nor")
     If nr = 1 Then
     pw.KeepAlive(True)
     Else If nr = 0 Then
     pw.KeepAlive(False)
End If
'=======================================
End Sub
Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub back_Click
     StartActivity(Main)
     Activity.finish
End Sub 

شرمنده واضح تر از این نشد

می تونی کدهاتو بگذاری چک کنم شاید بتونم کمک کنم

[sepidpor 19]

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

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

Dim p() as panel رو در گلوبال

و در حلقه for

p(n).initializes

و بعد ساخت دکمه حذف حتما بهش Tag بدید

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

p(btnsender.tag).visibale=false

و مابقی پنل هارو جاشو تغییر بدی

n=btnsender.tag+1

for n to ....

تغییر جای بقیه پنل ها

next

البته شاید دوستان راه حل بهتری داشته باشن

[Farzad Musavi 576]

پنل های جدید رو پنل های قدیمی میوفتن؟

viwe قبلی رو remove کردی ببینی درس میشه یا نه؟

بجای دوباره نوشتن حلقه کلا activity.RemoveAllViews بکن و بعد رویداد قبلی رو دوباره فرا بخون مثلا اگه با زدن یه کلید لیست لود میشد بعد حذف رویداد کلیک رو فرا بخون (btn_click)

[jeqele 562]

پنل های جدید رو پنل های قدیمی میوفتن؟

viwe قبلی رو remove کردی ببینی درس میشه یا نه؟

بجای دوباره نوشتن حلقه کلا activity.RemoveAllViews بکن و بعد رویداد قبلی رو دوباره فرا بخون مثلا اگه با زدن یه کلید لیست لود میشد بعد حذف رویداد کلیک رو فرا بخون (btn_click)

راه صحیحش همینه که فرزاد گفت.

اگه برنامه رو یکم اصولی بنویسی خیلی راحت می تونی اینکارو بکنی.