ControlLayout

app/DD_PM_WINDREAM/frmDesignerLayout.vb

@@ -1,3 +1,26 @@
 Public Class frmDesignerLayout
+    Dim DT_Foms As DataTable
+    Private Sub frmDesignerLayout_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            Dim oSQL = "Select * from TBIDB_LAYOUT_CONFIG"
+            DT_Foms = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
+            If Not IsNothing(DT_Foms) Then
+                For Each oRow As DataRow In DT_Foms.Rows
+                    BarListItem1.Strings.Add(oRow.Item("TITLE"))
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in FormLoad:" & ex.Message, MsgBoxStyle.Critical)
+        End Try
 
+    End Sub
+
+    Private Sub BarListItem1_ListItemClick(sender As Object, e As DevExpress.XtraBars.ListItemClickEventArgs) Handles BarListItem1.ListItemClick
+        Dim barlistItem = e.Item
+        ' Dim oSelectedText = e.Item.str
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        LayoutControl1.sa
+    End Sub
 End Class