This repository has been archived by the owner on Sep 11, 2023. It is now read-only.
/
Form1.vb
73 lines (68 loc) · 1.92 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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
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 System.Collections
Namespace SortAndSearch_LookUpEdit
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
Dim users As New UserList()
users.Add(New User("Bill", "b", 20))
users.Add(New User("Jeck", "j", 14))
users.Add(New User("Stan", "s", 18))
users.Add(New User("Bruce", "b", 29))
users.Add(New User("Stanny", "s", 18))
Dim sortAndSearchLookUpEdit As New SortAndSearchLookUpEdit()
sortAndSearchLookUpEdit.Bounds = New Rectangle(10, 50, 100, 20)
sortAndSearchLookUpEdit.Properties.DataSource = users
sortAndSearchLookUpEdit.Properties.DisplayMember = "Name"
sortAndSearchLookUpEdit.Properties.SearchMode = DevExpress.XtraEditors.Controls.SearchMode.OnlyInPopup
Controls.Add(sortAndSearchLookUpEdit)
End Sub
End Class
Friend Class User
Private name_Renamed As String
Private login_Renamed As String
Private age_Renamed As Integer
Public Sub New(ByVal name As String, ByVal login As String, ByVal age As Integer)
Me.name_Renamed = name
Me.login_Renamed = login
Me.age_Renamed = age
End Sub
Public Property Name() As String
Get
Return name_Renamed
End Get
Set(ByVal value As String)
name_Renamed = value
End Set
End Property
Public Property Login() As String
Get
Return login_Renamed
End Get
Set(ByVal value As String)
name_Renamed = login_Renamed
End Set
End Property
Public Property Age() As Integer
Get
Return age_Renamed
End Get
Set(ByVal value As Integer)
age_Renamed = value
End Set
End Property
End Class
Friend Class UserList
Inherits ArrayList
End Class
End Namespace