'Setup MDI stuff
Me.IsMdiContainer = True
'Add File Menu
Dim miFile As MenuItem = MainMenu.MenuItems.Add("&File")
miFile.MergeOrder = 0
miFile.MergeType = MenuMerge.MergeItems
Dim miAddDoc As MenuItem = New MenuItem("&Add Document", New EventHandler(AddressOf Me.FileAdd_Clicked), Shortcut.CtrlA)
miAddDoc.MergeOrder = 100
Dim miExit As MenuItem = New MenuItem("E&xit", New EventHandler(AddressOf Me.FileExit_Clicked), Shortcut.CtrlX)
miExit.MergeOrder = 110
miFile.MenuItems.Add(miAddDoc)
miFile.MenuItems.Add(
"-") ' Gives us a seperator
miFile.MenuItems.Add(miExit)
'Add Window Menu
Dim miWindow As MenuItem = MainMenu.MenuItems.Add("&Window")
miWindow.MergeOrder = 10
miWindow.MenuItems.Add(
"&Cascade", New EventHandler(AddressOf Me.WindowCascade_Clicked))
miWindow.MenuItems.Add(
"Tile &Horizontal", New EventHandler(AddressOf Me.WindowTileH_Clicked))
miWindow.MenuItems.Add(
"Tile &Vertical", New EventHandler(AddressOf Me.WindowTileV_Clicked))
miWindow.MdiList =
True 'Adds the MDI Window List to the bottom of the menu
cmbTipoCriterioPai.BindingContext = new BindingContext(); |
// Populating the BindingSource |
ServicoTipoCriterio servicoTipoCriterio = new ServicoTipoCriterio(); |
bsPais.DataSource = servicoTipoCriterio.GetDadosPesquisa("0=0"); |
servicoTipoCriterio.Dispose(); |
// DataBinding the RadComboBox |
cmbTipoCriterioPai.DisplayMember = "Designacao"; |
cmbTipoCriterioPai.ValueMember = "ID_TipoCriterio"; |
cmbTipoCriterioPai.DataSource = bsPais; |
// Adding the SelectedValue DataBinding |
cmbTipoCriterioPai.DataBindings.Clear(); |
cmbTipoCriterioPai.DataBindings.Add("SelectedValue", myObject, "ID_TipoCriterioPai"); |