pasteوcopy کردن در word و بعضی برنامه ها...

[arash_vb]

سلام ، من یه برنامه نوشتم که در کنترل های فعال برنامه ها کپی و پیست را با فرستادن پیغام از تابع send message انجام میده..ولی در ورد و بعضی برنامه ها نظیر ویبی کار نمی کنه..حتی کپی در اکسپلورر به این شیوه کار نمی کنه..لطفا راهنمایی نمایید.
با تشکر

[اوبالیت به بو]

Clipboard.SetText RichTextBox1.SelText, (vbCFRTF)
RichTextBox1.SelText = Clipboard.GetText(vbCFRTF)

این در صورتی هستش که از RichTextBox استفاده کنی.

[arash_vb]

قربان،گویا درست متوجه نشدید،هدف در برنامه ها و پنجره های دیگر است!



لطفا راهنمایی نمایید

[arash_vb]

کسی نیست راهنمایی کنه؟

[ali_habibi1384]

دوست عزیز برنامه ای که شما می خوا بنویسی رو خود vb6 بصورت آماده سورسش رو در اختیارت گذاشته میتونی از wizard خود vb6 اونو ببینی.

[ali_habibi1384]

اگه سورسش رو پیدا نکردید تاپیک بدید واستون همینجا بزارم؟

[UpgradeVB6Code]

سلام ، من یه برنامه نوشتم که در کنترل های فعال برنامه ها کپی و پیست را با فرستادن پیغام از تابع send message انجام میده..ولی در ورد و بعضی برنامه ها نظیر ویبی کار نمی کنه..حتی کپی در اکسپلورر به این شیوه کار نمی کنه..لطفا راهنمایی نمایید.
با تشکر
میشه بگی با چه کدی داری این کارو میکنی !

[Runtime_Error_999]

میشه سورسش زو اینجا بزارین؟

[Mbt925]

روشی کارآمد و ساده :
فرض می کنیم می خوایم محتویات Text1 رو کپی کنیم.






Text1.SetFocus

SendKeys "{Home}+{End}"

SendKeys "^C"




^ : Ctrl
Shift : +

[ali_habibi1384]

اینم سورس برنامه نوت پد:

[__siavash__]

این کد مشکلش اینه که از Clipboard Object برای کپی کردن استفاده میکنه و اگه یه متنی رو از داخلش کپی بگیرید توی برنامه های بیرون نمیتونید Past کنید!
باید از تابع Send Message استفاده بشه !!!

[arash_vb]

حالا دقیقا فکر کنید می خواهید همین کارو برای ورد کنید یعنی وقتی فوکوس اونجاست فقط متن کپی یا پیست بشه! التهی مسئله بودن فوکوس نیست...فقط پیست شدنشه!

[__siavash__]

شما دقیقا از چه متنی و کجا میخوای کپی بگیری و کجا میخوای پیست کنی ؟

[arash_vb]

متن تو کلیپ بورد از قبل بوده...قابل ذکره که عملیاتی که می خوام انجام بدم فقط تو چند تا برنامه نظیر ورد و حتی ویبی جواب نمیده!!
در واقع من در هر برنامه روی تکست باکس فعال متن رو راحت با فرستادن مسیج سیستمی پیست میکنم!ولی در ورد و ویبی و برخی برنامه ها نمیشه(با فرستادن پیغام پیست به اون آبجکت)

[arash_vb]

کسی نبود؟ لطفا یه توجهی کنید!

[__siavash__]

متن تو کلیپ بورد از قبل بوده...قابل ذکره که عملیاتی که می خوام انجام بدم فقط تو چند تا برنامه نظیر ورد و حتی ویبی جواب نمیده!!
در واقع من در هر برنامه روی تکست باکس فعال متن رو راحت با فرستادن مسیج سیستمی پیست میکنم!ولی در ورد و ویبی و برخی برنامه ها نمیشه(با فرستادن پیغام پیست به اون آبجکت)
مثلا توی Word به چه آبجکتی پیغام Past رو میفرستی ؟ ( چه هندلی رو وارد میکنی ؟ )

[arash_vb]

آبجکتی که موس روشه ...مثل فضایی که متن در اون تایپ میشه!
فکر میکنم باید اینجا از فرستادن ضرب کلید استفاده بشه..
نظر شما چیه؟

[__siavash__]

آبجکتی که موس روشه ...مثل فضایی که متن در اون تایپ میشه!
فکر میکنم باید اینجا از فرستادن ضرب کلید استفاده بشه..
نظر شما چیه؟
اول پنجره Word رو با SetForegroundWindow بیار بالا بعد با SendKeys کلید های Ctrl + V رو بفرست ببین پیست میکنه !؟

[arash_vb]

آزمایش کردم جواب نداد! البته کنترل+ سی رو به شکل :
C^ فرستادم...

[__siavash__]

ممکنه محیت کنید و یه نمونه کد بزارید؟
فرض کن از هر متنی که خواستی کپی گرفتی و تو کلیپ برد هست حالا میخوای توی Word پیست کنی !


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
Dim hwndWord As Long
hwndWord = FindWindow("OpusApp", vbNullString)
SetForegroundWindow (hwndWord)
DoEvents
SendKeys "^v", True
End Sub