Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Put Rectangle into TextBlock

<Page x: Class="WpfApplication1.Page1"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="Page1">     <Grid>         <Button Height="23" Margin="12,12,0,0" Name="button1" VerticalAlignment="Top"                  HorizontalAlignment="Left" Width="76" Click="button1_Click">Button</Button>         <TextBlock             FontSize="16"             Name="textBlock1"             VerticalAlignment="Center"             HorizontalAlignment="Center"             xml:space="preserve"><Bold>Goodbye</Bold> world,               <Rectangle Width="20" Height="20" Fill="Blue"/> hello <Italic>Mars!</Italic></TextBlock>     </Grid> </Page> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Linq 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.Navigation Imports System.Windows.Shapes Namespace WpfApplication1   Public Partial Class Page1     Inherits Page     Public Sub New()       InitializeComponent()     End Sub     Private Sub button1_Click(sender As Object, e As RoutedEventArgs)       MessageBox.Show("Please don’t click this button again")     End Sub   End Class End Namespace