جستجو در متن لیبل ها

[alireza-love 29]

نزدیک سی چهل تا لیبل تو برنامه هست که با دیزاینر اضافه شده و متنش هم تو همون دیزاینر نوشتیم

هیچ دیتابیسی ندارم

چیجوری میشه تو همشون با هم سرچ کنی؟بعد کلمه اگه بود تو لیست بیاره نبودم که هیچی

سورس باشه خیلی عالیه

[کسری نعمتی مهمان]

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

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

شما با چه حوصله ای 30-40 تا Label رو توی برنامه اضافه کردید و متن هم بهشون دادید.... *DntKnow*

بعدش از Designer Scripts چجوری تنظیمشون کردید *DntKnow*

به نظر بنده این برنامه شما هرچیزی که باشه کاملا غیر اصولی هستش.

واسه پروژه های غیر اصولی بودن شک راه های غیر اصولی باید استفاده بشه

مثلا یک String یا List یا ... تعریف کنی و تمام مقادیر Label هارو توش بریزی و بعد Search کنی.

من اگه حوصله و وقت شما رو داشتم الان نصف دنیا ماله من بود

[alireza-love 29]

شرایط جوریه که حتما باس از لیبل استفاده شه!

تو لیبل هم صدتا خط ندارم که

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

اگه روش لیست و توضیح بدید همراه با سرچش ممنون میشم

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

میایید در Sub Globals یک List تعریف میکنید مثلا:

Dim l As List 

در Activity Create هم باید Initialize رو انجام بدید و تمام Label هارو داخل List بریزید:

l.Initialize
   l.AddAll(Array  As String(Label1.Text,Label2.Text,Label3.Text,Label4.Text))

اگه بخواهید کلمه izadi رو Search کنید هم این کد رو به Button مربوط به جست و جو میدید :

For i = 0 To l.Size - 1
   If l.Get(i) = "izadi" Then
   ToastMessageShow("izadi vojood darad",False)
   End If
   Next 

[کسری نعمتی مهمان]

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

Sub Globals
Private Label1 As Label
Private AutoCompleteEditText1 As AutoCompleteEditText
Private Label2 As Label
Private Label3 As Label
Private Label6 As Label
Private Label5 As Label
Private Label4 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("form1")
Dim l As List 
label1.Text = 1
Label2.Text = 2
Label3.Text = 3
Label4.Text = 4
Label5.Text = 5
Label6.Text = 6

l.Add(Label1.Text)
l.Add(Label2.Text)
l.Add(Label3.Text)
l.Add(Label4.Text)
l.Add(Label5.Text)
l.Add(Label6.Text)
AutoCompleteEditText1.SetItems(l)
End Sub

Sub AutoCompleteEditText1_ItemClick (Value As String)
ToastMessageShow(Value & "entekhab Shod",True)
End Sub

که نیاز به button نیست و خود این AutoCompleteEditText کار جستجو رو انجام میده

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

موفق باشید

[me-tech 10]

بهترین کار برای جستجو اینه که از sql استفاده کنید

[محمد امین مهمان]

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

 

Sub Globals
	Private Label1 As Label
	Private AutoCompleteEditText1 As AutoCompleteEditText
	Private Label2 As Label
	Private Label3 As Label
	Private Label6 As Label
	Private Label5 As Label
	Private Label4 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("form1")
	Dim l As List 
	label1.Text = 1
	Label2.Text = 2
	Label3.Text = 3
	Label4.Text = 4
	Label5.Text = 5
	Label6.Text = 6
	
	l.Add(Label1.Text)
	l.Add(Label2.Text)
	l.Add(Label3.Text)
	l.Add(Label4.Text)
	l.Add(Label5.Text)
	l.Add(Label6.Text)
	AutoCompleteEditText1.SetItems(l)
End Sub

Sub AutoCompleteEditText1_ItemClick (Value As String)
	ToastMessageShow(Value & "entekhab Shod",True)
End Sub

که نیاز به button نیست و خود این AutoCompleteEditText کار جستجو رو انجام میده

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

موفق باشید

 

با سلام

ببخشیدمن ۱۰ تا اکتیوتی دارم و توی هر کدوم یه متن تکس داخل لیبل گذاشتم 

این کد شما برای جستجو توی این ۱۰ متن تکس مفیده یا نه؟؟؟

اگر آره

این کد شما را توی اکتیویتی mainبذارم یا جای دیگه؟؟؟

ممنون میشم راهنمایی کنید