Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Trova
Forum - Visual Basic 6 - Trova

Avatar
vb6 (Normal User)
Pro


Messaggi: 154
Iscritto: 10/01/2007

Segnala al moderatore
Postato alle 17:18
Mercoledì, 07/03/2007
Ciao a tutti.
Avete presente la funzione "Trova" del notepad di windows, io vorrei ricrearla nel mio programma.
Allora io ho un command button, una textbox e  una richtextbox,chiamata a.
Allora se nella richtextbox ci fosse scritto:"ciao come va?", vorrei che mi evidenziasse, solo dopo aver  scritto "ciao" nella textbox e dopo aver premuto il commad button, solo la parola "ciao" contenuta nella richtextbox (a)
Che dite è possibile? 8-|
Ciao :k:

PS. Scusate qualche "CIAO" di troppo :rotfl:

PM Quote
Avatar
azra (Normal User)
Newbie


Messaggi: 15
Iscritto: 05/03/2007

Segnala al moderatore
Postato alle 17:55
Mercoledì, 07/03/2007
Private Sub Command1_Click()
Dim i As Integer
With RichTextBox1
i = InStr(1, .Text, Text1.Text)
If i > 0 Then
  .SelStart = i - 1
  .SelLength = Len(Text1.Text)
  .SelBold = True
End If
End With
End Sub

PM Quote
Avatar
vb6 (Normal User)
Pro


Messaggi: 154
Iscritto: 10/01/2007

Segnala al moderatore
Postato alle 18:05
Mercoledì, 07/03/2007
Ok era quello che volevo.
Però se volessi fare una ricerca che trova tutti i sostantivi presenti nella rich textbox?

Ad es. nella rich textbox c'è scritto:"ciao come va???
comunque
ancora ciao
ciao
comunque.
ciao."(che fantasia:-|)

Comunque, è possibile evidenziarli tutti???

PM Quote
Avatar
azra (Normal User)
Newbie


Messaggi: 15
Iscritto: 05/03/2007

Segnala al moderatore
Postato alle 18:34
Mercoledì, 07/03/2007
Private Sub Command1_Click()
Dim i As Integer
With RichTextBox1
i = 1
Do
    i = InStr(i, .Text, Text1.Text)
    If i = 0 Then
     Exit Do
    End If
    
    
      .SelStart = i - 1
      .SelLength = Len(Text1.Text)
      .SelBold = True
      i = i + 1
Loop
End With
End Sub

PM Quote
Avatar
azra (Normal User)
Newbie


Messaggi: 15
Iscritto: 05/03/2007

Segnala al moderatore
Postato alle 18:34
Mercoledì, 07/03/2007
Private Sub Command1_Click()
Dim i As Integer
With RichTextBox1
i = 1
Do
    i = InStr(i, .Text, Text1.Text)
    If i = 0 Then
     Exit Do
    End If
    
    
      .SelStart = i - 1
      .SelLength = Len(Text1.Text)
      .SelBold = True
      i = i + 1
Loop
End With
End Sub

PM Quote
Avatar
vb6 (Normal User)
Pro


Messaggi: 154
Iscritto: 10/01/2007

Segnala al moderatore
Postato alle 18:38
Mercoledì, 07/03/2007
Ok, riuscito... :D

Grazie e ciao :k:

PM Quote