28 lines
851 B
VB.net
28 lines
851 B
VB.net
Imports DevExpress.XtraBars.Docking
|
|
Imports DevExpress.XtraEditors.Controls
|
|
Imports DevExpress.XtraGrid
|
|
|
|
Public Class frmSearch
|
|
Private Sub frmSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
Dim oList As New List(Of String) From {"Marvin", "Marlon", "Annette", "Jan", "Jonathan", "Vladimir", "Armin"}
|
|
|
|
For Each oMember In oList
|
|
Dim oItem As New ImageListBoxItem(oMember, oMember)
|
|
|
|
ImageListBoxControl1.Items.Add(oItem)
|
|
Next
|
|
End Sub
|
|
|
|
Public Overrides Function GetInitialPanels() As List(Of PanelInfo)
|
|
Dim oList = MyBase.GetInitialPanels()
|
|
|
|
oList.Add(New PanelInfo() With {
|
|
.Caption = "Search",
|
|
.InnerControl = New DocumentPanel(),
|
|
.Position = DockingStyle.Bottom
|
|
})
|
|
|
|
Return oList
|
|
End Function
|
|
End Class |