من یه برنامه ای ساختم بدون دیتابیسه و از لیست ویو هم استفاده کردم . مبخواستم اگه میشه بگید چطوری میتونم بهش جستجو اضافه کنم ؟
این کد اکتیویتی هست که میخوام براش جستجو بذارم
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Panel1 As Panel
Private logo As ImageView
Private back As ImageView
Private cmarkazekharid As ImageView
Private adminpm As ImageView
Private ListView1 As ListView
Private EditText1 As EditText
Private searchbuttom As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("cmarkazekharid")
ListView1.AddTwoLinesAndBitmap("من","",LoadBitmap(File.DirAssets,"bazarha/no-image.png"))
ListView1.AddTwoLinesAndBitmap("تو","",LoadBitmap(File.DirAssets,"bazarha/no-image.png"))
ListView1.AddTwoLinesAndBitmap("او","",LoadBitmap(File.DirAssets,"bazarha/no-image.png"))
ListView1.AddTwoLinesAndBitmap("ما","",LoadBitmap(File.DirAssets,"bazarha/no-image.png"))
ListView1.AddTwoLinesAndBitmap("شما","",LoadBitmap(File.DirAssets,"bazarha/no-image.png"))
ListView1.AddTwoLinesAndBitmap("آن ها","",LoadBitmap(File.DirAssets,"bazarha/no-image.png"))
ListView1.TwoLinesAndBitmap.ImageView.Left = 80%x
ListView1.TwoLinesAndBitmap.Label.Left = -24%x
ListView1.TwoLinesAndBitmap.Label.Top = 2.7%y
ListView1.TwoLinesAndBitmap.Label.TextColor=Colors.RGB(90,56,39)
ListView1.TwoLinesAndBitmap.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf")
ListView1.TwoLinesAndBitmap.Label.TextSize=17
Dim Bitmaplist As BitmapDrawable
Bitmaplist.Initialize(LoadBitmap(File.DirAssets,"5.png"))
ListView1.TwoLinesAndBitmap.Background=Bitmaplist
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
sobhan90 12
سلام
من یه برنامه ای ساختم بدون دیتابیسه و از لیست ویو هم استفاده کردم . مبخواستم اگه میشه بگید چطوری میتونم بهش جستجو اضافه کنم ؟
این کد اکتیویتی هست که میخوام براش جستجو بذارم
#Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals End Sub Sub Globals Private Panel1 As Panel Private logo As ImageView Private back As ImageView Private cmarkazekharid As ImageView Private adminpm As ImageView Private ListView1 As ListView Private EditText1 As EditText Private searchbuttom As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("cmarkazekharid") ListView1.AddTwoLinesAndBitmap("من","",LoadBitmap(File.DirAssets,"bazarha/no-image.png")) ListView1.AddTwoLinesAndBitmap("تو","",LoadBitmap(File.DirAssets,"bazarha/no-image.png")) ListView1.AddTwoLinesAndBitmap("او","",LoadBitmap(File.DirAssets,"bazarha/no-image.png")) ListView1.AddTwoLinesAndBitmap("ما","",LoadBitmap(File.DirAssets,"bazarha/no-image.png")) ListView1.AddTwoLinesAndBitmap("شما","",LoadBitmap(File.DirAssets,"bazarha/no-image.png")) ListView1.AddTwoLinesAndBitmap("آن ها","",LoadBitmap(File.DirAssets,"bazarha/no-image.png")) ListView1.TwoLinesAndBitmap.ImageView.Left = 80%x ListView1.TwoLinesAndBitmap.Label.Left = -24%x ListView1.TwoLinesAndBitmap.Label.Top = 2.7%y ListView1.TwoLinesAndBitmap.Label.TextColor=Colors.RGB(90,56,39) ListView1.TwoLinesAndBitmap.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf") ListView1.TwoLinesAndBitmap.Label.TextSize=17 Dim Bitmaplist As BitmapDrawable Bitmaplist.Initialize(LoadBitmap(File.DirAssets,"5.png")) ListView1.TwoLinesAndBitmap.Background=Bitmaplist End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.