فعال شدن دکمه های کپی و پیست

[hr0694]

سلام

من میخام این کد رو جوری تغییر داده شود که اگه فوکوس داخل هر تکستی بود این دو دکمه واسه اون تکست عمل کنند مثلا اگه فوکوس داخل تکست 3 بود این دو دکمه واسه تکست3 عمل کنند در این حالت فقط برای تکست1 عمل میکنند

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1
End Sub

Private Sub Command2_Click()
Text1 = Clipboard.GetText
End Sub

[returnx]

خیلی خوب توضیح ندادید ، اما تا اونجا که من متوجه شدم شما نیاز دارید آرایه از textbox ها بسازید...

[hr0694]

اگه میشه شما کدشو واسم بنویسید من مبتدی هستم یعنی کدی که در پست1 خواستم

[returnx]

فکر کنم منظورتون این بود(سورس ضمیمه شده)

[hr0694]

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

[returnx]

دکمه کپی را به اینصورت تغییر بدید:

Clipboard.Clear
Clipboard.SetText Text1(t_index).SelText
و دکمه past رو به اینصورت:

Text1(t_index).Text = Text1(t_index).Text & Clipboard.GetText