السلام عليكم ورحمة الله وبركاته
أود أن أن أعرف كيفية التعامل على صندوق النص من حيث :
نسخ السطر الأول إلى صندوق ثاني
حذف السطرين 2 و 3 من صندوق النص ؟
أرجو ممن لديه المعلومة أن يفيدني .. وشكرا
السلام عليكم ورحمة الله وبركاته
أود أن أن أعرف كيفية التعامل على صندوق النص من حيث :
نسخ السطر الأول إلى صندوق ثاني
حذف السطرين 2 و 3 من صندوق النص ؟
أرجو ممن لديه المعلومة أن يفيدني .. وشكرا

أخي الكريم / عبدالفتاح حسن
شكراً لك ولمساعدتك
فكرتك رائعة وفيها احتراف ما شاء الله عليك :cool:
في البارح خطرت لي هذه الفكرة وجربتها وهي ناجحة .. هي بسيطة ولكنها تقوم بالمقام
Text1.SetFocus
Text1.SelStart = InStr(0, Text1)
SendKeys "{HOME}", True
SendKeys "+{END}", True
SendKeys "^{c}", True
Text4.Text = ""
Text4.SetFocus
SendKeys "^{v}", True
Text1.SetFocus
SendKeys "{HOME}", True
SendKeys "+{DOWN 5}", True
SendKeys "{DEL}", True
فكرة جيدة وهى تعتمد على ضربات المفاتيح ولكن يجب مراعاة ان هذه الطريقة تستلزم ان يكون مربع النص ظاهر ونشط اثناء زمن تنفيذ الكود
كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
هذا الموضوع مغلق.