ورود

View Full Version : کپی کردن متن به حافظه کلیپبورد


حبیب
چهارشنبه 06 اردیبهشت 1385, 11:15 صبح
با سلام خدمت استادان ویژوال بیسیک

من میخواهم یک برنامه بنویسم که کاربر یک کلمه یا عبارتی را که های لایت کرد و ctrl+s را زد آن
متن انتخاب شده به حافظه برود
تاکید میکنم که نمی خواهم از ctrl+c استفاده کنم.

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

با تشکر فراوان
با سلام مجدد : خدمت سروران گرامی عرض کنم که این متن انتخاب شده در تکست باکسهای برنامه من نیست بلکه فرض کنید در برنامه notepad میباشد
mahdi_farhani
چهارشنبه 06 اردیبهشت 1385, 14:07 عصر
با استفاده از دستور Clipboard شما میتونید این کار رو بکنید .
wanener
چهارشنبه 06 اردیبهشت 1385, 14:37 عصر
فکر کنم اگر درست یادم باشه مثلا اگر بخوای از توی TEXTBOX متنی انتخابی رو بفرستی توی کلیپ برد از دستور (Clipboard.SetText (TextBox1.SelectedTex و تعریف کردن یه شورت کات توی منو به هدفت برسی
Hossein Bazyan
چهارشنبه 06 اردیبهشت 1385, 18:15 عصر
دوست عزیز از کد زیر استفاده کن
با زدن کلیدهای Ctrl+S متن موجود در Text1 به کلیپ برد میرود



private sub Text1_KeyDown ( KeyCode as Integer, Shift as Integer )
If KeyCode=83 Then
Clipborad.Clear
Clipboard.SetText Text1.Text
Endif
EndSub
jk
یک شنبه 07 آبان 1385, 11:24 صبح
این دستور
Clipborad
به چه شکل در محیط وی بی فعال می شه .
تو وی بی که امتحان می کنم این دستور برای وی بی ناشناس است.
mortez maya
یک شنبه 07 آبان 1385, 23:02 عصر
این کدی که نوشتید توی notepad بود یا Textbob؟
sjj
دوشنبه 08 آبان 1385, 00:33 صبح
Clipboard.SetText "My String"
! به همین سادگی
oVERfLOW
شنبه 13 آبان 1385, 11:27 صبح
البته قبلش باید Clipboard.Clear رو اجرا کنید
چون اگه توی کلیپ بورد چیزی باشه این دستور کار نمی‌کنه..

برای کپی شدن یک متن هم باید کلید میانبر سراسری در ویندوز رجیستر کنید و بعدش پنجره‌ی فعال و متن داخل اون رو پیدا کنید

برنامه نویسی‌ش پیچیده هست و به این سادگی‌ها نیست
باید از تابع بازگشت در یک Module کمک بگیرید...

بابای
samiasoft
شنبه 21 بهمن 1391, 16:30 عصر
یه سوال در همین مورد!

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

Public prev_String As String
Private Sub Form_Load()
Clipboard.Clear
End Sub
Private Sub Timer1_Timer()
Dim clip As String
clip = Clipboard.GetText

If clip <> "" Then
While prev_String <> clip
Text1.Text = Clipboard.GetText
prev_String = Clipboard.GetText

Wend
End If

End Sub


حال اگر بخواییم بدون زدن کلیدی بصورت خودکار به تکست باکس منتقل بشه در این صورت باید چگونه کد ان را بنویسیم؟لطفا راهنمایی کنین.
m2011kh
شنبه 21 بهمن 1391, 17:19 عصر
برادر عزیزی که این تاپیکو زدن اگه چشم مبارکو چند سانتی متر میوردن پایین میدیدن تاپیکی که همین سوال رو توش جواب داده شده بود:
http://barnamenevis.org/showthread.php?374295-%D8%AD%D8%A7%D9%81%D8%B8%D9%87-%DA%A9%D9%84%DB%8C%D9%BE-%D8%A8%D8%B1%D8%AF-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2