i have tried using this code below but it doesnt seem to work:
Public Class TransparentPanel
Inherits Panel
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.ExStyle = cp.ExStyle Or &H20
' WS_EX_TRANSPARENT
Return cp
End Get
End Property
Protected Overrides Sub OnPaint(e As PaintEventArgs)
e.Graphics.FillRectangle(New SolidBrush(Me.BackColor), Me.ClientRectangle)
End Sub
End Class
'======================================================= 'Service provided by Telerik (www.telerik.com) 'Conversion powered by NRefactory. 'Twitter: @telerik 'Facebook: facebook.com/telerik '=======================================================
Here is my code :
Imports Telerik.WinControls
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'' RadPanel1.BackColor = Color.Red
RadPanel1.Visible = True
RadPanel1.AutoSize = True
RadPanel1.RootElement.StretchVertically = True
RadPanel1.RootElement.StretchHorizontally = True
RadPanel1.Location = New Point(2, 2)
RadPanel1.Size = New Size(200, 1)
RadPanel1.Text = "I am RadPanel"
Dim setting As New AnimatedPropertySetting()
setting.[Property] = RadElement.BoundsProperty
setting.StartValue = New Rectangle(0, 0, 200, 1)
setting.EndValue = New Rectangle(0, 0, 280, 250)
setting.Interval = 30
setting.NumFrames = 35
setting.ApplyValue(RadPanel1.RootElement)
End Sub
End Class