(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

(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