Поиск слов в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д