Hallo Ryan,
Zunächst benötigst Du ein Forms Projekt. Das benötigt eine Richtextbox und ein Button zum Starten des Dialogs.
Dann musst Du dem Projekt eine neue Komponente hinzufügen: Dialogfeld. Es entsteht eine Dialog1.vb. Darin fügst Du einen Button und zwei Textboxen ein.
Das Programm geht dann wie folgt. Richtextbox mit Text füllen (von Hand z.B.) und Button1 betätigen zum Starten des Dialogs. Im Dialog Textbox1 und 2 füllen mit dem zu suchenden und zu ersetzenden String. Da auch wieder Button1 betätigen.
Und dann OK Button.
Viel Erfolg und Grüsse Ellen
Diesen Code kopierst Du in die Code Fenster:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dlg As New Dialog1
dlg.s = RichTextBox1.Text
If dlg.ShowDialog = DialogResult.OK Then
RichTextBox1.Text = dlg.s
End If
dlg.Close()
End Sub
End Class
Imports System.Windows.Forms
Public Class Dialog1
Private rtbText As String
Public Property s() As String
Get
Return Me.rtbText
End Get
Set(ByVal value As String)
Me.rtbText = value
End Set
End Property
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
rtbText = rtbText.Replace(TextBox1.Text, TextBox2.Text)
End Sub
End Class
Ich benutze/ I'm using VB2008 & VB2010
