1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
|
Public Class REMPLACER1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.RichTextBox1.Text = Form1.RichTextBox1.Text.Replace(TextBox1.Text, TextBox2.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
BackgroundWorker1.RunWorkerAsync()
If TextBox3.Text = "" Then
MsgBox(" Inscrivez au moins un caractère ")
Exit Sub
End If
Form1.RichTextBox1.Text = Form1.RichTextBox1.Text.ToLower
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim index As Integer = 0
While (index < Form1.RichTextBox1.Text.LastIndexOf(TextBox3.Text))
Form1.RichTextBox1.Find(TextBox3.Text, index, Form1.RichTextBox1.TextLength, RichTextBoxFinds.None)
Form1.RichTextBox1.SelectionBackColor = Color.GreenYellow
index = Form1.RichTextBox1.Text.IndexOf(TextBox3.Text, index) + 1
If ProgressBar1.Value >= 100 Then
ProgressBar1.Value = 0
End If
ProgressBar1.Value = index / (Form1.RichTextBox1.TextLength / 100)
Label7.Text = ProgressBar1.Value & " %"
System.Threading.Thread.Sleep(5)
Label7.Refresh()
End While
End Sub
Private Sub REMPLACER1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
End Sub
End Class |
Partager