انتخاب متن در هر جای ویندوز

[sohrab o]

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

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

[zerobit-ltd]

تا جایی که من میدونم دیکشنری ها مثل (shetab) از کلماتی که که تو clipboard کپی شدن استفاده می کنن.
یعنی اطلاعات رو از clipboard می خونن و از اونا تو برنامه خودشون استفاده می کنن.

[googoole]

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

[romina2006]

دوست عزیز در کد زیر می تونی پس از انتخاب کردن متن موردنظر با زدن کلیدهای Ctrl+L متن رو انتقال بدی.اگر خواستی می تونی کلید موردنظرت رو عوض کنی



Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer

Private Sub Timer1_Timer()
Dim keystate As Integer
Dim keystate1 As Integer
keystate = GetKeyState(vbKeyL)
keystate1 = GetKeyState(vbKeyControl)
If keystate And keystate1 And &H8000 Then
SendKeys "^{c}", True
Form1.Visible = True
Form1.Text1.SetFocus
Form1.Text1.Text = ""
Form1.Text1.SelText = Clipboard.GetText
End If
End Sub

[sohrab o]

آقا متشکر بسیار عالی و بموقع بود