منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : معرض صور عشوائى
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
لو سمحتوا يا جماعة محتاج ضرورى كود برنامج لعرض الصور من داخل مجلد بطريقة عشوائية
ويكون التنقل بين الصور تلقائى كل مدة زمنية انا اللى احددها - مثلا ثانية -
لو سمحتوا يا جماعة انا محتاج البرنامج ده ضرورى
شكرا
وعليكم السلام ورحمة الله وبركاته


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




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

كود :
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


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



[attachment=2091]
السلام عليكم
والله يا جمااعة ما عارف اقولكم ايه .... شكرا جزيلا على المساعدة
البرنامج اشتغل تمام بفضل مساعدتكم
شكرا مرة تانية