الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

علامه قبل كل سطر

مغلق
بدأه Google 2010 في 10 يونيو 2005 · 3 رد · 608 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي كلام مكتوب في التيكست بوكس اريد ان اضع اول كل سطر ترقيم السطر

يعني التكست مكتوب فيه

------------------

محمد

علي

رياض

امنيه

--------------------------

اريد عند الضغط على زر كومند يصبح

الكــلام في التكيست بوكس هكذ

---------------------------ا

1- محمد

2-على

3-رياض

4-امنيه

-----------------------------

واكون شاكـــر لكم جزيلا

av-48120.jpg
#2

UP UP UP

av-48120.jpg
#3

يمكنك أخي الاستعانة بهذا الكود

Private Sub CommandButton2_Click()
Dim List() As String
List = Split(Me.TextBox1, vbCrLf)
Me.TextBox1 = ""
For i = 0 To UBound(List)
List(i) = i + 1 & " : " & List(i)
Me.TextBox1 = Me.TextBox1 + List(i) & vbCrLf
Next
End Sub

موقع المبرمجون العرب


أول موقع عربي لمسابقات الخوارزميات


مواضيعي في المنتدى

#4

مشكــــــور اخي على مساعدتك

av-48120.jpg

هذا الموضوع مغلق.

مواضيع مشابهة