الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حذف سطر من صندوق النص

مغلق
بدأه Lamyaa في 3 سبتمبر 2006 · 3 رد · 534 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أود أن أن أعرف كيفية التعامل على صندوق النص من حيث :

نسخ السطر الأول إلى صندوق ثاني

حذف السطرين 2 و 3 من صندوق النص ؟

أرجو ممن لديه المعلومة أن يفيدني .. وشكرا

post-252239-064955400%201356690312.gif
#2

اليك المثال ... لعله يفى بالغرض

ولكن قد تكون هناك طرق افضل من ذلك

Text.rar

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

#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
post-252239-064955400%201356690312.gif
#4

فكرة جيدة وهى تعتمد على ضربات المفاتيح ولكن يجب مراعاة ان هذه الطريقة تستلزم ان يكون مربع النص ظاهر ونشط اثناء زمن تنفيذ الكود

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

هذا الموضوع مغلق.

مواضيع مشابهة