Demo entry 6749645



Submitted by anonymous on Jun 13, 2018 at 18:12
Language: Code size: 414 Bytes.

Public Class Form3  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Dim f2 As New Form2  
        f2 = Form1.ActiveMdiChild  
        Dim retext As String  
        retext = Replace(f2.RichTextBox1.Text, Me.TextBox1.Text, Me.TextBox2.Text)  
        f2.RichTextBox1.Text = retext  
    End Sub  
End Class  

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).