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