Jump to content


Mata Hary

Member Since 19/12/2011
Offline Last Active 08/04/2012, 23:39
-----

Topics I've Started

Botão Localizar E Localizar Próxima ( Vb6)

08/04/2012, 23:37

Estou usando o código abaixo (no VISUAL BASIC 6):

Private Sub Command10_Click()
Dim pesquisa, Posição
pesquisa = InputBox("Localizar")
Posição = InStr(TextBox1.Text, pesquisa)
If Posição Then
TextBox1.SelStart = Posição - 1
TextBox1.SelLength = Len(pesquisa)
Else
MsgBox "Texto não encontrado !"
End If
TextBox1.SetFocus
End Sub

PROBLEMA:
Ele localiza somente a primeira palavra encontrada.
Se faço a busca novamente, faz a mesma coisa, ou seja, fica na primeira palavra encontrada,não procura a próxima palavra.
Gostaria de acrescentar o LOCALIZAR PRÓXIMA (igual a busca do Bloco de Notas do Windows).
Se pudesse localizar e marcar todas as palavras iguais do texto com uma tarja amarela (como faz o Internet Explorer 8), seria melhor ainda.

Colocar Numero Das Linhas No Editor De Textos

29/12/2011, 20:16

Estou fazendo um editor de textos e gostaria que aparecesse do lado esquerdo da página o numero das linhas.
Alguem sabe como fazer isso?

Impedir Entrada De Alguns Caracteres

19/12/2011, 03:03

Quero restringir a entrada de 3 caracteres num TextField.
Virgula, aspas e parenteses. Só esses 3 e aceitar todos os outros tipos.
Alguém sabe como fazer isso?

IPB Skin By Virteq