المشاركات : 82
المواضيع 38
الإنتساب : Oct 2013
السمعة :
0
الشكر: 0
تم شكره 35 مرات في 24 مشاركات
السلام عليكم
اريد التكست بوكس يستقبل سطرين فقط
عن عمل خاصية multi line مفعلة يستقبل أكثر من سطر وعند تحديد 100 حرف مثلا
يستقبل أكثر من سطر ولكن اريد غلقها على سطرين وفى حالة الضغط على انتر لا ينزل سوا لسطر واحد فقط ويقف وليس أكثر من سطر
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
الخاصية 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. نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 82
المواضيع 38
الإنتساب : Oct 2013
السمعة :
0
الشكر: 0
تم شكره 35 مرات في 24 مشاركات
تسلم يا غالى كود جميل وملاحظات اجمل يعطيك العافية