استفاده از فایلهای داخل Resources در زمان اجرای برنامه

[roya.raha]

سلام
من یکسری فایل عکس داخل Resources دارم حالا میخوام در زمان اجرا بگم عکسی نام آن داخل تکس باکس وارد شده نمایش داده بشه ولی دستورش خطا میده :

textbox1.text = "pic1.jpg"
Form2.PictureBox1.Image = "My.Resources." & textbox1.text

لطفا راهنمایی بفرمایید

[zahedi121]

سلام

 Form2.PictureBox1.Image = My.Resources.ResourceManager.GetObject("pic1")

موفق باشید

[mojiparadox]

آقایون خسته نباشید،

من شدیدا تازه کارم و میخوام با این کد یک سری فایل که توی Resources اضاف کردم رو روی هارد ذخیره کنم. این فایل‌ها هم متنی هستند هم اجرایی و هم تصویر. با 2 مشکل روبرو هستم، اول اینکه وقتی فایلی ساخته میشه حجمش صفر هست و دوم اینکه به محض ساخت فایل (با همون حجم صفر) اجرای پروسیجر خاتمه پیدا می‌کنه و خط‌های بعدی اجرا نمیشن:

        For Count = 1 To 21

            If Not IO.File.Exists(AppDataPath & FName(Count)) Then

                MsgBox("File " & FName(Count) & " not found", )

                Dim CopyFile As New System.IO.BinaryWriter(System.IO.File.Open(AppData  Path & FName(Count), IO.FileMode.Create))

                CopyFile.Write(My.Resources.ResourceManager.GetObj  ect(FName(Count)))

                CopyFile.Close()

            Else

                MsgBox("File " & FName(Count) & " found!", )

            End If



        Next

میشه راهنمایی بفرمایین؟