چطور قسمتی از متن را انتخاب ، و در جایی دیگر کپی کنم؟

[qasem 249]

سلام دوستان چه کدی باید بزنم که کاربر اگه خواست قسمتی از متن را بتونه انتخاب کنه و در جایی دیگر کپی کنه؟ مثل عکس زیر

 

 

 

 

[Qomzax 18]

با سلام و احترام

روش استاد شاهدي رو امتحان کردم و مشکلم حل شد. جالب اينجاست در اين روش پس از انتخاب شدن متن ليبل قابليت کپي شدن هم فعال ميشه :)  

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

[امین شاهدی 5,771]

با سلام و احترام

روش استاد شاهدي رو امتحان کردم و مشکلم حل شد. جالب اينجاست در اين روش پس از انتخاب شدن متن ليبل قابليت کپي شدن هم فعال ميشه :)  

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

خواهش میکنم , ما اینجا جم شدیم واسه همین کار و کمک به هم

استاد شاهدی 

باید این کد توو چه بخشی از لیبل باشه در هنگام لود ؟

هرجایی باشه فرقی نداره , میتونین توی activity_create بزارین

[مجید آرتا 5,874]

شما این کد رو تست کنید :

EditText1.Enabled = False

[امین شاهدی 5,771]

لازم نیست از Edittext استفاده کنین ،اگه از لیبل استفاده میکنی میتونی با این کد اون رو قابل سلکت کردن کنی .

Dim  jo As JavaObject=Label1
	jo.RunMethod("setTextIsSelectable",Array As Object(True))

کتابخونه JavaObject رو تیک بزن و به جای Label1 اسم لیبل رو بزار

[Qomzax 18]

با سلام و احترام

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

EditText1.Text=Old

ممنون

[mehran901 41]

تو ی ادیت تکست وقتی روش نگه دارین میتونید متنو سلکت کنید دیگه 

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

[qasem 249]

نه من نمیخوام توی ادیت تکس سلکت کنم بلکه میخوام کاربر هر قسمتی از متن کتاب را که خواست بتونه انتخاب کنه و در جای دیگه پیست کنه؟

[کاربر ناشناس 2,148]

با سلام و احترام

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

EditText1.Text=Old

ممنون

 

درود

یه بررسی کنید ببینید این جلوی

Sub edittext1_TextChanged

نوشته شده ؟

(Old As String, New As String)

و لازم به ذکر است که من با همین کد ، برنامه نویسی میکنم

مشکل از یک جای دیگه است

از اروری که میدهد یه عکس بدید

[Alireza.Ghafari 2,104]

نه من نمیخوام توی ادیت تکس سلکت کنم بلکه میخوام کاربر هر قسمتی از متن کتاب را که خواست بتونه انتخاب کنه و در جای دیگه پیست کنه؟

شما برای اینکار باید متن کتابتون رو در یک edittext فراخانی کنید و سپس با کدی که دوست عزیزمون mehran901 دادن متن انتخاب شده را به دست بیارید و در کلیپ برد کاربر کپی کنید...

موفق باشید

[Qomzax 18]

با سلام

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

میشه کد سورس روش انتخاب متن رو کامل توضیح بدین با روش گفته شده در تاپیک خروجی مسیج باکس فقط شماره کاراکتر اول و اخر متن انتخاب شده است نه خود متن؟؟؟

[Kazem Forghani 2,927]

این رو هم اضافه کنم که برای کپی کردن متن می تونید از کتابخانه AriaLib استفاده کنید.

با تشکر از پاسخ مفید دوستان عزیز آقای غفاری و مهران...

[کاربر ناشناس 2,148]

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

	If New.Length>1 Then
	EditText1.Text=Old
	ToastMessageShow("شما بیشتر تر 1 کاراکتر نمیتونید بنویسید",False)
	End If

این کدها رو در قسمت

Sub edittext1_TextChanged (Old As String, New As String)

End Sub

قرار دهید

موفق باشید

[qasem 249]

خب لطفا بگید چطوری از کتابخانه AriaLib  استفاده کنم ؟

اگه از کتابخانه AriaLib استفاده کنم باز هم باید متنم را توی edittext فراخوانی کنم؟

[Alireza.Ghafari 2,104]

خب لطفا بگید چطوری از کتابخانه AriaLib  استفاده کنم ؟

اگه از کتابخانه AriaLib استفاده کنم باز هم باید متنم را توی edittext فراخوانی کنم؟

دوست عزیزم

منظور آقای فرقانی این بود که برای کپی کردن از کتابخانه arialib استفاده کنید ولی برای این که متن قابلیت انتخاب رو داشته باشه باید از editText استفاده کنید.

برای مثال به جای لیبل یه editText درست کنید و ترنس پرنتش کنید، همچنین متن داخل اون رو قفل کنید تا کاربر نتونه ازش کم یا زیاد کنه بعد در رویداد متن انتخاب شده میتونید متن که از نوع استرینگ هست رو با کتابخانه ariaLib یا Clipboard استفاده کنید.

موفق باشید

[mehran901 41]

Sub GetSelectionEnd(txt As EditText) As Int
   Dim r As Reflector
   r.Target = txt
   Return r.RunMethod("getSelectionEnd")
End Sub

Sub Button1_Click
Msgbox(EditText1.SelectionStart & " - " & GetSelectionEnd(EditText1),"")


End Sub

این بخش گرفتن بخش سلکت شده هست

[Qomzax 18]

با سلام

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

ممنون میشم راهنماییم کنید قفل شدن ادیت تکست در حالیکه بشه متن رو انتخاب کرد خیلی اذیتم کرده. :S

 

test.rar

[qasem 249]

اصلا سلکت نمیشه که بخوام بگیرمش!

[mr.shi 34]

استاد شاهدی 

باید این کد توو چه بخشی از لیبل باشه در هنگام لود ؟