(بسم الله الواحد الأحد)
1:كيف اعرض البيانات فالـ listbox
بشكل أعمدة...............................
2:مع الضغط على أسهم listbox
كيف أحرك التحديد.......................
1 :unsure: 2
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
ListBox1.MultiColumn = True
Dim lvi As ListViewItem = New ListViewItem("1")
lvi.SubItems.Add("2")
lvi.SubItems.Add("3")
lvi.SubItems.Add("4")
ListBox1.Items.Add(lvi)لم انجح ارجوا مســــــــــــــــــــــــــــــــــــــــــــــــــــــاعدتي يامبرمجين :blink:
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
أختي الكريمة
على حسب علمي الخاصية MultiColumn لليست بوكس هي لعرض القائمة على أعمدة متجانبة إذا زاد طول القائمة عن طول الليست بوكس ... وليست لإضافة عناصر فرعية في القائمة ... هذا من عمل الليست فيو استخدميها وستحل مشكلتك بإذن الله ...
ولاحظي أن المتغير الذي استخدمتيه هو عنصر ليست فيو هذا يؤكد كلامي ...
بالتوفيق ...
أنا شفت برامج كانت بتعرض فقائمة combox
حقول حتى كان بين كل حقل وحقل خط فاصل.. فقلت يمكن للlistbox تتنفذ
لكني حتى لم افلح فعملها مع combox
أنا جربتها مع list viwe واظني سأتجه لها إن عجزت تحياتي أخي الفاضل haroon :lol:
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
ظهرت لي هذه المشكله وهي كيف لي ان احدد السجل من الكائن عن طريق الحقل 0 وشكرا :unsure:
ListView1.Columns(0).???= DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هذا مثلا طريقة استخدمت فيها table
كان عندي قاعدة وبها مجموعة من الحقول واظهرتها في listbox
Dim p_name As String = Trim(Me.txtsearch.Text)
Dim sql As String
sql = "select * from patient"
da2 = New OleDbDataAdapter(sql, con)
ds.Clear()
da2.Fill(ds, "patient")
' نعرف مصفوفة لتخزين السجلات المطابقة لهذا الاسم
Dim searchrow() As DataRow = ds.Tables("patient").Select("patient_name like '" & p_name & " *'")
Dim dr As DataRow
For Each dr In searchrow
ListBox1.Items.Add(dr.Item("id_patient") & " " & "اسم المريض" & " " & dr.Item("patient_name") & " " & "وقت الزيارة " & " " & dr.Item("visit_time") & " " & "اسم الدكتور " & " " & dr.Item("doctor_name") & " " & "اسم العيادة " & " " & dr.Item("clinic") & " " & "ملاحظات " & " " & dr.Item("notice"))
Nextهذا طريقة ثانية
dim f as string={0,5}{1,1},{2,5}
listbox.items.add(string.format(f,dr.item("......"),"|",dr.item("......"))جرب هذا اذا ما وضح لك الحل خبرنا اعمل لك مثال
لا ياأخي :blink: انا اريد وضعها فحقول لأنني سأحتاج للوصول لبيانات الحقل الأول فقط
بمعني انا راح اضيف رقم وإسم الموظف ..بلمقابل راح اطلب عرض الموظف الي رقمو 4 مثلا
فماراح يقدر يجبلي السجل صاحب الرقم اربعه لو اني اضفت مع الرقم اسم الموظف من غير ما أضع كل واحد فعامود ..
أنا انتقلت للـlistview لكني لم استطع ان اقوم بتحديد السجل صاحب الرقم 4 المخزنه فالعامود الاول
يعني المشكله كيف احدد سجل عن طريق قيمه من عامود معين فالـlistview
ListView1.Columns(0).???= DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
وشكرا لك .. أخيـ nada 52 أثابك الله
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 11 ديسمبر 2005 في 10:02
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
:wacko:
هذا ماوصلت اليه لكن لم يعمل برجاء المساعدة
ListView1.SelectedItems(0).Text = Me.TextBox1.Text
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
جربي الكود التالي
listview1.items(3).subitems.add("some text")اقتباسlistview1.items(3).subitems.add("some text")
أخيـ haroon هذا الكود لإضافة قيمة :blink:
أنا عندي ليست فيو ويحوي عدة أعمدة
وأريد تحديد صف معين من الليست فيو ويكون معتمدا على قيمة من أحد الإعمدة
item(1)= "soma"
تحياتي :unsure: أرجو ان تكونوا قد فهمتم سؤالي
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 14 ديسمبر 2005 في 15:52
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
السلام عليكم
لتحديد صف معين فى listview
'Make sure the listview has focus listView1.Focus() listView1.Items(index).Selected = true
VB.NET and C# Comparison
http://www.harding.edu/fmccown/vbnet_csharp_comparison.html
=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
على أني لا أدري ما الذي يعيب رد الأخ عبد الخالق (فقد أعطى الإجابة على ما أعتقد) فسأطلع على المف المرفق علي أجد المشكلة ... وانتظري الرد ... بالتوفيق
فالإنتظار
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
وصلت لهذا لكن لا أدري ان كان هناك أفضل!!
For i As Int64 = 0 To ListView1.Items.Count - 1 If ListView1.Items(i).Text = Me.TextBox1.Text Then ListView1.Focus() ListView1.Items(i).Selected = True Exit Sub End If Next
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
أخواني لم ينفع استخدام :(
ListView1.Items(i).Selected = True
لأنه ببساطه عندما يحدد لايظهره بمعنى يتحرك شريط التمرير ارجوا النظر فالمثال وساعدوني الله بيارك فيكم
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
السلام عليكم
لايوجد اى مشكلة فى الكود
فقط استخدمى الطريقة EnsureVisible وممررى رقم الفهرس للعنصر لهذه الطريقة وعى تقوم بالتاكيد على العنصر بان يكون ظاهر امام المستخدم بدون استخدام شريط التمرير
For i As Int64 = 0 To ListView1.Items.Count - 1 If ListView1.Items(i).Text = Me.TextBox1.Text Then ListView1.EnsureVisible(i) ListView1.Focus() ListView1.Items(i).Selected = True Exit Sub End If Next
VB.NET and C# Comparison
http://www.harding.edu/fmccown/vbnet_csharp_comparison.html
=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده
وعليكم السلام ورحمة الله وبركاته :lol: شكرا لك أخيـ SOLO.NET
100% B)
وفقك الله وأنار طريقك :lol:
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…