وعليكم السلام ورحمة الله وبركاته
أخي الكريم افتح مشروع جديد وضع الادوات كما في الصورة
ثم استخدم الكود التالي
كود :
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]
السلام عليكم
والله يا جمااعة ما عارف اقولكم ايه .... شكرا جزيلا على المساعدة
البرنامج اشتغل تمام بفضل مساعدتكم
شكرا مرة تانية