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

السلام عليكم اخواني الافاضل

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

PHP كود :

PictureBox1.Image = Nothing
Dim i As Integer = Val(TextBox1.Text)
Dim fn As String = "E:\folder\" & i & ".jpg"
If IO.File.Exists(fn) Then PictureBox1.Image = Image.FromFile(fn) 

اخي الكريم جربت الكود ولاكن لايعمل
حددت مسار الفولدر لاكن ما ينفذ الكود
ولايوجد خطاء بالكود
ولاكن ما يتم تنفيذ اي امر

حدد المسار الموجودة به الملفات
حدد امتداد الملفات
اقرا الملفات الموجودة تحت الفولدر باستخدم الدالة التالية ومنها ستحصل علي مصفوفة بها الملفات
ext ممكن يكون *.* و هنا ستقرأ كل الملفات الموجودة تحت الفولدر
أو ممكن يكون *.jpg و هنا ستقرا جميع الصور الي امتدادها jpg مثلا

PHP كود :

  Private Function GetFiles(path As String, ext As String) As String()
        Return (From file In System.IO.Directory.GetFiles(path).AsParallel() Let info = New System.IO.FileInfo(file) Where info.Extension = ext Select file).ToArray()
    End Function 

PHP كود :

Dim path As String = "E:\folder\\"
Dim i As Integer = Val(TextBox1.Text)
PictureBox1.Image = Nothing
Dim jpgfn As String = path & i & ".jpg"
Dim pngfn As String = path & i & ".png"
Dim jpegfn As String = path & i & ".jpeg"
If IO.File.Exists(jpgfn) Then PictureBox1.Image = Image.FromFile(jpgfn)
If IO.File.Exists(pngfn) Then PictureBox1.Image = Image.FromFile(pngfn)
If IO.File.Exists(jpegfn) Then PictureBox1.Image = Image.FromFile(jpegfn) 

PHP كود :

Imports System.IO
Public Class Form1
    Dim flst As New List(Of String)
    Dim elst As New List(Of String)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dir As New DirectoryInfo("pic")
        For Each fl As FileInfo In dir.GetFiles
            flst.Add(IO.Path.GetFileNameWithoutExtension(fl.FullName))
            elst.Add(IO.Path.GetExtension(fl.FullName))
        Next
    End Sub
    Private Sub picid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles picid.KeyDown
        If e.KeyData = Keys.Enter Then
            Dim fpic As String = flst(flst.IndexOf(Val(picid.Text))) & elst(flst.IndexOf(Val(picid.Text)))
            pic.Image = Image.FromFile("pic\" & fpic)
        End If
        picid.SelectAll()
        picid.Focus()
    End Sub
End Class 

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

VB.NET

a.ahmed

VB.NET

silverlight

a.ahmed

سعود