Use Run the mark underlink TextDecorations : TextBlock « Windows Presentation Foundation « VB.Net






Use Run the mark underlink TextDecorations

Use Run the mark underlink TextDecorations
       


<Window x:Class="ClassicControls.PopupTest"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="PopupTest" Height="300" Width="300">
    <Grid Margin="10">
      <TextBlock TextWrapping="Wrap">text 
         <Run TextDecorations="Underline" MouseEnter="run_MouseEnter">link</Run>
      </TextBlock>
      <Popup Name="popLink" StaysOpen="False" Placement="Mouse" MaxWidth="200" PopupAnimation="Slide" AllowsTransparency = "True">
        <Border BorderBrush="Beige" BorderThickness="2" Background="White">
          <TextBlock Margin="10"  TextWrapping="Wrap" >
            check out
            <Hyperlink NavigateUri="http://java2s.com" Click="lnk_Click">java2s.com</Hyperlink>
          </TextBlock>
        </Border>
      </Popup>
    </Grid>
</Window>
//File:Window.xaml.vb

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes
Imports System.Diagnostics

Namespace ClassicControls
  Public Partial Class PopupTest
    Inherits System.Windows.Window

    Public Sub New()
      InitializeComponent()
    End Sub

    Private Sub run_MouseEnter(sender As Object, e As MouseEventArgs)
      popLink.IsOpen = True
    End Sub
    Private Sub lnk_Click(sender As Object, e As RoutedEventArgs)
      Process.Start(DirectCast(sender, Hyperlink).NavigateUri.ToString())
    End Sub
  End Class
End Namespace

   
    
    
    
    
    
    
  








Related examples in the same category

1.Simple TextBlockSimple TextBlock
2.Simple contentSimple content
3.LineBreak inside a TextBlock
4.Semi-Transparent TextBlockSemi-Transparent TextBlock
5.TextBlock.Foreground and ImageBrushTextBlock.Foreground and ImageBrush
6.Text decorations: underlineText decorations: underline
7.Text decorations: BaselineText decorations: Baseline
8.Text decorations: StrikethroughText decorations: Strikethrough
9.Text decorations: OverlineText decorations: Overline
10.Text decorations: more than one stylesText decorations: more than one styles
11.Multi-span for TextBlockMulti-span for TextBlock
12.Setting text decorationsSetting text decorations
13.Set pen for TextDecorationsSet pen for TextDecorations
14.TextTrimming for TextBlockTextTrimming for TextBlock
15.Apply Blur Effects on UI Element TextBlockApply Blur Effects on UI Element TextBlock
16.Apply a Glow Effect to Your UI Element TextBlockApply a Glow Effect to Your UI Element TextBlock
17.Layout TextBlock in UniformGridLayout TextBlock in UniformGrid
18.Text as contentText as content
19.Text with mixed contentText with mixed content
20.Whitespace as content and as attributeWhitespace as content and as attribute
21.Preserving whitespace in mixed contentPreserving whitespace in mixed content
22.Nested TextBlockNested TextBlock
23.Enabling hyphenationEnabling hyphenation
24.Positioning a hosted Button element with BaselineAlignment along with textPositioning a hosted Button element with BaselineAlignment along with text
25.Using RenderTransformUsing RenderTransform
26.This is rotating textThis is rotating text
27.TextBox PreviewKeyDownTextBox PreviewKeyDown
28.TextBox KeyDownTextBox KeyDown
29.TextBox PreviewKeyUpTextBox PreviewKeyUp
30.TextBox KeyUpTextBox KeyUp
31.TextBox TextInputTextBox TextInput
32.Handling overflowHandling overflow
33.Simple underline decorationSimple underline decoration
34.Effects of the enumerated values of TextWrapping.Effects of the enumerated values of TextWrapping.
35.Programmatically change the way in which TextBlock is trimmed when it exceeds the outer boundaries of its containing box.Programmatically change the way in which TextBlock is trimmed when it exceeds the outer boundaries of its containing box.