تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود لاختيار مجموعة من الصور و عرضها
#1
Wink 
السلام عليكم ورحمه الله و بركاته...
اريد كود يقوم باختيار مجموعة من الصور و عرضها و امكانية التنقل بينها
و يا ريت لو عن طريق مصفوفة
و لكم جزيل الشكر  Rolleyes
الرد }}}
تم الشكر بواسطة:
#2
طيب ليه ما لضيفهم في 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 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#3
(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
الرد }}}
تم الشكر بواسطة:
#4
بالنسبة للكود اللي وضعته لك الصور فيه متغيرة ولبيت ثابتة وتقدر تخليه ديناميك عادي
لكن في مثل طلبك بالنسبة لي
من قال لا ادري فقد أفتى
اعذرني فأنا لا أدري
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: مجاهد نصر
#5
(15-09-15, 03:09 PM)أبو عمر كتب : بالنسبة للكود اللي وضعته لك الصور فيه متغيرة ولبيت ثابتة وتقدر تخليه ديناميك عادي
لكن في مثل طلبك بالنسبة لي
من قال لا ادري فقد أفتى
اعذرني فأنا لا أدري

مشكووووور كتيييير ابو عمر

(15-09-15, 03:14 PM)مجاهد نصر كتب :
(15-09-15, 03:09 PM)أبو عمر كتب : بالنسبة للكود اللي وضعته لك الصور فيه متغيرة ولبيت ثابتة وتقدر تخليه ديناميك عادي
لكن في مثل طلبك بالنسبة لي
من قال لا ادري فقد أفتى
اعذرني فأنا لا أدري

عذبتك معي اخي ابو عمر 
الكود الانا وضعتو شغال بس بعرض اخر صورة مثلا لو انا اخترت اربعة صور بعرض اخر صورة اخترتها كيف اخليه يعرضهم الاربعة مع بعض
الرد }}}
تم الشكر بواسطة:
#6
مرحبا بك
هذا اجتهادي في مثل مشروعك واعذرني على تقصيري لا لشيء الا لقلة معرفتي 
دعواتك



الملفات المرفقة
.zip   ImagesBrowser.zip (الحجم : 82.1 ك ب / التحميلات : 53)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: سعود
#7
اخي الكريم "أبو عمر "
ادري ان المثال سريع لكن فقط للمشاركة يمكن عمل قائمة  من نوع
PHP كود :
List(Ofstring

تخزن بها مسار الصور وتكون القائمة المرئية فقط اسماء الملفات.
(تذكير فقط)
الرد }}}
تم الشكر بواسطة: أبو عمر
#8
اشكرك كثيرا استاذنا سعود
في المرفق استبدلت اللتس اميج باللست بوكس
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#9
مشكورين شباب علي التفاعل و المشاركة Smile
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  [VB.NET] كود حفظ الصور والبيانات مره وحده مبرمج صغير 1 2 251 12-01-24, 03:04 PM
آخر رد: مبرمج صغير 1
  حذف مجموعة سجلات asdfar1977 4 306 10-01-24, 01:05 PM
آخر رد: asdfar1977
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 347 01-09-23, 07:13 AM
آخر رد: Asem2

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم