+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أريد مساعده في كود (/showthread.php?tid=10511)
أريد مساعده في كود - nehayh - 28-10-14
السلام عليكم
أريد كود لعمل برنامج عند الضغط على صوره من عدة صور تظهر في مربع صوره معين ويظهر كذلك عبارات معينه لكل صوره تم اختيارها في ليبل ؟
سؤال آخر: هل يمكن عمل مكتبة بالفيجوال بيسك بحيث نضيف عدد من الكتب للبرنامج وعند الضغط على الكتاب نتمكن من تصفحه ؟ اذا ممكن عمل ذلك ماهي الطريقة ؟
شكرا لكم مقدما .
RE: أريد مساعده في كود - hassan - 28-10-14
(28-10-14, 12:36 AM)nehayh كتب : السلام عليكماخوي بخصوص الصورة اضغط على كل صورة وخلة مثل البوتن في حال الضغط عليه تستدعي في مثلا بيكجربوكس 2 وتضيف في الليبل مثلا "زهراء"
أريد كود لعمل برنامج عند الضغط على صوره من عدة صور تظهر في مربع صوره معين ويظهر كذلك عبارات معينه لكل صوره تم اختيارها في ليبل ؟
سؤال آخر: هل يمكن عمل مكتبة بالفيجوال بيسك بحيث نضيف عدد من الكتب للبرنامج وعند الضغط على الكتاب نتمكن من تصفحه ؟ اذا ممكن عمل ذلك ماهي الطريقة ؟
شكرا لكم مقدما .
هذا مثال بس
وبخصوص عمل كتب انت كتب txt ولا pdf ولا وش عشان نعرف نحدد لك
وشكرا
RE: أريد مساعده في كود - nehayh - 29-10-14
(28-10-14, 02:29 AM)hassan كتب :(28-10-14, 12:36 AM)nehayh كتب : السلام عليكماخوي بخصوص الصورة اضغط على كل صورة وخلة مثل البوتن في حال الضغط عليه تستدعي في مثلا بيكجربوكس 2 وتضيف في الليبل مثلا "زهراء"
أريد كود لعمل برنامج عند الضغط على صوره من عدة صور تظهر في مربع صوره معين ويظهر كذلك عبارات معينه لكل صوره تم اختيارها في ليبل ؟
سؤال آخر: هل يمكن عمل مكتبة بالفيجوال بيسك بحيث نضيف عدد من الكتب للبرنامج وعند الضغط على الكتاب نتمكن من تصفحه ؟ اذا ممكن عمل ذلك ماهي الطريقة ؟
شكرا لكم مقدما .
هذا مثال بس
وبخصوص عمل كتب انت كتب txt ولا pdf ولا وش عشان نعرف نحدد لك
وشكرا
شكرا عالرد
والكتب pdf
RE: أريد مساعده في كود - Dev Saeed - 30-10-14
السلام عليكم
كما فهمت هو أنك تريد أن تضيف أكثر من صورة وعند الضغط على كل صورة تعرض في مربع صور ( PictureBox ) وتعرض معها نص في ليبل ( Label )
- هنا أنت تحتاج إلى أن تطور أداة تقوم بهذا العمل وليس استخدام مربع الصور ( Picture Box ) فقط
استخدم التالي : هذا Class اسمه MyImage
كود :
Public Class MyImage
Private WithEvents Pic As New System.Windows.Forms.PictureBox
Private p_text As String
Private p_pic_viewer As PictureBox
Private p_label As Label
Public Sub New(ByVal pic_viewer As PictureBox, ByVal _label As Label)
' pic_viewer هو مربع الصور الذي نقوم بعرض الصورة المختاره فيه
p_pic_viewer = pic_viewer
' _label هو مربع النص الذي سيظهر فيه نص ما عند الضغط على الصورة
p_label = _label
End Sub
' هذه الدالة تقوم بإنشاء مربع الصور الذي نريده على الفورم أو اي اداة
Public Sub CreatePicture(ByVal main_container As Control, ByVal img As Image, ByVal text As String, ByVal img_size As Size)
' main_container هو المكان أو الأداة التي نريد أن نضيف إليها الصورة مثال - الفورم
Pic.Image = img
Pic.Size = img_size
Pic.SizeMode = PictureBoxSizeMode.StretchImage
p_text = text
main_container.Controls.Add(Pic)
End Sub
Private Sub Pic_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic.Click
p_label.Text = p_text
p_pic_viewer.Image = Pic.Image
End Sub
End Classيستخدم بهذه الطريقة :
مثلا يوجد لدي 4 صور في My.Resources في مشروعي ويوجد لدي FlowLayoutPanel في الفورم واسمه flow :
كود :
Dim img1 As New MyImage(pic, lab)
img1.CreatePicture(flow, My.Resources.Jellyfish, "صورة 1", New Size(50, 50))
Dim img2 As New MyImage(pic, lab)
img2.CreatePicture(flow, My.Resources.Koala, "صورة 2", New Size(50, 50))
Dim img3 As New MyImage(pic, lab)
img3.CreatePicture(flow, My.Resources.Penguins, "صورة 3", New Size(50, 50))
Dim img4 As New MyImage(pic, lab)
img4.CreatePicture(flow, My.Resources.Lighthouse, "صورة 4", New Size(50, 50))
المثال في المرفقات