NEGRITAR UMA PALAVRA EM PESQUISA

USUARIO.EXCLUIDOS 20/04/2007 09:31:23
#212895
Bom dia! bom eu tenho um texto em uma txt, gostaria de saber se tem como eu digitar uma palavra em um campo de pesquisa e se tiver a palavra no texto gostaria que esta palavra ficasse em NEGRITO, tem como? tipo aquelas pesquisas em internet que a palavra fica vermelha, azul ou negrito e assim por diante, bom se isso tem jeito de acontecer eu gostaria se possivel do caminho, codigos e etc....Obrigado!
DANIELCPAETE 20/04/2007 09:44:40
#212905
voce poderia fazer isso utilizando o componente RichTextBox no lugar da txt nele você consegue alterar a funte de uma determinada palavra

Private Sub Form_Load()

   RichTextBox1.LoadFile "c:\GUILHERME.txt"

End Sub


Private Sub Command1_Click()

Dim strval As String
Dim nStrings As Long
   RichTextBox1.LoadFile "c:\GUILHERME.txt"
   strval = " " & InputBox("Entre com o texto", "Localizar", _
      "texto") & " "

   If strval <> "" Then
     nStrings = FindIt(RichTextBox1, strval)
     MsgBox (Str$(nStrings) & " texto não localizaddo")
   End If

End Sub


Private Function FindIt(Box As RichTextBox, Srch As String, _
   Optional Start As Long)

   Dim retval As Long
   Dim Source As String
   
   Source = Box.Text
   If Start = 0 Then Start = 1
   retval = InStr(Start, UCase(Source), UCase(Trim(Srch)))
   If retval <> 0 Then
     With Box
        .SelStart = retval - 1
        .SelLength = Len(Trim(Srch))
        .SelColor = vbRed
        .SelBold = True
        .SelLength = 0
     End With
     Start = retval + Len(Srch)
     FindIt = 1 + FindIt(Box, Srch, Start)
   End If
End Function
USUARIO.EXCLUIDOS 20/04/2007 10:35:21
#212924
Obrigado Daniel pelo caminho vou testar todas estas dicas! se eu tiver mais duvidas postarei aqui....Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar