逐步解說：在 WPF 中裝載 Windows Form 複合控制項

發行項
10/18/2023

Windows Presentation Foundation （WPF）提供豐富的環境來建立應用程式。不過，當您對 Windows Forms 程式碼進行大量投資時，至少在 WPF 應用程式中重複使用部分程式碼，而不是從頭重寫程式碼會更有效率。最常見的案例是當您有現有的 Windows Forms 控制項時。在某些情況下，您甚至可能無法存取這些控制項的原始程式碼。 WPF 提供直接的程式，可在 WPF 應用程式中裝載這類控制項。例如，您可以在裝載特製化 DataGridView 控制項時，針對大部分的程式設計使用 WPF。

本逐步解說會逐步引導您完成裝載 Windows Forms 複合控制項的應用程式，以在 WPF 應用程式中執行資料輸入。複合控制項會封裝在 DLL 中。這個一般程序可以延伸到更複雜的應用程式和控制項。本逐步解說設計成幾乎與逐步解說：在 Windows Forms 中裝載 WPF 複合控制項的外觀和功能相同。主要差異在於裝載案例相反。

本逐步解說分為兩節。第一節簡短說明 Windows Forms 複合控制項的實作。第二節將詳細討論如何在 WPF 應用程式中裝載複合控制項、從控制項接收事件，以及存取控制項的某些屬性。

這個逐步解說中所述的工作包括：

實作 Windows Forms 複合控制項。
實作 WPF 主應用程式。

如需本逐步解說中所述工作的完整程式碼清單，請參閱 Hosting a Windows Forms Composite Control in WPF Sample (在 WPF 中裝載 Windows Forms 複合控制項的範例)。

必要條件

若要完成這個逐步解說，您必須具有 Visual Studio。

實作 Windows Forms 複合控制項

此範例中使用的 Windows Forms 複合控制項是簡單的資料輸入表單。此表單採用使用者名稱和地址，然後使用自訂事件將該資訊傳回給主應用程式。下圖顯示轉譯的控制項。

下圖顯示 Windows Forms 複合控制項：

Screenshot that shows a simple Windows Forms control.

建立專案

啟動專案：

啟動 Visual Studio，然後開啟 [ 新增專案 ] 對話方塊。
在 Window 分類中，選取 [Windows Forms 控制項程式庫] 範本。
將新專案命名為 MyControls。
針對位置，指定方便命名的最上層資料夾，例如 WpfHostingWindowsFormsControl。稍後，您會將主應用程式放在此資料夾中。
按一下 [確定] 以建立專案。預設專案會包含名為 UserControl1 的單一控制項。
在方案總管中，將重新命名 UserControl1 為 MyControl1 。

您的專案應該有下列系統 DLL 的參考。如果預設未包括所有這些 DLL，則請將它們新增至專案。

系統
System.Data
System.Drawing
System.Windows.Forms
System.Xml

將控制項加入至表單

將控制項新增至表單：

在設計工具中開啟 MyControl1 。

在表單上新增五 Label 個控制項及其對應的 TextBox 控制項、調整大小和相片順序。在此範例中 TextBox ，控制項的名稱如下：

txtName
txtAddress
txtCity
txtState
txtZip

新增兩個 Button 標示為 [確定 ] 和 [取消 ] 的 控制項。在此範例中，按鈕名稱 btnOK 分別為和 btnCancel 。

實作支援程式碼

在程式碼檢視中，開啟表單。控制項會藉由引發自訂 OnButtonClick 事件，將收集的資料傳回至其主機。此資料包含在事件引數物件中。下列程式碼示範事件和委派宣告。

將下列程式碼加入 MyControl1 類別。

public delegate void MyControlEventHandler(object sender, MyControlEventArgs args);
public event MyControlEventHandler OnButtonClick;

Public Delegate Sub MyControlEventHandler(ByVal sender As Object, ByVal args As MyControlEventArgs)
Public Event OnButtonClick As MyControlEventHandler

類別 MyControlEventArgs 包含要傳回給主機的資訊。

將下列類別新增至表單。

public class MyControlEventArgs : EventArgs
{
    private string _Name;
    private string _StreetAddress;
    private string _City;
    private string _State;
    private string _Zip;
    private bool _IsOK;

    public MyControlEventArgs(bool result,
                                   string name,
                                   string address,
                                   string city,
                                   string state,
                                   string zip)
    {
        _IsOK = result;
        _Name = name;
        _StreetAddress = address;
        _City = city;
        _State = state;
        _Zip = zip;
    }

    public string MyName
    {
        get { return _Name; }
        set { _Name = value; }
    }
    public string MyStreetAddress
    {
        get { return _StreetAddress; }
        set { _StreetAddress = value; }
    }
    public string MyCity
    {
        get { return _City; }
        set { _City = value; }
    }
    public string MyState
    {
        get { return _State; }
        set { _State = value; }
    }
    public string MyZip
    {
        get { return _Zip; }
        set { _Zip = value; }
    }
    public bool IsOK
    {
        get { return _IsOK; }
        set { _IsOK = value; }
    }
}

Public Class MyControlEventArgs
    Inherits EventArgs
    Private _Name As String
    Private _StreetAddress As String
    Private _City As String
    Private _State As String
    Private _Zip As String
    Private _IsOK As Boolean
    
    
    Public Sub New(ByVal result As Boolean, ByVal name As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zip As String) 
        _IsOK = result
        _Name = name
        _StreetAddress = address
        _City = city
        _State = state
        _Zip = zip
    
    End Sub
    
    
    Public Property MyName() As String 
        Get
            Return _Name
        End Get
        Set
            _Name = value
        End Set
    End Property
    
    Public Property MyStreetAddress() As String 
        Get
            Return _StreetAddress
        End Get
        Set
            _StreetAddress = value
        End Set
    End Property
    
    Public Property MyCity() As String 
        Get
            Return _City
        End Get
        Set
            _City = value
        End Set
    End Property
    
    Public Property MyState() As String 
        Get
            Return _State
        End Get
        Set
            _State = value
        End Set
    End Property
    
    Public Property MyZip() As String 
        Get
            Return _Zip
        End Get
        Set
            _Zip = value
        End Set
    End Property
    
    Public Property IsOK() As Boolean 
        Get
            Return _IsOK
        End Get
        Set
            _IsOK = value
        End Set
    End Property
End Class

當使用者按一下 [ 確定] 或 [取消 ] 按鈕時， Click 事件處理常式會建立 MyControlEventArgs 物件，其中包含資料並引發 OnButtonClick 事件。這兩個處理常式的唯一差異是事件引數的 IsOK 屬性。此屬性可讓主應用程式判斷所按的按鈕。它設定為 true [確定 ] 按鈕，以及 false [ 取消] 按鈕。下列程式碼示範兩個按鈕處理常式。

將下列程式碼加入 MyControl1 類別。

private void btnOK_Click(object sender, System.EventArgs e)
{

    MyControlEventArgs retvals = new MyControlEventArgs(true,
                                                         txtName.Text,
                                                         txtAddress.Text,
                                                         txtCity.Text,
                                                         txtState.Text,
                                                         txtZip.Text);
    OnButtonClick(this, retvals);
}

private void btnCancel_Click(object sender, System.EventArgs e)
{
    MyControlEventArgs retvals = new MyControlEventArgs(false,
                                                         txtName.Text,
                                                         txtAddress.Text,
                                                         txtCity.Text,
                                                         txtState.Text,
                                                         txtZip.Text);
    OnButtonClick(this, retvals);
}

Private Sub btnOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click

    Dim retvals As New MyControlEventArgs(True, txtName.Text, txtAddress.Text, txtCity.Text, txtState.Text, txtZip.Text)
    RaiseEvent OnButtonClick(Me, retvals)

End Sub

Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
    Dim retvals As New MyControlEventArgs(False, txtName.Text, txtAddress.Text, txtCity.Text, txtState.Text, txtZip.Text)
    RaiseEvent OnButtonClick(Me, retvals)

End Sub

提供組件的強式名稱以及建置組件

若要讓 WPF 應用程式參考此元件，它必須具有強式名稱。若要建立強式名稱，請使用 Sn.exe 建立金鑰檔，並將它新增至專案。

開啟 Visual Studio 命令提示字元。若要這麼做，請按一下 [開始] 功能表，然後選取 [所有程式/Microsoft Visual Studio 2010/Visual Studio 工具/Visual Studio 命令提示字元]。這會使用自訂的環境變數來啟動主控台視窗。
在命令提示字元中 cd ，使用命令移至您的專案資料夾。
執行下列命令，以產生名為 MyControls.snk 的金鑰檔。
```
Sn.exe -k MyControls.snk
```
若要在專案中包括金鑰檔，請以滑鼠右鍵按一下方案總管中的專案名稱，然後按一下 [屬性]。在專案設計工具中，按一下 [簽署] 索引標籤，並選取 [簽署組件] 核取方塊，然後瀏覽至金鑰檔。
建置方案。組置將會產生名為 MyControls.dll 的 DLL。

實作 WPF 主應用程式

WPF 主應用程式會使用 WindowsFormsHost 控制項來裝載 MyControl1 。應用程式會處理 OnButtonClick 事件，以從控制項接收資料。它也有選項按鈕的集合，可讓您從 WPF 應用程式變更控制項的某些屬性。下圖顯示已完成的應用程式。

下圖顯示完整的應用程式，包括內嵌在 WPF 應用程式中的控制項：

Screenshot that shows a control embedded in a WPF page.

建立專案

啟動專案：

開啟 Visual Studio，然後選取 [ 新增專案 ]。
在 [視窗] 類別中，選取 [WPF 應用程式 ] 範本。
將新專案命名為 WpfHost。
針對位置，指定包含 MyControls 專案的相同最上層資料夾。
按一下 [確定] 以建立專案。

您也需要新增包含 MyControl1 和其他元件的 DLL 參考。

以滑鼠右鍵按一下方案總管中的專案名稱，然後選取 [新增參考]。
按一下 [瀏覽] 索引標籤，並瀏覽至包含 MyControls.dll 的資料夾。在此逐步解說中，這個資料夾是 MyControls\bin\Debug。
選取 MyControls.dll，然後按一下 [確定]。
新增名為 WindowsFormsIntegration.dll 之 WindowsFormsIntegration 組件的參考。

實作基本版面配置

主應用程式的使用者介面（UI）會在 MainWindow.xaml 中實作。此檔案包含可延伸的應用程式標記語言（XAML）標記，可定義版面配置，並裝載 Windows Forms 控制項。應用程式分為三個區域：

[Control Properties] 面板，所包含的一組選項按鈕可讓您用來修改託管控制項的各種屬性。
[ 來自控制台 的資料] 面板包含數 TextBlock 個元素，可顯示從主控控制項傳回的資料。
託管控制項本身。

下列 XAML 會顯示基本版面配置。裝載所需的 MyControl1 標記會從此範例中省略，但稍後將會討論。

將 MainWindow.xaml 中的 XAML 取代為下列程式碼。如果您要使用 Visual Basic，請將類別變更為 x:Class="MainWindow"。

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
      x:Class="WpfHost.MainWindow"
      xmlns:mcl="clr-namespace:MyControls;assembly=MyControls"
      Loaded="Init">
  <DockPanel>
    <DockPanel.Resources>
      <Style x:Key="inlineText" TargetType="{x:Type Inline}">
        <Setter Property="FontWeight" Value="Normal"/>
      </Style>
      <Style x:Key="titleText" TargetType="{x:Type TextBlock}">
        <Setter Property="DockPanel.Dock" Value="Top"/>
        <Setter Property="FontWeight" Value="Bold"/>
        <Setter Property="Margin" Value="10,5,10,0"/>
      </Style>
    </DockPanel.Resources>

    <StackPanel Orientation="Vertical"
                DockPanel.Dock="Left"
                Background="Bisque"
                Width="250">

      <TextBlock  Margin="10,10,10,10"
                  FontWeight="Bold"
                  FontSize="12">Control Properties</TextBlock>
      <TextBlock Style="{StaticResource titleText}">Background Color</TextBlock>
      <StackPanel Margin="10,10,10,10">
        <RadioButton Name="rdbtnOriginalBackColor"
                    IsChecked="True"
                    Click="BackColorChanged">Original</RadioButton>
        <RadioButton Name="rdbtnBackGreen"
                    Click="BackColorChanged">LightGreen</RadioButton>
        <RadioButton Name="rdbtnBackSalmon"
                    Click="BackColorChanged">LightSalmon</RadioButton>
      </StackPanel>

      <TextBlock Style="{StaticResource titleText}">Foreground Color</TextBlock>
      <StackPanel Margin="10,10,10,10">
        <RadioButton Name="rdbtnOriginalForeColor"
                    IsChecked="True"
                    Click="ForeColorChanged">Original</RadioButton>
        <RadioButton Name="rdbtnForeRed"
                    Click="ForeColorChanged">Red</RadioButton>
        <RadioButton Name="rdbtnForeYellow"
                    Click="ForeColorChanged">Yellow</RadioButton>
      </StackPanel>

      <TextBlock Style="{StaticResource titleText}">Font Family</TextBlock>
      <StackPanel Margin="10,10,10,10">
        <RadioButton Name="rdbtnOriginalFamily"
                     IsChecked="True"
                    Click="FontChanged">Original</RadioButton>
        <RadioButton Name="rdbtnTimes"
                    Click="FontChanged">Times New Roman</RadioButton>
        <RadioButton Name="rdbtnWingdings"
                    Click="FontChanged">Wingdings</RadioButton>
      </StackPanel>

      <TextBlock Style="{StaticResource titleText}">Font Size</TextBlock>
      <StackPanel Margin="10,10,10,10">
        <RadioButton Name="rdbtnOriginalSize"
                    IsChecked="True"
                    Click="FontSizeChanged">Original</RadioButton>
        <RadioButton Name="rdbtnTen"
                    Click="FontSizeChanged">10</RadioButton>
        <RadioButton Name="rdbtnTwelve"
                    Click="FontSizeChanged">12</RadioButton>
      </StackPanel>

      <TextBlock Style="{StaticResource titleText}">Font Style</TextBlock>
      <StackPanel Margin="10,10,10,10">
        <RadioButton Name="rdbtnNormalStyle"
                     IsChecked="True"
                     Click="StyleChanged">Original</RadioButton>
        <RadioButton Name="rdbtnItalic"
                     Click="StyleChanged">Italic</RadioButton>
      </StackPanel>

      <TextBlock Style="{StaticResource titleText}">Font Weight</TextBlock>
      <StackPanel Margin="10,10,10,10">
        <RadioButton Name="rdbtnOriginalWeight"
                     IsChecked="True"
                   Click="WeightChanged">
          Original
        </RadioButton>
        <RadioButton Name="rdbtnBold"
                   Click="WeightChanged">Bold</RadioButton>
      </StackPanel>
    </StackPanel>

    <WindowsFormsHost Name="wfh"
                     DockPanel.Dock="Top"
                     Height="300">
      <mcl:MyControl1 Name="mc"/>
    </WindowsFormsHost>
    
    <StackPanel Orientation="Vertical"
                Height="Auto"
                Background="LightBlue">
      <TextBlock Margin="10,10,10,10"
            FontWeight="Bold"
            FontSize="12">Data From Control</TextBlock>
      <TextBlock Style="{StaticResource titleText}">
        Name: <Span Name="txtName" Style="{StaticResource inlineText}"/>
      </TextBlock>
      <TextBlock Style="{StaticResource titleText}">
        Street Address: <Span Name="txtAddress" Style="{StaticResource inlineText}"/>
      </TextBlock>
      <TextBlock Style="{StaticResource titleText}">
        City: <Span Name="txtCity" Style="{StaticResource inlineText}"/>
      </TextBlock>
      <TextBlock Style="{StaticResource titleText}">
        State: <Span Name="txtState" Style="{StaticResource inlineText}"/>
      </TextBlock>
      <TextBlock Style="{StaticResource titleText}">
        Zip: <Span Name="txtZip" Style="{StaticResource inlineText}"/>
      </TextBlock>
    </StackPanel>
  </DockPanel>
</Window>

第一個專案 StackPanel 包含陣列 RadioButton 控制項，可讓您修改裝載控制項的各種預設屬性。後面接著裝載 WindowsFormsHostMyControl1 的專案。最後 StackPanel 一個元素包含數 TextBlock 個元素，可顯示主控控制項所傳回的資料。元素和和 Dock Height 屬性設定的排序會將裝載的控制項內嵌至視窗，且沒有間距或失真。

裝載控制項

先前 XAML 的下列編輯過版本著重在裝載 MyControl1 所需的項目。

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
      x:Class="WpfHost.MainWindow"
      xmlns:mcl="clr-namespace:MyControls;assembly=MyControls"
      Loaded="Init">

<WindowsFormsHost Name="wfh"
                 DockPanel.Dock="Top"
                 Height="300">
  <mcl:MyControl1 Name="mc"/>
</WindowsFormsHost>

xmlns命名空間對應屬性會建立包含裝載控制項之命名空間的參考 MyControls 。此對應可讓您以 XAML 表示 MyControl1 為 <mcl:MyControl1> 。

XAML 中有兩個項目可處理裝載︰

WindowsFormsHost 表示 WindowsFormsHost 可讓您在 WPF 應用程式中裝載 Windows Forms 控制項的專案。
mcl:MyControl1，表示 MyControl1 ，會加入至 WindowsFormsHost 專案的子集合。因此，這個 Windows Forms 控制項會轉譯為 WPF 視窗的一部分，而且您可以從應用程式與控制項通訊。

實作程式碼後置檔案

程式碼後置檔案 MainWindow.xaml.vb 或 MainWindow.xaml.cs 包含程式碼，可實作上一節所討論 UI 的功能。主要工作如下︰

將事件處理常式附加至 MyControl1 的 OnButtonClick 事件。
根據這組選項按鈕的設定方式，來修改 MyControl1 的各種屬性。
顯示控制項所收集到的資料。

初始化應用程式

初始化程式碼包含在視窗 Loaded 事件的事件處理常式中，並將事件處理常式附加至控制項的 OnButtonClick 事件。

在 MainWindow.xaml.vb 或 MainWindow.xaml.cs 中，將下列程式碼新增至 MainWindow 類別。

private Application app;
private Window myWindow;
FontWeight initFontWeight;
Double initFontSize;
FontStyle initFontStyle;
SolidColorBrush initBackBrush;
SolidColorBrush initForeBrush;
FontFamily initFontFamily;
bool UIIsReady = false;

private void Init(object sender, EventArgs e)
{
    app = System.Windows.Application.Current;
    myWindow = (Window)app.MainWindow;
    myWindow.SizeToContent = SizeToContent.WidthAndHeight;
    wfh.TabIndex = 10;
    initFontSize = wfh.FontSize;
    initFontWeight = wfh.FontWeight;
    initFontFamily = wfh.FontFamily;
    initFontStyle = wfh.FontStyle;
    initBackBrush = (SolidColorBrush)wfh.Background;
    initForeBrush = (SolidColorBrush)wfh.Foreground;
    (wfh.Child as MyControl1).OnButtonClick += new MyControl1.MyControlEventHandler(Pane1_OnButtonClick);
    UIIsReady = true;
}

Private app As Application
Private myWindow As Window
Private initFontWeight As FontWeight
Private initFontSize As [Double]
Private initFontStyle As FontStyle
Private initBackBrush As SolidColorBrush
Private initForeBrush As SolidColorBrush
Private initFontFamily As FontFamily
Private UIIsReady As Boolean = False


Private Sub Init(ByVal sender As Object, ByVal e As RoutedEventArgs)
    app = System.Windows.Application.Current
    myWindow = CType(app.MainWindow, Window)
    myWindow.SizeToContent = SizeToContent.WidthAndHeight
    wfh.TabIndex = 10
    initFontSize = wfh.FontSize
    initFontWeight = wfh.FontWeight
    initFontFamily = wfh.FontFamily
    initFontStyle = wfh.FontStyle
    initBackBrush = CType(wfh.Background, SolidColorBrush)
    initForeBrush = CType(wfh.Foreground, SolidColorBrush)

    Dim mc As MyControl1 = wfh.Child

    AddHandler mc.OnButtonClick, AddressOf Pane1_OnButtonClick
    UIIsReady = True

End Sub

由於先前討論的 XAML 已新增 MyControl1 至 WindowsFormsHost 專案的子專案集合，因此您可以轉換 WindowsFormsHost Child 專案的來取得的 MyControl1 參考。您接著可以使用該參考，將事件處理常式附加至 OnButtonClick。

除了提供控制項本身的參考之外， WindowsFormsHost 也會公開一些控制項的屬性，您可以從應用程式操作這些屬性。初始化程式碼會將這些值指派給私用全域變數，以供稍後在應用程式中使用。

因此，您可以輕鬆地存取 DLL 中的 MyControls 類型，請將下列 Imports 或 using 語句新增至檔案頂端。

Imports MyControls

using MyControls;

處理 OnButtonClick 事件

MyControl1OnButtonClick當使用者按一下任一控制項的按鈕時，會引發事件。

將下列程式碼加入 MainWindow 類別。

//Handle button clicks on the Windows Form control
private void Pane1_OnButtonClick(object sender, MyControlEventArgs args)
{
    txtName.Inlines.Clear();
    txtAddress.Inlines.Clear();
    txtCity.Inlines.Clear();
    txtState.Inlines.Clear();
    txtZip.Inlines.Clear();

    if (args.IsOK)
    {
        txtName.Inlines.Add( " " + args.MyName );
        txtAddress.Inlines.Add( " " + args.MyStreetAddress );
        txtCity.Inlines.Add( " " + args.MyCity );
        txtState.Inlines.Add( " " + args.MyState );
        txtZip.Inlines.Add( " " + args.MyZip );
    }
}

'Handle button clicks on the Windows Form control
Private Sub Pane1_OnButtonClick(ByVal sender As Object, ByVal args As MyControlEventArgs)
    txtName.Inlines.Clear()
    txtAddress.Inlines.Clear()
    txtCity.Inlines.Clear()
    txtState.Inlines.Clear()
    txtZip.Inlines.Clear()

    If args.IsOK Then
        txtName.Inlines.Add(" " + args.MyName)
        txtAddress.Inlines.Add(" " + args.MyStreetAddress)
        txtCity.Inlines.Add(" " + args.MyCity)
        txtState.Inlines.Add(" " + args.MyState)
        txtZip.Inlines.Add(" " + args.MyZip)
    End If

End Sub

文字方塊中的資料會封裝到物件中 MyControlEventArgs 。如果使用者按一下 [確定] 按鈕，則事件處理常式會擷取資料，並將它顯示在下面的面板 MyControl1 中。

修改控制項的屬性

元素 WindowsFormsHost 會公開裝載控制項的數個預設屬性。因此，您可以變更控制項的外觀，更密切符合應用程式的樣式。左面板中的多組選項按鈕可讓使用者修改數個色彩和字型屬性。每個按鈕集都有事件的處理常式 Click ，它會偵測使用者的選項按鈕選取專案，並變更控制項上的對應屬性。

將下列程式碼加入 MainWindow 類別。

private void BackColorChanged(object sender, RoutedEventArgs e)
{
    if (sender == rdbtnBackGreen)
        wfh.Background = new SolidColorBrush(Colors.LightGreen);
    else if (sender == rdbtnBackSalmon)
        wfh.Background = new SolidColorBrush(Colors.LightSalmon);
    else if (UIIsReady == true)
        wfh.Background = initBackBrush;
}

private void ForeColorChanged(object sender, RoutedEventArgs e)
{
    if (sender == rdbtnForeRed)
        wfh.Foreground = new SolidColorBrush(Colors.Red);
    else if (sender == rdbtnForeYellow)
        wfh.Foreground = new SolidColorBrush(Colors.Yellow);
    else if (UIIsReady == true)
        wfh.Foreground = initForeBrush;
}

private void FontChanged(object sender, RoutedEventArgs e)
{
    if (sender == rdbtnTimes)
        wfh.FontFamily = new FontFamily("Times New Roman");
    else if (sender == rdbtnWingdings)
        wfh.FontFamily = new FontFamily("Wingdings");
    else if (UIIsReady == true)
        wfh.FontFamily = initFontFamily;
}
private void FontSizeChanged(object sender, RoutedEventArgs e)
{
    if (sender == rdbtnTen)
        wfh.FontSize = 10;
    else if (sender == rdbtnTwelve)
        wfh.FontSize = 12;
    else if (UIIsReady == true)
        wfh.FontSize = initFontSize;
}
private void StyleChanged(object sender, RoutedEventArgs e)
{
    if (sender == rdbtnItalic)
        wfh.FontStyle = FontStyles.Italic;
    else if (UIIsReady == true)
        wfh.FontStyle = initFontStyle;
}
private void WeightChanged(object sender, RoutedEventArgs e)
{
    if (sender == rdbtnBold)
        wfh.FontWeight = FontWeights.Bold;
    else if (UIIsReady == true)
        wfh.FontWeight = initFontWeight;
}

Private Sub BackColorChanged(ByVal sender As Object, ByVal e As RoutedEventArgs)

    If sender.Equals(rdbtnBackGreen) Then
        wfh.Background = New SolidColorBrush(Colors.LightGreen)
    ElseIf sender.Equals(rdbtnBackSalmon) Then
        wfh.Background = New SolidColorBrush(Colors.LightSalmon)
    ElseIf UIIsReady = True Then
        wfh.Background = initBackBrush
    End If

End Sub

Private Sub ForeColorChanged(ByVal sender As Object, ByVal e As RoutedEventArgs)
    If sender.Equals(rdbtnForeRed) Then
        wfh.Foreground = New SolidColorBrush(Colors.Red)
    ElseIf sender.Equals(rdbtnForeYellow) Then
        wfh.Foreground = New SolidColorBrush(Colors.Yellow)
    ElseIf UIIsReady = True Then
        wfh.Foreground = initForeBrush
    End If

End Sub

Private Sub FontChanged(ByVal sender As Object, ByVal e As RoutedEventArgs)
    If sender.Equals(rdbtnTimes) Then
        wfh.FontFamily = New FontFamily("Times New Roman")
    ElseIf sender.Equals(rdbtnWingdings) Then
        wfh.FontFamily = New FontFamily("Wingdings")
    ElseIf UIIsReady = True Then
        wfh.FontFamily = initFontFamily
    End If

End Sub

Private Sub FontSizeChanged(ByVal sender As Object, ByVal e As RoutedEventArgs)
    If sender.Equals(rdbtnTen) Then
        wfh.FontSize = 10
    ElseIf sender.Equals(rdbtnTwelve) Then
        wfh.FontSize = 12
    ElseIf UIIsReady = True Then
        wfh.FontSize = initFontSize
    End If

End Sub

Private Sub StyleChanged(ByVal sender As Object, ByVal e As RoutedEventArgs)
    If sender.Equals(rdbtnItalic) Then
        wfh.FontStyle = FontStyles.Italic
    ElseIf UIIsReady = True Then
        wfh.FontStyle = initFontStyle
    End If

End Sub

Private Sub WeightChanged(ByVal sender As Object, ByVal e As RoutedEventArgs)
    If sender.Equals(rdbtnBold) Then
        wfh.FontWeight = FontWeights.Bold
    ElseIf UIIsReady = True Then
        wfh.FontWeight = initFontWeight
    End If

End Sub

建置並執行應用程式。在 Windows Forms 複合控制項中新增一些文字，然後按一下 [確定]。文字會顯示在標籤中。按一下不同的選項按鈕，以查看在控制項上的效果。

逐步解說：在 WPF 中裝載 Windows Form 複合控制項

必要條件

實作 Windows Forms 複合控制項

建立專案

將控制項加入至表單

實作支援程式碼

提供組件的強式名稱以及建置組件

實作 WPF 主應用程式

建立專案

實作基本版面配置

裝載控制項

實作程式碼後置檔案

初始化應用程式

處理 OnButtonClick 事件

修改控制項的屬性

另請參閱

意見反應

其他資源