01-05-17, 10:34 PM
انا لم أحاول أن أضع كونترول شفاف علي ويب براوزر من قبل
و انا لو في مكانك سوف ارسم عليه ما أريد حتي أتحكم في الشفافية بشكل أفضل
عموما حاول تري ماذا سيحدث معك بعد التعديل علي الكونترول بالشكل التالي
و انا لو في مكانك سوف ارسم عليه ما أريد حتي أتحكم في الشفافية بشكل أفضل
عموما حاول تري ماذا سيحدث معك بعد التعديل علي الكونترول بالشكل التالي
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