اضافه کردن قابلیت انتخاب متن (Selectable) به لیبل و امکانات دیگر

[Kazem Forghani 2,928]

با سلام ،

بوسیله این تکه کد ساده می تونید به لیبل قابلیت انتخاب متن بدید که با فعال کردن این قابلیت امکان کپی متن لیبل به صورت خودکار اضافه می شه.

ابتدا کتابخانه JavaObject رو تیک بزنید. ساب زیر رو به پروژه اضافه کنید:

Sub TextIsSelectable(Label As Label, Selectable As Boolean)
	Dim jo As JavaObject = Label
	jo.RunMethod("setTextIsSelectable", Array As Object(Selectable))
End Sub

روش استفاده:

TextIsSelectable(lbl, True)

کد بالا دو پارامتر داره، پارامتر اول لیبل مورد نظر و پارامتر دوم قابلیت انتخاب کردن متن لیبل هست.

موفق باشید