تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشروع برنامج لعرض الصور
#1
Lightbulb 
هذه هى واجهة البرنامج



أنهيت وظيفة زر load لاختيار وعرض الصورة فى picturebox
والمفترض أن يقوم زر next بعرض الصورة التالية بشكل أوتوماتيكى دون اللجوء ل open file dialog مرة أخرى
ونفس الشىء بالنسبة لزر previous
ولكنى لم أتوصل لطريقة أحدد بها الملف السابق أو التالى لما تم اختياره عن طريق open file dialog
المشروع بالكامل فى المرفقات


الملفات المرفقة
.rar   Image Viewer.rar (الحجم : 46.96 ك ب / التحميلات : 19)
الرد
تم الشكر بواسطة: alshandodi , ابراهيم ايبو
#2
اتمنى ان يكون ذو فائدة لك اخي العزيز 

لقد قمت بعمل تحديد للصور من عدة اماكن  في ليست بوكس ولكن احتاج الى كود اضافة الليست الى السيتنج 
ولك جزيل الشكر والتقدير


الملفات المرفقة
.zip   Image Viewer.zip (الحجم : 72.31 ك ب / التحميلات : 22)
الرد
#3
تفضل اخي الكريم

المصادر :
https://stackoverflow.com/questions/2331...the-folder


الملفات المرفقة
.zip   Image Viewer.zip (الحجم : 57.89 ك ب / التحميلات : 45)
الرد
#4
شكر خاص للاستاذ انس محمود واعتذر منه ساضيف في حاله التغيير تلقائي ويضع في تايمير 
كود :
  Dim i As Integer
       i = Images.IndexOf(CurrentImage) + 1
       If i < Images.Count Then
           CurrentImage = Images(i)

           Try
               PictureBox1.Image = Image.FromFile(CurrentImage)
           Catch ex As Exception
               'الصورة ليست صالحة او لم تعد كذلك
           End Try
       Else
           CurrentImage = Images(0)
           PictureBox1.Image = Image.FromFile(CurrentImage)

       End If
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
شكراً أخى alshandodi
الجزء الخاص بالتايمر مفيد جداً

شكراً أخى Anas Mahmoud
هذا ما كنت أريده وبعد بعض التعديلات حصلت على ما أريده

كنت أريد إضافة خاصية zoom
جربت هذه الطريقة ولكنها لم تنجح:
كود :
   Private Sub GetZoom(zoomSize As String, MyPicbox As PictureBox)

       Dim bmp As New Bitmap(MyPicbox.Image)
       Dim newWidth As Integer = MyPicbox.Image.Width / zoomSize
       Dim newHeight As Integer = MyPicbox.Image.Height / zoomSize
       Dim bmpNew As Bitmap = New Bitmap(newWidth, newHeight)
       Dim gr As Graphics = Graphics.FromImage(bmpNew)
       gr.DrawImage(bmp, 0, 0, bmpNew.Width, bmpNew.Height)
       MyPicbox.Image = bmpNew

   End Sub

فهى تضعف جودة الصورة إذا تم تصغيرها ثم تكبيرها مجدداً
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
ابسط طريقة لعمل زوم للصورة هو التالي :
1 تجعل خاصية الاحتواء للصورة StretchImage  او Zoom ضروري
وتلغي ال Border الخاص بالصورة ان احببت
2- تضع  بوتون عدد 2 واحد للتكبير والثاني للتصغير
للتكبير * 2 في كل مرة
كود :
PictureBox1.Width = PictureBox1.Width * 2
           PictureBox1.Height = PictureBox1.Height * 2
وللتصغير /2 في كل مرة
كود :
PictureBox1.Width = PictureBox1.Width / 2
       PictureBox1.Height = PictureBox1.Height / 2
في هذه الطريقة انت تقوم بتكبير كونترول الصورة نفسها وبما ان خاصية الاملاء هي التمدد فحتما ستتمدد الصورة لتملأ الكونترول
وانت هنا لاتقوم بتغيير اي شيء للصورة الاصلية (الحجم يبقى على حاله في التصغير والتكبير) فقط زوم مشاهدة
اما طريقة اعادة انشاء صورة فهذا يعني انك تغير من الحجم الحقيقي للصورة عند التكبير سيزداد حجمها ... وقد يصل الىارقام كبيرة
وعند التصغير ايضا تقوم بتصغير الحجم مما يؤدي الى فقدان الصورة لدقتها عند اعادة تكبيرها
ارجو ان اكون قد افدتك
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video مشكلة في برنامج للاتصال بقواعد بيانات السيرفر المحلي نيمو 0 19 منذ 5 ساعة مضت
آخر رد: نيمو
  [سؤال] حل مشكلة تشغيل برنامج يعمل ب net framework 4.5 عبدالكريم برشدان 3 119 24-10-21, 03:22 PM
آخر رد: Jounior_P
  هل فيه احد من عباقرة المنتدى عمل برنامج للمعمل تحاليل خالد كامل1 10 1,993 21-10-21, 11:13 PM
آخر رد: a7med saba
  [VB.NET] حل مشكلة فتح مشروع قديم ibrahimhuseen828 2 281 21-10-21, 03:43 AM
آخر رد: ibrahimhuseen828
  [سؤال] سؤال في الصور حسن الجلب 2 146 17-10-21, 01:10 AM
آخر رد: ابراهيم ايبو
  تشغيل برنامج تم التثبيت في الجهاز بسام محمدغانم 1 136 12-10-21, 09:58 AM
آخر رد: ابو انس
  [سؤال] برنامج .NET Reflector بسام محمدغانم 0 124 10-10-21, 09:46 AM
آخر رد: بسام محمدغانم
  [سؤال] سؤال في الصور حسن الجلب 1 272 12-09-21, 11:48 PM
آخر رد: حسن الجلب
Exclamation استفسار بخصوص مشروع عمل ختمة قرآنية بتوزيع الصفحات (لأصحاب الصدقات الجارية) elsayedhasan 10 802 11-09-21, 07:01 PM
آخر رد: dalas
Lightbulb [سؤال] عندي مشكلة في تحزيم مشروع zeyimerg 3 375 10-09-21, 08:53 PM
آخر رد: asemshahen5

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


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