منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

كود :

  For Each ctrl As Control In flpMain.Controls

            If TypeOf ctrl Is PictureBox Then

                If DirectCast(ctrl, PictureBox).Tag.ToString.Contains("3") Then

                                   ctrl.Select()

                End If

            End If

        Next

(08-04-21, 06:40 PM)محمد اسماعيل كتب : [ -> ]السلام عليكم ورحمة الله

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

كود :

For Each ctrl As Control In flpMain.Controls If TypeOf ctrl Is PictureBox Then If DirectCast(ctrl, PictureBox).Tag.ToString.Contains("3") Then ctrl.Select() End If End If Next

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

كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For Each ctrl As Control In Panel1.Controls

            If TypeOf ctrl Is PictureBox Then

                If DirectCast(ctrl, PictureBox).Tag.Contains("3") Then

                    ctrl.Dock = DockStyle.Fill

                    ctrl.Select()

                ElseIf Not DirectCast(ctrl, PictureBox).Tag.Contains("3") Then

                    ctrl.Visible = False

                End If

            End If

        Next

    End Sub

(09-04-21, 12:17 PM)asmarsou كتب : [ -> ]
(08-04-21, 06:40 PM)محمد اسماعيل كتب : [ -> ]السلام عليكم ورحمة الله

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

كود :

For Each ctrl As Control In flpMain.Controls If TypeOf ctrl Is PictureBox Then If DirectCast(ctrl, PictureBox).Tag.ToString.Contains("3") Then ctrl.Select() End If End If Next

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

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each ctrl As Control In Panel1.Controls If TypeOf ctrl Is PictureBox Then If DirectCast(ctrl, PictureBox).Tag.Contains("3") Then ctrl.Dock = DockStyle.Fill ctrl.Select() ElseIf Not DirectCast(ctrl, PictureBox).Tag.Contains("3") Then ctrl.Visible = False End If End If Next End Sub

نعم اخي الكريم تم حل المشكلة