quelle di sotto sono procedure fatte tanto tempo fa, ma credo che funzionino ancora
il loro uso mi pare evidentecodice:'-------------------------------------------------------------------- 'seleziona l'item di un listcontrol dato il valore di un item '-------------------------------------------------------------------- Public Sub SelectItemFromValue(ByVal lst As ListControl, ByVal Value$) lst.SelectedIndex = lst.Items.IndexOf(lst.Items.FindByValue(Value)) End Sub '-------------------------------------------------------------------- 'seleziona l'item di un listcontrol dato il valore di un item '-------------------------------------------------------------------- Public Sub SelectItemFromValue(ByVal lst As System.Web.UI.HtmlControls.HtmlSelect, ByVal Value$) lst.SelectedIndex = lst.Items.IndexOf(lst.Items.FindByValue(Value)) End Sub '-------------------------------------------------------------------- 'seleziona l'item di un listcontrol dato il testo di un item '-------------------------------------------------------------------- Public Sub SelectItemFromText(ByVal lst As ListControl, ByVal Text$) lst.SelectedIndex = lst.Items.IndexOf(lst.Items.FindByText(Text)) End Sub '-------------------------------------------------------------------- 'seleziona l'item di un listcontrol dato il testo di un item '-------------------------------------------------------------------- Public Sub SelectItemFromText(ByVal lst As System.Web.UI.HtmlControls.HtmlSelect, ByVal Text$) lst.SelectedIndex = lst.Items.IndexOf(lst.Items.FindByText(Text)) End Sub![]()

Rispondi quotando