/
Form1.vb
76 lines (62 loc) · 2.27 KB
/
Form1.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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Imports System
Imports System.Data
Imports System.Windows.Forms
Imports DevExpress.XtraEditors
Namespace ButtonEditWithPadding
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
gridControl1.DataSource = CreateTable()
gridView1.Columns(0).ColumnEdit = repositoryItemPaddingButtonEdit1
gridView1.Columns(1).ColumnEdit = repositoryItemPaddingButtonEdit2
End Sub
Private Function CreateTable() As DataTable
Dim table As New DataTable()
Dim dataRow As DataRow
table.Columns.Add("Prod_NO", GetType(String))
table.Columns.Add("Prod_Name", GetType(String))
table.Columns.Add("Order_Date", GetType(String))
table.Columns.Add("Quantity", GetType(String))
dataRow = table.NewRow()
dataRow("Prod_NO") = "101"
dataRow("Prod_Name") = "Product1"
dataRow("Order_Date") = "12/06/2012"
dataRow("Quantity") = "50"
table.Rows.Add(dataRow)
dataRow = table.NewRow()
dataRow("Prod_NO") = "102"
dataRow("Prod_Name") = "Product2"
dataRow("Order_Date") = "15/06/2012"
dataRow("Quantity") = "70"
table.Rows.Add(dataRow)
dataRow = table.NewRow()
dataRow("Prod_NO") = "102"
dataRow("Prod_Name") = "Product2"
dataRow("Order_Date") = "15/06/2012"
dataRow("Quantity") = "70"
table.Rows.Add(dataRow)
dataRow = table.NewRow()
dataRow("Prod_NO") = "103"
dataRow("Prod_Name") = "Product3"
dataRow("Order_Date") = "18/06/2012"
dataRow("Quantity") = "30"
table.Rows.Add(dataRow)
dataRow = table.NewRow()
dataRow("Prod_NO") = "104"
dataRow("Prod_Name") = "Product4"
dataRow("Order_Date") = "25/06/2012"
dataRow("Quantity") = "20"
table.Rows.Add(dataRow)
Return table
End Function
Private Sub spinEdit1_EditValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles spinEdit1.EditValueChanged
Dim buttonPadding As New Padding(Convert.ToInt32(DirectCast(sender, SpinEdit).EditValue))
paddingButtonEdit1.Properties.Padding = buttonPadding
CType(gridView1.Columns(0).ColumnEdit, RepositoryItemPaddingButtonEdit).Padding = buttonPadding
CType(gridView1.Columns(1).ColumnEdit, RepositoryItemPaddingButtonEdit).Padding = buttonPadding
End Sub
End Class
End Namespace