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

كيف أعمل البيانات تظهر من ليست بوكس إلى اليبيل

بدأه hack99 في 27 مايو 2010 · 3 رد · 762 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أنا عند 3تكس بوكس

و عندي لست بوكس

وعندي 3 ليبيل

و زر أضافة ...

أريد تكس بوكس 1 الأسم , تكس بوكس 2 الصف , تكس بوكس 3 العمر .

وعند الضغط الزر أضافة البيانات تنضاف في لست بوكس ولكن من البيانات التي تظهر بس الأسم .

معاي ...

وعند الضغط على الأسم الموجود في لست بوكس تظهر البيانات في اليبلات ...

ليبيل 1 الأسم

ليبيل 2 الصف

ليبيل 3 العمر

أتمنى يكون الكود و الطريقة

وشكرا لكم أتمنى الكود .

*انتمي إلى عالم البرمجة*

#2

أخي الكريم

أولا حتى تظهر بيانات حقل معين داخل ليست بوكس يجب عليك تحديد الحقل في Form_Load

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListBox1.DataSource = Ds.Tables("Table")
        ListBox1.DataSource = Ds
        ListBox1.DisplayMember = "Table.Field"
    End Sub

ثانيا: بعد كتابة البيانات داخل التكست بوكس

وبعد عملية الحفظ ستجد أن بيانات الاسم الجديد تم إضافتها إلى اللست بوكس

وقبل كتابة الكود الخاص بالضغط على الليست بوكس نقوم بكتابة جزأين لتسهيل العمل

أولا : يجب تعريف إجراء عام لتفريغ محتويات التكست بوكس من البيانات الموجودة

Public Sub clearbinding()
        TextBox1.DataBindings.Clear()
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
    End Sub

ثانيا: يجب تعريف إجراء عام لملأ محتويات التكست بوكس من البيانات الموجودة في الليست بوكس

Public Sub binding()
        On Error Resume Next
        If Not Ds.Tables("users").Rows.Count < 0 Then
            TextBox1.DataBindings.Add("Text", Ds, "Table.Field1")
            TextBox2.DataBindings.Add("Text", Ds, "users.Field2")
Label1.Text = "الاسم"
Label2.Text = "الصف"
Label3.Text = "العمر"
        End If
    End Sub

ثالثا: نأتي الآن لكتابة الكود الخاص بالضغط على الليست بوكس

    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Try
            clearbinding()
            binding()
            Me.BindingContext(Ds, "Table").Position = ListBox1.SelectedIndex
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

جرب وأنا في الخدمة أتمنى يكون هذا هو المطلوب حسب فهمي لكلامك

#3

السلام عليكم

انا عملت فورم فيها فكرتك شوفها كده وقولى

فى انتظار الرد

hack99.rar

تم تعديل هذه المشاركة بواسطة medmost في 27 مايو 2010 في 18:03

محمد فخرالدين

#4

مشكور أشتغل و شغال 100% بس إذا ممكن أريد لزر تعديل عند الضغط الأسم الموجود في لست بوكس تظهر البيانات في تكس بوكس و أعدل البيانات ثم حفظ ويتعدل .

و أريد لزر مسح عند الضغط على الأسم في لست بوكس وشغط زر مسح يمتسح .

و أريد أول ما أضغط زر إضافة يحفظ البيانات تلقائيا في قاعدة بيانات.

لكن أنا ما أعرف كيف أسوي قاعدة بيانات .

إذا ممكن تفيدني ولك جزيل الشكر على مثال السايق مشكور.

*انتمي إلى عالم البرمجة*

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…