تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص الترقيم التلقائي اليدوي
#5
(14-04-26, 12:41 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

المطلوب : 
أفتح نافذة جديدة وضع عليها :
- ثلاثة مربعات نص
- زر أمر
- داتا جريد فيو.
(ملاحظة : لا تغير شي، ولا تعيد تسمية المربعات ولا الزر ولا تعدل ع الداتاجريد)
أضغط على الزر مرتين(دبل كلك) وأنسخ الكود التالي تحته (نفس الكود السابق ولكن مع تعديل بسيط)..

كود :
        Dim startValue As Integer = Val(TextBox1.Text)
        Dim endValue As Integer = Val(TextBox2.Text)
        Dim stepValue As Integer = Val(TextBox3.Text)

        Dim count As Integer = ((endValue - startValue) \ stepValue) + 1

        Dim sequence = Enumerable.Range(0, count).Select(Function(i) startValue + (i * stepValue))

        Dim dt As New DataTable
        dt.Columns.Add("No.")
        DataGridView1.DataSource = dt
        For i = 0 To count - 1
            If i < Me.DataGridView1.Rows.Count Then
                dt.Rows.Add(sequence(i))
            End If
        Next

جرب البرنامج ..
اذا اشتغل معاك، روح عدل ع التسميات و الخصائص..
- - - 
يفضل تتعلم البرمجة من خلال قنوات اليوتيوب في البدية من القنوات التي تعرض سلسلة كاملة للتعليم  
مثل قناة حسونة أكاديمي (youtube.com/watch?v=ZxZEuUO_S9o&list=PLHIfW1KZRIfmLGhFsQ1G5cPv1xokzBsbT) 
أنسخ الرابط أعلاه وضعه في عنوان الصفحة لترى السلسلة كاملة ..

حسونة أكادمي

تسلموا
بارك الله فيكم وجعله في ميزان حسناتكم
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
RE: سؤال بخصوص الترقيم التلقائي اليدوي - بواسطة yosif - 15-04-26, 11:59 PM


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


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