c# - 将可点击的超链接添加到没有新段落的 RichTextBox

Question

是否可以在不创建新段落的情况下动态添加超链接，例如在这个问题Dynamicly added hyperlinks to a RichTextBox 中？

我想要类似“请访问http://www.google.com。谢谢！” 不是

“请拜访

http://www.google.com

。谢谢！”。

RichTextBox 也必须是只读的，用户不能输入。它有点像日志，我只需要定期添加一些有时包含 URL 的文本。

Answer 1

好的，看起来这就是我需要的（感谢@Blam 和@PaulN将超链接动态添加到 RichTextBox）：

    public MainWindow()
    {
        InitializeComponent();

        rtb.IsDocumentEnabled = true;
        rtb.Document.Blocks.FirstBlock.Margin = new Thickness(0);
    }

    private void AddHyperlinkText(string linkURL, string linkName, 
              string TextBeforeLink, string TextAfterLink)
    {
        Paragraph para = new Paragraph();
        para.Margin = new Thickness(0); // remove indent between paragraphs

        Hyperlink link = new Hyperlink();
        link.IsEnabled = true;
        link.Inlines.Add(linkName);
        link.NavigateUri = new Uri(linkURL);
        link.RequestNavigate += (sender, args) => Process.Start(args.Uri.ToString()); 

        para.Inlines.Add(new Run("[" + DateTime.Now.ToLongTimeString() + "]: "));
        para.Inlines.Add(TextBeforeLink);
        para.Inlines.Add(link);
        para.Inlines.Add(new Run(TextAfterLink)); 

        rtb.Document.Blocks.Add(para);
    }

    private void button1_Click(object sender, RoutedEventArgs e)
    {   
        AddHyperlinkText("http://www.google.com", "http://www.google.com", 
               "Please visit ", ". Thank you! Some veeeeeeeeeery looooooong text.");
    } 

但是还有一个小问题：也许有人知道如何删除上图红线标记的开头的空白？

Answer 2

至于使 RichTextBox 或 TextBox 只读

TextBoxBase.IsReadOnly 属性

要添加文本，您可以使用运行

    FlowDocument doc = new FlowDocument();
    rtb.Document = doc;
    rtb.IsReadOnly = true;

    Paragraph para = new Paragraph();
    doc.Blocks.Add(para);

    Hyperlink link = new Hyperlink();
    link.IsEnabled = true;
    link.Inlines.Add("Hyperlink");
    link.NavigateUri = new Uri("http://www.google.co.uk");
    para.Inlines.Add(link);
    Run run = new Run();
    run.Text = " next words";
    para.Inlines.Add(run);

Answer 3

注意：通过执行以下操作从 RichText 中删除空白行：

MyRichTextBox.Document.Blocks.Clear();

添加段落运行时在 RichTextBox 的开头移动空格

Answer 4

你可以这样做

  <ContentControl>
    <Span>
        <Run Text="Please visit"/>
        <Hyperlink NavigateUri="http://google.com">
            <Run Text="google"/>
        </Hyperlink>
        <Run Text=". Thank you!"/>
    </Span>
</ContentControl>

如果您在 navigationFrame 中，您将免费获得超链接功能

或者...

<StackPanel Orientation="Horizontal">
<TextBlock Text="Please visit"/>
<Button Style="linkButton" Content="Google" Command/Click="GotoGoogle"/>
<TextBlock Text=". Thank you!"/>
</StackPanel>