Dim x As Integer = TextBox4.Text Dim objeto As String = TextBox4.Text If objeto = "Icono" Or "icono" Then ListBox1.SetSelected(x, True) End If
Primero que nada para evitar malas transformaciones de datos te recomiendo activar "OPTION STRICT".No entiendo porque creas dos variables (x y objeto) con el mismo contenido (TextBox4.Text)En el método SetSelected deberías pasar un número como variable no un texto.
Dim item_seleccionar As String = "Icono" For i As Integer = 0 To ListBox1.Items.Count - 1 If item_seleccionar = ListBox1.Items(i).ToString Then ListBox1.SetSelected(i, True) Exit For End If Next
Sub SubCargaCboProductos() 'Colocamos Datos 'Agregamos Productos al Combobox cboProductos.Items.Add("DISCO COMPACTO GRABABLE") cboProductos.Items.Add("MOUSE OPTICO") cboProductos.Items.Add("PLUMA 4 COLORES") cboProductos.Items.Add("CUADERNO 100H CUADROS") cboProductos.Items.Add("LAPIZ") cboProductos.Items.Add("GOMA MIGAJON") cboProductos.Items.Add("PLIEGO CARTULINA") cboProductos.DropDownStyle = ComboBoxStyle.DropDownList cboProductos.SelectedIndex = -1 End Sub
'Agrega Productos a la Venta 'Valida que haya un elemento seleccionado If (cboProductos.SelectedIndex >= 0) Then 'Agrega al Producto al ListBox lstVenta.Items.Add(cboProductos.Text) 'Elimina el Producto del Combobox cboProductos.Items.RemoveAt(cboProductos.SelectedIndex) Else 'Despliega el Mensaje cuando no ha seleccionado MsgBox("Debe Seleccionar un Elemento") End If
Dim item_seleccionar As String = "Icono"