or
private void radButtonElement1_Click(object sender, EventArgs e) |
{ |
radButtonElement1.Image = Resources.MyImage; |
radButtonElement2.Image = null; |
} |
private void radButtonElement2_Click(object sender, EventArgs e) |
{ |
radButtonElement2.Image = Resources.MyImage; |
radButtonElement1.Image = null; |
} |
Private Sub Add_Label(ByVal sorder As String, ByVal stext As String, ByVal itab As Integer)
Dim lbl As New RadLabel
lbl.BeginInit()
lbl.Name = "Label_" & sorder
lbl.Text = stext
lbl.AutoSize = False
lbl.BorderVisible = False
lbl.width=100
lbl.height=300
If Not My.Settings.DefaultAppGroup Is Nothing Then |
Dim defaultAppGroup As String = My.Settings.DefaultAppGroup |
Dim groupElement As RadPanelBarGroupElement |
For Each groupElement In RadPanelBar1.Items |
If groupElement.Caption = defaultAppGroup Then |
'groupElement.Selected = True |
groupElement.Expanded = True |
Exit For |
End If |
Next |
End If |