[VB.NET]

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

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

[a.ahmed]

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) 


[VB.NET]

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

[silverlight]

حدد المسار الموجودة به الملفات
حدد امتداد الملفات
اقرا الملفات الموجودة تحت الفولدر باستخدم الدالة التالية ومنها ستحصل علي مصفوفة بها الملفات
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 


[a.ahmed]

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