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

[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]

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