or
| Sub dock_Command(ByVal sender As Object, ByVal e As DockCommandEventArgs) | |
| If e.Command.Name = "ExpandCollapse" Then | |
| 'Update record in database if dock is collapsed | |
| UpdateRec((DirectCast(sender, RadDock)).Title, (DirectCast(sender,RadDock)).DockZoneID, (DirectCast(sender, RadDock)).Collapsed.ToString) | |
| End If | |
| If e.Command.Name = "Close" Then | |
| Dim DelDock As String = (DirectCast(sender, RadDock)).Title | |
| DeleteRec(Profile.UserName, DelDock.ToString) | |
| Dim i As Integer | |
| For i = 0 To Me.combolist.Items.Count - 1 | |
| If combolist.Items(i).Text = DelDock.ToString Then | |
| combolist.Items(i).Enabled = True | |
| Dim j As Integer | |
| For j = 0 To arr.Count - 1 | |
| If arr(j).ToString = combolist.Items(i).Value.ToString Then | |
| ' Label1.Text += arr(j).ToString | |
| arr.RemoveAt(j) | |
| Exit For | |
| End If | |
| Next | |
| Exit For | |
| End If | |
| Next | |
| Dim z As Integer | |
| If (DirectCast(sender, RadDock)).DockZoneID = "RadDockZone1" Then | |
| 'Reorder docks Index for DockZone 1 after deletion | |
| For z = 0 To Me.RadDockZone1.Docks.Count - 1 | |
| UpdateIndex(Me.RadDockZone1.Docks(z).Title, "RadDockZone1", z.ToString) | |
| Next | |
| Else | |
| 'Reorder docks Index for DockZone 2 after deletion | |
| For z = 0 To Me.RadDockZone2.Docks.Count - 1 | |
| UpdateIndex(Me.RadDockZone2.Docks(z).Title, "RadDockZone2", z.ToString) | |
| Next | |
| End If | |
| ScriptManager.RegisterStartupScript(UpdatePanel1, Me.[GetType](), "RemoveDock", String.Format("function _removeDock() {{" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "Sys.Application.remove_load(_removeDock);" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "$find('{0}').undock();" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "$get('{1}').appendChild($get('{0}'));" & Chr(13) & "" & Chr(10) & "" & Chr(9) & "$find('{0}').doPostBack('DockPositionChanged');" & Chr(13) & "" & Chr(10) & "}};" & Chr(13) & "" & Chr(10) & "Sys.Application.add_load(_removeDock);", (DirectCast(sender, RadDock)).ClientID, UpdatePanel1.ClientID), True) | |
| End If | |
| End Sub |