30-10-17, 12:30 AM
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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

