Moi je veux que quand la textbox1 est trop petite pour rendre TOUT le texte visible,
mes quand il y à plus de 300 lignes dedans
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim debutrecherche As Integer = 0 ' début recherche Dim chainecherchee As String = "AAAA" ' à toi de modifier Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ChaineLocation As Integer = TextBox1.Text.IndexOf(chainecherchee, debutrecherche) ' position de la chaine If ChaineLocation >= 0 Then TextBox1.SelectionStart = ChaineLocation TextBox1.SelectionLength = 4 ' RichTextBox1.SelectionBackcolor = Color.Red debutrecherche = ChaineLocation + 1 ' début de la recherche suivante TextBox1.ScrollToCaret() Else MessageBox.Show("Fin de la recherche") debutrecherche = 0 ' on recommence la recherche au début End If End Sub
If ChaineLocation >= 0 Then