- I have one main form in which a radcommand bar is defined
- other forms inherits this form and replace the commandbarbuttons in the forms with the commandbar buttons in main form
- Successfully replaced the buttons, but the events are not firing after clicking the button.
main form contains RadCommandbar with button 'cmdNew' and other form contains RadCommandbar with button 'cmdNewR'.
Replaced button cmdNewR by cmdNew using the following function
Protected Sub ReplaceRadCommandBarButtonItem(ByVal ctlOriginal As CommandBarButton, ByVal ctlNew As CommandBarButton)
Dim owner As RadCommandBarItemsPanel = CType(ctlOriginal.Parent, RadCommandBarItemsPanel)
Dim originalIndex As Integer = owner.Children.IndexOf(ctlOriginal)
owner.Children.Remove(ctlOriginal)
owner.Children.Insert(originalIndex, ctlNew)
End Sub
The cmdNewR button in command bar will replaced by cmdNew. but click event is not hitting
Private Sub cmdNewR_Click(sender As Object, e As EventArgs) Handles cmdNewR.Click
NewFileClicked()
End Sub
Private Sub cmdNew_Click(sender As Object, e As EventArgs)
NewFileClicked()
End Sub
Hello, Binshidha,
The provided sample project is greatly appreciated. I was able to observe the described problem.
However, I have noticed that the previously explained approach for managing the elements inside a RadCommandBar via the CommandBarStripElement and its Items collection is commented. Once I uncomment it, everything seems to work as expected with applying the dark theme as well:
Protected Sub ReplaceRadCommandBarButtonItem(ByVal ctlOriginal As CommandBarButton, ByVal ctlNew As CommandBarButton)
'Dim owner As RadCommandBarItemsPanel = CType(ctlOriginal.Parent, RadCommandBarItemsPanel)
'Dim originalIndex As Integer = owner.Children.IndexOf(ctlOriginal)
'owner.Children.Remove(ctlOriginal)
'owner.Children.Insert(originalIndex, ctlNew)
Dim owner As RadCommandBarItemsPanel = CType(ctlOriginal.Parent, RadCommandBarItemsPanel)
Dim parentStrip As CommandBarStripElement = TryCast(owner.Parent, CommandBarStripElement)
Dim originalIndex As Integer = parentStrip.Items.IndexOf(ctlOriginal)
'remove the parent buton
parentStrip.Items.Remove(ctlOriginal)
'remove the child button from the child commandbar
Dim childStrip As CommandBarStripElement = TryCast(ctlNew.Parent.Parent, CommandBarStripElement)
childStrip.Items.Remove(ctlNew)
'insert the child button
parentStrip.Items.Insert(originalIndex, ctlNew)
End SubCould you please confirm whether it works as expected when managing the buttons in the appropriate way?
Managing the RadCommandBarItemsPanel.Children collection is not recommended and I can't ensure that it will behave properly.
I hope this information helps. If you need any further assistance please don't hesitate to contact me.
Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik
Hello, Binshidha,
Following the provided information, I have prepared a sample project to test the behavior on my end.
One thing is not quite clear to me. That is why I need some more clarification. If you have a MainForm and a ChildForm which inherits the MainForm, is the RadCommandBar in the ChildForm the inherited one or you add an additional one?
Please refer to the attached sample project.
If we don't manage the buttons, both buttons are visible:
After executing the code in the ReplaceRadCommandBarButtonItem method, the button from the child commandbar is correctly inserted in the parent commandbar:
Please have in mind that if you want to manage the elements inside a RadCommandBar, the appropriate way to do it is via the CommandBarStripElement and its Items collection.
If it is not he exact scenario that you have, feel free to modify the project in a way to reproduce the experienced issue and get back to me with it so I can investigate the precise case. Thank you in advance.
I am looking forward to your reply.
Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik