Buscar cadenas

Artículo por Club Developers · 11 May 2006

2499 vistas

Imaginemos una lista rellenada asÃ:



vbnet
  1. For cmpt As Int32 = 1 To 100
  2.     Me.ListBox1.Items.Add("elemento" & cmpt.ToString)
  3. Next



Y queremos seleccionar los elementos que empiecen por "elemento1"



vbnet
  1. cmpt = -1
  2. Do
  3.     cmpt = ListBox1.FindString("elemento1", cmpt)
  4.     If cmpt <> -1 Then
  5.         If ListBox1.SelectedIndices.Count > 0 Then
  6.             If cmpt = ListBox1.SelectedIndices(0) Then
  7.                 Exit Do
  8.             End If
  9.         End If
  10.         ' usamos SetSelected para forzar la selección
  11.         ListBox1.SetSelected(cmpt, True)
  12.     End If
  13. Loop While cmpt <> -1 AndAlso cmpt < Me.ListBox1.Items.Count - 1
  14. ListBox1.MultiColumn = True