Comparto algunos Snippets relacionados con los controles de Telerik:
http://www.telerik.com/products/winforms.aspx[Telerik] [RadDropDownList] Select next item on MouseWheel.
Ejemplo de como seleccionar el item anterior o siguiente usando la rueda del mouse.
Public Class RadDropDownList_TestForm
''' <summary>
''' Handles the MouseDown event of the RadDropDownList1 control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="MouseEventArgs"/> instance containing the event data.</param>
Private Sub RadDropDownList1_MouseWheel(Byval sender As Object, Byval e As MouseEventArgs) _
Handles RadDropDownList1.MouseWheel
Select Case e.Delta
Case Is > 0 ' MouseWhell scroll up.
If sender.SelectedIndex > 0I Then
sender.SelectedIndex -= 1I
End If
Case Else ' MouseWhell scroll down.
If sender.SelectedIndex < sender.Items.Count Then
sender.SelectedIndex += 1I
End If
End Select
End Sub
End Class
[Telerik] [RadDropDownList] Align text after selecting an item.
Ejemplo de como alinear el texto después de seleccionar un item.
''' <summary>
''' Handles the SelectedIndexChanged event of the RadDropDownList1 control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="Data.PositionChangedEventArgs"/> instance containing the event data.</param>
Private Sub RadDropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As Data.PositionChangedEventArgs) _
Handles RadDropDownList1.SelectedIndexChanged
' Center the selected item text.
sender.DropDownListElement.EditableElement.TextAlignment = ContentAlignment.MiddleCenter
End Sub
[Telerik] [RadMessageBox] Example.
Ejemplo de como usar un RadMessageBox
Imports Telerik.WinControls
Public Class RadMessageBox_TestForm
Private Sub RadMessageBox_TestForm_Load() Handles MyBase.Load
RadMessageBox.SetThemeName("VisualStudio2012Dark")
' RadMessageBox.SetThemeName(Me.ThemeName) ' Use this for RadForm or other Rad control.
RadMessageBox.Instance.Cursor = Cursors.Arrow
RadMessageBox.Instance.EnableBeep = True
RadMessageBox.Instance.ShowInTaskbar = False
RadMessageBox.Instance.ShowIcon = True
RadMessageBox.Instance.Icon = SystemIcons.Application
RadMessageBox.Instance.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
RadMessageBox.Show("Hello World !", Me.Name, MessageBoxButtons.OK, RadMessageIcon.Info)
End Sub
End Class
[Telerik] [RadGridView] Example.
Ejemplo de como usar un RadGridView.
Imports Telerik.WinControls.UI
Public Class RadGridView_TestForm
''' <summary>
''' The row collection of the RadGridView.
''' </summary>
Private Rows As New List(Of GridViewDataRowInfo)
Private Sub RadGridView_TestForm_Load() Handles MyBase.Load
' Set the RadGridView language localization.
' RadGridLocalizationProvider.CurrentProvider = New MyRadGridViewLocalizationProvider_Spanish
' Create some columns.
With RadGridView1
.Columns.Add("MyColumnString", "Strings")
.Columns.Add("MyColumnHour", "Hours")
.Columns.Add("MyColumnInteger", "Integers")
.Columns.Add("MyColumnDouble", "Doubles")
End With
' Set the RadGridView properties.
With RadGridView1
.ThemeName = "VisualStudio2012Dark" ' The visual theme.
.EnableAlternatingRowColor = True ' Enable color alternating between rows.
.TableElement.AlternatingRowColor = Color.FromArgb(52, 52, 56) ' The alternate color, a dark-gray.
.AutoGenerateColumns = False ' Deny the control to auto-generate columns when setting a DataSource.
.ReadOnly = True ' Disable Adding, Removing, and Editing on the control.
' Set the column datatypes.
.Columns("MyColumnString").DataType = GetType(String)
.Columns("MyColumnHour").DataType = GetType(String)
.Columns("MyColumnInteger").DataType = GetType(Integer)
.Columns("MyColumnDouble").DataType = GetType(Double)
End With
' Create a row.
Dim Row As New GridViewDataRowInfo(Me.RadGridView1.MasterView)
With Row
.Cells(0).Value = "Hello!"
.Cells(1).Value = "22:00"
.Cells(2).Value = 10
.Cells(3).Value = 5.5
End With
Me.Rows.Add(Row)
' add the row in the grid.
Me.RadGridView1.Rows.AddRange(Rows.ToArray)
End Sub
End Class
[Telerik] [RadGridView] Export as CSV.
Ejemplo de como exportar un RadGridView a CSV.
Dim Exporter As New ExportToCSV(Me.RadGridView1)
With Exporter
.HiddenColumnOption = HiddenOption.DoNotExport ' Don't export hidden columns.
.HiddenRowOption = HiddenOption.DoNotExport ' Don't export hidden rows.
.SummariesExportOption = SummariesOption.DoNotExport
.ColumnDelimiter = " | "
.RowDelimiter = "; "
.
End With
Exporter.RunExport("C:\Exported Data.xls")
[Telerik] [RadGridView] Export as HTML.
Ejemplo de como exportar un RadGridView a HTML.
' Export the data contained in the RadGridView DataSource.
Dim Exporter As New ExportToHTML(Me.RadGridView1)
With Exporter
.HiddenColumnOption = HiddenOption.DoNotExport ' Don't export hidden columns.
.HiddenRowOption = HiddenOption.DoNotExport ' Don't export hidden rows.
.SummariesExportOption = SummariesOption.DoNotExport
.AutoSizeColumns = False
.ExportVisualSettings = True
.FileExtension = "htm"
.TableBorderThickness = 2
.TableCaption = "My Exported Table"
End With
Exporter.RunExport("C:\Exported Data.htm")
[Telerik] [RadGridView] Export as XLS.
Ejemplo de como exportar el DataSource de un RadGridView a Excel (xls).
Imports Telerik.WinControls.UI
Imports Telerik.WinControls.UI.Export
Imports Telerik.WinControls.UI.Localization
Public Class RadGridView_TestForm
Private Sub RadGridView_TestForm_Load() Handles MyBase.Load
' Set the RadGridView language localization.
' RadGridLocalizationProvider.CurrentProvider = New MyRadGridViewLocalizationProvider_Spanish
' Set the RadGridView properties.
With RadGridView1
.ThemeName = "VisualStudio2012Dark" ' The visual theme.
.EnableAlternatingRowColor = True ' Enable color alternating between rows.
.TableElement.AlternatingRowColor = Color.FromArgb(52, 52, 56) ' The alternate color, a dark-gray.
.AutoGenerateColumns = False ' Deny the control to auto-generate columns when setting a DataSource.
.ReadOnly = True ' Disable Adding, Removing, and Editing on the control.
' Set the column datatypes.
.Columns("MyColumnString").DataType = GetType(String)
.Columns("MyColumnHour").DataType = GetType(String)
.Columns("MyColumnInteger").DataType = GetType(Integer)
.Columns("MyColumnDouble").DataType = GetType(Double)
' Set the excel export datatypes.
.Columns("MyColumnString").ExcelExportType = DisplayFormatType.Text
.Columns("MyColumnHour").ExcelExportType = DisplayFormatType.Custom
.Columns("MyColumnHour").ExcelExportFormatString = "h:mm"
.Columns("MyColumnInteger").ExcelExportType = DisplayFormatType.Custom
.Columns("MyColumnInteger").ExcelExportFormatString = "0"
.Columns("MyColumnDouble").ExcelExportType = DisplayFormatType.Custom
.Columns("MyColumnDouble").ExcelExportFormatString = "0.00"
End With
' Export the data contained in the RadGridView DataSource.
Dim Exporter As New ExportToExcelML(Me.RadGridView1)
With Exporter
.HiddenColumnOption = HiddenOption.DoNotExport ' Don't export hidden columns.
.HiddenRowOption = HiddenOption.DoNotExport ' Don't export hidden rows.
.ExportVisualSettings = True ' Export the RadGridView current theme.
.SheetMaxRows = ExcelMaxRows._65536
.SheetName = "Betfair Market Analyzer"
.SummariesExportOption = SummariesOption.DoNotExport
End With
Exporter.RunExport("C:\Exported Data.xls")
End Sub
End Class
[Telerik] [RadSplitButton] Set a Default Item.
Ejemplo de como asignar un item por defecto.
Imports Telerik.WinControls.UI
Public Class RadSplitButton_TestForm
Dim WithEvents MenuItem1 As New RadMenuItem With {.Text = "Item 1"}
Dim WithEvents MenuItem2 As New RadMenuItem With {.Text = "Item 2"}
Dim WithEvents MenuItem3 As New RadMenuItem With {.Text = "Item 3"}
Private Sub RadSplitButton_TestForm_Load() Handles MyBase.Load
RadSplitButton1.Items.AddRange({MenuItem1, MenuItem2, MenuItem3})
RadSplitButton1.DefaultItem = MenuItem2
End Sub
Private Sub MenuItem2_Click() Handles MenuItem2.Click
MsgBox("I'm the default item!")
End Sub
End Class
[Telerik] [RadSplitButton] Distinguish an Arrow click without a Default Item set.
Ejemplo de como distinguir cuando se hace un click sobre el control o sobre la flecha del control.
Public Class RadSplitButton_TestForm
''' <summary>
''' Flag that determines whether the RadSplitButton menu-opening should be canceled.
''' </summary>
Private CancelOpening As Boolean = False
Private Sub RadSplitButton1_DropDownOpening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
Handles RadSplitButton1.DropDownOpening
e.Cancel = Me.CancelOpening
End Sub
Private Sub RadSplitButton1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles RadSplitButton1.MouseMove
Me.CancelOpening = Not sender.DropDownButtonElement.ArrowButton.IsMouseOverElement
End Sub
Private Sub RadSplitButton1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles RadSplitButton1.Click
If e.Button = Windows.Forms.MouseButtons.Left AndAlso Me.CancelOpening Then
MsgBox("clicked out the arrow!")
ElseIf Not Me.CancelOpening Then
MsgBox("clicked over the arrow!")
End If
End Sub
End Class
[Telerik] [RadDropDownButton] Distinguish an Arrow click without a Default Item set.
Ejemplo de como distinguir cuando se hace un click sobre el control o sobre la flecha del control.
Public Class RadDropDownButton_TestForm
''' <summary>
''' Flag that determines whether the RadSplitButton menu-opening should be canceled.
''' </summary>
Private CancelOpening As Boolean = False
Private Sub RadDropDownButton1_DropDownOpening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
Handles RadDropDownButton1.DropDownOpening
e.Cancel = Me.CancelOpening
End Sub
Private Sub RadDropDownButton1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles RadDropDownButton1.MouseMove
Me.CancelOpening = Not sender.DropDownButtonElement.ArrowButton.IsMouseOverElement
End Sub
Private Sub RadDropDownButton1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles RadDropDownButton1.Click
If e.Button = Windows.Forms.MouseButtons.Left AndAlso Me.CancelOpening Then
MsgBox("clicked out the arrow!")
ElseIf Not Me.CancelOpening Then
MsgBox("clicked over the arrow!")
End If
End Sub
End Class