کپی متن انتخاب شده به Textbox

[mehdi_yg]

سلام و خسته نباشید عرض میکنم خدمت تمامی دوستان عزیز

فرض کنیم یه کلمه ای رو در هر جایی از ویندوز به حالت انتخاب یا همون هایلایت قرار دادیم ، حالا چجوری میشه این کلمه رو با زدن کلید Ctrl+p به داخل یه textbox توی فرممون انتقال بدیم . فکر میکنم تو یه برنامه دیکشنری این حالت رو دیدم . ممنون میشم اگه راهنمایی بفرمایید .

[mehdi_yg]

يعني با Vb نمیشه همچین کاری کرد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[sherwood]

چرا شدني شايد با اين راه كه ميگم بشه اگه اين هم نشد راه داره بايد فكر كرد
بايد وقتي كه Ctrl+p زدي send key كني Ctrl+c بعد با api get focus رو فرمت فوكوس كني و send key كني Ctrl+v
راه سختيه ولي فكر كنم شدنيه باز هم فكر كني راه بهتر هم داره

[Payman_62]

همچين سختم نيست. راه خوبيه. يه تايمر كه چك كنه كنترل پي زده شده يا نه. بعد هم هندل فرم خودمون رو كه داريم. راحت مياريمش رو. يا اصلا ميتوني ويزيبلشو فالس كني و موقع نياز me.show كني.

[sina88_2004]

آره منم با Payman_62 موافقم.
راه خوبيه.

[A_M_IT2005]

سلام به همگی
در جواب شما mehdi_yg عزبز باید بگم که اگه من جای شما بودم
یک منو می ساختم وکلید ترکیبی Ctrl+p رو برای کلید میانبر انتخاب می کردم
بعد این فرمول رو مینویسم:
Text1.SelText = Clipboard.GetText
به همین راحتی.
حالا اگه من سوال رو درست نفهمیدم یا با این فرمول مشکل شما حل نشد لطفا بیشتر توضیح بدین.
یا علی.

[Payman_62]

سلام به همگی
در جواب شما mehdi_yg عزبز باید بگم که اگه من جای شما بودم
یک منو می ساختم وکلید ترکیبی Ctrl+p رو برای کلید میانبر انتخاب می کردم
بعد این فرمول رو مینویسم:
Text1.SelText = Clipboard.GetText
به همین راحتی.
حالا اگه من سوال رو درست نفهمیدم یا با این فرمول مشکل شما حل نشد لطفا بیشتر توضیح بدین.
یا علی.

در اين روش فوكوس بايد رو فرم باشه. ايشون ميگن ميخوان از خارج محيط برنامه متن انتخاب شده در داخل برنامه نشون بدن.

[sherwood]

با سلام
اره شايد هم زياد سخت نباشه
حالا هر وقت مهدي جان انجام داد بگه چطور از اب در اومد

قربون همتون

[Romina2006]

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(vbKeyP)
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

[mehdi_yg]

Romina2006 عزيز خيلي خيلي ممنونم ... واقعأ لطف کرديد ... کار ميکونه