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

نسخة كاملة : [تم الحل] image و wpf
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد اضافة عدد من الصور الى جميع image control الي عندي مثلآ عندي
4 image controle اسمهم Image Image2 Image3 Image4 و عندي 10 صور اريد اضافة اول 4 صور الي4 control image و اضافة button عند الضغط عليى ينتقل الي الاربع صور الاخري

مثلآ في Windows Form ممكن نستخدم

كود :
               Dim ImageControl = Me.Controls.OfType(Of Image)().Where(Function(x) x.Name.Equals(Image))
لاكن كيف في wpf
تعديل للكود
Dim ImageControl = CType(Me.Content.Children, UIElementCollection).OfType(Of Image)().ToArray


ولوضع صوره بالكود
Image1.Source = New BitmapImage(New Uri("images\img_5.png", UriKind.Relative))


ولو فرضنا ان الصور اسمءها img_1 وimg_2 وهكذا مرقمه فيصبح الكود في الالبوتون لعرض الصور بعد الرقم 4
Dim ImageControl = CType(Me.Content.Children, UIElementCollection).OfType(Of Image)().ToArray
For i = 0 To ImageControl.Count - 1
    ImageControl(i).Source = New BitmapImage(New Uri("images\img_" & ((i+1) + 4) & ".png", UriKind.Relative))
Next
(10-04-19, 04:32 PM)بدري كتب : [ -> ]تعديل للكود
Dim ImageControl = CType(Me.Content.Children, UIElementCollection).OfType(Of Image)().ToArray


ولوضع صوره بالكود
Image1.Source = New BitmapImage(New Uri("images\img_5.png", UriKind.Relative))


ولو فرضنا ان الصور اسمءها img_1 وimg_2 وهكذا مرقمه فيصبح الكود في الالبوتون لعرض الصور بعد الرقم 4
Dim ImageControl = CType(Me.Content.Children, UIElementCollection).OfType(Of Image)().ToArray
For i = 0 To ImageControl.Count - 1
    ImageControl(i).Source = New BitmapImage(New Uri("images\img_" & ((i+1) + 4) & ".png", UriKind.Relative))
Next

شكرآ اخي