من در صفحه ای که مطالب رو نشون میده یه edit text گذاشتم و میخوام در همونجا که جستجو انجام میشه مطالب رو هم نشان بده من کد رو به صورت زیر نوشتم و قرار دادم وقتی جستجو میکنم اتفاق خاصی نمیافته لطفا راهنماییم کنید :
Sub EditText1_TextChanged (Old As String, New As String)
ScrollView1.Panel.RemoveAllViews
PanelHeight = ScrollView1.Height - ScrollView1.Height
Dim sql1 As SQL
If File.Exists(File.DirDefaultExternal,"database.db")=False Then
File.Copy(File.DirAssets,"database.db",File.DirDefaultExternal,"database.db")
End If
If sql1.IsInitialized=False Then
sql1.Initialize(File.DirDefaultExternal,"database.db",False)
End If
Dim Cr As Cursor
Cr = sql1.ExecQuery("SELECT * FROM sms WHERE sms LIKE '%"&EditText1.text&"%'")
For i=0 To list1.Size-1
Try
smscontent=list1.Get(i)
show
Catch
Return
End Try
Next
End Sub
کدهای اکتیویتی کریت هم به صورت زیر :
Sub Activity_Create(FirstTime As Boolean)
smscontent.Initialize
db.Initialize
list1.Initialize
favmanage.Initialize
Activity.LoadLayout("sv")
list1=db.listsubGroup(mostar)
For i=0 To list1.Size-1
Try
smscontent=list1.Get(i)
show
Catch
Return
End Try
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub faveimg_Click
Dim b As View
b=Sender
If favmanage.addtofave(b.Tag,favee)=True Then
mycode.setimg(b,"disfave")
ToastMessageShow("پیام از علاقه مندیها حذف شد",False)
Else
mycode.setimg(b,"fave")
ToastMessageShow("پیام به علاقه مندیها اضافه شد",False)
End If
End Sub
#Region show
Sub show
Dim p1 As Panel
p1.Initialize("")
p1.Color=Colors.RGB(234, 89, 18)
ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,0)
p1.LoadLayout("favelay")
text= smscontent.sms
faveimg.Tag=smscontent.id
But1.Tag=smscontent.id
ht=art(text,Label1,"bnazanin",20)
q.quicsett(Label1,smscontent.sms,20,"bnazanin",Gravity.CENTER,Colors.Black)
If favmanage.chekfave(smscontent.id,mostar)=True Then
mycode.setimg(faveimg,"fave")
Else
mycode.setimg(faveimg,"disfave")
End If
Panel1.Height=ht+160dip
PanelHeight=PanelHeight+ht+170dip
p1.Height=Panel1.Height+160dip
ScrollView1.Panel.Height=PanelHeight+p1.Height-170dip
End Sub
سوال
MoniSoft 14
سلام
من در صفحه ای که مطالب رو نشون میده یه edit text گذاشتم و میخوام در همونجا که جستجو انجام میشه مطالب رو هم نشان بده من کد رو به صورت زیر نوشتم و قرار دادم وقتی جستجو میکنم اتفاق خاصی نمیافته لطفا راهنماییم کنید :
کدهای اکتیویتی کریت هم به صورت زیر :
لینک ارسال
به اشتراک گذاری در سایت های دیگر
11 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.