[3asfa~mdmra]

السلام عليكم

كيف اجعل PictureBox1 شفافة مع العلم استخدمت هذا

الكود واصبح كل فورم شفاف وليست PictureBox1

اريد كما هو في هذه الصورة

كود :

 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
       Me.Opacity = 0.8
   End Sub

الرجاء الافادة وشكراً

[3asfa~mdmra]

(18-02-17, 03:03 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
الكود هو :

PHP كود :

PictureBox1.Image.Dispose()
 PictureBox1.Image = ChangeOpacity(Image.FromFile("D:\pic.png"), 0.3) 


اخي بارك الله فيك ولكن اريد تطبيق الكود اعلا ع هذا الكود
ولكم واجهت مشكلة

كود :

Private Sub onmessage4(ByVal sender As Object, ByVal msg As Message)
       If MyBase.InvokeRequired Then
           MyBase.BeginInvoke(New MessageHandler(AddressOf Me.onmessage4), New Object() {sender, msg})
       Else
           Try
               P4.Image.Dispose()
               If ((msg.Type = MessageType.groupchat) AndAlso (msg.From.Resource = "admin")) Then
                   Me.P4.Load(msg.Body.Replace("Enter the right answer to start chatting. ", ""))
               End If

               P4.Image = ChangeOpacity(Image.FromFile("D:\pic.png"), 0.3)
           Catch
           End Try
       End If
   End Sub

[3asfa~mdmra]

(18-02-17, 04:12 AM)khodor1985 كتب : فيك ترفق المشروع

تم ارفاق المشروع

---

المشـروع اخي تفضل

[3asfa~mdmra]

تم ارفاقة ..............؟
ان لم يظهر لديك اليك رابط التالي
http://up.top4top.net/downloadf-413h74kh1-rar.html

[3asfa~mdmra]

(18-02-17, 04:49 AM)khodor1985 كتب : لقد تم التعديل على المشروع بناء لطلبك، ولكن نرجو تغيير مسار الصورة :
المشروع بعد التعديل :


أتمنى لك التوفيق

اخي ولكن اريد تركيب الكود ولكن حدث معي خطأ
تفضل بنظر للصورة

[3asfa~mdmra]

(18-02-17, 05:08 AM)khodor1985 كتب : أرفق المشروع عند آخر تعديل للتعديل عليه

تفضل اخي
http://www.up-00.com/?oLZs

---

[3asfa~mdmra]

ما الحـــــــــــــــل

[3asfa~mdmra]

(18-02-17, 05:28 PM)khodor1985 كتب : لحظات سوف أطلع على المرفق

---

إرفع المرفق على موقع رفع غير هذا

المشروع في المرفقات وان لم يفتح تفضل اخي هذا الرابط
http://s3.picofile.com/file/8286887642/W...6.rar.html

[3asfa~mdmra]

يسلموا اخي

[3asfa~mdmra]

(19-02-17, 04:26 AM)khodor1985 كتب : مشي الحال ....

لا اخي ما مشي الحال ؟؟
الرجاء النظر للكود او تحميل المشروع من اعلاه

صورة الخطأ

كود :

 Private Sub onmessage1(ByVal sender As Object, ByVal msg As Message)
       If MyBase.InvokeRequired Then
           MyBase.BeginInvoke(New MessageHandler(AddressOf Me.onmessage1), New Object() {sender, msg})
       Else
           Try
               P1.Dispose()

               If ((msg.Type = MessageType.groupchat) AndAlso (msg.From.Resource = "admin")) Then
                   P1.Image = ChangeOpacity(Image.FromFile(msg.Body.Replace("Enter the right answer to start chatting. ", ""), 0.3))
               End If
           Catch
           End Try
       End If
   End Sub

ارجو الرد لانه مشروع متوقف ع هذه النقطة