[سعود]

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