تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] معرض صور عشوائى
#1
السلام عليكم
لو سمحتوا يا جماعة محتاج ضرورى كود برنامج لعرض الصور من داخل مجلد بطريقة عشوائية
ويكون التنقل بين الصور تلقائى كل مدة زمنية انا اللى احددها - مثلا ثانية -
لو سمحتوا يا جماعة انا محتاج البرنامج ده ضرورى
شكرا
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته


أخي الكريم افتح مشروع جديد وضع الادوات كما في الصورة




ثم استخدم الكود التالي

كود :
Imports System.IO

Public Class Form1
    Dim myFiles As List(Of FileInfo)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Timer1.Stop()
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            RandomImage(FolderBrowserDialog1.SelectedPath.ToString)
            If Val(TextBox1.Text) > 0 Then
                Timer1.Interval = Val(TextBox1.Text) * 1000
            Else
                Timer1.Interval = 1000
            End If
            Timer1.Start()
        End If
    End Sub
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        RandomImage(FolderBrowserDialog1.SelectedPath.ToString)
    End Sub


    Sub RandomImage(Path As String)
        Dim myRandom As New Random
        myFiles = New DirectoryInfo(Path).GetFiles("*.*").ToList
        Dim Img = From File In myFiles Where File.Extension = ".png" Or File.Extension = ".jpg" Or File.Extension = ".gif" Or File.Extension = ".bmp" Select File.FullName
        Dim RandomNumber As Integer = myRandom.Next(0, Img.Count - 1)
        PictureBox1.Image = Image.FromFile(Img(RandomNumber).ToString)
    End Sub
End Class


وفقك الله
الرد }}}
تم الشكر بواسطة:
#3
في المرفقات ستجد نسخة كاملة للمشروع بنسخة الفيجوال استوديو 2012




.rar   ImageSlide.rar (الحجم : 84.55 ك ب / التحميلات : 164)
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم
والله يا جمااعة ما عارف اقولكم ايه .... شكرا جزيلا على المساعدة
البرنامج اشتغل تمام بفضل مساعدتكم
شكرا مرة تانية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أرجو المساعدة العاجلة ك معرض لفقد تصميم كامل xprogrammer 5 2,094 15-07-20, 01:56 PM
آخر رد: alsouf
Wink [مشروع] برنامج ادرة معرض السيارات mesooh 3 4,026 11-03-20, 04:25 PM
آخر رد: mennad sofiane
  هل يوجد في معرض القصيم للكتاب كتب فيجوال بيسك؟ nowiglah 2 1,391 09-03-20, 01:14 PM
آخر رد: alsalamoni
  [سؤال] تكوين رقم عشوائى من عدد خانات محددة وحفظه لملف نصى yes14 3 5,375 08-05-14, 11:35 PM
آخر رد: yes14

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


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