شبیه ساز کلیپ بورد واقعی

[softir 459]

سلام

اینترنت رو ، انجمن رو گشتم اما پیدا نتونستم بکنم

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

بنده می خوام متن کپی شده رو هر جایی از متنم پُست کنم مثلا وسط متنم .

اما این هایی که تو انجمن هست کلن جیگزین می کنه

-----------------------------------------------------------------

 

[softir 459]

در هم اکنون، softir گفته است :

سلام

اینترنت رو ، انجمن رو گشتم اما پیدا نتونستم بکنم

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

بنده می خوام متن کپی شده رو هر جایی از متنم پُست کنم مثلا وسط متنم .

اما این هایی که تو انجمن هست کلن جیگزین می کنه

-----------------------------------------------------------------

 

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

Sub Globals
	Private EditText1 As EditText
	Dim be,af,selected,input As String
End Sub

Sub post_Click
	selected = EditText1.SelectionStart
	be = EditText1.Text.SubString2(0,selected)
	af = EditText1.Text.SubString2(selected,EditText1.Text.Length)
	input = "ali"
	EditText1.Text = be & input & af
	EditText1.SelectionStart = selected + input.Length
End Sub

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

همت کنید کد رو تکمیل کنید