' Generated with TowxNET, part of wx.NET, http://wxnet.sf.net Imports System Imports System.Drawing Imports wx '--------------------------------------------------------------------- Public Class ControlsDialog Inherits Dialog ' Do not change the code between region and endregion ( incl. region and endregion )... #Region "TowxNET IDS: ControlsDialog" Public Enum Cmd ID_Notebook_controls_notebook ID_Panel_bitmapbutton ID_BitmapButton_controls_bitmapbutton ID_Panel_button ID_StaticText_controls_normal_button ID_Button_controls_ok_button ID_StaticText_controls_statictext2_button ID_Button_controls_flat_button ID_Panel_calendar ID_CalendarCtrl_controls_calendarctrl ID_Panel_checkbox ID_CheckBox_controls_unchecked_checkbox ID_CheckBox_controls_checked_checkbox ID_Panel_checklist ID_CheckListBox_conrols_checklist ID_Panel_choice ID_Choice_controls_choice ID_Panel_combobox ID_ComboBox_controls_combobox ID_Panel_gauge ID_StaticText_controls_guage1_statictext ID_Gauge_controls_horizontal_gauge ID_StaticText_controls_gauge2_statictext ID_Gauge_controls_vertical_gauge ID_Panel_genericdirctrl ID_Panel_controls_genericdirctrl ID_Panel_htmlwindow ID_HtmlWindow_controls_htmlwindow ID_Panel_listbox ID_ListBox_controls_listbox ID_Panel_listctrl ID_ListCtrl_controls_listctrl ID_Panel_panel ID_Panel_controls_panel ID_SplitterWindow_createdSplitterName0 ID_Panel_radiobutton ID_RadioButton_controls_unselected_radiobutton ID_RadioButton_controls_selected_radiobutton ID_Panel_radiobox ID_RadioBox_controls_radiobox ID_Panel_scrollbar ID_ScrollBar_controls_scrollbar ID_Panel_slider ID_StaticText_controls_slider1_statictext ID_Slider_controls_noticks_slider ID_StaticText_controls_slider2_statictext ID_Slider_controls_ticks_slider ID_Panel_spinbutton ID_SpinButton_controls_spinbutton ID_Panel_spinctrl ID_SpinCtrl_controls_spinctrl ID_Panel_staticbitmap ID_StaticBitmap_controls_staticbitmap ID_Panel_staticbox ID_Panel_staticline ID_StaticLine_controls_v_staticline ID_StaticLine_controls_h_staticline ID_Panel_statictext ID_StaticText_controls_statictext ID_Panel_textctrl ID_StaticText_controls_textctrl1_statictext ID_TextCtrl_controls_single_textctrl ID_StaticText_controls_textctrl2_statictext ID_TextCtrl_controls_password_textctrl ID_StaticText_controls_textctrl3_statictext ID_TextCtrl_controls_multiline_textctrl ID_Panel_treectrl ID_TreeCtrl_controls_treectrl ID_Panel_Rest ID_StaticText_controls_dialog_statictext ID_StaticText_controls_frame_statictext ID_StaticText_controls_menu_statictext ID_StaticText_controls_notebook_statictextT ID_StaticText_controls_sizer ID_StaticText_controls_toolbar_statictext ID_StaticText_controls_unknown_statictext ID_Button_button_ok End Enum #End Region '--------------------------------------------------------------------- ' Do not change the code between region and endregion ( incl. region and endregion )... #Region "TowxNET Objects: ControlsDialog" Protected WithEvents controls_notebook As Notebook Protected WithEvents bitmapbutton As panel Protected WithEvents controls_bitmapbutton As bitmapbutton Protected WithEvents button As panel Protected WithEvents controls_normal_button As statictext Protected WithEvents controls_ok_button As button Protected WithEvents controls_statictext2_button As statictext Protected WithEvents controls_flat_button As button Protected WithEvents calendar As panel Protected WithEvents controls_calendarctrl As CalendarCtrl Protected WithEvents checkbox As panel Protected WithEvents controls_unchecked_checkbox As checkbox Protected WithEvents controls_checked_checkbox As checkbox Protected WithEvents checklist As panel Protected WithEvents conrols_checklist As CheckListBox Protected WithEvents choice As panel Protected WithEvents controls_choice As choice Protected WithEvents combobox As panel Protected WithEvents controls_combobox As combobox Protected WithEvents gauge As panel Protected WithEvents controls_guage1_statictext As statictext Protected WithEvents controls_horizontal_gauge As gauge Protected WithEvents controls_gauge2_statictext As statictext Protected WithEvents controls_vertical_gauge As gauge Protected WithEvents genericdirctrl As panel Protected WithEvents controls_genericdirctrl As panel Protected WithEvents htmlwindow As panel Protected WithEvents controls_htmlwindow As htmlwindow Protected WithEvents listbox As panel Protected WithEvents controls_listbox As listbox Protected WithEvents listctrl As panel Protected WithEvents controls_listctrl As listctrl Protected WithEvents panel As panel Protected WithEvents controls_panel As panel Protected WithEvents createdSplitterName0 As SplitterWindow Protected WithEvents radiobutton As panel Protected WithEvents controls_unselected_radiobutton As radiobutton Protected WithEvents controls_selected_radiobutton As radiobutton Protected WithEvents radiobox As panel Protected WithEvents controls_radiobox As radiobox Protected WithEvents scrollbar As panel Protected WithEvents controls_scrollbar As scrollbar Protected WithEvents slider As panel Protected WithEvents controls_slider1_statictext As statictext Protected WithEvents controls_noticks_slider As slider Protected WithEvents controls_slider2_statictext As statictext Protected WithEvents controls_ticks_slider As slider Protected WithEvents spinbutton As panel Protected WithEvents controls_spinbutton As spinbutton Protected WithEvents spinctrl As panel Protected WithEvents controls_spinctrl As spinctrl Protected WithEvents staticbitmap As panel Protected WithEvents controls_staticbitmap As staticbitmap Protected WithEvents staticbox As panel Protected WithEvents staticline As panel Protected WithEvents controls_v_staticline As staticline Protected WithEvents controls_h_staticline As staticline Protected WithEvents statictext As panel Protected WithEvents controls_statictext As statictext Protected WithEvents textctrl As panel Protected WithEvents controls_textctrl1_statictext As statictext Protected WithEvents controls_single_textctrl As textctrl Protected WithEvents controls_textctrl2_statictext As statictext Protected WithEvents controls_password_textctrl As textctrl Protected WithEvents controls_textctrl3_statictext As statictext Protected WithEvents controls_multiline_textctrl As textctrl Protected WithEvents treectrl As panel Protected WithEvents controls_treectrl As treectrl Protected WithEvents Rest As panel Protected WithEvents controls_dialog_statictext As statictext Protected WithEvents controls_frame_statictext As statictext Protected WithEvents controls_menu_statictext As statictext Protected WithEvents controls_notebook_statictextT As statictext Protected WithEvents controls_sizer As statictext Protected WithEvents controls_toolbar_statictext As statictext Protected WithEvents controls_unknown_statictext As statictext Protected WithEvents button_ok As button #End Region '--------------------------------------------------------------------- Public Sub New(Optional ByVal parent As Window = Nothing, Optional ByVal id As Integer = -1, Optional ByVal title As String = "Controls Example") MyBase.New(parent, id, title, wxDefaultPosition, wxDefaultSize, Window.wxDEFAULT_DIALOG_STYLE) InitializeComponent() ' Me.StyleFlags = End Sub '--------------------------------------------------------------------- ' Do not change the code between region and endregion ( incl. region and endregion )... #Region "TowxNET CTOR: ControlsDialog" Public Sub InitializeComponent() 'common controls_notebook = New Notebook(Me, Cmd.ID_Notebook_controls_notebook, wxDefaultPosition, wxDefaultSize, 0) bitmapbutton = New Panel(controls_notebook, Cmd.ID_Panel_bitmapbutton) controls_bitmapbutton = New BitmapButton(bitmapbutton, Cmd.ID_BitmapButton_controls_bitmapbutton, New wx.Bitmap("controls.png", BitmapType.wxBITMAP_TYPE_ANY)) button = New Panel(controls_notebook, Cmd.ID_Panel_button) controls_normal_button = New StaticText(button, Cmd.ID_StaticText_controls_normal_button, "Normal button:") controls_ok_button = New Button(button, Cmd.ID_Button_controls_ok_button, "OK", wxDefaultPosition, wxDefaultSize, 0) controls_statictext2_button = New StaticText(button, Cmd.ID_StaticText_controls_statictext2_button, "wxNO_BORDER style:") controls_flat_button = New Button(button, Cmd.ID_Button_controls_flat_button, "OK", wxDefaultPosition, wxDefaultSize, wxNO_BORDER) calendar = New Panel(controls_notebook, Cmd.ID_Panel_calendar) controls_calendarctrl = New CalendarCtrl(calendar, Cmd.ID_CalendarCtrl_controls_calendarctrl, DateTime.Now, wxDefaultPosition, wxDefaultSize, CalendarCtrl.wxCAL_SHOW_HOLIDAYS) checkbox = New Panel(controls_notebook, Cmd.ID_Panel_checkbox) controls_unchecked_checkbox = New CheckBox(checkbox, Cmd.ID_CheckBox_controls_unchecked_checkbox, "Unchecked initially") controls_checked_checkbox = New CheckBox(checkbox, Cmd.ID_CheckBox_controls_checked_checkbox, "Checked initially") checklist = New Panel(controls_notebook, Cmd.ID_Panel_checklist) conrols_checklist = New CheckListBox(checklist, Cmd.ID_CheckListBox_conrols_checklist) choice = New Panel(controls_notebook, Cmd.ID_Panel_choice) Dim controls_choice_choices As String() = _ { _ "See", _ "Hear", _ "Feel", _ "Smell", _ "Taste", _ "The Sixth Sense!" _ } controls_choice = New Choice(choice, Cmd.ID_Choice_controls_choice, wxDefaultPosition, wxDefaultSize, controls_choice_choices, 0) combobox = New Panel(controls_notebook, Cmd.ID_Panel_combobox) Dim controls_combobox_choices As String() = _ { _ "vim", _ "emacs", _ "notepad.exe", _ "bbedit", _ "nedit" _ } controls_combobox = New ComboBox(combobox, Cmd.ID_ComboBox_controls_combobox, "", wxDefaultPosition, wxDefaultSize, controls_combobox_choices, wx.ComboBox.wxCB_DROPDOWN) gauge = New Panel(controls_notebook, Cmd.ID_Panel_gauge) controls_guage1_statictext = New StaticText(gauge, Cmd.ID_StaticText_controls_guage1_statictext, "Horizontal smooth:") controls_horizontal_gauge = New Gauge(gauge, Cmd.ID_Gauge_controls_horizontal_gauge, 100, wxDefaultPosition, wxDefaultSize, wx.Gauge.wxGA_SMOOTH) controls_gauge2_statictext = New StaticText(gauge, Cmd.ID_StaticText_controls_gauge2_statictext, "Vertical: custom width") controls_vertical_gauge = New Gauge(gauge, Cmd.ID_Gauge_controls_vertical_gauge, 100, wxDefaultPosition, wxDefaultSize, wx.Gauge.wxGA_VERTICAL) genericdirctrl = New Panel(controls_notebook, Cmd.ID_Panel_genericdirctrl) 'controls_genericdirctrl = New GenericDirCtrl( genericdirctrl, Cmd.ID_Panel_controls_genericdirctrl ) controls_genericdirctrl = New Panel(genericdirctrl, -1) htmlwindow = New Panel(controls_notebook, Cmd.ID_Panel_htmlwindow) controls_htmlwindow = New HtmlWindow(htmlwindow, Cmd.ID_HtmlWindow_controls_htmlwindow, wxDefaultPosition, wxDefaultSize, wx.HtmlWindow.wxHW_SCROLLBAR_AUTO) listbox = New Panel(controls_notebook, Cmd.ID_Panel_listbox) Dim controls_listbox_choices As String() = _ { _ "Milk", _ "Pizza", _ "Bread", _ "Orange juice", _ "Paper towels" _ } controls_listbox = New ListBox(listbox, Cmd.ID_ListBox_controls_listbox, wxDefaultPosition, wxDefaultSize, 5, controls_listbox_choices, wx.ListBox.wxLB_SINGLE) listctrl = New Panel(controls_notebook, Cmd.ID_Panel_listctrl) controls_listctrl = New ListCtrl(listctrl, Cmd.ID_ListCtrl_controls_listctrl, wxDefaultPosition, wxDefaultSize, wx.ListCtrl.wxLC_REPORT Or wxSUNKEN_BORDER) panel = New Panel(controls_notebook, Cmd.ID_Panel_panel) controls_panel = New Panel(panel, Cmd.ID_Panel_controls_panel) panel = New Panel(controls_notebook, -1) createdSplitterName0 = New SplitterWindow(panel, Cmd.ID_SplitterWindow_createdSplitterName0) controls_panel = New Panel(createdSplitterName0, -1) controls_panel = New Panel(createdSplitterName0, -1) radiobutton = New Panel(controls_notebook, Cmd.ID_Panel_radiobutton) controls_unselected_radiobutton = New RadioButton(radiobutton, Cmd.ID_RadioButton_controls_unselected_radiobutton, "Not selected") controls_selected_radiobutton = New RadioButton(radiobutton, Cmd.ID_RadioButton_controls_selected_radiobutton, "Selected") radiobox = New Panel(controls_notebook, Cmd.ID_Panel_radiobox) Dim controls_radiobox_choices As String() = _ { _ "Power 108", _ "WMMS 100.7", _ "Energy 98.3", _ "CHUM FM", _ "92FM" _ } controls_radiobox = New RadioBox(radiobox, Cmd.ID_RadioBox_controls_radiobox, "Radio stations", wxDefaultPosition, wxDefaultSize, controls_radiobox_choices, 1, wx.RadioBox.wxRA_SPECIFY_COLS) scrollbar = New Panel(controls_notebook, Cmd.ID_Panel_scrollbar) controls_scrollbar = New ScrollBar(scrollbar, Cmd.ID_ScrollBar_controls_scrollbar, wxDefaultPosition, wxDefaultSize, wx.ScrollBar.wxSB_VERTICAL) slider = New Panel(controls_notebook, Cmd.ID_Panel_slider) controls_slider1_statictext = New StaticText(slider, Cmd.ID_StaticText_controls_slider1_statictext, "Without ticks:") controls_noticks_slider = New Slider(slider, Cmd.ID_Slider_controls_noticks_slider, 0, 0, 100, wxDefaultPosition, wxDefaultSize, wx.Slider.wxSL_HORIZONTAL) controls_slider2_statictext = New StaticText(slider, Cmd.ID_StaticText_controls_slider2_statictext, "With ticks:") controls_ticks_slider = New Slider(slider, Cmd.ID_Slider_controls_ticks_slider, 0, 0, 100, wxDefaultPosition, wxDefaultSize, wx.Slider.wxSL_HORIZONTAL Or wx.Slider.wxSL_LABELS) spinbutton = New Panel(controls_notebook, Cmd.ID_Panel_spinbutton) controls_spinbutton = New SpinButton(spinbutton, Cmd.ID_SpinButton_controls_spinbutton, wxDefaultPosition, wxDefaultSize, wx.SpinButton.wxSP_WRAP) spinctrl = New Panel(controls_notebook, Cmd.ID_Panel_spinctrl) controls_spinctrl = New SpinCtrl(spinctrl, Cmd.ID_SpinCtrl_controls_spinctrl, "0", wxDefaultPosition, wxDefaultSize, wx.SpinCtrl.wxSP_ARROW_KEYS, 0, 100, 0) staticbitmap = New Panel(controls_notebook, Cmd.ID_Panel_staticbitmap) controls_staticbitmap = New StaticBitmap(staticbitmap, Cmd.ID_StaticBitmap_controls_staticbitmap, New wx.Bitmap("appicon.png", BitmapType.wxBITMAP_TYPE_ANY)) staticbox = New Panel(controls_notebook, Cmd.ID_Panel_staticbox) staticline = New Panel(controls_notebook, Cmd.ID_Panel_staticline) controls_v_staticline = New StaticLine(staticline, Cmd.ID_StaticLine_controls_v_staticline) controls_h_staticline = New StaticLine(staticline, Cmd.ID_StaticLine_controls_h_staticline) statictext = New Panel(controls_notebook, Cmd.ID_Panel_statictext) controls_statictext = New StaticText(statictext, Cmd.ID_StaticText_controls_statictext, "It was a dark and stormy night.") textctrl = New Panel(controls_notebook, Cmd.ID_Panel_textctrl) controls_textctrl1_statictext = New StaticText(textctrl, Cmd.ID_StaticText_controls_textctrl1_statictext, "Single line:") controls_single_textctrl = New TextCtrl(textctrl, Cmd.ID_TextCtrl_controls_single_textctrl, "A.A. Milne") controls_textctrl2_statictext = New StaticText(textctrl, Cmd.ID_StaticText_controls_textctrl2_statictext, "Password:") controls_password_textctrl = New TextCtrl(textctrl, Cmd.ID_TextCtrl_controls_password_textctrl, "TooManySecrets", wxDefaultPosition, wxDefaultSize, wx.TextCtrl.wxTE_PASSWORD) controls_textctrl3_statictext = New StaticText(textctrl, Cmd.ID_StaticText_controls_textctrl3_statictext, "Multiline:") controls_multiline_textctrl = New TextCtrl(textctrl, Cmd.ID_TextCtrl_controls_multiline_textctrl, """So many pretty widgets"" said Pooh, said he. ""So many pretty widgets"", said Pooh.", wxDefaultPosition, wxDefaultSize, wx.TextCtrl.wxTE_MULTILINE) treectrl = New Panel(controls_notebook, Cmd.ID_Panel_treectrl) controls_treectrl = New TreeCtrl(treectrl, Cmd.ID_TreeCtrl_controls_treectrl, wxDefaultPosition, wxDefaultSize, wx.TreeCtrl.wxTR_HAS_BUTTONS Or wxSUNKEN_BORDER) Rest = New Panel(controls_notebook, Cmd.ID_Panel_Rest) controls_dialog_statictext = New StaticText(Rest, Cmd.ID_StaticText_controls_dialog_statictext, "wxDialog (This dialog is one)") controls_frame_statictext = New StaticText(Rest, Cmd.ID_StaticText_controls_frame_statictext, "wxFrame (This application's main frame is one)") controls_menu_statictext = New StaticText(Rest, Cmd.ID_StaticText_controls_menu_statictext, "wxMenu (This application's main frame uses one)") controls_notebook_statictextT = New StaticText(Rest, Cmd.ID_StaticText_controls_notebook_statictextT, "wxNotebook (This dialog uses one)") controls_sizer = New StaticText(Rest, Cmd.ID_StaticText_controls_sizer, "wxSizer (Used throughout application)") controls_toolbar_statictext = New StaticText(Rest, Cmd.ID_StaticText_controls_toolbar_statictext, "wxToolbar (This application's main frame uses one)") controls_unknown_statictext = New StaticText(Rest, Cmd.ID_StaticText_controls_unknown_statictext, "unknown controls (See Custom Class example)") button_ok = New Button(Me, Cmd.ID_Button_button_ok, "OK", wxDefaultPosition, wxDefaultSize, 0) 'Properties Title = "Controls Example" controls_notebook.SetSize(550, 200) controls_bitmapbutton.SetSize(controls_bitmapbutton.BestSize) controls_checked_checkbox.Value = True controls_choice.SetSize(180, -1) controls_combobox.SetSize(200, -1) controls_combobox.Selection = 4 controls_horizontal_gauge.SetSize(100, -1) controls_vertical_gauge.SetSize(40, 60) controls_listbox.SetSize(250, 160) controls_listctrl.SetSize(220, 160) controls_panel.SetSize(200, 160) controls_panel.BackgroundColour = New Colour(0, 0, 255) controls_panel.BackgroundColour = New Colour(0, 0, 255) controls_panel.BackgroundColour = New Colour(0, 255, 0) controls_radiobox.Selection = 0 controls_noticks_slider.SetSize(100, -1) controls_ticks_slider.SetSize(100, -1) controls_spinctrl.SetSize(100, -1) controls_v_staticline.SetSize(-1, 100) controls_h_staticline.SetSize(150, -1) controls_single_textctrl.SetSize(180, -1) controls_password_textctrl.SetSize(180, -1) controls_multiline_textctrl.SetSize(180, 90) controls_treectrl.SetSize(280, 180) 'Layout Dim flexgridsizer1 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer1.Add(controls_bitmapbutton, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer1.Fit(bitmapbutton) flexgridsizer1.SetSizeHints(bitmapbutton) flexgridsizer1.AddGrowableRow(0) flexgridsizer1.AddGrowableCol(0) bitmapbutton.AutoLayout = True bitmapbutton.Sizer = flexgridsizer1 Dim flexgridsizer2 As New FlexGridSizer(0, 2, 0, 0) flexgridsizer2.Add(controls_normal_button, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer2.Add(controls_ok_button, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer2.Add(controls_statictext2_button, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer2.Add(controls_flat_button, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer2.Fit(button) flexgridsizer2.SetSizeHints(button) flexgridsizer2.AddGrowableRow(0) flexgridsizer2.AddGrowableRow(1) flexgridsizer2.AddGrowableCol(0) flexgridsizer2.AddGrowableCol(1) button.AutoLayout = True button.Sizer = flexgridsizer2 Dim flexgridsizer3 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer3.Add(controls_calendarctrl, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer3.Fit(calendar) flexgridsizer3.SetSizeHints(calendar) flexgridsizer3.AddGrowableRow(0) flexgridsizer3.AddGrowableCol(0) calendar.AutoLayout = True calendar.Sizer = flexgridsizer3 Dim flexgridsizer4 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer4.Add(controls_unchecked_checkbox, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer4.Add(controls_checked_checkbox, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer4.Fit(checkbox) flexgridsizer4.SetSizeHints(checkbox) flexgridsizer4.AddGrowableRow(0) flexgridsizer4.AddGrowableCol(0) checkbox.AutoLayout = True checkbox.Sizer = flexgridsizer4 Dim flexgridsizer5 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer5.Add(conrols_checklist, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer5.Fit(checklist) flexgridsizer5.SetSizeHints(checklist) flexgridsizer5.AddGrowableRow(0) flexgridsizer5.AddGrowableCol(0) checklist.AutoLayout = True checklist.Sizer = flexgridsizer5 Dim flexgridsizer6 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer6.Add(controls_choice, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer6.Fit(choice) flexgridsizer6.SetSizeHints(choice) flexgridsizer6.AddGrowableRow(0) flexgridsizer6.AddGrowableCol(0) choice.AutoLayout = True choice.Sizer = flexgridsizer6 Dim flexgridsizer7 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer7.Add(controls_combobox, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer7.Fit(combobox) flexgridsizer7.SetSizeHints(combobox) flexgridsizer7.AddGrowableRow(0) flexgridsizer7.AddGrowableCol(0) combobox.AutoLayout = True combobox.Sizer = flexgridsizer7 Dim flexgridsizer8 As New FlexGridSizer(0, 2, 0, 0) flexgridsizer8.Add(controls_guage1_statictext, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer8.Add(controls_horizontal_gauge, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer8.Add(controls_gauge2_statictext, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer8.Add(controls_vertical_gauge, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer8.Fit(gauge) flexgridsizer8.SetSizeHints(gauge) flexgridsizer8.AddGrowableRow(0) flexgridsizer8.AddGrowableRow(1) flexgridsizer8.AddGrowableCol(0) flexgridsizer8.AddGrowableCol(1) gauge.AutoLayout = True gauge.Sizer = flexgridsizer8 Dim flexgridsizer9 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer9.Add(controls_genericdirctrl, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer9.Fit(genericdirctrl) flexgridsizer9.SetSizeHints(genericdirctrl) flexgridsizer9.AddGrowableRow(0) flexgridsizer9.AddGrowableCol(0) genericdirctrl.AutoLayout = True genericdirctrl.Sizer = flexgridsizer9 Dim flexgridsizer10 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer10.Add(controls_htmlwindow, 0, wx.Stretch.wxGROW Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer10.Fit(htmlwindow) flexgridsizer10.SetSizeHints(htmlwindow) flexgridsizer10.AddGrowableRow(0) flexgridsizer10.AddGrowableCol(0) htmlwindow.AutoLayout = True htmlwindow.Sizer = flexgridsizer10 Dim flexgridsizer11 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer11.Add(controls_listbox, 0, wx.Alignment.wxALIGN_CENTER Or wx.Direction.wxALL, 5) flexgridsizer11.Fit(listbox) flexgridsizer11.SetSizeHints(listbox) flexgridsizer11.AddGrowableRow(0) flexgridsizer11.AddGrowableCol(0) listbox.AutoLayout = True listbox.Sizer = flexgridsizer11 Dim flexgridsizer12 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer12.Add(controls_listctrl, 0, wx.Alignment.wxALIGN_CENTER Or wx.Direction.wxALL, 5) flexgridsizer12.Fit(listctrl) flexgridsizer12.SetSizeHints(listctrl) flexgridsizer12.AddGrowableRow(0) flexgridsizer12.AddGrowableCol(0) listctrl.AutoLayout = True listctrl.Sizer = flexgridsizer12 Dim flexgridsizer13 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer13.Add(controls_panel, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer13.Fit(panel) flexgridsizer13.SetSizeHints(panel) flexgridsizer13.AddGrowableRow(0) flexgridsizer13.AddGrowableCol(0) panel.AutoLayout = True panel.Sizer = flexgridsizer13 createdSplitterName0.SplitVertically(controls_panel, controls_panel) Dim flexgridsizer14 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer14.Add(createdSplitterName0, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer14.Fit(panel) flexgridsizer14.SetSizeHints(panel) flexgridsizer14.AddGrowableRow(0) flexgridsizer14.AddGrowableCol(0) panel.AutoLayout = True panel.Sizer = flexgridsizer14 Dim flexgridsizer15 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer15.Add(controls_unselected_radiobutton, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer15.Add(controls_selected_radiobutton, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer15.Fit(radiobutton) flexgridsizer15.SetSizeHints(radiobutton) flexgridsizer15.AddGrowableRow(0) flexgridsizer15.AddGrowableCol(0) radiobutton.AutoLayout = True radiobutton.Sizer = flexgridsizer15 Dim flexgridsizer16 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer16.Add(controls_radiobox, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer16.Fit(radiobox) flexgridsizer16.SetSizeHints(radiobox) flexgridsizer16.AddGrowableRow(0) flexgridsizer16.AddGrowableCol(0) radiobox.AutoLayout = True radiobox.Sizer = flexgridsizer16 Dim flexgridsizer17 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer17.Add(controls_scrollbar, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer17.Fit(scrollbar) flexgridsizer17.SetSizeHints(scrollbar) flexgridsizer17.AddGrowableRow(0) flexgridsizer17.AddGrowableCol(0) scrollbar.AutoLayout = True scrollbar.Sizer = flexgridsizer17 Dim flexgridsizer18 As New FlexGridSizer(0, 2, 0, 0) flexgridsizer18.Add(controls_slider1_statictext, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer18.Add(controls_noticks_slider, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer18.Add(controls_slider2_statictext, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer18.Add(controls_ticks_slider, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer18.Fit(slider) flexgridsizer18.SetSizeHints(slider) flexgridsizer18.AddGrowableRow(0) flexgridsizer18.AddGrowableRow(1) flexgridsizer18.AddGrowableCol(0) flexgridsizer18.AddGrowableCol(1) slider.AutoLayout = True slider.Sizer = flexgridsizer18 Dim flexgridsizer19 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer19.Add(controls_spinbutton, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer19.Fit(spinbutton) flexgridsizer19.SetSizeHints(spinbutton) flexgridsizer19.AddGrowableRow(0) flexgridsizer19.AddGrowableCol(0) spinbutton.AutoLayout = True spinbutton.Sizer = flexgridsizer19 Dim flexgridsizer20 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer20.Add(controls_spinctrl, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer20.Fit(spinctrl) flexgridsizer20.SetSizeHints(spinctrl) flexgridsizer20.AddGrowableRow(0) flexgridsizer20.AddGrowableCol(0) spinctrl.AutoLayout = True spinctrl.Sizer = flexgridsizer20 Dim flexgridsizer21 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer21.Add(controls_staticbitmap, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer21.Fit(staticbitmap) flexgridsizer21.SetSizeHints(staticbitmap) flexgridsizer21.AddGrowableRow(0) flexgridsizer21.AddGrowableCol(0) staticbitmap.AutoLayout = True staticbitmap.Sizer = flexgridsizer21 Dim staticboxsizer23 As New StaticBoxSizer(New StaticBox(staticbox, -1, "Internet options"), Orientation.wxVERTICAL) Dim flexgridsizer22 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer22.Add(staticboxsizer23, 0, wx.Stretch.wxGROW Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer22.Fit(staticbox) flexgridsizer22.SetSizeHints(staticbox) flexgridsizer22.AddGrowableRow(0) flexgridsizer22.AddGrowableCol(0) staticbox.AutoLayout = True staticbox.Sizer = flexgridsizer22 Dim flexgridsizer24 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer24.Add(controls_v_staticline, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer24.Add(controls_h_staticline, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer24.Fit(staticline) flexgridsizer24.SetSizeHints(staticline) flexgridsizer24.AddGrowableRow(0) flexgridsizer24.AddGrowableRow(1) flexgridsizer24.AddGrowableCol(0) staticline.AutoLayout = True staticline.Sizer = flexgridsizer24 Dim flexgridsizer25 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer25.Add(controls_statictext, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer25.Fit(statictext) flexgridsizer25.SetSizeHints(statictext) flexgridsizer25.AddGrowableRow(0) flexgridsizer25.AddGrowableCol(0) statictext.AutoLayout = True statictext.Sizer = flexgridsizer25 Dim flexgridsizer26 As New FlexGridSizer(0, 2, 0, 0) flexgridsizer26.Add(controls_textctrl1_statictext, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer26.Add(controls_single_textctrl, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer26.Add(controls_textctrl2_statictext, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer26.Add(controls_password_textctrl, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer26.Add(controls_textctrl3_statictext, 0, wx.Alignment.wxALIGN_RIGHT Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer26.Add(controls_multiline_textctrl, 0, wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer26.Fit(textctrl) flexgridsizer26.SetSizeHints(textctrl) flexgridsizer26.AddGrowableRow(0) flexgridsizer26.AddGrowableRow(1) flexgridsizer26.AddGrowableRow(2) flexgridsizer26.AddGrowableCol(0) flexgridsizer26.AddGrowableCol(1) textctrl.AutoLayout = True textctrl.Sizer = flexgridsizer26 Dim flexgridsizer27 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer27.Add(controls_treectrl, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer27.Fit(treectrl) flexgridsizer27.SetSizeHints(treectrl) flexgridsizer27.AddGrowableRow(0) flexgridsizer27.AddGrowableCol(0) treectrl.AutoLayout = True treectrl.Sizer = flexgridsizer27 Dim flexgridsizer28 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer28.Add(controls_dialog_statictext, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer28.Add(controls_frame_statictext, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer28.Add(controls_menu_statictext, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer28.Add(controls_notebook_statictextT, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer28.Add(controls_sizer, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer28.Add(controls_toolbar_statictext, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer28.Add(controls_unknown_statictext, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer28.Fit(Rest) flexgridsizer28.SetSizeHints(Rest) flexgridsizer28.AddGrowableRow(0) flexgridsizer28.AddGrowableRow(1) flexgridsizer28.AddGrowableRow(2) flexgridsizer28.AddGrowableRow(3) flexgridsizer28.AddGrowableRow(4) flexgridsizer28.AddGrowableRow(5) flexgridsizer28.AddGrowableRow(6) flexgridsizer28.AddGrowableCol(0) Rest.AutoLayout = True Rest.Sizer = flexgridsizer28 controls_notebook.AddPage(bitmapbutton, "wxBitmapButton") controls_notebook.AddPage(button, "wxButton") controls_notebook.AddPage(calendar, "wxCalendarControl") controls_notebook.AddPage(checkbox, "wxCheckBox") controls_notebook.AddPage(checklist, "wxCheckListBox") controls_notebook.AddPage(choice, "wxChoice") controls_notebook.AddPage(combobox, "wxComboBox") controls_notebook.AddPage(gauge, "wxGauge") controls_notebook.AddPage(genericdirctrl, "wxGenericDirCtrl") controls_notebook.AddPage(htmlwindow, "wxHtmlWindow") controls_notebook.AddPage(listbox, "wxListBox") controls_notebook.AddPage(listctrl, "wxListCtrl") controls_notebook.AddPage(panel, "wxPanel") controls_notebook.AddPage(panel, "wxSplitterWindow") controls_notebook.AddPage(radiobutton, "wxRadioButton") controls_notebook.AddPage(radiobox, "wxRadioBox") controls_notebook.AddPage(scrollbar, "wxScrollBar") controls_notebook.AddPage(slider, "wxSlider") controls_notebook.AddPage(spinbutton, "wxSpinButton") controls_notebook.AddPage(spinctrl, "wxSpinCtrl") controls_notebook.AddPage(staticbitmap, "wxStaticBitmap") controls_notebook.AddPage(staticbox, "wxStaticBox") controls_notebook.AddPage(staticline, "wxStaticLine") controls_notebook.AddPage(statictext, "wxStaticText") controls_notebook.AddPage(textctrl, "wxTextCtrl") controls_notebook.AddPage(treectrl, "wxTreeCtrl") controls_notebook.AddPage(Rest, "The Rest") Dim flexgridsizer0 As New FlexGridSizer(0, 1, 0, 0) flexgridsizer0.Add(New NotebookSizer(controls_notebook), 0, wx.Stretch.wxGROW Or wx.Alignment.wxALIGN_CENTER_VERTICAL Or wx.Direction.wxALL, 5) flexgridsizer0.Add(button_ok, 0, wx.Alignment.wxALIGN_CENTRE Or wx.Direction.wxALL, 5) flexgridsizer0.Fit(Me) flexgridsizer0.SetSizeHints(Me) flexgridsizer0.AddGrowableRow(0) flexgridsizer0.AddGrowableCol(0) AutoLayout = True SetSizer(flexgridsizer0) Layout() Centre() End Sub #End Region ''' Some custom code ''''''''''''''''''''''''''''''''''''''''''''''' ' Handle OK button click Private Sub button_ok_Click(ByVal sender As Object, ByVal e As wx.Event) Handles button_ok.Click Me.Close(True) End Sub End Class