جلوگیری از تکرار اسم در لیست ویو

[siroos12 14]

سلام.

دوستان شاید براتون ساده بیاد اما چیزی به ذهنم نمیرسه

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

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

چیکار باید کرد؟

[m007moh 181]

سلام ،

زمانی که روی دکمه کلیک می شه متن EditText رو داخل یک متغیر بریزید. دفعه بعد که کلیک شد روی باتن چک کنید که اگر متن EditText برابر با اون متغیر بود مقدار به لیست ویو اضافه نشه.

 

 

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

 

 

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

	For i=0 To lst.Size-1
	If lst.Get(i)=EditText1.Text Then
	t=t+1
	End If
	Next
	If t=0 Then
	ListView1.AddSingleLine(EditText1.Text)
	lst.Add(EditText1.Text)
	Else
	Msgbox("موجود است","")
	t=0
	End If

پ ن: lst  از نوع لیسته و باید initializ شه

[Kazem Forghani 2,927]

سلام ،

زمانی که روی دکمه کلیک می شه متن EditText رو داخل یک متغیر بریزید. دفعه بعد که کلیک شد روی باتن چک کنید که اگر متن EditText برابر با اون متغیر بود مقدار به لیست ویو اضافه نشه.

Sub Button1_Click
	If edt.Text <> str Then
		lst.AddSingleLine(edt.Text)
	End If
	str = edt.Text
End Sub

موفق باشید

[siroos12 14]

سلام ،

زمانی که روی دکمه کلیک می شه متن EditText رو داخل یک متغیر بریزید. دفعه بعد که کلیک شد روی باتن چک کنید که اگر متن EditText برابر با اون متغیر بود مقدار به لیست ویو اضافه نشه.

Sub Button1_Click
	If edt.Text <> str Then
		lst.AddSingleLine(edt.Text)
	End If
	str = edt.Text
End Sub

موفق باشید

همین کارو کردم ولی موقع خروجی دیگه به لیت ویو اضافه نمیکنه.

اینم کد:

Sub Button1_Click
If EditText1.Text = "" Then
ToastMessageShow("لطفا ID مورد نظر را وارد نمایید." , True)
Else 
sss=EditText1.Text
	If EditText1.Text<>sss Then
	ListView1.AddSingleLine(EditText1.Text)
End If
'ListView1.AddSingleLine(EditText1.Text)
End If

[siroos12 14]

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

 

 

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

	For i=0 To lst.Size-1
	If lst.Get(i)=EditText1.Text Then
	t=t+1
	End If
	Next
	If t=0 Then
	ListView1.AddSingleLine(EditText1.Text)
	lst.Add(EditText1.Text)
	Else
	Msgbox("موجود است","")
	t=0
	End If

پ ن: lst  از نوع لیسته و باید initializ شه

ممون دوست خوبم

با این کد درست شد.

Dim t As Int
For i=0 To ListView1.Size-1
	If ListView1.GetItem(i)=EditText1.Text Then
	t=t+1
	End If
	Next
	If t=0 Then
	ListView1.AddSingleLine(EditText1.Text)
	Else
	t=0
	End If