استفاده از فایلهای داخل 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


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