منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف اجعل PictureBox شفافة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف اجعل PictureBox شفافة (/showthread.php?tid=19299)

الصفحات: 1 2

كيف اجعل PictureBox شفافة - 3asfa~mdmra - 18-02-17

السلام عليكم
كيف اجعل 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
الرجاء الافادة وشكراً


RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 18-02-17

(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


RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 18-02-17

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

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

RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 18-02-17

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

RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 18-02-17

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


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

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


RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 18-02-17

(18-02-17, 05:08 AM)khodor1985 كتب : أرفق المشروع عند آخر تعديل للتعديل عليه
تفضل اخي
http://www.up-00.com/?oLZs


RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 18-02-17

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

RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 19-02-17

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

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

RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 19-02-17

يسلموا اخي

RE: كيف اجعل PictureBox شفافة - 3asfa~mdmra - 20-02-17

(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

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