or
private void radMenuItem2_Click(object sender, EventArgs e) { RadForm1 form = new RadForm1(); radDock1.DockControl(form, Telerik.WinControls.UI.Docking.DockPosition.Left, Telerik.WinControls.UI.Docking.DockType.ToolWindow); }DirectoryRadTreeView.SelectedNode = tn; DirectoryRadTreeView.BringIntoView(tn); DirectoryRadTreeView.ScrollControlIntoView(DirectoryRadTreeView);
Private Sub RadListControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As Telerik.WinControls.UI.Data.PositionChangedEventArgs) Handles RadListControl1.SelectedIndexChanged If RadListControl1.SelectedIndex > -1 Then Dim tenants As Tenant = RadListControl1.SelectedItem RadTextBox5.Text = tenants.ID RadTextBox6.Text = tenants.FirstName RadTextBox7.Text = tenants.Existing RadTextBox8.Text = tenants.LastName End If End SubDim tenants As Tenant = RadListControl1.SelectedItemPrivate Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click Dim frm As New frmAddEdit frm.GUID_User = Me.dgvUsers.Item(0, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.GUID_Group = Me.dgvUsers.Item(1, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtADName.Text = Me.dgvUsers.Item(2, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtUserName.Text = Me.dgvUsers.Item(3, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtEmail.Text = Me.dgvUsers.Item(4, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtLogin.Text = Me.dgvUsers.Item(5, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtPassword.Text = Me.dgvUsers.Item(6, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtTelNo.Text = Me.dgvUsers.Item(7, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtFax.Text = Me.dgvUsers.Item(8, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.cbActive.Checked = IIf(Me.dgvUsers.Item(9, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.GUID_Company = Me.dgvUsers.Item(10, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.cbLead.Checked = IIf(Me.dgvUsers.Item(11, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.cbSplit.Checked = IIf(Me.dgvUsers.Item(12, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.cbTelesales.Checked = IIf(Me.dgvUsers.Item(13, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.cboOffice.SelectedValue = Me.dgvUsers.Item(14, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtAddress.Text = Me.dgvUsers.Item(15, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.Text = "Edit User" frm.ShowDialog() End Sub

