/
Form1.vb
39 lines (31 loc) · 1.25 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
Imports System
Imports System.Drawing.Design
Imports System.Windows.Forms
Imports DevExpress.XtraReports.UserDesigner
' ...
Namespace WindowsFormsApplication1
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 MyBase.Load
' Create an End-User Designer form.
Dim designForm As New XRDesignForm()
' Handle the DesignPanelLoaded event.
AddHandler designForm.DesignMdiController.DesignPanelLoaded, AddressOf DesignMdiController_DesignPanelLoaded
' Load a report into the Designer.
designForm.OpenReport(New XtraReport1())
' Show the End-User Designer form, modally.
designForm.ShowDialog()
End Sub
Private Sub DesignMdiController_DesignPanelLoaded(ByVal sender As Object, ByVal e As DesignerLoadedEventArgs)
' Get the Toolbox service from the Designer host.
Dim ts As IToolboxService = DirectCast(e.DesignerHost.GetService(GetType(IToolboxService)), IToolboxService)
' Add a new category to the Toolbox,
' and place a custom control into it.
Dim item As New ToolboxItem(GetType(ProgressBar))
ts.AddToolboxItem(item, "New Category")
End Sub
End Class
End Namespace