کپی متن اضافه در کلیپبورد

[arashdj]

با سلام
میشه برنامه ای نوشت که وقتی متنی را کپی میکنم هتگام وارد کردن (paste)در یه تکست دیگه جمله دلخواهی نیز به آن اضافه شود
مثال:
متن: سلام
وقتی کپی میکنم و میام در فایل تکست پیست کنم
تبدیل شود: سلام خوبی

خوبی اضافه شده
ممنون

[dreamvbfox]

با سلام
میشه برنامه ای نوشت که وقتی متنی را کپی میکنم هتگام وارد کردن (paste)در یه تکست دیگه جمله دلخواهی نیز به آن اضافه شود
مثال:
متن: سلام
وقتی کپی میکنم و میام در فایل تکست پیست کنم
تبدیل شود: سلام خوبی

خوبی اضافه شده
ممنون

سلام عزیزم.
کاری نداره که . شما باید تو رویداد change تکست باکس کد مربوطه رو اضافه کنی ! یعنی هروقت متنی وارد شد و عوض شد بهش "سلام" رو اضافه کنه. همین .
یه کار دیگه هم میتونی بکنی .!!! هر وقت که کلید ctrl+v یا روی textbox فوکوس دریافت شد ! هرچی متن موجود در clipboard رو بگیره بهش "سلام" رو اضافه کنه و برگردونه تو clipboard !!!!

موفق باشید.

[arashdj]

ممنون میشه سورسشو بذارید

[hamed_Arfaee]

سلام

فکر کنم اینا جواب بدن :

کد:

Private Sub Timer1_Timer()
Dim tmpCLB As String
tmpCLB = Clipboard.GetText
If tmpCLB <> Text1.Text Then
    tmpCLB = tmpCLB & "IranVig"
    Clipboard.SetText tmpCLB
    Text1.Text = Clipboard.GetText
End If
End Sub
Private Sub Form_Load()
Text1.Text = Clipboard.GetText
End Sub

[dreamvbfox]

با اجازه آقا حامد .
اینم سورس برنامه که یه ذره عوضش کردم.

موفق باشید.

[arashdj]

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