مساعدة في برنامج المكتبة المصورة

[مدريدي عمان]

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

 

 

لن أطيل عليكم 

 

عندي ملف به الف نوع من الكتب في عدة اقسام 

 

رياضه -علوم- لغة انجليزية ......الخ

تحت فروع اخرى مثلا في الرياضة = كرة القدم - كرة اليد -......الخ

وهذه الكتب لها رقم الكتاب  ورقم التعريف 

 

اريد عمل مكتبه مصورة بحيث عند ادخال رقم الكتاب يظهر صورة غلاف الكتاب ومعلومات عنه او عند البحث بطريقة القوائم يظهر نفس الناتج

 

 

سؤالي هل يمكن فعل ذلك على الاكسل ام انه افضل ع الفيجوال بيسك 

 

هل يستطيع احدكم مساعدتي في الاكواد؟؟؟؟

 

اليكم الملف المرفق 

libarary.rar

[أبو إيمان]

هل  الفكرة المعروضة في الملف هي ما تريده

للعلم هذه فكرة مبدئية ويمكن تطويرها ووضعها في صفحة مستقلة 

 

 

ويمكنك الاستعانة بالموضوع في الرابط التالي لجلب الصور

http://www.officena.net/ib/index.php?showtopic=47784&hl=

جلب معلومات الكتاب.rar

[مدريدي عمان]

شكرا أخي ابو ايمان لكن الفكر ليست كالمعروضة  انا سويت شكل الفكرة في الفورم داخل الملف 

مشاركات : #1

ارجو المساعدة في مشروعي - مكتبة بالصور 

السلام عليكم ورحمة الله وبركاته 

اولا انا ما زلت اتعلم ذاتيا الفيجوال فلا تعتبوا علي العمل 

ثانيا المشروع عبارة عن برنامج للبحث داخل مكتبة الكترونيا .....

في برنامجي وضعت النوع الرئيسي للكتب في checkbox والنوع الفرعي في listbox ووضعتها في visible=false وذلك عن اختيار النوع الرئيسي من ال checkbox تظهر النوع الفرعي من ال listbox ووضعت اسم الكتاب في listbox ثاني بحيث عند اختيار النوع الفرعي يظهر قائمة باسماء الكتب وعند اختيار اسم الكتاب من القائمة تظهر صورة غلاف الكتاب في picturebox وكذلك معلومات عنه في textbox هذا ما قمت بعمله لكن ما اريده منكم احبتي هو:-

1- اذا كان لدي 1000 صورة و1000 معلومة حول الكتاب وبالتالي 1000 اسم كتاب هل سيصبح حجم البرنامج ثقيل جدا وما رايكم في طريقة ادخال هذا الكم الهائل من اسماء الكتب هل الافضل عن طريق الكود ام عن طريق قاعدة البيانات لاحظوا شكل الكود بالاسفل لكل كتاب 
وتخيلوا كيف سيكون ل 1000كتاب

Public Class Form1

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedItem = "كرة القدم" Then
ListBox2.Visible = True
End If
End Sub

Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked Then
ListBox1.Visible = True
End If
End Sub

Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
If ListBox2.SelectedItem = "تطبيق عملي لكرة القدم" Then
PictureBox1.ImageLocation = "C:\Users\مدريدي صامت\Pictures\labpics/magnetic needle 313-6.jpg"

TextBox3.Text = "كتاب من تأليف محمد عدلي عام 1999 به التطبيق العملي بالصور "
TextBox1.Text = "101001"
End If
End Sub
End Class

هل يوجد كود اسهل من هذا واسرع لعمل نفس البحث !!!

2- كيف لي ان ابحث بطرق مختلفة مثلا الطريقة الاولى نفس الطريقة في الاعلى الاختيار والطريقه الثانية بكتابة رقم الكتاب والطريقة الثالثة بكتابة رقم التعريف 

3- هل يجب وضع الصور في ملف البرنامج 


اترككم مع صور البرنامج 

[مدريدي عمان]

هل الافضل للمشروع الفيجوال بيسك ام VBA

[مدريدي عمان]

هل يتحمل البرنامج 1000صورة ؟؟؟