[ناجي إبراهيم]

السلام عليكم...

الخاصية MultiLine تعني تعدد الأسطر و لكن لا تعمل على تحديد عدد الأسطر، و الخاصية MaxLength لتحديد العدد الأقصى من الرموز المسموح بها و لا دخل لها بعدد الأسطر.

هناك حل بسيط:

1. اضبط الخاصية MultiLine على True.
2. اضبط الخاصية ScrollBars على 1-Horizontal لمنع التفاف النص (انقسام السطر الواحد إلى سطرين أو أكثر بسبب طوله).
3. في الحدث KeyPress لمربع النص اكتب الكود التالي:

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If InStr(Text1.Text, Chr(13)) <> 0 Then
            KeyAscii = 0
        End If
    End If
End Sub

4. نرجو الاستفادة و السلام.