+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] Picturebox بخلفية شفافة فوق الويب براوزر (/showthread.php?tid=20184)
الصفحات:
1
2
RE: Picturebox بخلفية شفافة فوق الويب براوزر - silverlight - 01-05-17
انا لم أحاول أن أضع كونترول شفاف علي ويب براوزر من قبل
و انا لو في مكانك سوف ارسم عليه ما أريد حتي أتحكم في الشفافية بشكل أفضل
عموما حاول تري ماذا سيحدث معك بعد التعديل علي الكونترول بالشكل التالي
PHP كود :
Public Class CairoContainer
Inherits UserControl
Public Sub New()
Me.BackColor = Color.Transparent
MyBase.SetStyle(ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer, True)
End Sub
Protected Overrides Sub OnPaint(e As PaintEventArgs)
End Sub
Protected Overrides Sub OnPaintBackground(e As PaintEventArgs)
If Me.Parent IsNot Nothing Then
Dim rect As Rectangle = New Rectangle(Me.Left, Me.Top, Me.Width, Me.Height)
e.Graphics.TranslateTransform(-rect.X, -rect.Y)
Try
Using arg As New PaintEventArgs(e.Graphics, rect)
arg.Graphics.SetClip(rect)
InvokePaintBackground(Parent, arg)
InvokePaint(Parent, arg)
End Using
Catch ex As Exception
Finally
e.Graphics.TranslateTransform(rect.X, rect.Y)
End Try
Else
e.Graphics.FillRectangle(New SolidBrush(Me.BackColor), ClientRectangle)
End If
End Sub
End Class
RE: Picturebox بخلفية شفافة فوق الويب براوزر - thevest_knight - 02-05-17
لم ينجح الامر اخي لان الكونترول الذي وضعت الكلاس الخاص به لا يقبل اضافة صورة و كذلك هو يلغي كل ما يأتي فوقه و يعرض خلفية الفورم
على العموم اعذرني فقد اتعبتك معي و اعتقد انو لا يوجد حل لطلبي لكن شكرا كثيرا على تفاعلك
RE: Picturebox بخلفية شفافة فوق الويب براوزر - silverlight - 02-05-17
طبعا هذا الكونترول لن يقبل ان تضيف له اي كونترول اخر لأننا دمرنا الكثير من صفاته و قمنا بتحويله لشئ مثل الصورة ويجب علينا أن نرسم الكونترول
عموما أنت فقط تحتاج أن ترسم الصورة علي الكونترول في الحدث OnPaint
الكود سيكون كالتالي
لكن عليك أن تتفهم ان شفافية الكونترول لن تجعل الصورة شفافة و يجب أن تتعامل مع الصورة نفسها و تحولها لصورة شفافة ثم ترسمها
PHP كود :
Protected Overrides Sub OnPaint(e As PaintEventArgs)
Dim img As Image = Me.BackgroundImage
If img IsNot Nothing Then
e.Graphics.DrawImage(img, ClientRectangle)
End If
End Sub
أخيرا أنا قلت لك من قبل انه أسهل لك ترسم علي الويب براوزر نفسه مباشرة
خاصة أن الحصول علي الشكل الجميل للكونترول له عيوبه و مشاكله