با سلام
میشه برنامه ای نوشت که وقتی متنی را کپی میکنم هتگام وارد کردن (paste)در یه تکست دیگه جمله دلخواهی نیز به آن اضافه شود
مثال:
متن: سلام
وقتی کپی میکنم و میام در فایل تکست پیست کنم
تبدیل شود: سلام خوبی
خوبی اضافه شده
ممنون
(۲۷-شهریور-۱۳۸۸, ۰۰:۴۰:۱۳)arashdj نوشته است: [ -> ]با سلام
میشه برنامه ای نوشت که وقتی متنی را کپی میکنم هتگام وارد کردن (paste)در یه تکست دیگه جمله دلخواهی نیز به آن اضافه شود
مثال:
متن: سلام
وقتی کپی میکنم و میام در فایل تکست پیست کنم
تبدیل شود: سلام خوبی
خوبی اضافه شده
ممنون
سلام عزیزم.
کاری نداره که . شما باید تو رویداد change تکست باکس کد مربوطه رو اضافه کنی ! یعنی هروقت متنی وارد شد و عوض شد بهش "سلام" رو اضافه کنه. همین .
یه کار دیگه هم میتونی بکنی .!!! هر وقت که کلید ctrl+v یا روی textbox فوکوس دریافت شد ! هرچی متن موجود در clipboard رو بگیره بهش "سلام" رو اضافه کنه و برگردونه تو clipboard !!!!
موفق باشید.
سلام
فکر کنم اینا جواب بدن :
کد:
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
با اجازه آقا حامد .
اینم سورس برنامه که یه ذره عوضش کردم.
موفق باشید.
ممنون
ولی مشکل فارسی وقتی متنی از داخل کادر روی نوت پد پیست میکنم حروف بهم ریخته میشه
باید چیکار کرد