پیست کردن متن از حافظه در تکس باکس

[alirezabigdeli]

سلام دوستان یه کد میخوام که بشه از حافظه ویندوز یه متن رو توی تکس باکس پیست کرد

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

text1.text=clipboard.gettext

اون کد رو میخوام که معادل کلیک راست روی تکس باکس و بعد پیست


لطفا هر کی میدونه راهنمایی کنه

باتشکر

[SlowCode]

سلام
چرا به کارت نمیاد؟

اون کد رو میخوام که معادل کلیک راست روی تکس باکس و بعد پیست

باید یه منو درست کنی بعد اونو به صورت popup نشون بدی.
در مورد popup جستجو کن کلی مطلب پیدا میکنی.

[alirezabigdeli]

منظورم رو متوجه نشدی
کد past کردن متن درون تکس باکس رو میخوام

[alirezabigdeli]

اخه وقتی از دستور clipboard.gettext استفاده میکنم اعداد فارسیم به صورت علامت سوال نمایش داده میشن ولی وفتی past میکنم اعدادم درست نمایش داده میشن

[محسن واژدی]

سلام علیکم
کد زیر فرمان Paste را ارسال میکند:

Private Const WM_PASTE = &H302
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long ,lParam As Any) As Long


برای مثال:
SendMessage Text1.hwnd, WM_PASTE, 0&, 0&

موفق باشید

[alirezabigdeli]

دوست عزیز خیلی خیلی ممنون از راهنماییت

این کدی که دادی متن رو اضافه میکنه حالا اگه بخوام متن رو فقط جایگزین متن قبلی کنم چی؟؟؟

[محسن واژدی]

برای این قبلش text-box را خالی میکنیم، برای مثال:
Text1=Empty
SendMessage Text1.hwnd, WM_PASTE, 0&, 0&


موفق باشید