【VB.NET】【WPF】TextBlock にプログラムコードで Hyperlink を設定する

C# で xaml で TextBlock に Hyperlink を設定するサンプルはたくさん見つかるけれど~、

VB.NET でしかもプログラムコードで設定するサンプルはほとんど見つからなかったので~、

ご参考までにどうゾ~。

'テキストブロックを初期化
oTextBlock.Inlines.Clear

'ハイパーリンクを設定
Dim oHyperlink As New Hyperlink

'下線表示を消す
oHyperlink.TextDecorations = Nothing

'URI を設定
oHyperlink.NavigateUri = New Uri("https://elleneast.com")

'.NavigateUri を設定しただけではクリックしたときにジャンプしない。ジャンプを実行するためのイベントをラムダ式で設定。
AddHandler oHyperlink.RequestNavigate, Sub(sender, e) System.Diagnostics.Process.Start(e.Uri.ToString)

'フォーカスを受け取らないようにする(点線で囲まれないようにする)。
oHyperlink.Focusable = False

'ハイパーリンクにテキストを設定
oHyperlink.Inlines.Add("エレン・イーストのブログ")

'テキストブロックにハイパーリンクを追加。
oTextBlock.Inlines.Add(oHyperlink)

'oTextBlock.Text = "(^^)" 'Text を設定するとハイパーリンクの設定は破棄される

 

 

コメントの投稿

avatar
  購読する  
通知を受け取る対象