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

بعد التحية ...

قم بحساب ال vbnewline ، و عندما تصل لاكثر من 10 ، ارفض العملية ...

انا ابغى الجملة كاملة

كيفية صياغتها

يعني

vbnewline=10

ولا كيف

if vbnewline=10 then

msgbox"الحد غير مسموح"

ولا كيف الطريقة بالضبط

اخي جرب الكود التالي ولكن تحقق من الإخطا بنفسك فقد كتبته مباشرة دون التحقق :

Dim Str As String
Dim i As Integer
Str = Text1.Text
Dim CountLine As Integer

For i = 1 To Len(Str)
IF(mid(str,i,1)= chr(13) Then
CountLine = CountLine +1
If CountLine = 10 Then 
Text1.Text = Mid(str,1,i)
Exit For
End IF
Next i

الكود خطاء

مع الشكر

شكرا للأخ فواز الشمري والتعديل على مشاركته كانت بسيطه لآنو فعلا الكود إللي وضعه صحيح 100% لكن زي ماهو قال أنا كتبت الكود مباشره في المنتدى فكان عنده خطأ واحد وهو إنو عامل قوس بعد الإف جملة الإف يعني وهذا دليل على إنه يستخدم لغة السي أو الجافا أو البي أتش بي :)

هذا الكود النهائي وشغال 100% بإذن الله .. مجرب

Private Sub Text1_Change()
Dim Str As String
Dim i As Integer
Str = Text1.Text
Dim CountLine As Integer

For i = 1 To Len(Str)
If Mid(Str, i, 1) = Chr(13) Then
CountLine = CountLine + 1
If CountLine = 10 Then
Text1.Text = Mid(Str, 1, i - 1)
MsgBox "áÇíãßäß ÅÖÇÝÉ ÃßËÑ ãä 10 ÓØæÑ "
Text1.SelStart = Len(Text1.Text)
Exit For
End If
End If
Next i

End Sub

الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف

الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف

الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف

الف الف الف الف الف الف الف الف الف الف

شكر لكل المشاركين الكود ممتاز جدا جدا وهو المطلوب

والله احسن من المطلوب