-
Notifications
You must be signed in to change notification settings - Fork 1
/
CustomLabel.vb
20 lines (16 loc) · 994 Bytes
/
CustomLabel.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports System.ComponentModel
Imports DevExpress.XtraReports.UI
Imports DevExpress.Utils.Serializing
Namespace CustomReportControlSample
Public Class CustomLabel
Inherits XRLabel
<Browsable(True), Bindable(False), Category("Data"), XtraSerializableProperty, DefaultValue(""), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible), EditorBrowsable(EditorBrowsableState.Always)>
Public Property CustomNumber() As String
<Browsable(True), Bindable(True), Category("Data"), XtraSerializableProperty, DefaultValue(""), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible), EditorBrowsable(EditorBrowsableState.Always)>
Public Property StringData() As String
Protected Overrides Sub PutStateToBrick(ByVal brick As DevExpress.XtraPrinting.VisualBrick, ByVal ps As DevExpress.XtraPrinting.PrintingSystemBase)
MyBase.PutStateToBrick(brick, ps)
brick.Text = If(StringData, CustomNumber)
End Sub
End Class
End Namespace