یرایش متن تایپ شده

[میلاد حائری 180]

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

در ضمن نمیخوام که کلمه رو جایگزین کنه حرف به حرف اینکارو انجام بده

[میلاد حائری 180]

در در 1396/04/08, 12:30:16، Maziar009 گفته است :

ببینید دوستان، منظورش اینه که همزمان با نوشته شدن متن در ادیت تکست، توی لیبل هم همون متنو بنویسه ولی فقط چند تا فرق توش ایجاد کنه

کدش اینه :

Sub EditText1_TextChanged (Old As String, New As String)
	If New <> Old Then
	Label1.Text = Edittext1.Text.Replace("م","ف")
  End If
End Sub

 

 

در در 1396/04/04, 22:21:33، Amir - B گفته است :

سلام

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

یه سابی ادیت تکست داره به این صورت

Sub EditText_TextChanged (Old As String, New As String)

End Sub

 

که New ، کل متن موجود در ادیت تکست و OLd هم کلمه قبل از آخرین حروف تغییر داده شده است .

Sub EditText_TextChanged (Old As String, New As String)
	label.Text = New
	label.Text = label.Text.Replace("ف","ش")
	
End Sub

 

تو این ساب ،اومدیم متن لیبل رو برابر با متن درون ادیت تکست قرار دادیم . 

بعد گفتیم در متن لیبل ، به جای حرف ف ، حرف ش رو قرار بده . 

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

حاا اگه بخوام چنتا حرف زو جایگزین کنم چی؟

[Maziar009 24]

در 2 ساعت قبل، میلاد حائری گفته است :

 

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

حاا اگه بخوام چنتا حرف زو جایگزین کنم چی؟

چند بار کد

Label1.Text = Edittext.text.Replace("ز","ی")

رو تکرار کن، مثلاً :

Label1.Text = Edittext.text.Replace("ا","ب")
Label1.Text = Edittext.text.Replace("س","ت")
Label1.Text = Edittext.text.Replace("ه","ل")

که در مثال بالا، حروف "ب" و "ت" و "ل"، به ترتیب با "ا" و "س" و "ه" جایگزین میشه

[میلاد حائری 180]

up

[Amir - B 184]

سلام

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

یه سابی ادیت تکست داره به این صورت

Sub EditText_TextChanged (Old As String, New As String)

End Sub

 

که New ، کل متن موجود در ادیت تکست و OLd هم کلمه قبل از آخرین حروف تغییر داده شده است .

Sub EditText_TextChanged (Old As String, New As String)
	label.Text = New
	label.Text = label.Text.Replace("ف","ش")
	
End Sub

 

تو این ساب ،اومدیم متن لیبل رو برابر با متن درون ادیت تکست قرار دادیم . 

بعد گفتیم در متن لیبل ، به جای حرف ف ، حرف ش رو قرار بده . 

[softir 459]

در در 1396/04/03, 22:59:43، میلاد حائری گفته است :

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

در ضمن نمیخوام که کلمه رو جایگزین کنه حرف به حرف اینکارو انجام بده

اینی که میگی یعنی چی دقیقا

01 - منظورت اینه که از قبل کلمات زیادی داری که اگر بنویسی (ت) بره رندوم یکی رو انتخاب کنه که با ت شروع شده مثل (تفنگ) ؟

 

[Maziar009 24]

ببینید دوستان، منظورش اینه که همزمان با نوشته شدن متن در ادیت تکست، توی لیبل هم همون متنو بنویسه ولی فقط چند تا فرق توش ایجاد کنه

کدش اینه :

Sub EditText1_TextChanged (Old As String, New As String)
	If New <> Old Then
	Label1.Text = Edittext1.Text.Replace("م","ف")
  End If
End Sub