15-05-13, 10:42 AM
تفضل اخى هذا الكود البسيط لكن يجب ان يكون
ملحوظة يجب ان يكون ال build action ف جميع الملفات الرسورس بقيمة Embedded Resource
ملحوظة يجب ان يكون ال 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