PDA

View Full Version : پیاده سازی رویداد onCopy



Beginner2013
جمعه 11 فروردین 1391, 20:13 عصر
با سلام و خسته نباشید خدمت همه.
چجوری می تونم رویداد "وقتی متنی انتخاب میشه" رو پیاده سازی کنم،می خوام که هر جای کامپیوتر متنی کپی میشه کدهام فراخوانی بشه.
با تشکر

just4froum
جمعه 11 فروردین 1391, 21:54 عصر
خوب شما باید با یه تایمر کلیپبورد رو چک کنید و هر وقت تغییری کرد کد هاتونو فراخونی کنید .

alireza661
شنبه 12 فروردین 1391, 00:01 صبح
آره اینکه راحته
من یه مدت دنبال این میگشتم ببینم که چطوری میشه رخداد "text paste" در هر جای ویندوز رو متوجه بشم ولی به نتیجه ای نرسیدم

Mr'Jamshidy
شنبه 12 فروردین 1391, 00:05 صبح
باید کلیپ بورد رو هوک کنی

الان حضور ذهن ندارم برات کد بزارم اما یک جستجو ساده انجام بدی به نتیجه های خوبی میرسی

ASedJavad
شنبه 12 فروردین 1391, 15:16 عصر
هوک کردن کلیپ برد؟!
امکان پذیره؟؟؟:متفکر:

Mr'Jamshidy
شنبه 12 فروردین 1391, 21:07 عصر
آره امکان پذیره و هر موقع کلیپ بورد تغییر کنه یک تابع رو صدا میزنه

به این لینک یک نگاهی بندازید

How to monitor the clipboard in Visual Basic (http://www.rolbe.com/2009/03/11/how-to-monitor-the-clipboard-in-visual-basic/)

بهترین کمک برای رسیدن به جواب سریع (Google (http://www.google.com))

alireza661
شنبه 12 فروردین 1391, 21:12 عصر
با پیست شدن متن , کیلیپ بورد چه تغییری میکنه؟

just4froum
شنبه 12 فروردین 1391, 21:18 عصر
فرقی نمی کنه.

آخه شما بالا گفتی که می خوام هرجای کامپیوتر متنی کپی شد کد هاتون فراخونی بشه !!!

خوب وقتی متنی کپی میشه کلیپبورد تغییر میکنه ولی موقع پیست نه.

Beginner2013
جمعه 18 فروردین 1391, 01:24 صبح
خوب شما باید با یه تایمر کلیپبورد رو چک کنید و هر وقت تغییری کرد کد هاتونو فراخونی کنید .
از همین روش استفاده کردم.با تشکر از همه

m2011kh
جمعه 18 فروردین 1391, 07:22 صبح
آقای Blogeen اگه میشه یه سرور براید ما هم استفاده کنیم

Beginner2013
جمعه 18 فروردین 1391, 09:38 صبح
آقای Blogeen اگه میشه یه سرور براید ما هم استفاده کنیم
به صورت خیلی سادش اگه بخوام بزارم این شکلی میشه

Public clstr As String
Private Sub Form_Load()
Timer1.Interval = 500
clstr = Clipboard.GetText
End Sub

Private Sub Timer1_Timer()
If clstr <> Clipboard.GetText Then
MsgBox ("OK")
End If
clstr = Clipboard.GetText
End Sub