منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد الحصول على كل الصور التى فى الريسورس ثم عمل تكرار لعرضها فى بكتشر بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8834)

الصفحات: 1 2


اريد الحصول على كل الصور التى فى الريسورس ثم عمل تكرار لعرضها فى بكتشر بوكس - just.coder - 15-05-13

تفضل اخى هذا الكود البسيط لكن يجب ان يكون

ملحوظة يجب ان يكون ال build action ف جميع الملفات الرسورس بقيمة Embedded Resource

كود :
Imports System.Reflection
Imports System.Reflection.Assembly
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim trd As New System.Threading.Thread(AddressOf load)
        trd.Start()
    End Sub
    Private Sub load()
        For Each file As String In GetExecutingAssembly.GetManifestResourceNames
            file = Replace(file, My.Application.Info.AssemblyName & ".", "_")
            Dim str() As String
            str = file.Split(".")
            Dim fg As String
            fg = str(0)
            System.Threading.Thread.Sleep(4000)
            PictureBox1.Image = CType(My.Resources.ResourceManager.GetObject(fg), Image)
        Next
    End Sub
End Class



اريد الحصول على كل الصور التى فى الريسورس ثم عمل تكرار لعرضها فى بكتشر بوكس - just.coder - 15-05-13

تفضل اخى هذا الكود البسيط لكن يجب ان يكون

ملحوظة يجب ان يكون ال build action ف جميع الملفات الرسورس بقيمة Embedded Resource

كود :
Imports System.Reflection
Imports System.Reflection.Assembly
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim trd As New System.Threading.Thread(AddressOf load)
        trd.Start()
    End Sub
    Private Sub load()
        For Each file As String In GetExecutingAssembly.GetManifestResourceNames
            file = Replace(file, My.Application.Info.AssemblyName & ".", "_")
            Dim res As Boolean = True
            If file.Contains(".gif") Then
            ElseIf file.Contains(".bmp") Then
            ElseIf file.Contains(".jpg") Then
            ElseIf file.Contains(".jpeg") Then
            ElseIf file.Contains(".png") Then
            Else
                res = False
            End If
            If res = True Then
                Dim str() As String
                str = file.Split(".")
                Dim fg As String
                fg = str(0)
                System.Threading.Thread.Sleep(4000)
                PictureBox1.Image = CType(My.Resources.ResourceManager.GetObject(fg), Image)
            End If
          
        Next
    End Sub
End Class