Gabryy.
Utente Attivo
- Messaggi
- 359
- Reazioni
- 76
- Punteggio
- 46
ciao a tutti, è da un pò che non rimettevo mano su visual basic. Volevo creare un programmino per automatizzare varie cose che faccio.
Questo programma opera in questo modo:
- gli dò una parola
- il programma la cerca all'interno della RichTextBox (che contiene frasi distribuite su più righe)
- trovata la parola, il programma assegna il numero della riga ad una variabile
- il programma deve eliminare l'intera riga dov'è contenuta la parola trovata
Il programma l'ho strutturato in questo modo: Nel TextBox1 inserisco la parola da cercare, mentre nel Label2 viene visualizzato il numero della riga nella quale è collocata la parola cercata. Con un bottone (Button1) viene avviata la ricerca.
Il problema è che non riesco a trovare il modo per eliminare la riga. Sono arrivato fino a selezionare la parola e ad eliminarla, ma non l'intera riga... grazie in anticipo per l'aiuto
--- i due messaggi sono stati uniti ---
Ho risolto da solo. Potete chiudere la discussione
Questo programma opera in questo modo:
- gli dò una parola
- il programma la cerca all'interno della RichTextBox (che contiene frasi distribuite su più righe)
- trovata la parola, il programma assegna il numero della riga ad una variabile
- il programma deve eliminare l'intera riga dov'è contenuta la parola trovata
Il programma l'ho strutturato in questo modo: Nel TextBox1 inserisco la parola da cercare, mentre nel Label2 viene visualizzato il numero della riga nella quale è collocata la parola cercata. Con un bottone (Button1) viene avviata la ricerca.
Il problema è che non riesco a trovare il modo per eliminare la riga. Sono arrivato fino a selezionare la parola e ad eliminarla, ma non l'intera riga... grazie in anticipo per l'aiuto
Codice:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RichTextBox1.Text.Contains(TextBox1.Text) Then
RichTextBox1.Select(RichTextBox1.Text.IndexOf(TextBox1.Text), TextBox1.TextLength)
Dim Line As Int32
With RichTextBox1
Line = .GetLineFromCharIndex(.SelectionStart) + 1
End With
Label2.Text = Line
RichTextBox1.SelectedText = ""
End If
End Sub
End Class
Ho risolto da solo. Potete chiudere la discussione
Ultima modifica: