سلام خدمت اساتید من چند وقت پیش ی سورس داشتم از پیامک ماه رمضان اقای فرقانی فک کنم بود خلاصه خودمو پکوندم تا بوکمارک اوردم روش الان هم عکس عوض میش هم بوکمارک میش فقط ی مشکل دیگ دارم الان وقتی روی باتن بوکمارکم کلیک میکنم اکتیویتی دوباره لود میشه و از اول اسکرول ویو نشون میده خب میخوام اینجور نشه
این کد اکتیویتی کریت
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("sv1")
If File.Exists(File.DirInternal,"smslove.db")=False Then
File.copy(File.DirAssets,"smslove.db",File.DirInternal,"smslove.db")
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"smslove.db",True)
End If
cur1 = SQL1.ExecQuery("SELECT * FROM tbllove")
myfont = Typeface.LoadFromAssets("parastoo.ttf")
For i=0 To cur1.RowCount-1
cur1.Position=i
text= cur1.GetString("smslove")
ScrollView1.Panel.Color = Colors.Transparent
Dim p1 As Panel
p1.Initialize("")
ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y)
p1.LoadLayout("sms")
share.Tag = i
copy.Tag = i
Btnlike.Tag = cur1.Getint("id")
ht=art(text,Label1,myfont,20)
Label1.TextColor=Colors.Black
p1.Height=ht+70dip
PanelHeight=PanelHeight+ht+70dip
Dim check As Int
check = cur1.Getint("fav")
If check=0 Then
Btnlike.SetBackgroundImage(LoadBitmap(File.DirAssets,"noheart.png"))
Else If check=1 Then
Btnlike.SetBackgroundImage(LoadBitmap(File.DirAssets,"heart.png"))
End If
Next
ScrollView1.Panel.Height=PanelHeight
End Sub
و اینم کد باتن بوکمارک
Sub Btnlike_Click
Dim btm As BitmapDrawable
Dim btn2 As Button
Dim pi As Float
btn2=Sender
Dim sqlnew As SQL
Dim curnew As Cursor
If sqlnew.IsInitialized = False Then
sqlnew.Initialize(File.DirInternal,"smslove.db",True)
End If
curnew = sqlnew.ExecQuery("SELECT * FROM tbllove where id ="&btn2.Tag)
curnew.Position = 0
Dim check As Int
check = curnew.Getint("fav")
If check = 0 Then
sqlnew.ExecNonQuery("UPDATE tbllove SET fav = 1 WHERE id = "&btn2.Tag)
ToastMessageShow("به علاقه مندی ها اضافه شد",False)
btm.Initialize(LoadBitmap(File.DirAssets,"heart.png"))
Btnlike.Background=btm
ScrollView1.Panel.RemoveAllViews
PanelHeight = ScrollView1.Height - ScrollView1.Height
ScrollView1.ScrollPosition = PanelHeight
Activity_Create(True)
Else If check = 1 Then
sqlnew.ExecNonQuery("UPDATE tbllove SET fav = 0 WHERE id = "&btn2.Tag)
ToastMessageShow("از علاقه مندی ها حذف شد",False)
btm.Initialize(LoadBitmap(File.DirAssets,"noheart.png"))
Btnlike.Background=btm
ScrollView1.Panel.RemoveAllViews
PanelHeight = ScrollView1.Height - ScrollView1.Height
ScrollView1.ScrollPosition = PanelHeight
Activity_Create(True)
End If
End Sub
سوال
mahdig502 27
سلام خدمت اساتید
تا بوکمارک اوردم روش
من چند وقت پیش ی سورس داشتم از پیامک ماه رمضان اقای فرقانی فک کنم بود
خلاصه خودمو پکوندم
الان هم عکس عوض میش هم بوکمارک میش فقط ی مشکل دیگ دارم
الان وقتی روی باتن بوکمارکم کلیک میکنم اکتیویتی دوباره لود میشه و از اول اسکرول ویو نشون میده
خب میخوام اینجور نشه
این کد اکتیویتی کریت
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("sv1") If File.Exists(File.DirInternal,"smslove.db")=False Then File.copy(File.DirAssets,"smslove.db",File.DirInternal,"smslove.db") End If If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal,"smslove.db",True) End If cur1 = SQL1.ExecQuery("SELECT * FROM tbllove") myfont = Typeface.LoadFromAssets("parastoo.ttf") For i=0 To cur1.RowCount-1 cur1.Position=i text= cur1.GetString("smslove") ScrollView1.Panel.Color = Colors.Transparent Dim p1 As Panel p1.Initialize("") ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y) p1.LoadLayout("sms") share.Tag = i copy.Tag = i Btnlike.Tag = cur1.Getint("id") ht=art(text,Label1,myfont,20) Label1.TextColor=Colors.Black p1.Height=ht+70dip PanelHeight=PanelHeight+ht+70dip Dim check As Int check = cur1.Getint("fav") If check=0 Then Btnlike.SetBackgroundImage(LoadBitmap(File.DirAssets,"noheart.png")) Else If check=1 Then Btnlike.SetBackgroundImage(LoadBitmap(File.DirAssets,"heart.png")) End If Next ScrollView1.Panel.Height=PanelHeight End Subو اینم کد باتن بوکمارک
Sub Btnlike_Click Dim btm As BitmapDrawable Dim btn2 As Button Dim pi As Float btn2=Sender Dim sqlnew As SQL Dim curnew As Cursor If sqlnew.IsInitialized = False Then sqlnew.Initialize(File.DirInternal,"smslove.db",True) End If curnew = sqlnew.ExecQuery("SELECT * FROM tbllove where id ="&btn2.Tag) curnew.Position = 0 Dim check As Int check = curnew.Getint("fav") If check = 0 Then sqlnew.ExecNonQuery("UPDATE tbllove SET fav = 1 WHERE id = "&btn2.Tag) ToastMessageShow("به علاقه مندی ها اضافه شد",False) btm.Initialize(LoadBitmap(File.DirAssets,"heart.png")) Btnlike.Background=btm ScrollView1.Panel.RemoveAllViews PanelHeight = ScrollView1.Height - ScrollView1.Height ScrollView1.ScrollPosition = PanelHeight Activity_Create(True) Else If check = 1 Then sqlnew.ExecNonQuery("UPDATE tbllove SET fav = 0 WHERE id = "&btn2.Tag) ToastMessageShow("از علاقه مندی ها حذف شد",False) btm.Initialize(LoadBitmap(File.DirAssets,"noheart.png")) Btnlike.Background=btm ScrollView1.Panel.RemoveAllViews PanelHeight = ScrollView1.Height - ScrollView1.Height ScrollView1.ScrollPosition = PanelHeight Activity_Create(True) End If End Subاینم خود برنامه
http://s7.picofile.com/file/8257827650/sms2.apk.html
اگ مشکلا متوجه نشدید عاشقانه ها را کلیک کنید و بیایید وسط صفحه و یکی از پیام هارا لایک کنید
میبینید ک میره اول صقحه
لطفا جواب بدید ک بدجور تو امپاسم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.