Поиск в TextBox VB6

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

В тексте загруженном в TextBox нужно найти все слова, которые начинаются с большой буквы. В интернете не нашел примеров, а то что сам склипал работает не правильно. Помогите пожалуйста.

Private Sub Command9_Click() 
  Dim st As String 
  st = Text1.Text 
  If InStr(1, st, vbProperCase, vbTextCompare) Then 
    MsgBox "Слова: " & st 
  End If 
End Sub

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

textual
                            Листинг программы 
                        
                            if(Ucase(Q)=Q) Список1.AddItem S(J)

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

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

Похожие ответы