Developing.ru

Код: Выделить всё

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

Код: Выделить всё

Option Explicit
Dim txtcount As Integer
Dim lontxt As Integer
Dim es As String

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
Text1.Text = "Пример нахождения и удаления буквы в тексте и переноса слова в другое окно"
Text2.Visible = False
End Sub

Private Sub Text3_Change()
'Dim es As String
es = Text3.Text 'Помещаем введенное в окне в переменную
lontxt = Len(es) 'кол-во введенных в окне букв
End Sub

Private Sub Command1_Click()
Text1.Visible = False
Text2.Visible = True
Text1.SelStart = 0 ' Устанавливаем положения курсора на текстбоксе
Text1.SelLength = lontxt ' Устанавливаем длину выделения - 1
Text2.Text = "" ' Приравниваем лэйблы к пустоте
'es = "е" ' Конечный(при попадении на этот символ курсора
' программа завершит операцию) символ равен запятой
Timer1.Enabled = True ' Включаем таймер
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
' Условие "если на пути встретится знак ','" то к txtcount прибавить 1 и идти на метку 1
If Text1.SelText = es Then
   txtcount = txtcount + lontxt
   Text2.Text = Text2.Text + Text4.Text
   GoTo 1
 End If
' Условие "если на пути встретится пустота - конец строки" то приравнять txtcount к 0 и отключить таймер
If Text1.SelText = "" Then txtcount = 0: Timer1.Enabled = False
' К имеющейся информации прибавлять один выделенный новый символ
Text2.Text = Text2.Text + Text1.SelText
' Шаг прибавляется на 1, длина выделения составляет 1 символ
1 Text1.SelStart = Text1.SelStart + lontxt: Text1.SelLength = lontxt
End Sub