RichTextBoxを２個リンクするには？

解決

Dragon 2006-10-25 07:03:20 No: 97013

RichTextBoxを２個配置します、ＡとＢと呼びます。
例
Ａに文字等を入力します、その動作を同時にＢに反映します。
Ｂに文字等を入力します、その動作を同時にＡに反映します。
ＡとＢの内容は同じ状態となります。
上記のようなプログラムを作成する方法について御教授お願いいたします。

魔界の仮面弁士 2006-10-25 07:31:10 No: 97014

VB のバージョンも書きましょう。

==================================
Visual Basic .NET
----------------------------------
Private Sub RichTextBoxes_TextChanged(ByVal sender As Object, ByVal e As EventArgs _
) Handles RichTextBox1.TextChanged, RichTextBox2.TextChanged

  Dim src, dst As RichTextBox
  If sender Is RichTextBox1 Then
    src = RichTextBox1
    dst = RichTextBox2
  Else
    src = RichTextBox2
    dst = RichTextBox1
  End If

  Dim S As String = src.Rtf
  If dst.Rtf <> S Then
    dst.Rtf = S
  End If

End Sub

==================================
〜 Visual Basic 6.0
----------------------------------
Private Sub RichTextBox1_Change(Index As Integer)

Dim src As Integer
Dim dst As Integer

  If Index = 0 Then
    src = 0
    dst = 1
  Else
    src = 1
    dst = 0
  End If

  Dim S As String
  S = RichTextBox1(src).TextRTF
  If RichTextBox1(dst).TextRTF <> S Then
    RichTextBox1(dst).TextRTF = S
  End If

End Sub

Dragon 2006-10-25 15:23:55 No: 97015

魔界の仮面弁士さん有難うございます。
VB6.0での作成です
テキスト全体を比較するのではなく、
例：A.textRTF=こんにちは、本日は良い天気ですね？
B.textRTF=こんにちは、本日は良い天気ですね？
上記の状態でBの「良い天気」を「曇り」に変更した場合
Aの「良い天気」も「曇り」にと、ＡとＢにリアルタイムで同じ操作を
したいのですが、よろしくお願いいたします。

Dragon 2006-10-25 15:24:56 No: 97016

失礼しました、解決しておりません。
魔界の仮面弁士さん有難うございます。
VB6.0での作成です
テキスト全体を比較するのではなく、
例：A.textRTF=こんにちは、本日は良い天気ですね？
B.textRTF=こんにちは、本日は良い天気ですね？
上記の状態でBの「良い天気」を「曇り」に変更した場合
Aの「良い天気」も「曇り」にと、ＡとＢにリアルタイムで同じ操作を
したいのですが、よろしくお願いいたします。

ぶぶ 2006-10-26 01:50:59 No: 97017

実際に動かしてみられましたか？
比較して、値を設定しているので、リアルタイムで同じ内容が反映されると思うのですが、、、、、