سطر جديد في مربع نص

الأخ أبو بشاير

في حدث عند الأعلى لمربع النص ضع :

If KeyCode = 13 And Shift = 0 Then

Dim الاختيار_السابق As Byte

الاختيار_السابق = GetOption("Move After Enter")

SetOption "Move After Enter", 2

SendKeys "{End}"

SendKeys "^{ENTER}", False

SetOption "Move After Enter", الاختيار_السابق

End If

لاتحتاج إلى تغيير أي شيء في الكود .

ولك تحياتي

ألف مليون شكرا لك أخي أبو حمود

الأخ العزيز / أبو حمود

لم ينجح الكود في حل المشكلة حيث أنه يقوم بتلك العملية مرة واحدة فقط ينقل التركيز بعدها مباشرة وقبل اكمال الكتابة إلى مربع نص آخر