-
Notifications
You must be signed in to change notification settings - Fork 1
/
Main.vb
26 lines (23 loc) · 911 Bytes
/
Main.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports DevExpress.XtraEditors
Namespace PasteData
Partial Public Class Main
Inherits XtraForm
Public Sub New()
InitializeComponent()
gridControl1.DataSource = DataHelper.GetData(10)
gridView1.OptionsSelection.MultiSelect = True
gridView1.OptionsClipboard.PasteMode = DevExpress.Export.PasteMode.Append
End Sub
Private Sub OnButtonClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.Docking2010.ButtonEventArgs) Handles windowsUIButtonPanel1.ButtonClick
If e.Button.Properties.Caption = "Copy" Then
gridView1.CopyToClipboard()
End If
If e.Button.Properties.Caption = "Paste" Then
gridView1.PasteFromClipboard()
End If
End Sub
End Class
End Namespace