前提条件：SQL Server 2008 以降

IO負荷が高い例

Sub Test(ByVal dt As DataTable)
    Dim con As New SqlConnection("connection string")
    Dim cmd As New SqlCommand
    Dim sql As New StringBuilder
    con.Open()
    cmd.Connection = con
    cmd.Parameters.Clear()
 
    'データテーブルの行分だけループしている悪い例
    For i As Integer = 0 To dt.Rows.Count - 1
        sql.AppendLine("INSERT INTO dbo.T_TEST ")
        sql.AppendLine("( ")
        sql.AppendLine("  CODE ")
        sql.AppendLine(") VALUES ( ")
        sql.AppendLine("  @Code ")
        sql.AppendLine("); ")
 
        'パラメータの作成
        Dim param = New SqlParameter("@Code", SqlDbType.Int, ParameterDirection.Input)
        param.Value = dt.Rows(i).Item(0).ToString()
        'パラメータを渡します。
        cmd.Parameters.Add(param)
 
        'プロシージャの実行
        cmd.CommandType = CommandType.Text
        cmd.CommandText = sql.ToString()
        cmd.ExecuteNonQuery
    Next i
End Sub

まずは、悪例としてデータテーブルのレコードを 1 件ずつ INSERT していく方法。
上記の方法だと件数が少なければ問題が無いように感じるが、１万件を超えてくるとそのパフォーマンスの悪さが目立ってくる。
１万件のデータをループして INSERT すると１万回の IO 処理となり、オーバーヘッドが大きくなる。
しかし、次の方法で INSERT すると１回の IO 処理で済む為、更新するデータ量は変わらないがかなりのパフォーマンス改善が見込まれる。

DataTableをパラメータとして渡す

DataTable をパラメータとして渡す為には、SQL Server 側にユーザー定義テーブル型を作成しておく必要がある。

CREATE TYPE TestTableType AS TABLE
(
  TestCode int NOT NULL
)
GO

テーブルの定義と同様に括弧の中にフィールド定義を記述する。
テーブルで定義できるフィールドはTableTypeでも定義可能。

続いて、プログラム側の処理。

Sub Test(ByVal dt As DataTable)
    Dim con As New SqlConnection("connection string")
    Dim cmd As New SqlCommand
    Dim sql As New StringBuilder
    con.Open()
    cmd.Connection = con
    cmd.Parameters.Clear()
 
    sql.AppendLine("INSERT INTO dbo.T_TEST ")
    sql.AppendLine("      ( ")
    sql.AppendLine("        CODE ")
    sql.AppendLine("      ) ")
    sql.AppendLine(" SELECT TestCode ")
    sql.AppendLine("   FROM @TestTable ")
    sql.AppendLine("  WHERE TestCode = @Code ")
    sql.AppendLine("); ")
  
    'パラメータの作成
    Dim params(1) As SqlParameters
    params(0) = New SqlParameter("@Code", SqlDbType.Int, ParameterDirection.Input)
    params(0).Value = 1
    params(1) = New SqlParameter("@TestTable", SqlDbType.Structured, ParameterDirection.Input)  'TypeにSqlDbType.Structuredを渡します。
    params(1).TypeName = "TestTableType"  'テーブルタイプの名称を渡します。
    params(1).Value = dt    '編集したデータテーブルを渡します。
    'パラメータ配列を渡します。
    cmd.Parameters.AddRange(params)
    'プロシージャの実行
    cmd.CommandType = CommandType.StoredProcedure
    cmd.CommandText = sql.ToString()
    cmd.ExecuteNonQuery
End Sub

ユーザー定義テーブル型を使用することで DataTable をテーブルのように渡すことができる為、一括で SELECT して INSERT または UPDATE が可能となる。

<注意事項>

• DataTable のフィールドはユーザー定義テーブル型のフィールドと一致している必要がある。
• ユーザー定義テーブル型を渡す場合は、SqlDbType.Structured で渡す。

ユーザー定義テーブル型を作成しておく必要はあるが、こちらの方法であれば実行速度が圧倒的に速く、パフォーマンス改善が期待できる。
デメリットとしては、ループせずに一括で更新する為、プログレスバーなどで進捗を表示することができない。

.NETには、CSVファイルを読み取る際に便利なクラス(TextFieldParser)が「VB.NET」のライブラリに存在する。

このクラスを利用してCSVファイルをLINQで簡潔に扱えるようにする。

まず、CSVファイルへのコンテキストを生成する為のTextFieldクラスを作成する。

このクラスのContextメソッドでコンテキストを生成することでロジックを意識することなくCSVファイルの読み込みが可能になる。

Imports System.Text
Imports System.IO
Imports Microsoft.VisualBasic.FileIO

Public Class TextField
    ' 指定されたCSVファイルへのコンテキストを生成する
    Public Shared Function Context(path As String,
                                   Optional separator As String = ",",
                                   Optional myEncoding As Encoding = Nothing) As IEnumerable(Of String())

        Dim results As New List(Of String())

        Using stream As Stream = New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read)

            Using parser As New TextFieldParser(stream, If(myEncoding, Encoding.UTF8), True, False)

                parser.TextFieldType = FieldType.Delimited
                parser.Delimiters = New String() {separator}
                parser.HasFieldsEnclosedInQuotes = True
                parser.TrimWhiteSpace = True

                While parser.EndOfData = False
                    Dim fields As String() = parser.ReadFields()
                    results.Add(fields)
                End While
            End Using
        End Using

        Return results
    End Function

End Class

using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using Microsoft.VisualBasic.FileIO;

namespace CS_CSVtoLINQ
{
    public class TextField
    {
        // 指定されたCSVファイルへのコンテキストを生成する
        public static IEnumerable<string[]> Context(string path,
                                                    string separator = ",",
                                                    Encoding encoding = null)
        {
            using (Stream stream = new FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read))
            {
                using (TextFieldParser parser = new TextFieldParser(stream, encoding ?? Encoding.UTF8, true, false))
                {
                    parser.TextFieldType = FieldType.Delimited;
                    parser.Delimiters = new[] { separator };
                    parser.HasFieldsEnclosedInQuotes = true;
                    parser.TrimWhiteSpace = true;
                    while (parser.EndOfData == false)
                    {
                        string[] fields = parser.ReadFields();
                        yield return fields;
                    }
                }
            }
        }
    }
}

次は、実際にTextFieldクラスを利用してコンテキストを生成し、CSVファイルへアクセスしてLINQにより入力した条件に一致するレコードデータを表示するコードを記述する。

尚、AsParallel()メソッドを呼び出すことで条件判定をマルチスレッド化できるので、データ量が多い場合は、並列化による高速化が期待できる。

Imports System.Text
Imports System.IO

Module Module1

    Sub Main()
        Do
            ' 検索条件に使用するIDの入力を求める
            Console.WriteLine("IDを入力")
            Dim input As String = Console.ReadLine()

            ' 入力された値から終了判定
            If input.ToUpper = "END" OrElse input.ToUpper = "EXIT" Then
                ' "END"、または"EXIT"が入力された場合は終了
                Exit Do
            End If

            ' 指定したCSVファイルへのコンテキストを生成
            Dim context As IEnumerable(Of String()) = TextField.Context("CSV\\SAMPLE001.csv", ",", Encoding.GetEncoding("Shift_JIS"))

            ' 取得したコンテキストを入力されたIDをキーに検索
            Dim results As IEnumerable(Of String) =
                From fields In context.AsParallel()
                Where fields(0).Equals(input)
                Select String.Format("{0}：{1}", fields(1), fields(2))

            ' 検索結果を出力
            For Each result As String In results
                Console.WriteLine(result)
            Next
            Console.WriteLine("---END---")
        Loop

    End Sub

End Module

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace CS_CSVtoLINQ
{
    class Program
    {
        static void Main(string[] args)
        {
            while (true)
            {
                // 検索条件に使用するIDの入力を求める
                Console.WriteLine("IDを入力");
                string input = Console.ReadLine();

                // 入力された値から終了判定
                if (input.ToUpper().Equals("END") || input.ToUpper().Equals("EXIT"))
                {
                    // "END"、または"EXIT"が入力された場合は終了
                    break;
                }

                // 指定したCSVファイルへのコンテキストを生成
                IEnumerable<string[]> context = TextField.Context("CSV\\SAMPLE001.csv", ",", Encoding.GetEncoding("Shift_JIS"));

                // 取得したコンテキストを入力されたIDをキーに検索
                IEnumerable<string> results = 
                    from fields in context.AsParallel()
                    where fields[0].Equals(input)
                    select String.Format("{0}：{1}", fields[1], fields[2]);

                // 検索結果を出力
                foreach (string result in results)
                {
                    Console.WriteLine(result);
                }
                Console.WriteLine("---END---");
            }
        }
    }
}

複数ファイルを跨いで検索する場合は以下のように記述することができる。

※全てのファイルレイアウトが同じ場合

Imports System.Text
Imports System.IO

Module Module1

    Sub Main()
        Do
            ' 検索条件に使用するIDの入力を求める
            Console.WriteLine("IDを入力")
            Dim input As String = Console.ReadLine()

            ' 入力された値から終了判定
            If input.ToUpper = "END" OrElse input.ToUpper = "EXIT" Then
                ' "END"、または"EXIT"が入力された場合は終了
                Exit Do
            End If

            ' 指定したCSVファイルへのコンテキストを生成して、入力されたIDをキーに検索
            Dim results As IEnumerable(Of String) =
                From path In Directory.GetFiles("CSV", "*.csv", SearchOption.AllDirectories).AsParallel()
                From fields In TextField.Context(path, ",", Encoding.GetEncoding("Shift_JIS"))
                Where fields(0).Equals(input)
                Select String.Format("{0}：{1}", fields(1), fields(2))

            ' 検索結果を出力
            For Each result As String In results
                Console.WriteLine(result)
            Next
            Console.WriteLine("---END---")
        Loop

    End Sub

End Module

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;

namespace CS_CSVtoLINQ
{
    class Program
    {
        static void Main(string[] args)
        {
            while (true)
            {
                // 検索条件に使用するIDの入力を求める
                Console.WriteLine("IDを入力");
                string input = Console.ReadLine();

                // 入力された値から終了判定
                if (input.ToUpper().Equals("END") || input.ToUpper().Equals("EXIT"))
                {
                    // "END"、または"EXIT"が入力された場合は終了
                    break;
                }

                // 指定したCSVファイルへのコンテキストを生成して、入力されたIDをキーに検索
                IEnumerable<string> results = 
                    from path in Directory.GetFiles("CSV", "*.csv", SearchOption.AllDirectories).AsParallel()
                    from fields in TextField.Context(path, ",", Encoding.GetEncoding("Shift_JIS"))
                    where fields[0].Equals(input)
                    select String.Format("{0}：{1}", fields[1], fields[2]);

                // 検索結果を出力
                foreach (string result in results)
                {
                    Console.WriteLine(result);
                }
                Console.WriteLine("---END---");
            }
        }
    }
}

EnumWindowsを呼び出すと、コールバックメソッドが呼び出され、存在する個々のウィンドウのHWNDが渡される。

以下の例では、EnumWindows()でウィンドウを列挙し、コールバックメソッド内ではIsWindowVisible()を使って可視ウィンドウかどうかを調べている。

また、個々の可視ウィンドウについて、GetWindowText()を使ってウィンドウのキャプションを、GetWindowThreadProcessId()とProcess.GetProcessByIdを使ってプロセス情報を取得・表示している。

Module Module1
    Public Class Sample
        ''' <summary>
        ''' ウィンドウを列挙します。
        ''' </summary>
        ''' <param name="lpEnumFunc">コールバック関数</param>
        ''' <param name="lParam">アプリケーション定義の値</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <System.Runtime.InteropServices.DllImport("user32.dll")>
        Public Shared Function EnumWindows(ByVal lpEnumFunc As EnumWinProc, ByVal lParam As IntPtr) As Boolean
        End Function

        ''' <summary>
        ''' EnumWindowsから呼び出されるコールバック関数EnumWinProcのデリゲート
        ''' </summary>
        ''' <param name="hWnd">ウィンドウのハンドル</param>
        ''' <param name="lParam">アプリケーション定義の値</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Delegate Function EnumWinProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

        ''' <summary>
        ''' ウィンドウハンドルからキャプションを取得します。
        ''' </summary>
        ''' <param name="hWnd">ウィンドウのハンドル</param>
        ''' <param name="lpString">キャプション</param>
        ''' <param name="nMaxCount">キャプションの最大桁数</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <System.Runtime.InteropServices.DllImport("user32.dll", CharSet:=System.Runtime.InteropServices.CharSet.Auto)>
        Public Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
        End Function

        ''' <summary>
        ''' ウィンドウハンドルからプロセスＩＤを取得します。
        ''' </summary>
        ''' <param name="hWnd">ウィンドウのハンドル</param>
        ''' <param name="lpdwProcessId">プロセスＩＤ</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <System.Runtime.InteropServices.DllImport("user32.dll")>
        Public Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, <System.Runtime.InteropServices.Out()> ByRef lpdwProcessId As Integer) As Integer
        End Function

        ''' <summary>
        ''' ウィンドウが可視かどうかを調べます。
        ''' </summary>
        ''' <param name="hWnd">ウィンドウのハンドル</param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <System.Runtime.InteropServices.DllImport("user32.dll")>
        Public Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
        End Function

    End Class

    Sub Main()

        ' ウィンドウの列挙を開始
        Sample.EnumWindows(AddressOf EnumerateWindow, IntPtr.Zero)

        Console.ReadLine()

    End Sub

    ' ウィンドウを列挙するためのコールバックメソッド
    Private Function EnumerateWindow(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

        ' ウィンドウが可視かどうか調べる
        If Sample.IsWindowVisible(hWnd) Then
            ' キャプションとプロセスＩＤを表示
            PrintCaptionAndProcess(hWnd)
        End If

        ' ウィンドウの列挙を継続するにはTrueを返す必要がある
        Return True

    End Function

    ' ウィンドウのキャプションとプロセス名を表示する
    Private Sub PrintCaptionAndProcess(ByVal hWnd As IntPtr)

        ' ウィンドウハンドルからプロセスIDを取得
        Dim processId As Integer

        Sample.GetWindowThreadProcessId(hWnd, processId)

        ' プロセスIDからProcessクラスのインスタンスを取得
        Dim p As Process = Process.GetProcessById(processId)

        ' プロセス名を表示
        Console.Write("'{0}' ", p.ProcessName)

        ' ウィンドウのキャプションを取得・表示
        Dim caption As New System.Text.StringBuilder(&H1000)

        Sample.GetWindowText(hWnd, caption, caption.Capacity)

        Console.WriteLine("({0})", caption)

    End Sub

End Module

using System;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Text;

namespace CS_EnumWindowsTest
{
    class Sample
    {
        /// <summary>
        /// ウィンドウを列挙します。
        /// </summary>
        /// <param name="lpEnumFunc">コールバック関数</param>
        /// <param name="lParam">アプリケーション定義の値</param>
        /// <returns></returns>
        [System.Runtime.InteropServices.DllImport("user32.dll")]
        public static extern bool EnumWindows(EnumWinProc lpEnumFunc, IntPtr lParam);

        /// <summary>
        /// EnumWindowsから呼び出されるコールバック関数EnumWinProcのデリゲート
        /// </summary>
        /// <param name="hWnd">ウィンドウのハンドル</param>
        /// <param name="lParam">アプリケーション定義の値</param>
        /// <returns></returns>
        public delegate bool EnumWinProc(IntPtr hWnd, IntPtr lParam);

        /// <summary>
        /// ウィンドウハンドルからキャプションを取得します
        /// </summary>
        /// <param name="hWnd">ウィンドウのハンドル</param>
        /// <param name="lpString">キャプション</param>
        /// <param name="nMaxCount">キャプションの最大桁数</param>
        /// <returns></returns>
        [System.Runtime.InteropServices.DllImport("user32.dll")]
        public static extern int GetWindowText(IntPtr hWnd, StringBuilder lpString, int nMaxCount);

        /// <summary>
        /// ウィンドウハンドルからプロセスＩＤを取得します。
        /// </summary>
        /// <param name="hWnd">ウィンドウのハンドル</param>
        /// <param name="lpdwProcessId">プロセスＩＤ</param>
        /// <returns></returns>
        [System.Runtime.InteropServices.DllImport("user32.dll")]
        public static extern int GetWindowThreadProcessId(IntPtr hWnd, out int lpdwProcessId);

        /// <summary>
        /// ウィンドウが可視かどうかを調べます。
        /// </summary>
        /// <param name="hWnd">ウィンドウのハンドル</param>
        /// <returns></returns>
        [System.Runtime.InteropServices.DllImport("user32.dll")]
        public static extern bool IsWindowVisible(IntPtr hWnd);
    }

    class Program
    {
        static void Main(string[] args)
        {

            // ウィンドウの列挙を開始
            Sample.EnumWindows(EnumerateWindow, IntPtr.Zero);

            Console.ReadLine();

        }

        private static bool EnumerateWindow(IntPtr hWnd, IntPtr lParam)
        {
            // ウィンドウが可視かどうか調べる
            if (Sample.IsWindowVisible(hWnd))
            {
                // キャプションとプロセスＩＤを表示
                PrintCaptionAndProcess(hWnd);
            }

            // ウィンドウの列挙を継続するにはTrueを返す必要がある
            return true;
        }

        private static void PrintCaptionAndProcess(IntPtr hWnd)
        {
            // ウィンドウハンドルからプロセスIDを取得
            int processId;

            Sample.GetWindowThreadProcessId(hWnd, out processId);

            // プロセスIDからProcessクラスのインスタンスを取得
            Process p = Process.GetProcessById(processId);

            // プロセス名を表示
            Console.Write("'{0}' ", p.ProcessName);

            // ウィンドウのキャプションを取得・表示
            StringBuilder caption = new StringBuilder(0x1000);

            Sample.GetWindowText(hWnd, caption, caption.Capacity);

            Console.WriteLine("({0})", caption);

        }
    }
}

Environment.MachineName プロパティ

ローカル コンピュータの NetBIOS 名を取得する。

(NetBIOS名はすべて大文字で、小文字は大文字に自動変換される。)

＜必要条件＞

名前空間: System
アセンブリ: mscorlib (mscorlib.dll 内)

＜構文＞

public static string MachineName { get; }

'宣言
Public Shared ReadOnly Property MachineName As String
'使用
Dim value As String
value = Environment.MachineName

＜解説＞

コンピュータの名前は、システムの起動時に、名前がレジストリから読み込まれた時点で確定される。

コンピュータがクラスタ内のノードである場合は、ノード名が返される。

＜例＞

実行しているコンピュータの名前を表示するコード例を次に示す。

using System;
class Sample 
{
  public static void Main() 
  {
    Console.WriteLine();
    Console.WriteLine("MachineName: {0}", Environment.MachineName);
  }
}

Imports System
Class Sample
   Public Shared Sub Main()
      Console.WriteLine()
      Console.WriteLine("MachineName: {0}", Environment.MachineName)
   End Sub 'Main
End Class 'Sample

My.Computer.Name プロパティ(VBのみ)

コンピュータ名を取得する。

戻り値にコンピュータの名前を格納した String を返す。

＜必要条件＞

名前空間: Microsoft.VisualBasic.Devices
クラス: Computer、ServerComputer
アセンブリ: Visual Basic ランタイム ライブラリ (Microsoft.VisualBasic.dll 内)

＜構文＞

'宣言
Public ReadOnly Property Name As String
'使用
Dim value As String = My.Computer.Name

＜解説＞

My.Computer.Name プロパティは、MachineName プロパティと同様の機能を提供する。

＜例＞

実行しているコンピュータの名前を表示するコード例を次に示す。

MsgBox("Computer name: " & My.Computer.Name)

<Window x:Class="WPFSample.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="GridSplitter" Height="300" Width="300">
    <Grid>
        <Grid.RowDefinitions>
            <RowDefinition Height="*" />
            <RowDefinition Height="auto" />
            <RowDefinition Height="*" />
        </Grid.RowDefinitions>
        <Grid.ColumnDefinitions>
            <ColumnDefinition Width="*" />
            <ColumnDefinition Width="auto" />
            <ColumnDefinition Width="*" />
        </Grid.ColumnDefinitions>
        <StackPanel Background="#ffcccc" />
        <StackPanel Background="#ccffcc" Grid.Column="2"/>
        <StackPanel Background="#ccccff" Grid.Row="2" />
        <StackPanel Background="#ccffff" Grid.Row="2" Grid.Column="2"/>
        <GridSplitter Grid.Row="1" Grid.ColumnSpan="3" Height="5" HorizontalAlignment="Stretch" />
        <GridSplitter Grid.Column="1" Grid.RowSpan="3" Width="5" HorizontalAlignment="Stretch" />
    </Grid>
</Window>

尚、<GridSplitter>要素を利用する場合、以下のような注意点がある。

<GridSplitter>要素自体、<Grid>要素のセルを1つ占有する為、<GridSplitter>要素を配置するための行・列を「auto」指定で作成しておく必要がある。

<GridSplitter>要素は、デフォルトの状態では幅も高さも「0」で不可視となる為、見えるサイズに調整する必要がある。
（HorizontalAlignment属性に「Stretch」を指定して、上下分割の場合はGrid.ColumnSpanとHeight、左右分割の場合はGrid.RowSpanとWidthにそれぞれ値を指定する）

「特定の1行だけ列幅を変えたい」というようなことは1つの<Grid>要素内では行えない為、<Grid>要素を入れ子にして内側の<Grid>要素だけに<GridSplitter>要素を追加するなどの工夫が必要になる。

また、フォントサイズに連動したグリッドの動きを確認する。

<Window x:Class="WPFSample.Window1"
	xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
	xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
	Title="Grid" FontSize="16" Height="320" Width="480">
	<Grid>
		<Grid.RowDefinitions>
			<RowDefinition Height="*" />
			<RowDefinition Height="*" />
			<RowDefinition Height="*" />
		</Grid.RowDefinitions>

		<Grid>
			<Grid.RowDefinitions>
				<RowDefinition Height="50" />
				<RowDefinition Height="50" />
			</Grid.RowDefinitions>
			<Grid.ColumnDefinitions>
				<ColumnDefinition Width="150" />
				<ColumnDefinition Width="150" />
				<ColumnDefinition Width="150" />
			</Grid.ColumnDefinitions>
			<Button Content="固定幅" Background="#ffcccc" />
			<Button Content="A" Background="#ccffcc" Grid.Column="1" />
			<Button Content="B" Background="#ccccff" Grid.Column="2" />
			<Button Content="190" Background="#ccffff" Grid.Row="1" />
			<Button Content="190" Background="#ffccff" Grid.Row="1" Grid.Column="1" />
			<Button Content="190" Background="#ffffcc" Grid.Row="1" Grid.Column="2" />
		</Grid>

		<Grid Grid.Row="1">
			<Grid.RowDefinitions>
				<RowDefinition Height="*" />
				<RowDefinition Height="*" />
			</Grid.RowDefinitions>
			<Grid.ColumnDefinitions>
				<ColumnDefinition Width="2*" />
				<ColumnDefinition Width="3*" />
				<ColumnDefinition Width="4*" />
			</Grid.ColumnDefinitions>
			<Button Content="比率" Background="#ffcccc" />
			<Button Content="A" Background="#ccffcc" Grid.Column="1" />
			<Button Content="B" Background="#ccccff" Grid.Column="2" />
			<Button Content="2*" Background="#ccffff" Grid.Row="1" />
			<Button Content="3*" Background="#ffccff" Grid.Row="1" Grid.Column="1" />
			<Button Content="4*" Background="#ffffcc" Grid.Row="1" Grid.Column="2" />
		</Grid>

		<Grid Grid.Row="2">
			<Grid.RowDefinitions>
				<RowDefinition Height="auto" />
				<RowDefinition Height="auto" />
			</Grid.RowDefinitions>
			<Grid.ColumnDefinitions>
				<ColumnDefinition Width="auto" />
				<ColumnDefinition Width="auto" />
				<ColumnDefinition Width="auto" />
			</Grid.ColumnDefinitions>
			<Button Content="自動" Background="#ffcccc" />
			<Button Content="━━━長いテキスト━━━" Background="#ccffcc" Grid.Column="1" />
			<Button Content="短い" Background="#ccccff" Grid.Column="2" />
			<Button Content="auto" Background="#ccffff" Grid.Row="1" />
			<Button Content="短い" Background="#ffccff" Grid.Row="1" Grid.Column="1" />
			<Button Content="━━━長いテキスト━━━" Background="#ffffcc" Grid.Row="1" Grid.Column="2" />
		</Grid>
	</Grid>
</Window>

Namespace WPFSample
	Class Window1
		Public Sub New()

			' この呼び出しは、Windows フォーム デザイナで必要です。
			InitializeComponent()

			' InitializeComponent() 呼び出しの後で初期化を追加します。

		End Sub

		Protected Overrides Sub OnMouseWheel(ByVal e As System.Windows.Input.MouseWheelEventArgs)
			' Controlキーの入力判定
			If (Keyboard.Modifiers And ModifierKeys.Control) <> ModifierKeys.None Then
				' Controlキーの入力がある場合
				' ホイールの回転方向判定
				If e.Delta > 0 Then
					' ホイールを上方向に回転
					' フォントサイズが200未満の場合、フォントサイズを増加
					If Me.FontSize < 200 Then
						Me.FontSize += 1
					End If
				Else
					' ホイールを下方向に回転
					' フォントサイズが1より大きい場合、フォントサイズを減少
					If Me.FontSize > 1 Then
						Me.FontSize -= 1
					End If
				End If
			End If
			MyBase.OnMouseWheel(e)
		End Sub
	End Class
End Namespace

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;

namespace WPFSample
{
	/// <summary>
	/// Window1.xaml の相互作用ロジック
	/// </summary>
	public partial class Window1 : Window
	{
		public Window1()
		{
			InitializeComponent();
		}

		protected override void OnMouseWheel(MouseWheelEventArgs e)
		{
			// Controlキーの入力判定
			if ((Keyboard.Modifiers & ModifierKeys.Control) != ModifierKeys.None)
			{
				// Controlキーの入力がある場合
				// ホイールの回転方向判定
				if (e.Delta > 0)
				{
					// ホイールを上方向に回転
					// フォントサイズが200未満の場合、フォントサイズを増加
					if (this.FontSize < 200)
					{
						this.FontSize++;
					}
				}
				else
				{
					// ホイールを下方向に回転
					// フォントサイズが1より大きい場合、フォントサイズを減少
					if (this.FontSize > 1)
					{
						this.FontSize--;
					}
				}
			}
			base.OnMouseWheel(e);
		}
	}
}

<TextBox>要素および<RichTextBox>要素では、テキストボックス内で選択されている文字列に関する情報を、SelectionStartプロパティ、SelectionLengthプロパティ、および、SelectedTextプロパティを通して取得できる。

尚、AutoWordSelectionプロパティに「true」を設定することで、マウスでドラッグした際に単語単位で文字列選択されるよう、選択範囲が自動調整されるようになる。

複数行のテキスト

<TextBox>要素内で複数行のテキストを表示したい場合には、TextWrappingプロパティに「Wrap」を設定する。

複数行テキストを表示する際、MinLinesプロパティおよびMaxLinesプロパティを設定しておくと、実際の行数が変わる場合にも表示上のサイズを固定することができる。

また、［Enter］キーで改行を入力したい場合には、AcceptsReturnプロパティに「true」を設定する。

スペルチェック

その他、WPFにはスペルチェック機能があり、<TextBox>要素や<RichTextBox>要素のSpellCheck.IsEnabled添付プロパティに「true」を設定することで、スペルチェックが働くようになる。

ButtonBaseクラスのClickModeプロパティを設定することで、Clickイベントが発生するタイミングを「Release」（＝ボタンを押して離したとき）、「Press」（＝ボタンを押したとき）、「Hover」（＝ボタンの上にマウス・カーソルを載せたとき）の3つの中から選べる。

Buttonクラス

Buttonクラスでは、IsDefaultプロパティに「true」を設定することで、デフォルトボタン（＝WindowsフォームでのAcceptButton。［Enter］キーを押したときにClickイベントが発生する）に、IsCancelプロパティに「true」を設定することでキャンセルボタン（＝同、CancelButton。［Escape］キーを押したときにClickイベントが発生する）にすることができる。

ToggleButtonクラス

ToggleButtonクラス（System.Windows.Controls.Primitives名前空間）は、オン／オフの2つの状態を表すクラスであるが、IsThreeStateプロパティがtrueの場合、オン／オフ／未設定の3つの状態（＝IsCheckedプロパティがfalseのときとnullのときで異なる表示が行われる）を表すことも可能である。

<Window x:Class="WPFSample.Window1"
	xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
	xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
	WindowStyle="None"
	ResizeMode="CanResizeWithGrip"
	AllowsTransparency="True"
	Background="#80808080"
	SizeToContent="WidthAndHeight">
	<Grid>
		<TextBlock FontSize="50">半透明ウィンドウ</TextBlock>
	</Grid>
</Window>

このようなウィンドウを作った場合、タイトルバーが存在しないため、そのままではドラッグによるウィンドウの移動ができない。

ウィンドウの移動を可能にしたい場合は、マウスクリックイベントのハンドラにDragMoveメソッドを呼び出すコードを記述する。

また、キー入力イベントのハンドラにCloseメソッドを呼び出すコードを記述すれば、任意のキーが入力された時にウィンドウを閉じるようにできる。

Namespace WPFSample
	Class Window1
		Public Sub New()

			' この呼び出しは、Windows フォーム デザイナで必要です。
			InitializeComponent()

			' InitializeComponent() 呼び出しの後で初期化を追加します。
			'' マウスクリックイベントのハンドラにDragMoveメソッドを追加
			AddHandler Me.MouseLeftButtonDown, AddressOf MouseLeftButton_Down
			'' キー入力イベントのハンドラにCloseメソッドを追加
			AddHandler Me.KeyDown, AddressOf Key_Down

		End Sub

		Private Sub MouseLeftButton_Down(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
			Me.DragMove()
		End Sub

		Private Sub Key_Down(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
			Me.Close()
		End Sub
	End Class
End Namespace

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Navigation;
using System.Windows.Shapes;

namespace WPFSample
{
	/// <summary>
	/// Window1.xaml の相互作用ロジック
	/// </summary>
	public partial class Window1 : Window
	{
		public Window1()
		{
			InitializeComponent();
			// マウスクリックイベントのハンドラにDragMoveメソッドを追加
			this.MouseLeftButtonDown += (sender, e) => { this.DragMove(); };
			// キー入力イベントのハンドラにCloseメソッドを追加
			this.KeyDown += (sender, e) => { this.Close(); };
		}
	}
}

using句の指定（C#の場合）

using System.Xml.Linq;

using句でLinq to XMLの名前空間を呼出しておく。

尚、Visual Studioのソリューションエクスプローラで参照設定を確認し、System.XML.Linqの参照設定がない場合には追加する。

単純なXMLの表示

簡単なXMLのデータを作成し、コンソールに表示する。

Dim x = New XElement("Name", "Jyunpei Ryuzouji")
Console.WriteLine(x)

var x = new XElement("Name", "Jyunpei Ryuzouji");
Console.WriteLine(x);

Nameという1種類の要素を持つXMLデータを作成し、コンソールに表示している。

Linq to XMLにおいて、XElementクラスがXML要素を表すクラスになる。

尚、Linq to XMLの各クラスは先頭に”X”がつく。

<Name>Jyunpei Ryuzouji</Name>

XML要素に属性を追加して表示

XML要素に属性(Attribute)を追加する。

Dim x = New XElement("Name", New XAttribute("ID", 99999), "Jyunpei Ryuzouji")
Console.WriteLine(x)

var x = new XElement("Name", new XAttribute("ID", 99999), "Jyunpei Ryuzouji");
Console.WriteLine(x);

XElementクラスのコンストラクタの中でXAttributeクラスを初期化し、IDという属性とその値として”99999″を追加する。

<Name ID="99999">Tadahiro Ishisaka</Name>

Name要素にID属性が追加され、その値が”99999″となっている。

XElementクラスのAddメソッドを使用して属性を追加

XElementクラスのAddメソッドを使用して、XML要素に属性(Attribute)を追加する。

Dim x = New XElement("Name", "Jyunpei Ryuzouji")
x.Add(New XAttribute("ID", 99999))
Console.WriteLine(x)

var x = new XElement("Name", "Jyunpei Ryuzouji");
x.Add(new XAttribute("ID", 99999));
Console.WriteLine(x);

<Name ID="99999">Tadahiro Ishisaka</Name>

XML文書を作成する

Linq to XMLでXML文書(XML Document)を表すクラスはXDocumentクラスになる。

'XML文書の作成
Dim Users = New XDocument( _
    New XDeclaration("1.0", "utf-8", "yes"), _
    New XElement( _
        "Users", _
        New XElement( _
            "User", _
            New XAttribute("ID", 99999), _
            New XElement("Name", "Jyunpei Ryuzouji"), _
            New XElement("Address", "Shizuoka") _
        ), _
        New XElement( _
            "User", _
            New XAttribute("ID", 88888), _
            New XElement("Name", "Rituko Inoue"), _
            New XElement("Address", "Fukuoka") _
        ) _
    ) _
)
'出力
Console.WriteLine(Users.Declaration)
Console.WriteLine(Users)

//XML文書の作成
var Users = new XDocument(
   new XDeclaration("1.0", "utf-8", "yes"),
   new XElement(
        "Users",
        new XElement(
            "User",
            new XAttribute("ID", 99999),
            new XElement("Name", "Jyunpei Ryuzouji"),
            new XElement("Address", "Shizuoka")
        ),
        new XElement(
            "User",
            new XAttribute("ID", 88888),
            new XElement("Name", "Rituko Inoue"),
            new XElement("Address", "Fukuoka")
        )
   )
);
//出力
Console.WriteLine(Users.Declaration);
Console.WriteLine(Users);

上記はXDocumentクラスのコンストラクタですべてを記述している。

この程度であれば問題ないが、これ以上大きなXML文書を扱うには視認性が悪い。

尚、途中に出てくるXDeclarationクラスはXML宣言のクラス。

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<Users>
    <User ID="99999">
        <Name>Jyunpei Ryuzouji</Name>
        <Address>Shizuoka</Address>
    </User>
    <User ID="88888">
        <Name>Rituko Inoue</Name>
        <Address>Fukuoka</Address>
    </User>
</Users>

XML文書を作成する（ノードごとに記述）

コードの視認性を良くする為にノードごとにXML要素を追加する。

'XML文書の作成
Dim Users = New XDocument(New XDeclaration("1.0", "utf-8", "yes"))
Users.Add(New XComment("ユーザリスト")) 'XMLコメントの追加
Users.Add(New XElement("Users")) 'Root Elementの作成
'1ノード目の追加
Dim temp = New XElement("User")
temp.Add(New XAttribute("ID", 99999))
temp.Add(New XElement("Name", "Jyunpei Ryuzouji"))
temp.Add(New XElement("Address", "Shizuoka"))
Users.Root.Add(temp)
'2ノード目の追加
temp = New XElement("User")
temp.Add(New XAttribute("ID", 88888))
temp.Add(New XElement("Name", "Rituko Inoue"))
temp.Add(New XElement("Address", "Fukuoka"))
Users.Root.Add(temp)
'3ノード目の追加
temp = New XElement("User")
temp.Add(New XAttribute("ID", 77777))
temp.Add(New XElement("Name", "Airi Komiyama"))
temp.Add(New XElement("Address", "Tokyo"))
Users.Root.Add(temp)
'出力
Console.WriteLine(Users.Declaration)
Console.WriteLine(Users)

//XML文書の作成
var Users = new XDocument(new XDeclaration("1.0", "utf-8", "yes"));
Users.Add(new XComment("ユーザリスト")); //XMLコメントの追加
Users.Add(new XElement("Users")); //Root Elementの作成
//1ノード目の追加
var temp = new XElement("User");
temp.Add(new XAttribute("ID", 99999));
temp.Add(new XElement("Name", "Jyunpei Ryuzouji"));
temp.Add(new XElement("Address", "Shizuoka"));
Users.Root.Add(temp);
//2ノード目の追加
temp = new XElement("User");
temp.Add(new XAttribute("ID", 88888));
temp.Add(new XElement("Name", "Rituko Inoue"));
temp.Add(new XElement("Address", "Fukuoka"));
Users.Root.Add(temp);
//3ノード目の追加
temp = new XElement("User");
temp.Add(new XAttribute("ID", 77777));
temp.Add(new XElement("Name", "Airi Komiyama"));
temp.Add(new XElement("Address", "Tokyo"));
Users.Root.Add(temp);
//出力
Console.WriteLine(Users.Declaration);
Console.WriteLine(Users);

XML宣言を表すXDeclarationクラスのインスタンスはXDocumentクラスのコンストラクタの引数に渡す必要がある。

後からXDocumentクラスのAddメソッドで追加することは出来ない。(実行時エラーとなる)

また、XCommentクラスを使用するとXMLコメントを追加することが出来る。

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<!--ユーザリスト-->
<Users>
    <User ID="99999">
        <Name>Jyunpei Ryuzouji</Name>
        <Address>Shizuoka</Address>
    </User>
    <User ID="88888">
        <Name>Rituko Inoue</Name>
        <Address>Fukuoka</Address>
    </User>
    <User ID="77777">
        <Name>Airi Komiyama</Name>
        <Address>Tokyo</Address>
    </User>
</Users>

XML文書の保存

XML文書を保存するにはXDocumentクラスのSaveメソッドを使用する。

'XML文書の保存
Users.Save(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml")

//XML文書の保存
Users.Save(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml");

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<!--ユーザリスト-->
<Users>
    <User ID="99999">
        <Name>Jyunpei Ryuzouji</Name>
        <Address>Shizuoka</Address>
    </User>
    <User ID="88888">
        <Name>Rituko Inoue</Name>
        <Address>Fukuoka</Address>
    </User>
    <User ID="77777">
        <Name>Airi Komiyama</Name>
        <Address>Tokyo</Address>
    </User>
</Users>

上記の他にXMLWriterに渡して非同期で出力する方法、TextWriterに渡して同じく非同期で出力する方法、出力時に空白を削除する／しないのオプションがある。

XMLファイルの読込み

XMLファイルからデータを読込むには、XDocumentクラスのLoadメソッドを使用する。

'XML文書の読込み
Console.WriteLine("XMLファイルを読込む")
Dim ReadedUsers = XDocument.Load(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml")
Console.WriteLine(ReadedUsers.Declaration)
Console.WriteLine(ReadedUsers)

//XML文書の読込み
Console.WriteLine("XMLファイルを読込む");
var ReadedUsers = XDocument.Load(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml");
Console.WriteLine(ReadedUsers.Declaration);
Console.WriteLine(ReadedUsers);

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<!--ユーザリスト-->
<Users>
    <User ID="99999">
        <Name>Jyunpei Ryuzouji</Name>
        <Address>Shizuoka</Address>
    </User>
    <User ID="88888">
        <Name>Rituko Inoue</Name>
        <Address>Fukuoka</Address>
    </User>
    <User ID="77777">
        <Name>Airi Komiyama</Name>
        <Address>Tokyo</Address>
    </User>
</Users>

LoadメソッドもSaveメソッドと同様にオーバーロードされたメソッドがあり、URI指定によるXMLファイルの読込みやXMLReader、TextReaderからの読込みがサポートされている。

クエリ式を使用したLINQの記述

Linq to XMLなので勿論、LINQによるXML要素の取得が可能。

LINQの基本的なクエリ式は、以下の通り。

from [範囲変数] in [データソース]
select [範囲変数]

クエリ式はまず、from句から始める必要がある。

次に最低でもselect句で範囲変数を指定し、最終的に式が返すソースシーケンスの内容を確定する。

from句
from [範囲変数] in [データソース]

from句ではクエリもしくはサブクエリの対象となるデータソースとソースシーケンス内の各要素を表すローカルの範囲変数を指定する。

尚、ソースシーケンスとはデータソースの中でクエリ式内での各操作の対象となる連続したデータのこと。

LINQのデータソースにはIEnumerable<T>インターフェイスあるいはIEnumerableとその派生インターフェイスを実装したオブジェクトだけを指定することができる。

通常の配列やArrayList、ADO.NETのデータセットはIEnumerableインターフェイスを持つ為、LINQの対象とすることができる。

selsct句
select [式]

selsct句はクエリ式が実行されたときに生成される値の型を指定する。

クエリ式の結果はselect句の前の式の評価およびselect句の式の評価によって生成される。

select句の一番単純な例は式に範囲変数を指定し、ソースシーケンスをそのまま式の値とする方法。

where句
whewe [条件式]

where句を利用することで、ソースシーケンスのデータに対して何らかのフィルタリング条件を付けて必要なデータだけを取得することが出来る。

'XML文書の読込み
Console.WriteLine("XMLファイルを読込む")
Dim ReadedUsers = XDocument.Load(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml")
Console.WriteLine(ReadedUsers.Declaration)
Console.WriteLine(ReadedUsers)
'クエリ式の発行
Console.WriteLine("クエリ式を発行して値を取得")
Dim query = _
    From x In ReadedUsers.Descendants("User") _
    Where x.Attribute("ID").Value = "88888" _
    Select x
'出力
For Each i In query
    Console.WriteLine(i.Attribute("ID").Value + " : " + i.Element("Name").Value + " : " + i.Element("Address").Value)
Next

//XML文書の読込み
Console.WriteLine("XMLファイルを読込む");
var ReadedUsers = XDocument.Load(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml");
Console.WriteLine(ReadedUsers.Declaration);
Console.WriteLine(ReadedUsers);
//クエリ式の発行
Console.WriteLine("クエリ式を発行して値を取得");
var query =
    from x in ReadedUsers.Descendants("User")
    where x.Attribute("ID").Value == "88888"
    select x;
//出力
foreach (var i in query)
{
    Console.WriteLine(i.Attribute("ID").Value + " : " + i.Element("Name").Value + " : " + i.Element("Address").Value);
}

通常、特定の要素を検索対象とするには正確に木構造を辿る形で指定していく必要がある。

しかし、Linq to XMLではDescendantsで要素名を指定すれば木構造を辿らずダイレクトに指定する事が出来る。

上記は、ID属性が”88888″のユーザ情報をコンソールに表示している。

XMLファイルを読込む
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<!--ユーザリスト-->
<Users>
    <User ID="99999">
        <Name>Jyunpei Ryuzouji</Name>
        <Address>Shizuoka</Address>
    </User>
    <User ID="88888">
        <Name>Rituko Inoue</Name>
        <Address>Fukuoka</Address>
    </User>
    <User ID="77777">
        <Name>Airi Komiyama</Name>
        <Address>Tokyo</Address>
    </User>
</Users>
クエリ式を発行して値を取得
88888 : Rituko Inoue : Fukuoka

メソッドベースでのLINQの記述

メソッドベースでもLINQの記述が可能。

'XML文書の読込み
Console.WriteLine("XMLファイルを読込む")
Dim ReadedUsers = XDocument.Load(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml")
Console.WriteLine(ReadedUsers.Declaration)
Console.WriteLine(ReadedUsers)
'メソッドベース（ラムダ式）でLINQを記述
Console.WriteLine("メソッドベース（ラムダ式）で値を取得")
Dim lambda = ReadedUsers.Descendants("User").Where(Function(x) x.Attribute("ID").Value = "99999")
For Each i In lambda
    Console.WriteLine(i.Attribute("ID").Value + " : " + i.Element("Name").Value + " : " + i.Element("Address").Value)
Next

//XML文書の読込み
Console.WriteLine("XMLファイルを読込む");
var ReadedUsers = XDocument.Load(System.AppDomain.CurrentDomain.BaseDirectory + "Users.xml");
Console.WriteLine(ReadedUsers.Declaration);
Console.WriteLine(ReadedUsers);
//メソッドベース（ラムダ式）でLINQを記述
Console.WriteLine("メソッドベース（ラムダ式）で値を取得");
var lambda = ReadedUsers.Descendants("User").Where(x => x.Attribute("ID").Value == "99999");
//出力
foreach (var i in lambda)
{
    Console.WriteLine(i.Attribute("ID").Value + " : " + i.Element("Name").Value + " : " + i.Element("Address").Value);
}

上記は、ID属性が”99999″のユーザ情報をコンソールに表示している。

XMLファイルを読込む
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<!--ユーザリスト-->
<Users>
    <User ID="99999">
        <Name>Jyunpei Ryuzouji</Name>
        <Address>Shizuoka</Address>
    </User>
    <User ID="88888">
        <Name>Rituko Inoue</Name>
        <Address>Fukuoka</Address>
    </User>
    <User ID="77777">
        <Name>Airi Komiyama</Name>
        <Address>Tokyo</Address>
    </User>
</Users>
メソッドベース（ラムダ式）で値を取得
99999 : Jyunpei Ryuzouji : Shizuoka