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