WPF vb.net Textblock - 특정 단어 fontstyle 주기, 동적으로 text 바꾸기

1. textblock의 inline을 Myrun으로 set -> set 할 시에 프롬프트(특정 text)이면  IsProm = true

2. textbox의 text에 입력을 하면, textblock의 inline(Myrun)을 뒤져서 isprom인 Myrun의 Text를 교체해준다.

Class MainWindow Class MainWindow Public Sub New() ' 디자이너에서 이 호출이 필요합니다. InitializeComponent() textblock1.Text = "{A_BC} + {DE} + 324 + {FG} * {FG} / {ABC} + {DE} * 5 <= 349393" 'textblock1.Text = "{A_BC} + {DE}" Dim Prompt As New List(Of String) Prompt.Add("{DE}") Prompt.Add("{FG}") Setinline(Prompt, textblock1) End Sub Private Sub Setinline(Prompt As List(Of String), TB As TextBlock) Dim defaulttext As String = TB.Text Dim inlinelist As New List(Of String()) Try If Prompt.Count > 0 Then For idx As Integer = 0 To Prompt.Count - 1 Dim parastr As String = Prompt(idx) If idx = 0 Then inlinelist.Add(New String() {TB.Text, ""}) Dim counter As Integer = inlinelist.Count For k As Integer = 0 To counter - 1 If Not inlinelist(k)(0).Equals(parastr) Then Dim tArray As String() = inlinelist(k)(0).Split(New String() {parastr}, StringSplitOptions.None) Dim i As Integer = 0 For Each txt As String In tArray If i <> 0 Then inlinelist.Insert(k + i, New String() {parastr, parastr}) i += 1 End If If i = 0 Then inlinelist(k) = New String() {txt, inlinelist(k)(1)} Else inlinelist.Insert(k + i, New String() {txt, ""}) End If i += 1 Next End If Next Next TB.Inlines.Clear() For Each txtinfo As String() In inlinelist If String.IsNullOrEmpty(txtinfo(1)) = False Then Dim myIn As Myrun = New Myrun(txtinfo(0)) With {.Foreground = New SolidColorBrush(Color.FromRgb(86, 156, 214)), .FontWeight = FontWeights.Bold, .isProm = True, .Promitem = txtinfo(1)} TB.Inlines.Add(myIn) Else TB.Inlines.Add(New Myrun(txtinfo(0))) End If Next End If Catch ex As Exception TB.Text = defaulttext End Try End Sub Private Sub TextBox_TextChanged_DE(sender As TextBox, e As TextChangedEventArgs) Dim inlineC As InlineCollection = textblock1.Inlines Dim cnt As Integer = textblock1.Inlines.Count For i As Integer = 0 To cnt - 1 CType(textblock1.Inlines(i), Myrun).setPromText(sender.Text, "{DE}") Next End Sub Private Sub TextBox_TextChanged_FG(sender As TextBox, e As TextChangedEventArgs) Dim inlineC As InlineCollection = textblock1.Inlines Dim cnt As Integer = textblock1.Inlines.Count For i As Integer = 0 To cnt - 1 CType(textblock1.Inlines(i), Myrun).setPromText(sender.Text, "{FG}") Next End Sub End Class Class Myrun Inherits Run Property isProm As Boolean = False Property Promitem As String = "" Public Sub New(text As String) MyBase.New(text) End Sub Public Sub setPromText(text As String, PItem As String) If isProm And Promitem.Equals(PItem) Then MyBase.Text = text End If End Sub End Class