WPF

<UserControl x:Class="RollDiceApp.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="300" d:DesignWidth="300"
    xmlns:local="clr-namespace:RollDiceApp"
    xmlns:viewmodel="clr-namespace:RollDiceApp.ViewModel" 
    Height="650" Width="700" 
    Name="diceGamePage"

>
    <UserControl.DataContext>
        <viewmodel:DiceGameViewModel x:Name="_diceGameViewModel" 
             />
    </UserControl.DataContext>

<pre>
<Grid>
    <Grid.ColumnDefinitions>
        <ColumnDefinition>
        </ColumnDefinition>
        <ColumnDefinition Width="76.988"></ColumnDefinition>
    </Grid.ColumnDefinitions>
    <ListBox x:Name="lblHistory" Margin="1.988,40.96,10,10" Grid.Column="1" FontSize="21.333"
             FontWeight="Bold" FontStyle="Italic"
             ItemsSource="{Binding Items}"
             SelectedItem="{Binding Path=SelectedItem, Mode=TwoWay}" SelectionMode="Single" >
    </ListBox>
    <Button x:Name="cmdRollDice" Content="Roll Dice" VerticalAlignment="Top" Margin="12,13,0,0" HorizontalAlignment="Left" Width="65"
       Command="{Binding Path=ClickSaveCommand}" >
    </Button>

    <Button x:Name="cmdClearAllDice" Content="Clear All Dice" VerticalAlignment="Top" Margin="610,13,-2,0" HorizontalAlignment="Left" Width="92"
       Command="{Binding Path=ClearHistoryCommand}" Grid.ColumnSpan="2" >
    </Button>

    <Image x:Name="imgDice" Margin="10, 42.97,10,10" Source="{Binding ImageSourcePath}" />
</Grid>

namespace RollDiceApp.ViewModel
{
    public class DiceGameViewModel : INotifyPropertyChanged, IDataErrorInfo
    {
        public DiceGameViewModel()
        {
            _items = new ObservableCollection<int>();
            _imageSourcePath = string.Empty;// GetNewImagePath(GetRandom(1, 6));
        }

        private string GetNewImagePath(int v)
        {
            if ((v == null) || (v <= 0))
                v = 1;           

            return HelperMethods.GetRootDirectory() + @"/Images/" + v.ToString() + ".jpg";
        }

        private int GetRandom(int min, int max)
        {
            Random generator = new Random();
            return generator.Next(min, max);
        }

        private string _imageSourcePath;
        public  string ImageSourcePath {
            get { return _imageSourcePath; }
            set
            {
                _imageSourcePath = value;
                NotifyPropertyChanged("ImageSourcePath");
            }
        }

        private ObservableCollection<int> _items;
        public ObservableCollection <int> Items
        {
            get { return _items; }
            set
            {
                _items = value;
                NotifyPropertyChanged("Items");
            }
        }

        private int _selecteditem;
        public int SelectedItem {
            get { return _selecteditem; }
            set
            {<br />
                _selecteditem = value;
                NotifyPropertyChanged("SelectedItem");
                DisplayNewDiceValue(value);
            }
        }

        public event PropertyChangedEventHandler PropertyChanged;
        private void NotifyPropertyChanged(string propertyName)
        {
            PropertyChangedEventHandler handler = PropertyChanged;

            if(null!=handler)
            {
                handler(this, new PropertyChangedEventArgs(propertyName));
            }
        }

        private void DisplayNewDiceValue(int val)
        {
            ImageSourcePath = GetNewImagePath(val);
            NotifyPropertyChanged("ImageSourcePath");
        }
        private void DisplayHistory(int val)
        {
            _items.Add(val);
            NotifyPropertyChanged("ImageSourcePath");
        }

        private void ClickRollDice()
        {
            int i = GetRandom(1, 6);
            DisplayNewDiceValue(i);
            DisplayHistory(i);
        }
        private void CmdClearHistory()
        {
            _items.Clear();
            ImageSourcePath = "";
            NotifyPropertyChanged("ImageSourcePath");
        }

        private ICommand _clickSaveCommand;
        public ICommand ClickSaveCommand {
            get { return _clickSaveCommand ?? 
                    (_clickSaveCommand = new RollDiceApp.ViewModel.Command.RollDiceCommand(() => ClickRollDice(), true));
            } }

        private ICommand _clearHistoryCommand;
        public ICommand ClearHistoryCommand
        {
            get
            {
                return _clickSaveCommand ??
                  (_clickSaveCommand = new RollDiceApp.ViewModel.Command.RollDiceCommand(() => CmdClearHistory(), true));
            }
        }

        string IDataErrorInfo.this[string columnName]
        {
            get
            {
                throw new NotImplementedException();
            }
        }

        string IDataErrorInfo.Error
        {
            get
            {
                throw new NotImplementedException();
            }
        }       
    }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Input;

namespace RollDiceApp.ViewModel.Command
{
    public class RollDiceCommand : ICommand
    {
        private Action _action;
        private Boolean _canExecute;

        public RollDiceCommand(Action _action, Boolean _canExecute)
        {
            this._action = _action;
            this._canExecute = _canExecute;
        }

        bool ICommand.CanExecute(object parameter)
        {
            return _canExecute;
        }

        public event EventHandler CanExecuteChanged;
        void ICommand.Execute(object parameter)
        {
            _action();
        }
    }
}

namespace RollDiceApp
{
    public class HelperMethods
    {
        public static string GetRootDirectory()
        {

            string uriPath = Application.Current.Host.Source.ToString();
            Uri uri = new Uri(uriPath);
            Uri parent = new Uri(uri, "..");          
            return parent.ToString();
        }
    }
}

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="RollDiceApp.App"

<pre>
         >
<Application.Resources>

</Application.Resources>

1. do I need to create a html file to call this xbap from browser? If I need to, can you please give me the sample tags how to call?
2. I tried to call xbap it looked like it was executing but did not, it seems like certificates or permissions are the issue, if I want to give certificate or permissions, how can I do it on the Virtual directory? I am using IIS 7
3. Do I need to install MIME types on IIS to exec my xbap file? Reason is I got a script from msdn which installs it but it was giving me error, if I need to have them installed, is there any better and guaranteed approach to do the same on IIS 7.

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2...l/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="clr-namespace:WpfApplication1"
    Title="MainWindow" Height="350" Width="525" Background="#FF3A3A48">
    <Window.Resources>
        <local:RelativeToAbsolutePathConverter x:Key="relToAbsPathConverter" />
        <DataTemplate x:Key="ccTexte">
            <TextBlock Text="{Binding display_text}" HorizontalAlignment="Center" Foreground="Beige"/>
            <!--<TextBlock Text="{Binding Path=display_text}" HorizontalAlignment="Center" Foreground="Beige"/>-->
            <!--<TextBlock DataContext="{Binding DataContext,RelativeSource={RelativeSource AncestorType={x:Type ContentControl}}}" Text="{Binding Path=display_text}" HorizontalAlignment="Center" Foreground="Beige"/>-->
        </DataTemplate>
        <DataTemplate x:Key="ccImage">
            <Image x:Name="img" Source="{Binding display_image, Converter={StaticResource relToAbsPathConverter}}"/>
        </DataTemplate>
        <Style x:Name="ccStyle" TargetType="ContentControl">
            <Setter Property="ContentTemplate" Value="{StaticResource ccTexte}"/>
            <!--<Setter Property="ContentTemplate" Value="{StaticResource ccImage}"/>
            <Style.Triggers>
                <DataTrigger Binding="{Binding Source={StaticResource display_image}}" Value="{x:Null}">
                    <Setter Property="ContentTemplate" Value="{StaticResource ccTexte}"/>
                </DataTrigger>
            </Style.Triggers>-->
        </Style>        
    </Window.Resources>
    <Grid Name="mainGrid">
        <Button Content="Button" Height="23" HorizontalAlignment="Left" Margin="416,12,0,0" Name="Button1" VerticalAlignment="Top" Width="75" />
    </Grid>
</Window>

Imports System.IO
Class MainWindow
    Private Sub MainWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        mainGrid.Children.Add(designCC(300, 200, "01"))
 
        Dim cc As ContentControl = LogicalTreeHelper.FindLogicalNode(mainGrid, "CC_01")
        cc.Content = New person With {.display_image = "01.png", .display_text = "Text 01"}
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
        Dim cc As ContentControl = LogicalTreeHelper.FindLogicalNode(mainGrid, "CC_01")
        cc.Content = New person With {.display_image = "02.png", .display_text = "Text 02"}
    End Sub
 
    Private Function designCC(width As Integer, height As Integer, id As String) As ContentControl
        Dim cc As New ContentControl
        cc.Width = width
        cc.Height = height
        cc.Name = "CC_" & id
        cc.Style = DirectCast(Me.Resources("ccStyle"), Style)
        Return cc
    End Function
End Class
 
Public Class person
    Private _display_image As String
    Public Property display_image() As String
        Get
            Return _display_image
        End Get
        Set(value As String)
            _display_image = value
        End Set
    End Property
    Private _display_text As String
    Public Property display_text() As String
        Get
            Return _display_text
        End Get
        Set(value As String)
            _display_text = value
        End Set
    End Property
End Class
 
Public Class RelativeToAbsolutePathConverter
    Implements IValueConverter
    Public Function Convert(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
        Dim relative As [String] = TryCast(value, String)
        If relative Is Nothing Or relative = "" Then
            Return Nothing
        End If
        Return System.AppDomain.CurrentDomain.BaseDirectory & "Images\" & relative
    End Function
    Public Function ConvertBack(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
        Throw New NotImplementedException()
    End Function
End Class

<ListBox Grid.Row="3" Grid.ColumnSpan="3" Margin="3" SelectionMode="Multiple"
                            ItemsSource="{Binding Children}" SelectedItem="{Binding SelectedChild}"          SelectionChanged="Children_SelectionChanged">

<Style TargetType="{x:Type local:ControlBasedOnUserControl}">
    <Setter Property="Width" Value="50" />
    <Setter Property="Height" Value="50" />
    <Setter Property="Template">
        <Setter.Value>
            <ControlTemplate TargetType="{x:Type local:ControlBasedOnUserControl}">
                <Border>
                </Border>
            </ControlTemplate>
        </Setter.Value>
    </Setter>
</Style>

<Style TargetType="{x:Type local:ControlBasedOnUserControl}">
    <Setter Property="Width" Value="50" />
    <Setter Property="Height" Value="50" />
    <Setter Property="Template">
        <Setter.Value>
            <ControlTemplate TargetType="{x:Type local:ControlBasedOnUserControl}">
                <Border Width="{TemplateBinding Width}" Height="{TemplateBinding Height}">
                </Border>
            </ControlTemplate>
        </Setter.Value>
    </Setter>
</Style>

<telerik:RadComboBox ItemsSource="{Binding CurrencyList}"
  DisplayMemberPath="Currency"
  SelectedValuePath="CurrencyID"
  SelectedValue="{Binding SelectedIssuance.IssuanceCurrencyID, Mode=TwoWay}"
  IsSynchronizedWithCurrentItem="True"
  SelectedItem="{Binding SelectedCurrency,Mode=OneWayToSource}" />

var openPicker = new FileOpenPicker();
          openPicker.FileTypeFilter.Add("*");

          var files = await openPicker.PickMultipleFilesAsync();

public static class closeWindow
{
    public static object WinObject;

    public static void CloseParent()
    {
        using ((System.IDisposable)closeWindow.WinObject)
        {
            ((Window)WinObject).Close();
        }
    }
}

public partial class SavedDrafts : Window
{
    public SavedDrafts()
    {
        InitializeComponent();

        LoadMe();

    }

    public void loadMe()
    {
        closeWindow.WinObject = this;
    }

}

// From me the child view, open a new window and close my parent Window.//


                Intake1 window = new Intake1();
                window.Show();

                closeWindow.CloseParent();