0

ネット

ユーザーがテキストを RTB に入力できるようにする関数を作成しようとしています。そのテキストがキーとしてディクショナリに存在する場合、関連するlistboxすべての によって が入力されvalues、dictionaryそれぞれkeyが新しい にvalue入力されます。listboxライン。

最初の行が強調表示され、ユーザーは を押してenter button、RTB 内のテキストを強調表示されたテキストに置き換えることができます。

私は VB を初めて使用するので、よくわかりません。

これは私がこれまでに持っているものです。

Public Class Oxnay

Private Sub Oxnay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Tsort()
End Sub
Private TDictionary As Dictionary(Of String, String())

Public Sub Tsort()
    TDictionary = New Dictionary(Of String, String())

    TDictionary.Add("ape", {"pl", "tz", "xu"})
    TDictionary.Add("lor", {"tv", "px"})
End Sub

Private Sub RichtextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
    Dim lastword As String = RichTextBox1.Text.Split(" ").Last

    If RichTextBox1.ContainsKey(lastword) Then
        'display each string of the dictionary array related to lastword in different lines
        'highlight first line
        'Some[Code]
    Else
        ListBox1.Text = ""
    End If
End Sub

クラス終了

4

1 に答える 1

1

最初の「ルックアップ」部分については、次のようにしてみてください。

Private Sub RichtextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
    Dim lastword As String = RichTextBox1.Text.Trim.Split(" ").Last
    ListBox1.Items.Clear()
    If Not IsNothing(TDictionary) AndAlso TDictionary.ContainsKey(lastword) Then
        ListBox1.Items.AddRange(TDictionary(lastword))
    End If
End Sub

次に、現在選択されているテキストを ListBox からの選択に置き換えるには:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If ListBox1.SelectedIndex <> -1 Then
        If RichTextBox1.SelectedText <> "" Then
            RichTextBox1.SelectedText = ListBox1.SelectedItem.ToString
        End If
    End If
End Sub
于 2013-06-30T01:48:57.670 に答える