كيف أضيف سطر في Text

السلام عليكم

من خصائص text

يوجد خاصية multiline

تقوم بجعل هذه الخاصية true

ويمشي الحال

وشكرا

انت مفهمتنيش

أنا عايز كود لزر يقوم بعمل زر Enter في الكيبورد

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

هذا الكود يقوم بالمطلوب ان شاء الله

جرب وياريت تخبرنا بالنتيجة

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim O As Long
O = Text1
If KeyAscii = 32 Then Text1 = O & vbCrLf
End Sub

مع العلم ان الرقم 32 هو الكي أسكي الخاص بمفتاح المسطرة Space Bar

ويمكنك تغييره على حسب المفتاح المطلوب

ولو عاوز تعرف الكي أسكي لكل مفتاح فأخبرني وسأضع لك برنامج صغير قد قمت بتصميمه لذلك

================

الى اللقاء