18-03-14, 07:22 PM
18-03-14, 09:54 PM
تـقصد بـلملت لاين ..!!!
19-03-14, 04:54 PM
02-04-14, 07:37 PM
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
وفقك الله
تفضل أخي الكريم
إقتباس :Option Explicit
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEINDEX = &HBB
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Text1_Change()
Dim nRet&, s$
nRet = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&)
'رقم خمس يمثل الحد الأقصى لعدد الأسطر
If nRet > 5 Then
nRet = SendMessage(Text1.hwnd, EM_LINEINDEX, nRet - 1, ByVal 0&)
s = Left$(Text1.Text, nRet)
If s Like "*" & vbCrLf Then
Text1.Text = Left$(s, nRet - 2)
Else
Text1.Text = Left$(s, nRet)
End If
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 0
End If
End Sub
وفقك الله
19-04-15, 11:40 AM
شكرا أخي Sniper.ps لقد تم تحميل الكود وسأقوم بتجريبه إنشاء الله