[DUVIDA] ENCONTRAR STRING EM TEXBOX E AVISAR

JIMMY 25/08/2009 21:31:33
#320956
Galera, estou com uma dúvida.
Alguém ai tem uma função para fazer o seguinte:

Eu vou ter:
2 textbox
1 commandbutton

Daí quero que o comandbutton acione a função de buscar em um text2 multiline a string que está no text1.
Como faço isso?

Abraços.
MARCELO.TREZE 25/08/2009 21:49:50
#320959
de uma maneira bem simples

coloque 02 textbox e 01 commandbutton no form

deixe o text1 com a propriedade multiline = True

e cole isto


Private Sub Form_Load()
Text1.Text = Text1.Text & [Ô][Ô]
Text1.Text = Text1.Text & [Ô]Se a Frase [Ô][Ô]em casa de ferreiro o espeto é de pau[Ô][Ô][Ô] & vbCrLf
Text1.Text = Text1.Text & [Ô]for verdadeira eu pergunto.[Ô] & vbCrLf
Text1.Text = Text1.Text & [Ô][Ô] & vbCrLf
Text1.Text = Text1.Text & [Ô]será que o Bill Gates usa o Linux?[Ô]
End Sub


Private Sub Command1_Click()
Dim PosINI As Integer
Dim PosFIM As Integer
PosINI = InStr(1, Text1, Text2)
PosFIM = Len(Text2.Text)
Text1.SelStart = PosINI - 1
Text1.SelLength = PosFIM
Text1.SetFocus
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar