[Easy4ever]

shado1796 كتب :

طيب اخي في الكود امر انه يسحب الصورة من الجهاز .. طيب انا ابغى الصورة من البرنامج يعني تكون في فورم البرنامج يحفظها من البرنامج

لو أختار المستخدم الصورة عن طريق أداة OpenFileDialog1 بيكون محفوظ مكان الصورة في أداة OpenFileDialog1 في خاصية Filename
يعني تستبدل PathFile بـ OpenFileDialog1.FileName بيكود الكود بعد التعديل كذا

كود :

[align=left]Dim p() As Byte = My.Computer.FileSystem.ReadAllBytes(OpenFileDialog1.FileName)[/align]

اما لو تقصد الصورة مدمجة في البرنامج ، ما سبق لي استخدام هذي الطريقة لاكن حاول تضع بدل متغير PathFile بالأمر Me.BackgroundImage
هذا لو كانت الصورة خلفية Form أما لو كانت الصورة في أداة PictureBox استبدل المتغير PathFile بالأمر PictureBox1.Image

لاكن هذي الطريقة لا أضمنها لك ولاكن منطقية نوعا ما انا شاك انه سيحدث خطأ بسبب هذا ألامر My.Computer.FileSystem حسب معلوماتي انه هذا الأمر يقوم بعمليات خارج البرنامج لاكن ممكن تكون المعلومه الذي لدي خاطئه أو غير دقيقه جرب وإن شاء الله تضبط