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

الترقيم

بدأه Nada.21 في 26 فبراير 2012 · 1 رد · 328 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اريد كود

يقوم بترقيم النص المدخل

مثل التالي

textbox كلما اضغط زر enter يظهر في label بجانب السطر رقمه

اول تنفيد البرنامج يظهر الرقم واحد في السطر الاول

عند الضغط زر انتر يظهر 1 بجانب السطر الاول و 2 بجانب السطر الثاني وهكذا

الكود الذي جربته لكن لم استطع اظهار كل الارقام فقط الرقم الاول

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyData = Keys.Enter Then
            Label1.Text += 1
        End If

    End Sub
#2

قومى بتعريف متغير على مستوى الفورم

Dim i As Integer = 1

فى حدث تحيل الفورم Form_Load اسندى القيمة 1 للليبل

label1.Text = "1"

أما فى حدث الضغط على الكيبورد فى التكست بوكس فدا هو الكود

i += 1
If e.KeyData = Keys.Enter Then
label1.Text += vbLf & i.ToString()
End If
1

أقلب الغريب كقلب أخيك ؟! أعيناه تشبه عينا أخيك ؟؟!! fb.pngtwitter.png

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