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

سؤآآآل متعلق بال List Box ,,

بدأه إشراقة فجر في 2 يناير 2009 · 12 رد · 1,139 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الســـــــــلام عليكم ورحمه الله وبركآته ..

عندي سؤآآل بسيط عن الـ list box

..

لو عندي ثلاث list's

حيث في الأولى أسمآء كتب و الثانيه كميه الكتب و الثالثه السعر لكل كتآب .. !!

..

مع إمكانيه للمستخدم ..

إدخال أسم كتآب و كميته و سعرهـ

وله الخيــآر في حذف كتآآب لا يريدهـ

سؤآآلـــــــي ؟؟

كيف أجعل المستخدم يحذف الكتآب و الكميه والسعـــر ؟؟

,,

أتمنــى المســآآآآآعدهـ اليوووووووووووم ,,

و الله يجزآآكم ألف خيـــــر ,,

" اللهم صلـــــي و سلـــــم ع نبينــآ محمد ... "

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 2 يناير 2009 في 17:00

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#2

أسماء القوائم ( BNames, BCount, BPrise )

Private Sub Button1_Click( Byval Sender As System.Object, Byval E As System.EventARgs ) Handles Button1.Click

If Not BNames.SelectedItem Is Nothing Then

Dim CurrentIndex As Integer = BNames.SelectedIndex

DeleteIndex( Index )

End Sub

Private Function Delete(Byval Index As Integer ) As Boolean

Try

BNames.Items.RemoveAt( Index )

BCount.Items.RemoveAt( Index )

BPrise.RemoveAt( Index )

Return True

Catch

Return False

End Try

End Sub

Private Sub AddBook( Byval BookName, Byval BookCount, Byval BookPrise )

BNames.Items.Add( BookName )

BCount.Items.Add( BookCount )

BPrise.Items.Add( BookPrise )

End Sub

كنصيحة ( استخدم ( ListView أو DataGridView ) ) .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3

ممكن تشرح لــي الكــود ؟؟

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#4

بســم الله الـرحمــن الرحيــم

أولا عليك استخدام listview بدلا من وضع listbox

لان listview مخصص لهذه الاغراض

قم باضافة 3 columns ل listview

وقم بتعديل العرض view إلى Details

ولاضافة عناصر الى القائمة

اقتباس
dim itm As New ListviewItem

itm.Text = "دواء جديد"

itm.SubItems.Add("الكمية")

itm.Subitems.Add("السعر")

ListView1.Items.Add(itm)

لحذف عنصر معين

ضع في حدث النقر على زر الحذف

اقتباس
ListView1.SelectedItem(0).remove
#5

لا أستطيع آستخدآم listview بدلاً من listbox

لأن المطلــوب منــي listbox

...

جزآآك الله ألف خيــر ع المســآعدهـ ,,

لكن أريد بالــ list box

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#6

تفضلي هذا المثال

تفضلي هذا المثال

WindowsApplication1.rar

#7

islamcenter

جـــزآآك الله ألف خييييييير ع المســآعدهـ ..

,,

عندي سؤآل آخيـــر ..

كيف أسوي بحث ..

للتوضيح :

مثلاً يدخــل المستخدم أسم الكتــآب المرآآد البحث عنه ..

إذا الكتــآب موجود يشير عليه من القائمه ,,

و إذا مو موجود يطلع له msgbox بإنه لا يوجود مثل هــذا الكتـــــآآب

,,

أتمنـــى المســآعدهـ ,,

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 2 يناير 2009 في 18:39

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#8

بســم الله الـرحمــن الرحيــم

جزاكم الله خيرا على هذا البرنامج الرائع والتوضيح

وشكرا جزيلا

صلى الله عل نبينا محمد وعلى آله وصحبة أجمعين

#9

بإنتظــــــــــــــآآر المســـــــآآعدهـ ,,,

"الله في عون العبد ما دآم العبد في عـــــون أخيه .. "

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#10

مرحباً .

جرب التالي مع تعديل ( ListBox1 ) بـ اسم القائمة الرئيسية لأسماء الكتب .

 

    [color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handl
es Button1[color= #339933;].Click

        Dim Book [color= #339933;]= InputBox[color= #009900;]([color= #0000ff;]"Please, type the title of the book you're looking for ."[color= #009900;])

        [color= #b1b100;]If Not Book Is Nothing Then

            [color= #b1b100;]If Not ListBox1[color= #339933;].Items[color= #339933;].Contains[color= #009900;](Book[color= #009900;]) Then

                MsgBox[color= #009900;]([color= #0000ff;]"The book wasn't found"[color= #009900;])

                [color= #990000;]Exit Sub

            [color= #990000;]End [color= #b1b100;]If

                        ListBox1[color= #339933;].SelectedIndex [color= #339933;]= ListBox1[color= #339933;].FindString[color= #009900;](Book[color= #009900;])

        [color= #990000;]End [color= #b1b100;]If

    [color= #990000;]End Sub

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 2 يناير 2009 في 19:49

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#11

جزآآك الله ألــف خيـــر ,,

ياليت لو تشــرح لي بإختصــآآر ...

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 2 يناير 2009 في 20:02

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#12

عند النقر على ( Button1 ) يتم عرض صندوق الإدخال ( InputBox ) لأخذ اسم الكتاب من المستخدم, بعد ذلك يتم التأكد من أن النص المدخل ليس قيمته ( لاشيء Nothing ), بعد ذلك التأكد إذا كانت قائمة الكتب ( ListBox1 ) تحوي اسم الكتاب المدخل, الـ Collections تدعم العملية ( Contains ) التي تعيد قيمة منطقية ( Boolean ), إذا لم يكن هنالك كتاب بنفس الإسم سيتم عرض رسالة تخبر المستخدم أن الكتاب غير موجود والخروج من Sub, إذا كان الكتاب موجود يتم إكمال الـ Sub, نستخدم ListBox1.FindString() التي تعيد مكان نص من الـ ListBox1.Items, ثم نقوم بتحديد ( اختيار ) الـ Item .

ListBox1.SetectedIndex = ListBox1.FindString( Book )

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 2 يناير 2009 في 20:41

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#13

جزآآآآآآآك الله خيـــر ,,

الله يجعله بميـــــزآآن حسنآتك ,,

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

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