[Mohamed20]

(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

شكرآ اخي