Imports Telerik.WinControls.UI
Public Class Form1
Public Sub New()
' La chiamata è richiesta dalla finestra di progettazione.
InitializeComponent()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
For i As Integer = 1 To 10
RadGridView1.Columns.Add(New GridViewTextBoxColumn("Misura " + i.ToString))
Next
RadGridView1.SelectionMode = GridViewSelectionMode.FullRowSelect
End Sub
End Class
Public Class CustomGrid
Inherits RadGridView
Protected Overrides Function CreateGridViewElement() As RadGridViewElement
Return New CustomRadGridViewElement()
End Function
Public Overrides Property ThemeClassName As String
Get
Return GetType(RadGridView).FullName
End Get
Set(value As String)
MyBase.ThemeClassName = value
End Set
End Property
End Class
Public Class CustomRadGridViewElement
Inherits RadGridViewElement
Protected Overrides Function CreateTemplate() As MasterGridViewTemplate
Return New CustomMasterGridViewTemplate()
End Function
Protected Overrides ReadOnly Property ThemeEffectiveType() As Type
Get
Return GetType(RadGridViewElement)
End Get
End Property
End Class
Public Class CustomMasterGridViewTemplate
Inherits MasterGridViewTemplate
Public Overrides Sub Paste()
If Clipboard.ContainsData(DataFormats.Text) Then
Dim dataClip As String = Clipboard.GetData(DataFormats.Text).ToString
If (dataClip <> String.Empty) And TypeOf Owner.CurrentRow Is GridViewNewRowInfo Then
Dim columnIndex As Integer = Owner.CurrentColumn.Index
Dim rowsInfo As String() = dataClip.Split(New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
For Each rowInfo As String In rowsInfo
Dim cellsInfo As String() = rowInfo.Split(New String() {vbTab}, StringSplitOptions.RemoveEmptyEntries)
Dim rowToInsert As GridViewRowInfo = Owner.Rows.NewRow()
For i As Integer = 0 To i < cellsInfo.Length
rowToInsert.Cells(i + columnIndex).Value = cellsInfo(i)
Next
Owner.Rows.Add(rowToInsert)
Next
End If
End If
End Sub
End Class