+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] معرض صور عشوائى (/showthread.php?tid=3367)
معرض صور عشوائى - yes14 - 30-06-14
السلام عليكم
لو سمحتوا يا جماعة محتاج ضرورى كود برنامج لعرض الصور من داخل مجلد بطريقة عشوائية
ويكون التنقل بين الصور تلقائى كل مدة زمنية انا اللى احددها - مثلا ثانية -
لو سمحتوا يا جماعة انا محتاج البرنامج ده ضرورى
شكرا
لو سمحتوا يا جماعة محتاج ضرورى كود برنامج لعرض الصور من داخل مجلد بطريقة عشوائية
ويكون التنقل بين الصور تلقائى كل مدة زمنية انا اللى احددها - مثلا ثانية -
لو سمحتوا يا جماعة انا محتاج البرنامج ده ضرورى
شكرا
RE: معرض صور عشوائى - Sniper.ps - 30-06-14
وعليكم السلام ورحمة الله وبركاته
أخي الكريم افتح مشروع جديد وضع الادوات كما في الصورة
ثم استخدم الكود التالي
كود :
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وفقك الله
RE: معرض صور عشوائى - silverlight - 30-06-14
في المرفقات ستجد نسخة كاملة للمشروع بنسخة الفيجوال استوديو 2012
[attachment=2091]
RE: معرض صور عشوائى - yes14 - 02-07-14
السلام عليكم
والله يا جمااعة ما عارف اقولكم ايه .... شكرا جزيلا على المساعدة
البرنامج اشتغل تمام بفضل مساعدتكم
شكرا مرة تانية
والله يا جمااعة ما عارف اقولكم ايه .... شكرا جزيلا على المساعدة
البرنامج اشتغل تمام بفضل مساعدتكم
شكرا مرة تانية