|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Localizar palavras em textbox sem usar API
|
 |
|
|
|
Postada em 7/7/2003 por Yoshinaga
Objetos necessários:
1 CommandButton com o nome CmdProcura
2 text box:
Um com o Name=txtTexto e o outro com txtProcura
Insira no código do form:
Dim parounochar As Integer
Private Sub cmdProcura_Click()
Dim TamanhoDaPalavra As Integer 'retorna o tamanho da palavra a localizar
TamanhoDaPalavra = Len(txtProcura.Text)
For a = parounochar To Len(txtTexto.Text) ' retorna o tamanho do texto
If UCase(Mid$(txtTexto.Text, a, TamanhoDaPalavra)) = UCase(txtProcura) Then
parounochar = a + 1
txtTexto.SetFocus
txtTexto.SelStart = a - 1
txtTexto.SelLength = TamanhoDaPalavra
Exit Sub
End If
Next
MsgBox "Não foi encontrada nenhuma palavra!"
parounochar = 1
End Sub
Private Sub Form_Load()
parounochar = 1
End Sub
|
|
|
|
|
