Поиск слов в ListBox - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Прошу помощи в написании кода. На форме, один ListBox, два TextBox и Кнопка. В ListBox внесен список слов, например: слово волос солов ослов и т.д. В TextBox1, ввожу набор букв, например: "овлсо". Нужно, по нажатию на Кнопку, вывести в TextBox2, все слова, в которых встречаются заданные буквы. Как это сделать не пойму, перепробовал кучу примеров найденных в инет, но ни один не подходит. Помогите пожалуйста. Заранее спасибо.

Решение задачи: «Поиск слов в ListBox»

textual
Листинг программы
Private Sub Form_Load()
'Text1.MultiLine = True
'Text1.ScrollBars = 2
List1.AddItem "qq"
List1.AddItem "qww"
List1.AddItem "qwee"
List1.AddItem "rqwer"
End Sub
 
Private Sub Text2_Change()
 
Dim j%
Text1.Text = ""
a = Trim(Text2.Text)
 
For j = 0 To List1.ListCount
  If per(CStr(a), CStr(List1.List(j))) = True Then
  Text1.Text = Text1.Text & List1.List(j) & vbNewLine
  End If
Next j
End Sub
 
 
Function per(s1$, s2$) As Boolean
Dim p%
 
per = True
For i = 1 To Len(s1)
  p = InStr(1, s2, Mid(s1, i, 1))
   If p > 0 Then
     s2 = Mid(s2, 1, p - 1) & Mid(s2, p + 1)
  Else
     per = False
     Exit Function
  End If
Next i
 
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5