+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل] image و wpf (/showthread.php?tid=29321)
[تم الحل] image و wpf - Mohamed20 - 10-04-19
اريد اضافة عدد من الصور الى جميع 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))RE: image و wpf - بدري - 10-04-19
تعديل للكود
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
RE: image و wpf - Mohamed20 - 10-04-19
(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
شكرآ اخي