+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد كود لاختيار مجموعة من الصور و عرضها (/showthread.php?tid=13233)
اريد كود لاختيار مجموعة من الصور و عرضها - مجاهد نصر - 15-09-15
السلام عليكم ورحمه الله و بركاته...
اريد كود يقوم باختيار مجموعة من الصور و عرضها و امكانية التنقل بينها
و يا ريت لو عن طريق مصفوفة
و لكم جزيل الشكر
RE: اريد كود لاختيار مجموعة من الصور و عرضها - أبو عمر - 15-09-15
طيب ليه ما لضيفهم في imagelist وبعدين تتعامل معاهم زي ما تحب
PHP كود :
Me.OpenFileDialog1.Multiselect = True
OpenFileDialog1.Filter = "Image Files(*.BMP;*.JPG;*.GIF;png)|*.BMP;*.JPG;*.GIF;*.png|All files (*.*)|*.*"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
For Each file In OpenFileDialog1.FileNames
ImageList1.Images.Add(Image.FromFile(file))
Next
RE: اريد كود لاختيار مجموعة من الصور و عرضها - مجاهد نصر - 15-09-15
(15-09-15, 02:41 PM)أبو عمر كتب : طيب ليه ما لضيفهم في imagelist وبعدين تتعامل معاهم زي ما تحب
PHP كود :
Me.OpenFileDialog1.Multiselect = True
OpenFileDialog1.Filter = "Image Files(*.BMP;*.JPG;*.GIF;png)|*.BMP;*.JPG;*.GIF;*.png|All files (*.*)|*.*"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
For Each file In OpenFileDialog1.FileNames
ImageList1.Images.Add(Image.FromFile(file))
Next
مشكور اخي ابو عمر علي سرعة الرد اولا الصور هي غير ثابتة
ثانيا كنت اريد الكود للاستخدام داخل اداة ImgAdmin1 الموضوح في هذا الرابط http://vb4arb.com/vb/thread-13208.html
لدي هذا الكود
ممكن تعملي احضار الصور باستخدام مصفوفة
Dim intFileType As Integer
Dim iResponse, i As Integer
Dim filname As String
Dim strPathName As String
'AxImgThumbnail1.DisplayThumbs()
AxImgEdit1.ClearDisplay()
Me.ofd.Multiselect = True
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
'AxImgThumbnail1.ClearThumbs()
For Each strfile In ofd.FileNames
'ImgAdmin1.CancelError = False
ImgAdmin1.Image = strfile
'ImgThumbArray(i).Image = ImgAdmin1.Image
'ImgAdmin1.Append(strfile, i, 1)
AxImgThumbnail1.Image = ImgAdmin1.Image
'AxImgThumbnail1.AutoSelect = True
'AxImgThumbnail1.EnableDragDrop = 15
'Get the thumbnail page count
'AxImgThumbnail1.DisplayThumbs()
'AxImgThumbnail1.DeselectAllThumbs()
i += 1
Next
Else
MessageBox.Show(AxImgEdit1.PageCount.ToString())
AxImgThumbnail1.SelectAllThumbs()
If Err.Number = CANCEL_PRESSED Then '32755 = Cancel pressed
Exit Sub
ElseIf ImgAdmin1.StatusCode <> 0 Then
MsgBox(Err.Description & " (ImgAdmin error " & _
Hex(ImgAdmin1.StatusCode) & ")", vbCritical)
Exit Sub
End If
AxImgEdit1.Refresh()
End If
RE: اريد كود لاختيار مجموعة من الصور و عرضها - أبو عمر - 15-09-15
بالنسبة للكود اللي وضعته لك الصور فيه متغيرة ولبيت ثابتة وتقدر تخليه ديناميك عادي
لكن في مثل طلبك بالنسبة لي
من قال لا ادري فقد أفتى
اعذرني فأنا لا أدري
RE: اريد كود لاختيار مجموعة من الصور و عرضها - مجاهد نصر - 15-09-15
(15-09-15, 03:09 PM)أبو عمر كتب : بالنسبة للكود اللي وضعته لك الصور فيه متغيرة ولبيت ثابتة وتقدر تخليه ديناميك عادي
لكن في مثل طلبك بالنسبة لي
من قال لا ادري فقد أفتى
اعذرني فأنا لا أدري
مشكووووور كتيييير ابو عمر
(15-09-15, 03:14 PM)مجاهد نصر كتب :(15-09-15, 03:09 PM)أبو عمر كتب : بالنسبة للكود اللي وضعته لك الصور فيه متغيرة ولبيت ثابتة وتقدر تخليه ديناميك عادي
لكن في مثل طلبك بالنسبة لي
من قال لا ادري فقد أفتى
اعذرني فأنا لا أدري
عذبتك معي اخي ابو عمر
الكود الانا وضعتو شغال بس بعرض اخر صورة مثلا لو انا اخترت اربعة صور بعرض اخر صورة اخترتها كيف اخليه يعرضهم الاربعة مع بعض
RE: اريد كود لاختيار مجموعة من الصور و عرضها - أبو عمر - 16-09-15
مرحبا بك
هذا اجتهادي في مثل مشروعك واعذرني على تقصيري لا لشيء الا لقلة معرفتي
دعواتك
RE: اريد كود لاختيار مجموعة من الصور و عرضها - سعود - 16-09-15
اخي الكريم "أبو عمر "
ادري ان المثال سريع لكن فقط للمشاركة يمكن عمل قائمة من نوع
PHP كود :
List(Ofstring)
تخزن بها مسار الصور وتكون القائمة المرئية فقط اسماء الملفات.
(تذكير فقط)
RE: اريد كود لاختيار مجموعة من الصور و عرضها - أبو عمر - 16-09-15
اشكرك كثيرا استاذنا سعود
في المرفق استبدلت اللتس اميج باللست بوكس
RE: اريد كود لاختيار مجموعة من الصور و عرضها - مجاهد نصر - 16-09-15
مشكورين شباب علي التفاعل و المشاركة
