تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال يتعلق بأداة Text
#1
كيف أغير في خاصية تعدد الأسطر للأداة Text برمجيا بواسطة دوال API


HuhHuhHuh
الرد }}}
تم الشكر بواسطة:
#2
تـقصد بـلملت لاين ..!!!



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}
تم الشكر بواسطة:
#3
(18-03-14, 09:54 PM)a_almisery كتب : تـقصد بـلملت لاين ..!!!

نعم هذا مأقصده
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

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


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

وفقك الله
الرد }}}
تم الشكر بواسطة: Sajad , Amir_Alzubidy
#5
شكرا أخي Sniper.ps لقد تم تحميل الكود وسأقوم بتجريبه إنشاء الله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,068 19-01-24, 02:39 PM
آخر رد: cls
  [vb6.0] سؤال كيف يتم تحديد عدد مرات تنصيب الملف التنفيذي لبرنامج Hassan.syria 2 193 02-01-24, 10:07 AM
آخر رد: Hassan.syria
  سؤال بخصوص الكتيف ربورت abde6726 2 324 20-11-23, 10:54 AM
آخر رد: abde6726
  ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟ Microformt 1 327 04-11-23, 10:34 PM
آخر رد: Amir_Alzubidy
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 409 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  سؤال عن البحث بجدولين مختلفين ziadshhab 1 346 03-06-23, 10:35 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اكثر من سؤال حول كريستال ريبورت ؟؟ Microformt 0 477 20-05-23, 09:54 PM
آخر رد: Microformt
  [vb6.0] سؤال في فليكس جريد tighrmte 3 566 18-02-23, 10:46 PM
آخر رد: tighrmte
  [vb6.0] سؤال في اداة فليكس جريد vb6 tighrmte 3 492 16-02-23, 02:37 AM
آخر رد: tighrmte

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم