-
Notifications
You must be signed in to change notification settings - Fork 0
/
Main.vb
55 lines (45 loc) · 1.76 KB
/
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
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
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraEditors
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraTreeList
Imports DevExpress.XtraEditors.Registrator
Imports DevExpress.XtraEditors.Repository
Imports System.Reflection
Imports DevExpress.XtraEditors.ViewInfo
Imports DevExpress.XtraEditors.Drawing
Imports DevExpress.Utils.Text
Imports DevExpress.Utils.Drawing
Imports DevExpress.Utils
Namespace DXSample
Partial Public Class Main
Inherits XtraForm
Public Sub New()
InitializeComponent()
End Sub
Private Sub OnFormLoad(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim dt As DataTable = CreateData()
gridControl1.DataSource = dt
Dim edit As New RepositoryItemHtmlLabel()
edit.AllowHtmlString = True
gridControl1.RepositoryItems.Add(edit)
gridControl1.ForceInitialize()
gridView1.Columns("Html").ColumnEdit = edit
End Sub
Private Shared Function CreateData() As DataTable
Dim dt As New DataTable()
dt.Columns.Add("Html")
dt.Columns.Add("String")
dt.Rows.Add("<size=14>Size = 14<br>" & "<b>Bold</b> <i>Italic</i> <u>Underline</u><br>" & "<size=11>Size = 11<br>" & "<color=255, 0, 0>Sample Text</color></size>", "String a")
dt.Rows.Add("<size=15>Size = 15<br>" & "<b>Bold</b> <i>Italic</i> <u>Underline</u><br>" & "<size=10>Size = 10<br>" & "<color=255, 255, 0>Sample Text</color></size>", "String b")
dt.Rows.Add("<size=18>Size = 18<br>" & "<b>Bold</b> <i>Italic</i> <u>Underline</u><br>" & "<size=8>Size = 8<br>" & "<color=255, 0, 255>Sample Text</color></size>", "String c")
Return dt
End Function
End Class
End Namespace