-
Notifications
You must be signed in to change notification settings - Fork 0
/
Main.vb
41 lines (34 loc) · 1.16 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
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
Namespace DXSample
Partial Public Class Main
Inherits XtraForm
Public Sub New()
InitializeComponent()
End Sub
Private Overloads Sub OnLoad(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
gridControl1.DataSource = GetData()
customEdit1.Image = SystemIcons.Shield.ToBitmap()
End Sub
Private Shared Function GetData() As DataTable
Dim dt As New DataTable()
dt.Columns.Add("Icon", GetType(Image))
dt.Columns.Add("IconName")
dt.Rows.Add(SystemIcons.Application.ToBitmap(), "Application")
dt.Rows.Add(SystemIcons.Asterisk.ToBitmap(), "Asterisk")
dt.Rows.Add(SystemIcons.Error.ToBitmap(), "Error")
dt.Rows.Add(SystemIcons.Exclamation.ToBitmap(), "Exclamation")
dt.Rows.Add(SystemIcons.Hand.ToBitmap(), "Hand")
dt.Rows.Add(SystemIcons.Information.ToBitmap(), "Information")
dt.Rows.Add(SystemIcons.Question.ToBitmap(), "Question")
Return dt
End Function
End Class
End Namespace