[COLOR=black][FONT=Courier New]<Browsable([COLOR=blue]True[/COLOR])> _
[COLOR=blue]Public[/COLOR] [COLOR=blue]Overrides[/COLOR] [COLOR=blue]Property[/COLOR] Text() [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR]
[COLOR=blue]Get[/COLOR]
[COLOR=blue]Return[/COLOR] [COLOR=blue]MyBase[/COLOR].Text
[COLOR=blue]End[/COLOR] [COLOR=blue]Get[/COLOR]
[COLOR=blue]Set[/COLOR]([COLOR=blue]ByVal[/COLOR] value [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR])
[COLOR=blue]MyBase[/COLOR].Text = value
LabelText.Text = Text
[COLOR=blue]End[/COLOR] [COLOR=blue]Set[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Property[/COLOR]
[/FONT][/COLOR]
public function AddToCombo(item as string) as integer
return me.combobox.items.add(item)
end function
[COLOR=black][FONT=Courier New]<Description([COLOR=maroon]"The items of the Combobox in this User Control as String()"[/COLOR]), _
Category([COLOR=maroon]"Data"[/COLOR])> _
[COLOR=blue]Public[/COLOR] [COLOR=blue]Property[/COLOR] Items() [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR]()
[COLOR=blue]Get[/COLOR]
[COLOR=blue]Dim[/COLOR] result(ComboBoxItems.Items.Count - 1) [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR]
ComboBoxItems.Items.CopyTo(result, 0)
[COLOR=blue]Return[/COLOR] result
[COLOR=blue]End[/COLOR] [COLOR=blue]Get[/COLOR]
[COLOR=blue]Set[/COLOR]([COLOR=blue]ByVal[/COLOR] value [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR]())
ComboBoxItems.Items.Clear()
ComboBoxItems.Items.AddRange(value)
[COLOR=blue]End[/COLOR] [COLOR=blue]Set[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Property[/COLOR]
[/FONT][/COLOR]
Public ReadOnly Property items() As ComboBox.ObjectCollection
Get
Return Me.ComboBox1.Items
End Get
End Property