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

نسخة كاملة : سؤال يتعلق بأداة Text
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كيف أغير في خاصية تعدد الأسطر للأداة Text برمجيا بواسطة دوال API


HuhHuhHuh
تـقصد بـلملت لاين ..!!!
(18-03-14, 09:54 PM)a_almisery كتب : [ -> ]تـقصد بـلملت لاين ..!!!

نعم هذا مأقصده
السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم


إقتباس :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

وفقك الله
شكرا أخي Sniper.ps لقد تم تحميل الكود وسأقوم بتجريبه إنشاء الله