+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22305)
ارج المساعدة في كود استدعاء الصور - VB.NET - 29-10-17
السلام عليكم اخواني الافاضل
عندي مجلد يوجد فيه مجموعة من الصور كل صورة لها رقم احتاج كود
اذا ادخلت في التكست بوكس رقم الصورة تظهر في البكشر بوكس
RE: ارج المساعدة في كود استدعاء الصور - a.ahmed - 29-10-17
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)
RE: ارج المساعدة في كود استدعاء الصور - VB.NET - 29-10-17
اخي الكريم جربت الكود ولاكن لايعمل
حددت مسار الفولدر لاكن ما ينفذ الكود
ولايوجد خطاء بالكود
ولاكن ما يتم تنفيذ اي امر
RE: ارج المساعدة في كود استدعاء الصور - silverlight - 29-10-17
حدد المسار الموجودة به الملفات
حدد امتداد الملفات
اقرا الملفات الموجودة تحت الفولدر باستخدم الدالة التالية ومنها ستحصل علي مصفوفة بها الملفات
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
RE: ارج المساعدة في كود استدعاء الصور - a.ahmed - 29-10-17
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)
RE: ارج المساعدة في كود استدعاء الصور - سعود - 30-10-17
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
