الرجاء كود نسخ نص

السلام عليك اخي ,,

مرفق مشروع ... تفضل , لكن طبعا يجب تظليل النص المراد نسخه اولا

Ala2_VB___Copy_Text.rar

Ala2 VB كتب:

السلام عليك اخي ,,

مرفق مشروع ... تفضل , لكن طبعا يجب تظليل النص المراد نسخه اولا

الف شكر استاذ علاء جزاك الله خيرا

شكرا لأخي علاء ..

و إليك كود زر النسخ ليقوم بالتحديد و النسخ

Private Sub Command1_Click()
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
DoEditThing "Copy", Text1
End Sub

عند وضع كود يجب شرحه وذلك ليفهمه طالب الكود ولا يحفظه

اقتباس

عند وضع كود يجب شرحه وذلك ليفهمه طالب الكود ولا يحفظه

طيب يا استاذ مبرمج مبتدأ

DoEditThing "Copy", Text1

DoEditThing : دالة (لم نجعلها تعود بقيمة هنا) وبارامتراتها :

"Copy" : وهو الامر المراد تنفيذه

Text1 : مربع النص الذي سيتم النسخ منه

-----------

Private Sub DoEditThing(whatThing As String, onWhat As Object)
Dim Send$
   Select Case whatThing
		Case "Copy"
			Send = "^C"
 End Select
	If Len(Send) Then
		onWhat.SetFocus
		SendKeys Send
	End If
End Sub

DoEditThing(whatThing As String, onWhat As Object)

: تعريف الدالة وبارامتراتها

Dim Send$

: تعريف متغير

Select Case whatThing
		Case "Copy"
			Send = "^C"
 End Select

: تحديد حالات المتغير الذي يحمل قيمة الامر المراد تنفيذه

وبقية الاوامر تضع التركيز في مربع النص (الاداة التي اشرنا اليها) , و يتم ارسال الامر باستخدام SendKeys

ملحوظة : بالنسبة للرمز ^ فهو يرمز إلى زر Ctrl

انا ليا طريقة ثانية في النسخ وإن شاء الله جاري عمل مثال

أخواني هذه طريقي في نسخ النصوص عن طريق Clipboard

أنا لم أضف جديد ..

حيث أنّ الجملتين التاليتين سيتم من خلالها تحديد النص في التيكست بوكس ..

يعني اضغط على زر النسخ و راح ينسخ بدون الحاجة إلى التضليل

Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)

الجملة الأولى لتحديد بداية التضليل

الجملة الثانية للتضليل حتى طول معيّن حيث تم تحديد الطول من خلال الدالة Len و هي تحسب طول النص الممرر لها

يعني أضف الجملتين إلى أحد الحلول في الأعلى و سيكتمل العمل : تحديد + نسخ

اخي علاء طريقتك صعبة :)

انا كنت اقصد طريقة

اقتباس

Me.Text1.SelStart = 0

Me.Text1.SelLength = Len(Me.Text1.Text)

لان عندي طريقة في النسخ لكن بدون تحديد

ليتك تضع طريقتك في النسخ لتعمّ الفائدة !!!

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

طريقتي في النسخ وهي اني اتعامل مع Clipborad يعني بتعامل مع الذاكرة المؤقته حيث احفظ فيها البيانات بشكل مؤقت

واتعامل مع الClipboard من خلال ثلاث خصائص وهي :

1- Set Text : وتستخدم لوضع البيانات في Clipborad .

2- Get Text : وتستخدم لجلب البيانات الموجوده في Clipboard.

3- Clear : وتستخدم لمسح جميع محتويات الClipboard.

كود النسخ :

Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.SetFocus

كود اللصق :

Text1.SelText = Clipboard.GetText
Text1.SetFocus

كود القص:

Clipboard.Clear
Clipboard.SetText Text1.SelText
Text1.Text = ""
Text1.SetFocus

ان شاء الله يكون كل شيء واضح

بس في كود القص دا يفرغ محتويات التيكست كله

text1.text=""

ممكن المستخدم حب أنه يقص جزء من النص يعمل إيه ؟

على ما أظن انك حتستخدم خاصية Selstart و sellength

اعذرني اخي انا مش عارف طريقة الكود في هذه الحاله

شكراً لك ، وأنا سأحاول أعرف الطريقة وسأرسلها

بسم الله

اسمحولي اشارك معاكم في الموضوع ده

اولا

اقتباس

ممكن المستخدم حب أنه يقص جزء من النص يعمل إيه ؟

هيبقى نفس الكود بتاع الاخ medo_programming كود القص

لكن هيبقى في تغيير بسيط في السطر الثالث

Text1.SelText=""

علشان يمسح الجزء المظلل فقط

ثانيا

طريقة الاخ علاء طريقة صعبة شوية هو بيعتمد على استخدام ازرار لوحة المفاتيح عن طريق SendKeys

طبعا طريقة ClipBoard اسهل بكتير

بس الشيء المميز في طريقة الاخ علاء ان ممكن تتحط في مكتبة ;) DLL ونحط فيها امكانيات كتيره جدا ونسهل بيها شغل كتير

والله اعلم

المشكله هي انه كيف أعرف النص الذي حدد المستخدم

السلام عليكم

الامر بسيط أخي استخد هذا الامر

SelText

فهو يعيد النص المضلل أو المخلل أو المعفر ما علينا :D

آمل أ، يفيدك هذ المثال البسيط في ذلك رغم أنه قد يحتاج إلى بعض العمل من ناحية أمور أخري ولكن

اقتباس

Copy

Past

Cut

Select All

يستعمل الحافظة

سلام

CopyPastCut.rar