【解決方法】WPF リッチテキスト ボックスのハイパーリンクの検出

もしかしたらここで何か助けになるかもしれません…

RichTextBox のハイパーリンクの自動検出 – パート I[^]
RichTextBox のハイパーリンクの自動検出 – パート II[^]

*編集* あるいは、そうではないかもしれません…URLを検出する方法ではなく、正規表現のヘルプが必要のようです…:)

richtextbox の detecturl プロパティが true に設定されていることを確認する必要があると思います。

次のリンクを見てください

http://msdn.microsoft.com/en-us/library/system.windows.forms.richtextbox.detecturls.aspx[^]

これがお役に立てば幸いです。

—
AJ

私は数か月間、断続的にこの問題に悩まされてきました。 今日はBing Chatにその方法を聞いてみることにしました。 私は Bing に次の指示を出しました。 WPF アプリケーションで .net RichTextBox コントロールを拡張する C# コードを記述して、URL をクリックできるようにします。

Bing は次の解決策を提供しました…

————————————————– ————————-

C# を使用して WPF アプリケーションで .NET RichTextBox コントロールを拡張し、URL をクリック可能にするには、TextPointer クラスを使用してテキスト内の URL の開始位置と終了位置を見つけることができます。 次に、RichTextBox コントロールの拡張メソッドを作成する方法の例を示します。

public static class RichTextBoxExtensions
{
    public static void MakeUrlsClickable(this RichTextBox self)
    {
        TextPointer pointer = self.Document.ContentStart;
        while (pointer != null)
        {
            if (pointer.GetPointerContext(LogicalDirection.Forward) == TextPointerContext.Text)
            {
                string textRun = pointer.GetTextInRun(LogicalDirection.Forward);
                MatchCollection matches = Regex.Matches(textRun, @"(https?://[^\s]+)");
                foreach (Match match in matches)
                {
                    TextPointer start = pointer.GetPositionAtOffset(match.Index);
                    TextPointer end = start.GetPositionAtOffset(match.Length);
                    Hyperlink hyperlink = new Hyperlink(start, end);
                    hyperlink.NavigateUri = new Uri(match.Value);
                }
            }
            pointer = pointer.GetNextContextPosition(LogicalDirection.Forward);
        }
    }
}

その後、WPF アプリケーションの任意の RichTextBox コントロールでこのメソッドを使用できるようになります。 たとえば、myRichTextBox という名前の RichTextBox コントロールがある場合、次のように MakeUrlsClickable 拡張メソッドを呼び出すことができます。

myRichTextBox.MakeUrlsClickable();

————————————————– ————————-

この答えで80％解決できました。 そのコードに加えて、XAML コードにセッターを適切に追加し、さらにそのセッター用のコードを追加する必要があります。

そこで、Bing のコードをいじった後、最終的に実装したものが次のとおりです。

————————————————– ————————-

XAML コードでは次のようになります。

<RichTextBox>
    <RichTextBox.Resources>
        <Style TargetType="Hyperlink">
            <Setter Property="Cursor" Value="Hand" />
            <EventSetter Event="MouseLeftButtonDown" Handler="Hyperlink_MouseLeftButtonDown" />
        </Style>
    </RichTextBox.Resources>
</RichTextBox>

背後のコードでは次のようになります。

private void Hyperlink_MouseLeftButtonDown(object sender, MouseEventArgs e)
        {
            var hyperlink = (Hyperlink)sender;
            Process.Start(new ProcessStartInfo(hyperlink.NavigateUri.ToString())
            {
                UseShellExecute = true,
            });
            e.Handled = true;
        }

RichTextBox コントロールの拡張機能:

namespace RichTextBoxExtensions
{
    public static class RichTextBoxExtensions
    {
        /// <summary>
        /// Scan the content of a RichTextBox control and make any https URLs
        /// clickable.  The initial version of this method was written by Bing Chat,
        /// and then tidied up by me and Intellicode.
        /// </summary>
        /// <param name="self"></param>
        public static void MakeUrlsClickable(this RichTextBox self)
        {
            TextPointer pointer = self.Document.ContentStart;
            while (pointer != null)
            {
                if (pointer.GetPointerContext(LogicalDirection.Forward) == TextPointerContext.Text)
                {
                    string textRun = pointer.GetTextInRun(LogicalDirection.Forward);
                    MatchCollection matches = Regex.Matches(textRun, @"(https?://[^\s]+)");
                    foreach (Match match in matches.Cast<Match>())
                    {
                        TextPointer start = pointer.GetPositionAtOffset(match.Index);
                        TextPointer end = start.GetPositionAtOffset(match.Length);
                        Hyperlink hyperlink = new(start, end)
                        {
                            NavigateUri = new Uri(match.Value)
                        };
                    }
                }
                pointer = pointer.GetNextContextPosition(LogicalDirection.Forward);
            }
        }
}

myRichTextBox という名前の RichTextBox コントロールがある場合は、次のように MakeUrlsClickable 拡張メソッドを呼び出すことができます。

myRichTextBox.MakeUrlsClickable();