This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
XtraForm1.vb
62 lines (53 loc) · 2.5 KB
/
XtraForm1.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
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Controls
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Windows.Forms
Namespace GridWithFilterPanelButtons
Partial Public Class GridWithFilterPanelButtons
Inherits XtraForm
Private customGridControlView As CustomGridControlView
Public Sub New()
InitializeComponent()
Dim customGridControl As New CustomGridControl()
customGridControl.Dock = DockStyle.Fill
customGridControlView = New CustomGridControlView()
customGridControl.MainView = customGridControlView
customGridControl.DataSource = New List(Of TestData)() From { _
New TestData("Test1", True), _
New TestData("Test2", False), _
New TestData("Test3", True) _
}
customGridControlView.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways
Dim btn As New EditorButton(ButtonPredefines.OK)
AddCustomFilterPanelButton(ButtonPredefines.Redo, isLeft:= False)
AddCustomFilterPanelButton(ButtonPredefines.Plus, isNeedClickEvent:= False)
Dim button As New SimpleButton()
AddHandler button.Click, AddressOf OnAddButton
button.Dock = DockStyle.Left
button.Text = "AddCustomFilterPanelButton"
button.Width = 150
Dim panelControl As New PanelControl()
panelControl.Height = 30
panelControl.Dock = DockStyle.Bottom
panelControl.Controls.Add(button)
Controls.Add(customGridControl)
Controls.Add(panelControl)
End Sub
Private Sub AddCustomFilterPanelButton(ByVal buttonPredefine As ButtonPredefines, Optional ByVal isLeft As Boolean = True, Optional ByVal isNeedClickEvent As Boolean = True)
Dim button As New EditorButton(buttonPredefine)
If isNeedClickEvent Then
AddHandler button.Click, AddressOf Button_Click
End If
button.IsLeft = isLeft
customGridControlView.CustomFilterPanelButtons.Add(button)
End Sub
Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("Test")
End Sub
Private Sub OnAddButton(ByVal sender As Object, ByVal e As EventArgs)
AddCustomFilterPanelButton(ButtonPredefines.OK)
End Sub
End Class
End Namespace