تور لحظه آخری
امروز : پنجشنبه ، 15 آذر 1403    احادیث و روایات:  امام صادق (ع):تسبيحات فاطمه زهرا عليهاالسلام در هر روز پس از هر نماز نزد من محبوب تر از هزار ركعت ...
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

صرافی ارکی چنج

صرافی rkchange

سایبان ماشین

دزدگیر منزل

اجاره سند در شیراز

قیمت فنس

armanekasbokar

armanetejarat

صندوق تضمین

Future Innovate Tech

پی جو مشاغل برتر شیراز

آراد برندینگ

خرید یخچال خارجی

موسسه خیریه

واردات از چین

حمية السكري النوع الثاني

ناب مووی

دانلود فیلم

بانک کتاب

دریافت دیه موتورسیکلت از بیمه

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

دانلود فیلم هندی

قیمت فرش

درب فریم لس

زانوبند زاپیامکس

روغن بهران بردبار ۳۲۰

قیمت سرور اچ پی

خرید بلیط هواپیما

بلیط اتوبوس پایانه

تعمیرات پکیج کرج

لیست قیمت گوشی شیائومی

خرید فالوور

پوستر آنلاین

بهترین وکیل کرج

بهترین وکیل تهران

خرید اکانت تریدینگ ویو

خرید از چین

خرید از چین

تجهیزات کافی شاپ

ساختمان پزشکان

دوربین سیمکارتی چرخشی

همکاری آی نو و گزینه دو

کاشت ابرو طبیعی و‌ سریع

الک آزمایشگاهی

الک آزمایشگاهی

خرید سرور مجازی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

لوله و اتصالات آذین

قرص گلوریا

نمایندگی دوو در کرج

خرید نهال سیب

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

رفع تاری و تشخیص پلاک

پرگابالین

دوره آموزش باریستا

مهاجرت به آلمان

بهترین قالیشویی تهران

بورس کارتریج پرینتر در تهران

تشریفات روناک

نوار اخطار زرد رنگ

ثبت شرکت فوری

تابلو برق

خودارزیابی چیست

 






آمار وبسایت

 تعداد کل بازدیدها : 1838021565




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

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


واضح آرشیو وب فارسی:سایت ریسک: mehdi_yg05-04-2006, 10:31 AMسلام و خسته نباشید عرض میکنم خدمت تمامی دوستان عزیز فرض کنیم یه کلمه ای رو در هر جایی از ویندوز به حالت انتخاب یا همون هایلایت قرار دادیم ، حالا چجوری میشه این کلمه رو با زدن کلید Ctrl+p به داخل یه textbox توی فرممون انتقال بدیم . فکر میکنم تو یه برنامه دیکشنری این حالت رو دیدم . ممنون میشم اگه راهنمایی بفرمایید . mehdi_yg12-04-2006, 10:20 AMيعني با Vb نمیشه همچین کاری کرد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟ sherwood12-04-2006, 07:00 PMچرا شدني شايد با اين راه كه ميگم بشه اگه اين هم نشد راه داره بايد فكر كرد بايد وقتي كه Ctrl+p زدي send key كني Ctrl+c بعد با api get focus رو فرمت فوكوس كني و send key كني Ctrl+v راه سختيه ولي فكر كنم شدنيه باز هم فكر كني راه بهتر هم داره Payman_6212-04-2006, 07:11 PMهمچين سختم نيست. راه خوبيه. يه تايمر كه چك كنه كنترل پي زده شده يا نه. بعد هم هندل فرم خودمون رو كه داريم. راحت مياريمش رو. يا اصلا ميتوني ويزيبلشو فالس كني و موقع نياز me.show كني. sina 88_200412-04-2006, 07:34 PMآره منم با Payman_62 موافقم. راه خوبيه. A_M_IT200512-04-2006, 11:33 PMسلام به همگی در جواب شما mehdi_yg عزبز باید بگم که اگه من جای شما بودم یک منو می ساختم وکلید ترکیبی Ctrl+p رو برای کلید میانبر انتخاب می کردم بعد این فرمول رو مینویسم: Text1.SelText = Clipboard.GetText به همین راحتی. حالا اگه من سوال رو درست نفهمیدم یا با این فرمول مشکل شما حل نشد لطفا بیشتر توضیح بدین. :cool: یا علی. Payman_6213-04-2006, 09:54 PMسلام به همگی در جواب شما mehdi_yg عزبز باید بگم که اگه من جای شما بودم یک منو می ساختم وکلید ترکیبی Ctrl+p رو برای کلید میانبر انتخاب می کردم بعد این فرمول رو مینویسم: Text1.SelText = Clipboard.GetText به همین راحتی. حالا اگه من سوال رو درست نفهمیدم یا با این فرمول مشکل شما حل نشد لطفا بیشتر توضیح بدین. :cool: یا علی. در اين روش فوكوس بايد رو فرم باشه. ايشون ميگن ميخوان از خارج محيط برنامه متن انتخاب شده در داخل برنامه نشون بدن. sherwood15-04-2006, 11:25 AMبا سلام اره شايد هم زياد سخت نباشه حالا هر وقت مهدي جان انجام داد بگه چطور از اب در اومد قربون همتون Romina 200629-12-2006, 11:19 AMPrivate 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_yg30-12-2006, 01:36 AMRomina 2006 عزيز خيلي خيلي ممنونم ... واقعأ لطف کرديد ... کار ميکونه ;) سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 476]

bt

اضافه شدن مطلب/حذف مطلب




-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن