在Elmish.WPF（F#）中，如何编写绑定以支持另一个具有不同模型的tabcontrol中的tabcontrol？

作为一名完全的新手（但学习速度很快），我一直在学习Elmish.wpf，但我不清楚如何管理放置在另一个TabControl的TabItem上的TabControl。例如，在Xaml中，顶级窗口是：

<Window x:Class="FrontOffice.MainWindow"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
             xmlns:local="clr-namespace:FrontOffice"
             xmlns:doctor="clr-namespace:Doctor"
             mc:Ignorable="d" 
             d:DesignHeight="450" d:DesignWidth="800">
    
    <Window.Resources>
        <DataTemplate x:Key="DoctorViewTemplate">
            <doctor:DoctorView />
        </DataTemplate>
        <DataTemplate x:Key="NurseViewTemplate">
            <local:NurseView/>
        </DataTemplate>
        <DataTemplate x:Key="MedicalRecordsViewTemplate">
            <local:MedicalRecordsView/>
        </DataTemplate>
        <DataTemplate x:Key="PatientViewTemplate">
            <local:PatientView/>
        </DataTemplate>
        <DataTemplate x:Key="ProvidersViewTemplate">
            <local:ProvidersView/>
        </DataTemplate>
        <local:PropertyDataTemplateSelector x:Key="templateSelector"
                    DoctorViewTemplate="{StaticResource DoctorViewTemplate}"
                    NurseViewTemplate="{StaticResource NurseViewTemplate}" 
                    MedicalRecordsViewTemplate="{StaticResource MedicalRecordsViewTemplate}"
                    PatientViewTemplate="{StaticResource PatientViewTemplate}"
                    ProvidersViewTemplate="{StaticResource ProvidersViewTemplate}"/>                        
    </Window.Resources>
    <Grid>
        <TabControl ItemsSource="{Binding Tabs}" ContentTemplateSelector="{StaticResource templateSelector}">
            <TabControl.ItemContainerStyle>
                <Style TargetType="{x:Type TabItem}">
                    <Setter Property="Header" Value="{Binding Header}" />
                </Style>
            </TabControl.ItemContainerStyle>
        </TabControl>
    </Grid>
</Window>

我想我需要使用Elmish.wpfbindings.SubModel。但是如果我这样做了，那么如何重写顶部窗口的绑定呢？这最好怎么做

谢谢你在这方面的帮助

---

TIA

在中交叉发布，我在中回答了他们的问题。

您可以在压缩文件（如ZIP）或通过网站（如GitHub）的分支中共享您的整个解决方案吗？在Elmish.WPF的新一期GitHub中，也可以自由地提出这个问题。@TysonWilliams正在研究它…很快就会出现（我希望）。@TysonWilliams我失败得很惨：（将使问题成为GitHub上的问题。@TysonWilliams问题如此创建我试图简单地扩展模块FrontOffice中DetailType的DU，但无法这样做并初始化详细信息列表。谢谢您的帮助。@TysonWilliams您能建议如何将其作为zip发送吗？谢谢。

<UserControl x:Class="Doctor.DoctorView"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
             xmlns:local="clr-namespace:Doctor"
             mc:Ignorable="d" 
             d:DesignHeight="450" d:DesignWidth="800">
    <UserControl.Resources>
        <DataTemplate x:Key="AppointmentsViewTemplate">
            <local:AppointmentsView />
        </DataTemplate>
        <DataTemplate x:Key="ChartStatusViewTemplate">
            <local:ChartStatusView/>
        </DataTemplate>
        <DataTemplate x:Key="CheckInViewTemplate">
            <local:CheckInView/>
        </DataTemplate>
       
        <local:PropertyDataTemplateSelector x:Key="templateSelector"
                    AppointmentsViewTemplate="{StaticResource AppointmentsViewTemplate}"
                    ChartStatusViewTemplate="{StaticResource ChartStatusViewTemplate}" 
                    CheckInViewTemplate="{StaticResource CheckInViewTemplate}"/>
    </UserControl.Resources>
    <Grid>
        <TabControl ItemsSource="{Binding Tabs}" ContentTemplateSelector="{StaticResource templateSelector}">
            <TabControl.ItemContainerStyle>
                <Style TargetType="{x:Type TabItem}">
                    <Setter Property="Header" Value="{Binding Header}" />
                </Style>
            </TabControl.ItemContainerStyle>
        </TabControl>
    </Grid>
</UserControl>

namespace FrontOfficeModels

open Elmish.WPF
open Elmish

module FrontOffice =

    type DetailType =
        | DoctorView
        | NurseView
        | MedicalRecordsView
        | PatientView
        | ProviderView

    type Tab = { Id: int;  Header: string; Type: DetailType }

   
    type Model =
        { Tabs: Tab list
          Selected: int option }

   
    type Msg =
        | Select of int option
    
    let init () =
           { Tabs = [{Id=0;  Header="Doctor View";              Type=DoctorView} 
                     {Id=1;  Header="Nurse View";               Type=NurseView} 
                     {Id=2;  Header="Medical Records View";     Type=MedicalRecordsView} 
                     {Id=3;  Header="Patient View";             Type=PatientView} 
                     {Id=4;  Header="Provider View";            Type=ProviderView }
                    ]
             Selected = Some 3 }

    let update msg m =
        match msg with
        | Select entityId -> { m with Selected = entityId }

    let bindings () : Binding<Model, Msg> list = [
        "Tabs" |> Binding.oneWay (fun m -> m.Tabs)
    ]

    let designVm = ViewModel.designInstance (init ()) (bindings ())

    let main window =
        Program.mkSimpleWpf init update bindings
        |> Program.withConsoleTrace
        |> Program.runWindowWithConfig
          { ElmConfig.Default with LogConsole = true; Measure = true }
          window

type DetailType =
        | DoctorView
        | NurseView
        | MedicalRecordsView
        | PatientView
        | ProviderView