如何使用ElementHost訪問WPF控制元件？

我正在為 Excel 構建一個加載項。我想使用 WPF 控制元件，所以我按照本教程 https://learn.microsoft.com/en-us/visualstudio/vsto/using-wpf-controls-in-office-solutions?view=vs-2022 添加了一些選項卡控制元件讓我的腳濕透，如果單擊功能區中的按鈕時滿足某些條件，我特別想以編程方式轉到選項卡項，我能夠訪問選項卡項的標題文本，但我無法修改它或將其設定為 isSelected。

這是我正在使用的代碼：

Imports Microsoft.Office.Tools
Imports Microsoft.Office.Tools.Ribbon

Public Class Ribbon1
    Private myUserControl1 As MyUserControl
    Private myCustomTaskPane As CustomTaskPane

    Private Sub btnCheck_Click(sender As Object, e As RibbonControlEventArgs) Handles btnCheck.Click
        ' Show the taskpane
        myUserControl1 = New MyUserControl
        myCustomTaskPane = Globals.ThisAddIn.CustomTaskPanes.Add(myUserControl1, "Test addin")
        myCustomTaskPane.Width = 500
        myCustomTaskPane.Visible = True
        Dim uc As New UserControl1

        ' Check if there's a table
        If isThereATable() Then
            MsgBox("There is")
            MsgBox(uc.Tab2.Header) ' works
            uc.Tab2.Header = "new header" ' does not work

        Else
            MsgBox("There is not")
        End If

    End Sub
End Class

這是標記代碼：

<UserControl x:Class="UserControl1"
             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:AutoTable"
             mc:Ignorable="d" 
             d:DesignHeight="450" Width="500">
    <Grid Width="500">
        <TabControl BorderThickness="1" HorizontalContentAlignment="Stretch" VerticalContentAlignment="Stretch" HorizontalAlignment="Left" Width="500" Name="MainTab">
            <TabItem Header="Init" Name="Tab1" >
                <Grid Background="#FFE5E5E5" Margin="0">
                    <TextBlock HorizontalAlignment="Left" TextWrapping="Wrap" Text="The following button should create a table." VerticalAlignment="Top" FontSize="16" Margin="10,10,0,0"/>
                    <Button Content="Create table" HorizontalAlignment="Left" Margin="5,60,0,0" VerticalAlignment="Top" Width="100" Click="Button_Click" Height="30" FontSize="14"/>
                </Grid>
            </TabItem>
            <TabItem Header="CC" Name="Tab2" >
                <Grid Background="#FFE5E5E5"/>
            </TabItem>
        </TabControl>
    </Grid>
</UserControl>

我已經呼叫了選項卡控制元件“MainTab”，以及兩個選項卡項“Tab1”和“Tab2”，我無法用我當前的代碼操作它們中的任何一個。

更新：

根據檔案，為了在 Excel 加載項中使用 WPF 控制元件，WPF 用戶控制元件必須由 Windows 表單 UI 元素托管。在這種情況下，WPF 用戶控制元件位于 Windows 表單用戶控制元件中。上面的鏈接解釋了這是如何完成的。在上面的代碼中，我使用了微軟教程提供的變數名，但是通過使用可以說更好的變數名，這段代碼將闡明我所遵循的方法及其解決方案：

Public Class Ribbon1
    Private ThisUserControl As UserControlWF
    Private ThisTaskPane As Microsoft.Office.Tools.CustomTaskPane

    Private Sub ShowTaskPane_Click(sender As Object, e As RibbonControlEventArgs) Handles ShowTaskPane.Click
        ThisUserControl = New UserControlWF

        'CustomTaskPanes can only add Windows Forms UI elements, a WPF User Control throws an error
        ThisTaskPane = Globals.ThisAddIn.CustomTaskPanes.Add(ThisUserControl, "Title")
        ThisTaskPane.Width = 510
        ThisTaskPane.Visible = True

        ' Just to test if a condition is true after it loads the task pane
        If isThereATable() Then
            MsgBox("There is a table")
            ThisUserControl.UserControlWPF1.Tab2.Header = "Different Header" 'Original header name is "TabItem2"
            ThisUserControl.UserControlWPF1.Tab2.IsSelected = True 'Tab1 is selected by default

            ' In my first approach, I was initializing another instance of the WPF control
            ' instead of using the one that was already initialized:
            ' Dim uc As New UserControlWPF
            ' MsgBox(uc.Tab2.Header) ' <- it worked
            ' uc.Tab2.Header = "Different Header" ' <- it did not work
            ' That's why I was able to access the Header from the class, but I couldn't
            ' modify the header that was already loaded
        Else
            MsgBox("There is no table")
        End If
    End Sub
End Class

uj5u.com熱心網友回復：

您正在設定in的Header屬性，這是您在未將其添加到加載項的情況下創建的新控制元件。TabItemuc

我想您應該將其設定為myUserControl1：

Private Sub btnCheck_Click(sender As Object, e As RibbonControlEventArgs) Handles btnCheck.Click
    ' Show the taskpane
    myUserControl1 = New MyUserControl
    myCustomTaskPane = Globals.ThisAddIn.CustomTaskPanes.Add(myUserControl1, "Test addin")
    myCustomTaskPane.Width = 500
    myCustomTaskPane.Visible = True

    ' Check if there's a table
    If isThereATable() Then
        MsgBox("There is")
        MsgBox(myUserControl1.Tab2.Header) ' works
        myUserControl1.Tab2.Header = "new header" ' does not work

    Else
        MsgBox("There is not")
    End If

End Sub

或者您應該添加uc以Globals.ThisAddIn.CustomTaskPanes能夠看到更改。

標籤：擅长wpfVB.net加入

上一篇：WPF如何移動GUI系結

下一篇：為什么SelectedValue在帶有DataTemplate的ComboBox中不起作用？