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

[mohammada 22]

سلام و خسته نباشید خدمت اساتید عزیز!

چنتا سوال در مورد ادیت تکست داشتم ، چجوری میشه تعداد کارکترهای ادیت تکست رو تشخیص داد؟؟؟

و اینکه چجوری میشه تعیین کرد تعداد کارکتر های ورودی و اخری رو تعیین کرد؟ مثلا تعیین کرد حداقل 5 کارکتر وارد شود و حداکثر 15 کارکتر.

چجوری میشه تشخیص داد اولین و اخرین کارکتر ادیت تکست چیست؟ مثلا تعیین کنیم با 0 شروع بشه؟؟

یه سوال دیگه چنتا ادیت تکست درون یه اسکرول ویو ادد کردم چنتا ادیت تکستا بدون اسکرول نمایش داده میشه و چنتا ادیت تکستا باید اسکرول بشه تا پیدا شه! حالا قبل از اینکه اسکرول از جای اولش تکون بخوره روی اون ادیت تکسای اولی

کلیک میکنم کیبورد باز میشه و ادیت تکست میاد بالای کیبورد اما اگه اسکرول تکون بخوره دیگه ادیت تکست بالا کیبورد نمیاد و کیبورد روی ادیت تکست...چجوری میشه بعد اسکرول هم ادیت تکست های پایین صفحه موقع باز شدن کیبورد بیان بالا کیبورد؟

[esmaeil57 64]

سلام...بسیار سپاسگذارم دوست عزیز...

لطفا در مورد سوال آخر هم راهنمایی کنید!! *monkey*

اگه امکانش هست سورس رو بذارین یه بررسی کنیم. ممنون

[mohammada 22]

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

بلاخره جواب سوالم رو پیدا کردم! هرچند خیلی اصولی نیست ولی خوبه بازم!

همونطور که حدس میزدم توسط کتابخانه IME تونستم مشکل و تا حد زیادی حل کنم

خب من همینجا آموزش میدم مدیران عزیز زحمت بکشن اگه دوست داشتن انتقالش بدن!

اول کتابخانه IME رو از قسمت لایبرری فعال میکنیم!

سپس تو قسمت Sub Globals تعریفش میکنیم!

[/size]
[right][size=4][color=#333333][font=Tahoma]Dim im As IME[/font][/color][/size][/right]

[size=4]

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

im.Initialize
im.AddHeightChangedEvent

و در آخر همه ی کد ها این ساب رو اضافه می کنیم!

[/size][size=4]Sub ime1_HeightChanged (NewHeight As Int, OldHeight As Int)[/size]
[size=4] 
 If NewHeight < OldHeight Then ' Keyboard Open
[/size]
[size=4]
sv1.Height = 50%y

[/size]
[size=4]		ToastMessageShow("50%",False)[/size]
[size=4] 
 Else[/size]
[size=4]   	
sv1.Height = 100%y[/size]
[size=4]  
End If[/size]
[size=4]
End Sub

[esmaeil57 64]

سلام

جواب سوال اول: تعداد کاراکترها L=EditText1.Length

برای حداکثر تعداد کاراکترها:

Sub EditText1_TextChanged (Old As String, New As String)
If  New.Length> 3 Then
	EditText1.Text = Old
End If	
End Sub

به جای 3 هرچی دوس دارین بذارین.

برای حداقل هم میتونید شرط بذارین با توجه به اولین دستور که واسه تعداد کاراکتر ها گفتم بگین اگه L کمتر از مثلا 5 باشه یه عملی انجام بده مثلا ادیت تکست رو خالی کنه.

برای تشخیص اولین کاراکتر و یا آخرین کاراکتر هم باید از کتابخونه ICOSstring که توی سایت موجوده استفاده کنید. دستورات و مثالهاش هم هست. لطفا سرچ کنید.

موفق باشین

[mohammada 22]

سلام...بسیار سپاسگذارم دوست عزیز...

لطفا در مورد سوال آخر هم راهنمایی کنید!! *monkey*

[پژمان نیکروان 6,055]

اینی که میگید بعد از حرکت دادن اسکرول ویو ، بار دیگه روی ادیت تکست کلیک میکنید کیبورد میاد روی ادیست تکست باید بگم که منم همیشه با این موضوع مشکل داشتم.

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

[mohammada 22]

یعنی این باگ b4a هست؟ درسته؟!

به یه چیزی برخورد کردم فک میکنم ربطی به این ماجرا داشته باشه نمیدونم شایدم اشتباه میکنم میذارم اگه شما میدونید چیه یه توضیحی در موردش بدید لطفاً!

Dim im As IME

im.Initialize

im.AddHeightChangedEvent

نمی دونم چرا فک میکنم این کد به این موضوع ربط داره *fekr*