مشکل در paste

[parham01 82]

سلام دوستان

بنده برای paste در

edit text

از کد زیر استفاده می کنم

Sub Button4_Click
	
	Dim p1 As String
	Dim p2 As String
	Dim clip As BClipboard
	p1 = clip.getText
	p2 = Data_Txt.Text
	Data_Txt.Text = p2 & p1
	
	
End Sub

الان مشکل من اینه

متن کپی شده در انتها متنقبلی موجود در edit text

قرار میگیره

میشه لطف کنید بگید چطور میتونم

اگر 10 خط متن دارم

وسط ده خط انتخاب کنم و همونجا متنم را paste کنم؟

ممنون

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

سلام

دوست عزیزمون پژمان متوجه منظورم شدن

اگه بتونین کمکم کنید ممنون میشم

با خود بیسیک که نمیشه.

با جاوا باید اینکارو انجام بدید.

 

کتابخانه JavaObject رو تیک بزنید.

این کد رو توی یه فضای خالی بین ساب ها وارد کنید:

#if java
import android.widget.EditText;

public void cr(EditText ett,String txt){
ett.getText().insert(ett.getSelectionStart(), txt);
}

#end if

و کد خودتون رو به این شکل تصحیح کنید:

Sub Button4_Click
	
	Dim clip As BClipboard
	Dim j As JavaObject
	j.InitializeContext
	j.RunMethod("cr",Array(Data_Txt,clip.getText))
End Sub

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

سلام.

منظورتون اینه که اگه مثلا 10 خط متن دارید توی ادیت تکست تون ، میخواین وقتی کرسر رفت روی خط پنجم ، متن هم همونجا Paste بشه؟؟

[parham01 82]

درود

ببینید واقعا متوجه منظور شما نشدم

اگه ممکنه یک مثال بزنید و به متغیرهاتون و نتیجه ی خروجی یک مقدار بدید تا بهتر متوجه بشیم

سلام

دوست عزیزمون پژمان متوجه منظورم شدن

اگه بتونین کمکم کنید ممنون میشم

[parham01 82]

سلام.

منظورتون اینه که اگه مثلا 10 خط متن دارید توی ادیت تکست تون ، میخواین وقتی کرسر رفت روی خط پنجم ، متن هم همونجا Paste بشه؟؟

سلام

دقیقا همین چیزیه که شما فرمودین

[parham01 82]

 

با خود بیسیک که نمیشه.

با جاوا باید اینکارو انجام بدید.

 

کتابخانه JavaObject رو تیک بزنید.

این کد رو توی یه فضای خالی بین ساب ها وارد کنید:

#if java
import android.widget.EditText;

public void cr(EditText ett,String txt){
ett.getText().insert(ett.getSelectionStart(), txt);
}

#end if

و کد خودتون رو به این شکل تصحیح کنید:

Sub Button4_Click
	
	Dim clip As BClipboard
	Dim j As JavaObject
	j.InitializeContext
	j.RunMethod("cr",Array(Data_Txt,clip.getText))
End Sub

واقعا ممنون پژمان خان

ارادت

[مهدی ایزدی 9,203]

درود

ببینید واقعا متوجه منظور شما نشدم

اگه ممکنه یک مثال بزنید و به متغیرهاتون و نتیجه ی خروجی یک مقدار بدید تا بهتر متوجه بشیم