تبدیل حروف وارد شده در ادیت تکست

[cloner01001 38]

سلام دوستان ، خسته نباشید

موقع تایپ تو ادیت تکست اولین حرف به صورت بزرگ نوشته میشه ، مثلا : Speed ولی من میخوام وقتی کاربر شروع به تایپ میکنه تمامی حروف به صورت کوچیک باشن ، یعنی اینطوری : speed | هر کاری کردم نشد ، آیا ممکنه وقتی تو کاربر تو ادیت تکست نوشت Speed و وقتی رو باتن کلیک کرد، باتن متن ادیت تکست رو speed بخونه؟

چون دیتابیسم یه جوریه که باید همه ی حرفای تو ادیت تکست کوچیک باشن

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

[Amir - B 185]

سلام

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

	'These variables can only be accessed from this module.
Dim s As String

End Sub

Sub Activity_Create(FirstTime As Boolean)
Dim edit As EditText
edit.Initialize("edit")
edit.Text = "SPEED"
s = edit.Text 
s = s.ToLowerCase
Log(s)
End Sub

[cloner01001 38]

 

سلام

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

 

	'These variables can only be accessed from this module.
Dim s As String

End Sub

Sub Activity_Create(FirstTime As Boolean)
Dim edit As EditText
edit.Initialize("edit")
edit.Text = "SPEED"
s = edit.Text 
s = s.ToLowerCase
Log(s)
End Sub

 

 

 

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

یعنی میخوام کاربر هر چی تو ادیت تکست نوشت حروفش به صورت کوچیک خونده بشه

یعنی اگه نوشت Hi  - تو ادیت تکست hi نوشته بشه و اگه نوشت House تو ادیت تکست house نوشته بشه

یا اگه تو ادیت تکست نمیشه ، میخوام وقتی رو باتن کلیک شد همه ی حروف تو ادیت تکست به صورت کوچیک باشه

[salmana 174]

ساب پایین تعریف کن

Sub CovertPersian2English(str As String) As String
    Dim te As String
    te = str
    te = te.Replace("۱","1")
    te = te.Replace("۲","2")
    te = te.Replace("۳","3")
    te = te.Replace("۴","4")
    te = te.Replace("۵","5")
    te = te.Replace("۶","6")
    te = te.Replace("۷","7")
    te = te.Replace("۸","8")
    te = te.Replace("۹","9")
    te = te.Replace("۰","0")	
	te = te.Replace("Q","q")
    te = te.Replace("W","w")
	te = te.Replace("E","e")
	te = te.Replace("R","r")
	te = te.Replace("T","t")
	te = te.Replace("Y","y")
	te = te.Replace("U","u")
	te = te.Replace("I","i")
	te = te.Replace("O","o")
	te = te.Replace("P","p")
	te = te.Replace("A","a")
	te = te.Replace("S","s")
	te = te.Replace("D","d")
	te = te.Replace("F","f")
	te = te.Replace("G","g")
	te = te.Replace("H","h")
	te = te.Replace("J","j")
	te = te.Replace("K","k")
	te = te.Replace("L","l")
	te = te.Replace("Z","z")
	te = te.Replace("X","x")
	te = te.Replace("C","c")
	te = te.Replace("V","v")
	te = te.Replace("B","b")
	te = te.Replace("N","n")
	te = te.Replace("M","m")
					
    Return te
End Sub

حالا اینجوری استفاده کن

CovertPersian2English(EditText1.Text)

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