منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

اريد التكست بوكس يستقبل سطرين فقط

عن عمل خاصية multi line مفعلة يستقبل أكثر من سطر وعند تحديد 100 حرف مثلا

يستقبل أكثر من سطر ولكن اريد غلقها على سطرين وفى حالة الضغط على انتر لا ينزل سوا لسطر واحد فقط ويقف وليس أكثر من سطر

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

الخاصية 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. نرجو الاستفادة و السلام.

تسلم يا غالى كود جميل وملاحظات اجمل يعطيك العافية

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الحزين اوى

ناجي إبراهيم

الحزين اوى