Greetings,
With the code below (from Telerik Winforms demo app), it is possible to export radtreeview data to different formats.
Imports
Microsoft.VisualBasic
Imports
System
Imports
System.Drawing
Imports
System.Windows.Forms
Imports
Telerik.WinControls
Imports
Telerik.WinControls.Enumerations
Imports
Telerik.WinControls.Export
Imports
Telerik.WinControls.UI
Imports
Telerik.WinControls.UI.Export
Namespace
ExportWithDpl.TreeView
Public
Partial
Class
Form1
Inherits
RadForm
Public
Sub
New
()
InitializeComponent()
Me
.LoadTreeData()
Me
.WireEvents()
Me
.SetupInitialSettings()
If
Program.themeName <>
""
Then
'set the example theme to the same theme QSF uses
ThemeResolutionService.ApplicationThemeName = Program.themeName
Else
ThemeResolutionService.ApplicationThemeName =
"TelerikMetro"
'set default theme
End
If
End
Sub
Private
Sub
LoadTreeData()
Me
.radTreeView1.Nodes.Add(
New
RadTreeNode(
"Personal Folders"
, Image.FromFile(
"..\TreeView\Images\Root.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"Deleted Items"
, Image.FromFile(
"..\TreeView\Images\RecycleBin.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"Drafts"
, Image.FromFile(
"..\TreeView\Images\DraftFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"Inbox"
, Image.FromFile(
"..\TreeView\Images\InboxFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"Junk E-mails"
, Image.FromFile(
"..\TreeView\Images\JunkFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"Outbox"
, Image.FromFile(
"..\TreeView\Images\OutboxFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"Sent Items"
, Image.FromFile(
"..\TreeView\Images\SentFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"Search Folder"
, Image.FromFile(
"..\TreeView\Images\SearchFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes.Add(
New
RadTreeNode(
"New Item"
, Image.FromFile(
"..\TreeView\Images\SentFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes(2).Nodes.Add(
New
RadTreeNode(
"Folders"
, Image.FromFile(
"..\TreeView\Images\Folder1.png"
)))
Me
.radTreeView1.Nodes(0).Nodes(6).Nodes.Add(
New
RadTreeNode(
"From Follow up"
, Image.FromFile(
"..\TreeView\Images\SearchFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes(6).Nodes.Add(
New
RadTreeNode(
"Large Mail"
, Image.FromFile(
"..\TreeView\Images\SearchFolder.png"
)))
Me
.radTreeView1.Nodes(0).Nodes(6).Nodes.Add(
New
RadTreeNode(
"Unread Mail"
, Image.FromFile(
"..\TreeView\Images\SearchFolder.png"
)))
Me
.radTreeView1.TreeViewElement.AutoSizeItems =
False
Me
.radTreeView1.ItemHeight = 25
Me
.radTreeView1.ExpandAll()
End
Sub
Private
Sub
WireEvents()
AddHandler
Me
.exportButton.Click,
AddressOf
exportButton_Click
AddHandler
Me
.allowAlternatingRowColorCheckBox.ToggleStateChanged,
AddressOf
allowAlternatingRowColorCheckBox_ToggleStateChanged
End
Sub
Private
Sub
SetupInitialSettings()
Me
.exportVisualSettingsCheckBox.ToggleState = ToggleState.
On
Me
.exportImagesCheckBox.ToggleState = ToggleState.
On
Me
.groupChildNodesCheckBox.ToggleState = ToggleState.
On
Me
.exportFormatXlsxRadioButton.ToggleState = ToggleState.
On
Me
.collapsedOptionExportAlwaysRadioButton.ToggleState = ToggleState.
On
End
Sub
Private
Sub
allowAlternatingRowColorCheckBox_ToggleStateChanged(
ByVal
sender
As
Object
,
ByVal
args
As
StateChangedEventArgs)
Me
.radTreeView1.TreeViewElement.AllowAlternatingRowColor = args.ToggleState = ToggleState.
On
End
Sub
Private
Sub
exportButton_Click(
ByVal
sender
As
Object
,
ByVal
e
As
EventArgs)
Dim
exporter
As
TreeViewSpreadExport =
New
TreeViewSpreadExport(
Me
.radTreeView1)
Dim
dialog
As
SaveFileDialog =
New
SaveFileDialog()
dialog.FileName =
"exportedFile"
If
Me
.exportFormatXlsxRadioButton.ToggleState = ToggleState.
On
Then
exporter.ExportFormat = SpreadExportFormat.Xlsx
dialog.Filter =
"xlsx files (*.xlsx)|*.xlsx|All files (*.*)|*.*"
ElseIf
Me
.exportFormatPdfRadioButton.ToggleState = ToggleState.
On
Then
exporter.ExportFormat = SpreadExportFormat.Pdf
dialog.Filter =
"pdf files (*.pdf)|*.pdf|All files (*.*)|*.*"
ElseIf
Me
.exportFormatCsvRadioButton.ToggleState = ToggleState.
On
Then
exporter.ExportFormat = SpreadExportFormat.Csv
dialog.Filter =
"csv files (*.csv)|*.csv|All files (*.*)|*.*"
ElseIf
Me
.exportFormatTxtRadioButton.ToggleState = ToggleState.
On
Then
exporter.ExportFormat = SpreadExportFormat.Txt
dialog.Filter =
"txt files (*.txt)|*.txt|All files (*.*)|*.*"
End
If
If
dialog.ShowDialog() = System.Windows.Forms.DialogResult.OK
Then
If
Me
.customizeVisualSettingsCheckBox.ToggleState = ToggleState.
On
Then
AddHandler
exporter.CellFormatting,
AddressOf
exporter_CellFormatting
End
If
exporter.ExportVisualSettings =
Me
.exportVisualSettingsCheckBox.ToggleState = ToggleState.
On
exporter.ExportImages =
Me
.exportImagesCheckBox.ToggleState = ToggleState.
On
exporter.ExportChildNodesGrouped =
Me
.groupChildNodesCheckBox.ToggleState = ToggleState.
On
If
Me
.collapsedOptionExportAlwaysRadioButton.ToggleState = ToggleState.
On
Then
exporter.CollapsedNodeOption = HiddenOption.ExportAlways
ElseIf
Me
.collapsedOptionDoNotExportRadioButton.ToggleState = ToggleState.
On
Then
exporter.CollapsedNodeOption = HiddenOption.DoNotExport
ElseIf
Me
.collapsedOptionExportAsHiddenRadioButton.ToggleState = ToggleState.
On
Then
exporter.CollapsedNodeOption = HiddenOption.ExportAsHidden
End
If
Dim
renderer
As
SpreadExportRenderer =
New
SpreadExportRenderer()
exporter.RunExport(dialog.FileName, renderer)
End
If
End
Sub
Private
Sub
exporter_CellFormatting(
ByVal
sender
As
Object
,
ByVal
e
As
TreeViewSpreadExportCellFormattingEventArgs)
If
e.TreeNode.Nodes.Count > 0
Then
e.ExportCell.BackColor = Color.LightBlue
e.ExportCell.ForeColor = Color.DarkMagenta
e.ExportCell.Font =
New
Font(
"SegoeUI"
, 12, FontStyle.Underline)
Else
e.ExportCell.BackColor = Color.LightYellow
End
If
End
Sub
End
Class
End
Namespace
How can I modify the code to only include Checked nodes of the radtreeview when exporting ,for example, to Excel format ?
(checkbox value of the radtreeview is set to True)
Thanks in advance.
Hello,
we use WinForms-Controls in our application and want to drop a WPF-Control to it (Listview or Panel).
But we don´t get the Drop-Event to it. :-(
In WinForms the DragEventArgs are in the namespace "System.Windows.Forms" and in WPF it is only "System.Windows", maybe this is the problem!?
Another problem: When we use a non-Telerik-form we can handle the Drop-Event but we can´t access the data from e.Data.GetData(...
It´s always null. Is there a way to control the data which is used for Drag&Drop?
I have a video recording of the bug: https://youtu.be/dw8YDnO5njs
I have a RowFormatting event; if there is an error, I set the row Red and debug.writeline 'Error'. If the value is changed, I make it green and write out 'Changed'.
See the video; here's the debug output for all RowValidation events:
Yet, you see that 'uitdienst' is just white. When I mouse-over or click, it shows up with the green color.
Version 2018.3.907.4
Hi,
I use Entity Framework (Database first) and want display a table with millions of data in a paged Radgridview.
It is not possible to load all data local with
dbContext.MyTable.Load();
radGridView1.DataSource = dbContext.MyTable.Local.ToBindingList();
Is there an example, which also support sorting and filtering of the Radgridview?
Thank you,
Peter
I have this piece of code very similar to the one in the demos but I allways get an empty string from FilterDescriptors.Expression
this.Confecciones.AllowFiltering = true;
this.ConfeccionesGV.FilterChanged += Confecciones_FilterChanged;
void ConfeccionesGV_FilterChanged(object sender, VirtualGridEventArgs e)
{
Filter();
}
private void Filter()
{
string filterExpression = this.ConfeccionesGV.FilterDescriptors.Expression;
if (!string.IsNullOrEmpty(filterExpression))
MessageBox.Show(filterExpression);
}
Hi,
Is there any way to allow RadAutoCompleteBox auto suggestion item to select only unique items. For example, RadAutoCompleteBox has item A, item B and item C. I don't want user to choose Item A two times. Would like to remove previously selected item from auto suggestion list. For example Item A is already in the RadAutoCompleteBox.Items collection, want to show only item B and C in auto complete suggestion box. If not possible to do that, want to cancel the selection if existing item is selected again. Is it possible to do that?
Hello
is there a function like Save/Restore for the settings of the pdf viewer / pdf navigator ?
To save and restore user's settings such as zoom factor, etc
Thanks in advance
Pierre-Jean
Greetings,
I'm looking for VB.NET solutions to print Radtree content. I found some relevant threads :
But no success for me yet to implement any of the suggested methods . Is there any actual implementation of printing Radtree in VB.net as a sample code or project that demonstrates the printing method of RadTree content?
I also thought of Word automation in order to create a similar tree in Office word (using bulleted list) and then print the document, as Radtree nodes could be alternatives to bullets in Office Word's bulleted list.
I've implemented drag and drop between two RadGridViews using RadGridViewDragDropService.
This works well, but I can't get Auto Scrolling to work when dragging from one gridview to another. It does work if I drag within the same gridview.
I do have AllowAutoScrollRowsWhileDragging set to true.
What could I be doing wrong?