26 lines
1.1 KiB
VB.net
26 lines
1.1 KiB
VB.net
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 |