グラフィックス目次

Size: px

Start display at page:

Download "グラフィックス目次"

あつとししもね
4 years ago
Views:

WPF チュートリアル WPF での Windows フォーム複合コントロールのホスト Windows Presentation Foundation(WPF) はアプリケーションの作成に適した環境を提供する但し Windows フォームのコードに多くの投資を行った場合はコードを最初から記述し直すよりも WPF アプリケーションのコードの少なくとも一部を再利用する方が効率的で有る

1 WPF チュートリアル WPF での Windows フォーム複合コントロールのホスト Windows Presentation Foundation(WPF) はアプリケーションの作成に適した環境を提供する但し Windows フォームのコードに多くの投資を行った場合はコードを最初から記述し直すよりも WPF アプリケーションのコードの少なくとも一部を再利用する方が効率的で有る最も一般的なシナリオは既存の Windows フォームコントロールが有る場合で有る場合に依っては此等のコントロールのソースコードにアクセス出来ない事が有る WPF には其の様なコントロールを WPF アプリケーションでホストする為の簡単な手順が用意されて居る例えば特殊な DataGridView コントロールをホストし乍殆どのプログラミングには WPF を使用出来る此のチュートリアルでは WPF アプリケーションで Windows フォーム複合コントロールをホストしてデータエントリを実行するアプリケーションに付いて段階的に説明する複合コントロールは DLL にパッケージ化されて居る此の一般的な手順は更に複雑なアプリケーションやコントロールに拡張出来る此のチュートリアルは外観や機能がチュートリアル : Windows フォームでの WPF 複合コントロールのホストの例と粗同じに成る様に設計されて居る主な違いはホストする側とされる側が逆で有る事で有るチュートリアルは 2 つのセクションに分かれて居る最初のセクションでは Windows フォーム複合コントロールの実装に付いて簡単に説明する 2 番目のセクションでは WPF アプリケーションで複合コントロールをホストしコントロールからイベントを受け取ってコントロールのプロパティの一部にアクセスする方法に付いて詳しく説明する此のチュートリアルでは以下のタスクを行う Windows フォーム複合コントロールの実装 WPF ホストアプリケーションの実装此のチュートリアルで示すタスクの完全なコード一覧に付いては WPF での Windows フォーム複合コントロールのホストのサンプルを参照してください Windows フォーム複合コントロールの実装此の例で使用する Windows フォーム複合コントロールは単純なデータ入力フォームで有る此のフォームはユーザーの名前と住所を受け取った後カスタムイベントを使用して其の情報をホストに返すレンダリングされたコントロールを右の図に示す -1-

2 プロジェクトを開始するには 1.Microsoft Visual Studio を起動して [ 新しいプロジェクト ] ダイアログボックスを開く 2. ウィンドウのカテゴリで [Windows フォームコントロールライブラリ ] テンプレートを選択する Express バージョンでは上記のテンプレートは存在しないので先ずクラスライブラリ ( 又は Windows フォームアプリケーション ) を選択しユーザーコントロール (WPF) を追加してクラスライブラリ ( 又は Windows フォーム ) を削除する 3. 新しいプロジェクトに MyControls と謂う名前を付ける 4. 配置場所としては WpfHostingWindowsFormsControl 等解り易い名前を付けた最上位フォルダーを指定する此のフォルダーには後でホストアプリケーションも配置する 5.[OK] をクリックしてプロジェクトを作成する既定のプロジェクトには UserControl1 と謂う名前の 1 つのコントロールが含まれる 6. ソリューションエクスプローラーで UserControl1 の名前を MyControl1 に変更するプロジェクトは次のシステム DLL を参照して居る必要が有る此等の DLL の孰れかが既定で含まれて居ない場合はプロジェクトに追加する System System.Data System.Drawing System.Windows.Forms System.Xml フォームへのコントロールの追加フォームにコントロールを追加するには次の操作を実行するデザイナーで MyControl1 を開く 5 つの Label コントロールと其れに対応する TextBox コントロールを前の図と同じ様なサイズと位置関係でフォーム上に追加する此の例では TextBox コントロールには次の様な名前を付ける txtname txtaddress txtcity txtstate txtzip OK と Cancel と謂うラベルを付けた 2 つの Button コントロールを追加する此の例ではボタンの名前は夫々 btnok と btncancel で有るサポートコードの実装コードビューでフォームを開くコントロールはカスタム OnButtonClick イベントを発生させる事で収集したデータをホストに返すデータはイベント引数オブジェクトに格納されて居る次のコードはイベントとデリゲートの宣言を示して居る -2-

3 MyControl1 クラスに次のコードを追加する Visual Basic Public Delegate Sub MyControlEventHandler(ByVal sender As Object, _ ByVal args As MyControlEventArgs) Public Event OnButtonClick As MyControlEventHandler Visual C# public delegate void MyControlEventHandler(object sender, MyControlEventArgs args); public event MyControlEventHandler OnButtonClick; MyControlEventArgs クラスにはホストに返される情報が格納される次のクラスをフォームに追加する Visual Basic 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 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 -3-

4 _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 Visual C# public class MyControlEventArgs : EventArgs private string _Name; private string _StreetAddress; private string _City; private string _State; private string _Zip; -4-

5 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; -5-

6 ユーザーが [OK] ボタン又は [Cancel] ボタンをクリックすると Click イベントハンドラーはデータを格納した MyControlEventArgs オブジェクトを作成し OnButtonClick イベントを発生させる 2 つのハンドラーの違いはイベント引数の IsOK プロパティ丈で有る此のプロパティに依りホストは孰れのボタンがクリックされたのかを判別出来る [OK] ボタンの場合は true が設定され [Cancel] ボタンの場合は false が設定される次のコード例は 2 つのボタンハンドラーを示して居る MyControl1 クラスに次のコードを追加する Visual Basic 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) 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) Visual C# 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); -6-

7 アセンブリへの厳密な名前の設定とアセンブリのビルド WPF アプリケーションから此のアセンブリを参照するにはアセンブリに厳密な名前を付ける必要が有る厳密な名前を作成するには Sn.exe でキーファイルを作成し其れをプロジェクトに追加する 1.Visual Studio のコマンドプロンプトを開く此の操作を行うには [ スタート ] ボタンをクリックし [ 総てのプログラム ] [Microsoft Visual Studio 2010] [Visual Studio ツール ] の順にポイントして [Visual Studio コマンドプロンプト ] をクリックするカスタマイズされた環境変数でコンソールウィンドウが起動される Express バージョンでは Sn.exe は下記の場所辺りに有る ( 巻末参照 ) C: Program Files Microsoft SDKs Windows v7.0a bin NETFX 4.0 Tools C: Program Files Microsoft Visual Studio 8 SDK v2.0 Bin 2. コマンドプロンプトで cd コマンドを使用してプロジェクトフォルダーに移動する 3. 次のコマンドを実行し MyControls.snk と謂う名前のキーファイルを生成する Sn.exe -k MyControls.snk 4. キーファイルをプロジェクトに組み込むにはソリューションエクスプローラーでプロジェクト名を右クリックし [ プロパティ ] をクリックするプロジェクトデザイナで [ 署名 ] タブをクリックし [ アセンブリの署名 ] チェックボックスをオンにしてキーファイルを参照する 5. ソリューションをビルドするビルドでは MyControls.dll と謂う名前の DLL が生成される Express バージョンではプロジェクトのプロパティでアプリケーションの種類をクラスライブラリに変更してからビルドする (Windows フォームで作成した場合 ) WPF ホストアプリケーションの実装 WPF ホストアプリケーションは WindowsFormsHost コントロールを使用して MyControl1 をホストするアプリケーションは OnButtonClick イベントを処理してコントロールからデータを受け取る亦 WPF アプリケーションからコントロールの一部のプロパティを変更出来るオプションボタンのコレクションも有る最終的なアプリケーションを次の図に示す -7-

8 プロジェクトの作成 1.Visual Studio を開き [ 新しいプロジェクト ] を選択する 2. ウィンドウのカテゴリで [WPF アプリケーション ] テンプレートを選択する 3. 新しいプロジェクトに WpfHost と謂う名前を付ける 4. 配置場所としては MyControls プロジェクトの配置先と同じ最上位フォルダーを指定する別々に保存した場合は前述のプロジェクトで作成した MyControls.dll を此のプロジェクトのプロジェクトフォルダーにコピーして置くと良い 5.[OK] をクリックしてプロジェクトを作成する MyControl1 及び他のアセンブリを含む DLL への参照も追加する必要が有る 1. ソリューションエクスプローラーでプロジェクト名を右クリックし [ 参照の追加 ] を選択する 2.[ 参照 ] タブをクリックし MyControls.dll を格納して居るフォルダーを参照する此のチュートリアルの場合は MyControls bin Debug フォルダーで有る 3.MyControls.dll を選択し [OK] をクリックする 4.WindowsFormsIntegration.dll と謂う名前の WindowsFormsIntegration アセンブリに参照を追加する基本レイアウトの実装ホストアプリケーションのユーザーインターフェイス (UI) は MainWindow.xaml で実装される此のファイルはレイアウトを定義する Extensible Application Markup Language(XAML) マークアップを含み Windows フォームコントロールをホストするアプリケーションは次の 3 つの領域に分かれて居る [Control Properties] パネルにはホストされるコントロールの様々なプロパティの変更に使用出来るオプションボタンのコレクションが含まれる [Data from Control] パネルにはホストされるコントロールから返されるデータを表示する TextBlock 要素が含まれるホストされるコントロール自体基本的なレイアウトを次の XAML に示す MyControl1 をホストする為に必要なマークアップは此の例では省略されて居るが此れに付いては後で説明する MainWindow.xaml 内の XAML を次のコードに置き換える Visual Basic を使用して居る場合はクラスを x:class="mainwindow" に変更する -8-

9 XAML <Window xmlns=" xmlns:x=" 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> -9-

10 <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> -10-

11 <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 コントロールが含まれる其の後に有る WindowsFormsHost 要素は MyControl1 をホストする最後の StackPanel 要素にはホストされるコントロールから返されるデータを表示する TextBlock 要素が含まれる要素の順序及び Dock 属性と Height 属性の設定に依り隙間や歪みが無い様にホストされるコントロールがウィンドウに埋め込まれるコントロールのホスト次のコードは前出の XAML を再掲した物だが此処では MyControl1 をホストする為に必要な要素に焦点を当てゝ居る XAML <Window xmlns=" xmlns:x=" 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> -11-

12 xmlns 名前空間の割り当ての属性に依りホストされるコントロールを格納する MyControls 名前空間への参照が作成される此の割り当てに依り XAML で MyControl1 を <mcl:mycontrol1> として表す事が出来る XAML に含まれる次の 2 つの要素がホストを処理する WindowsFormsHost は WPF アプリケーションでの Windows フォームコントロールのホストを可能にする WindowsFormsHost 要素を表す MyControl1 を表す mcl:mycontrol1 は WindowsFormsHost 要素の子コレクションに追加される結果として此の Windows フォームコントロールは WPF ウィンドウの一部としてレンダリングされアプリケーションからコントロールと通信出来る分離コードファイルの実装分離コードファイル MainWindow.xaml.vb 又は MainWindow.xaml.cs には前のセクションで説明した UI の機能を実装する手順コードが含まれる主要なタスクは次の通りで有る MyControl1 の OnButtonClick イベントへのイベントハンドラーのアタッチ一連のオプションボタンの設定に基づく MyControl1 の様々なプロパティの変更コントロールに依って収集されたデータの表示アプリケーションの初期化初期化コードはウィンドウの Loaded イベントのイベントハンドラーに含まれイベントハンドラーをコントロールの OnButtonClick イベントにアタッチする MainWindow.xaml.vb 又は MainWindow.xaml.cs で MainWindow クラスに次のコードを追加する Visual Basic 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 -12-

13 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 Visual C# 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; 前述の XAML に依って MyControl1 が WindowsFormsHost 要素の子要素コレクションに追加されて居る為 WindowsFormsHost 要素の Child をキャストして MyControl1 への参照を取得出来る其の後其の参照を使用してイベントハンドラーを OnButtonClick にアタッチする事が出来るコントロール自体への参照を提供する丈でなく WindowsFormsHost では様々なコントロールのプロパティも公開されて居りアプリケーションから其れを操作出来る初期化コードは後でアプリケーションで使用する為此等の値をプライベートグローバル変数に代入する MyControls DLL の種類に簡単にアクセス出来る様に次の Imports ステートメント又は using ステートメントをファイルの先頭に追加する -13-

14 Visual Basic Imports MyControls Visual C# using MyControls; OnButtonClick イベントの処理ユーザーがコントロールのボタンの孰れかをクリックすると MyControl1 が OnButtonClick イベントを発生させる MainWindow クラスに次のコードを追加する Visual Basic '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 Visual C# //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 ); -14-

15 テキストボックスのデータは MyControlEventArgs オブジェクトに格納されるユーザーが [OK] ボタンをクリックするとイベントハンドラーはデータを抽出して MyControl1 の下のパネルに表示するコントロールのプロパティの変更 WindowsFormsHost 要素はホストされるコントロールの幾つかの既定のプロパティを公開する此れに依りアプリケーションのスタイルにより一致する様にコントロールの外観を変更出来る左側のパネルに有る一連のオプションボタンを使用すると色やフォントのプロパティを変更出来る各ボタンセットには Click イベントに対するハンドラーが有りユーザーに依るオプションボタンの選択を検出してコントロールの対応するプロパティを変更する MainWindow クラスに次のコードを追加する Visual Basic 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 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 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 Private Sub FontSizeChanged(ByVal sender As Object, ByVal e As RoutedEventArgs) If sender.equals(rdbtnten) Then wfh.fontsize =

16 ElseIf sender.equals(rdbtntwelve) Then wfh.fontsize = 12 ElseIf UIIsReady = True Then wfh.fontsize = initfontsize End If 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 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 Visual C# 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"); -16-

17 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; アプリケーションをビルドして実行する Windows フォーム複合コントロールにテキストを追加して [OK] をクリックする其のテキストがラベルに表示される別のオプションボタンをクリックしてコントロール上の影響を確認する

18 キーペアを作成する方法 1.[ スタート ] ボタンをクリックし [ 総てのプログラム ] [ アクセサリ ] の順にポイントし [ コマンドプロンプト ] をクリックするコマンドプロンプト (DOS 窓 ) が開く 2. コマンドプロンプトで cd コマンドを使用してプロジェクトフォルダーに移動するコマンドラインで cd [ スペース ] と入力しプロジェクトフォルダー ( ソリューションファイルと同階層に有るフォルダー ) を DOS 窓にドラッグ & ドロップして Enter キーを押すと簡単に移動する事が出来る 3. 次のコマンドを実行して MyControls.snk と謂うキーファイルを生成する Sn.exe -k MyControls.snk Sn.exe が格納されて居るフォルダーはパスが通ってないのでフルパスで記述する必要が有る (Sn.exe を DOS 窓にドラッグ & ドロップすると簡単に記述する事が出来る ) 猶 Sn.exe は下記のフォルダーに格納されて居る C: Program Files Microsoft SDKs Windows v7.0a bin C: Program Files Microsoft Visual Studio 8 SDK v2.0 Bin -18-

グラフィックス目次

グラフィックス目次 WPF チュートリアル Windows フォームでの WPF 複合コントロールのホスト Windows Presentation Foundation(WPF) はアプリケーションの作成に適した環境を提供する但し Windows フォームのコードに多大な手間と時間を懸けた場合はコードを最初から記述し直すよりも既存の Windows フォームアプリケーションを WPF で拡張する方が効率的と成る事も有る

グラフィックス 目次

グラフィックス目次