كود نسخ بيانات التكست

بسم الله الرحمن الرحيم

يمكنك أخي العزيز التعامل مع النسخ واللصخ بواسطة الكائن ClipBoard والحل للمسألة التي تريد كالتالي :

Private Sub Command1_Click()
Clipboard.SetText (Text1.Text)
End Sub

والسلام عليكم ورحمة الله وبركاته

ارجو التوضيح اكثر لم تفلح معي النتيجه لم يتم النسخ ارجو المساعدة

إذا حدد النص

Clipboard.Clear

Nskh = Nskh & text1.SelText

Clipboard.SetText Nskh

واذا لم يكن النص محدداً

Clipboard.Clear

Nskh = Nskh & text1.text

Clipboard.SetText Nskh

الكود يقوم بنسخ محتويات الـ Text1 كاملة تأكد من اسم Text Box في برنامج وسعمل جيدا.

حلووووووووووو رائع

تم النسخ اشكركم اخواني

عبود المنطاد : شكراً لك اخي الكريم على المساعدة :lol:

البريشي: الف شكر على المساعدة :lol:

مجرد ملاحظة علي السريع /

الامر ClipBoard هو خاص بالحافظة ، يوجد به ميزة رهيبة ألا وهي انه عندما يكون مخزن في الذاكرة بيانات ، وقمت بعمل نسخ لمحتويات النص بالطريقة التالية

ClipBoard.SetText Text1.Text

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

-------

حصلت هذه المسكلة مع الاخ (هاوي) في بداية الامر .

مع ان حل الاخ (البريشي) نفس الكود لـ(عبود المنطاد)

الحل:

هو استخدام امر تفريغ الذاكرة Clear قبل كود النسخ .

Clipboard.Clear

امل ان اكون ضفت اشي جديد ،لديكم ، لانو مر علي كثير ناس واقعين في هذا المطب ، خاصة المبتدئين.

سلاماتي :blink:

مشكور على المعلومه أخي prof_1982

وأكيد أضفت لنا معلومه قيمه ( أكيد مش رح أسئل عنها في المستقبل )