ListView とかの子要素があるコントロールで、子要素(メニューの一項目とか)をダブルクリックで操作したい場合があります。
　これを実現するとき、単純に ListView のイベント(ListView.MouseDoubleClick) に処理を記述すると、子要素のない領域や、スクロールバーへのダブルクリックでも反応してしまい、面倒です。
　これに対処するには、子要素(ListViewItem) のイベント (ListViewItem.MouseDoubleClick) に処理を書くようにします。
　ただ、直接は指定できないので、Style 設定を経由して指定します。 (直接書ける方法があるかもしれないけど知らない--;）

<ListView Name="A"
          ItemsSource="{Binding Items}"
          Margin="0,0,0,275">
    <ListView.Resources>
        <Style TargetType="ListViewItem">
            <EventSetter Event="MouseDoubleClick"
                         Handler="ListViewItem_MouseDoubleClick" />
        </Style>
    </ListView.Resources>

    <ListView.ItemTemplate>
        <DataTemplate>
            <TextBlock Text="{Binding}" />
        </DataTemplate>
    </ListView.ItemTemplate>
</ListView>

　コードビハインドの例はこんな感じ

Class MainWindow 
    Public Property Items As New ObjectModel.ObservableCollection(Of String)

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Me.DataContext = Me

        Me.Items.Add("あああ")
        Me.Items.Add("いいい")
        Me.Items.Add("ううう")
        Me.Items.Add("えええ")
    End Sub

    Private Sub ListViewItem_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs)
        Dim item = CType(sender, ListViewItem)
        MsgBox(item.Content)

    End Sub
End Class

　標準のチェックボックスではいささか小さい…という場合には、LayoutTransform に ScaleTransform を設定すると大きくできます。

<CheckBox Content="ああああ">
    <CheckBox.LayoutTransform>
        <ScaleTransform CenterX="0"
                        CenterY="0"
                        ScaleX="1.5"
                        ScaleY="1.5" />
    </CheckBox.LayoutTransform>        
</CheckBox>

　ただ、上記の方法だと、チェックボックスのキャプション(Content) も拡大されてしまいます。キャプションは拡大したくない…という場合は、Caption は CheckBox 内に配置するのではなく、外側に TextBlock を配置することで解決します。

　ついでですが、LayoutTransform に複数の変形要素を設定したい場合は、TransformGroup で囲みます。

<Grid>
    <Grid.RowDefinitions>
        <RowDefinition Height="Auto" />
        <RowDefinition Height="*" />
    </Grid.RowDefinitions>

    <StackPanel Orientation="Horizontal">
        <CheckBox>
            <CheckBox.LayoutTransform>
                <TransformGroup>
                    <ScaleTransform CenterX="0"
                                    CenterY="0"
                                    ScaleX="1.5"
                                    ScaleY="1.5" />
                    <RotateTransform CenterX="0"
                                     CenterY="0"
                                     Angle="45"/>
                </TransformGroup>
            </CheckBox.LayoutTransform>
        </CheckBox>
        <TextBlock Text="ああああ"
                   VerticalAlignment="Center" />
    </StackPanel>
</Grid>

　また、LayoutTransform と LayoutTransform の違いはここが詳しいです。
　http://d.hatena.ne.jp/Yamaki/20070222/1172107092

　DataGrid にコンボボックスやチェックボックスを配置する場合、DataGridComboBoxColumn や DataGridCheckBoxColumn を使用するのが標準的な方法です。が、これだとメニュー表示するまでに、「セルを選択」→「編集モード移行」→「メニュー表示」、と3クリックを必要とします。　# なんでこんな仕様に…（汗

初期状態

1Click 目

2Click 目

3Click 目

　DataGrid の仕様として、「セルを選択の後、再度クリックすると編集モードになり、そこから…」ということのようなので、そうなるのは理解できるとしても、操作感としては「面倒」以外何物もないわけです。
　チェックボックスも同様で、チェックの On/Off をするのに 2Click を必要とします。

　これを「セルを選択と同時にメニューを表示したい」場合、DataGridComboBoxColumn の使用は諦めて、DataGridTemplateColumn を構成するのが近道のようです。たとえば以下のような感じ。

<DataGrid AutoGenerateColumns="False"
          ItemsSource="{Binding DataGridItems}">
    <DataGrid.Columns>

        <!-- コンボボックス側 -->
        <DataGridTemplateColumn IsReadOnly="True">
            <DataGridTemplateColumn.CellTemplate>
                <DataTemplate>
                    <ComboBox SelectedItem="{Binding Choice,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
                              VerticalContentAlignment="Center">
                        <ComboBox.Items>
                            <System:String>あああ</System:String>
                            <System:String>いいい</System:String>
                            <System:String>ううう</System:String>
                        </ComboBox.Items>
                    </ComboBox>
                </DataTemplate>
            </DataGridTemplateColumn.CellTemplate>
        </DataGridTemplateColumn>

        <!-- チェックボックス側 -->
        <DataGridTemplateColumn IsReadOnly="True">
            <DataGridTemplateColumn.CellTemplate>
                <DataTemplate>
                    <CheckBox IsChecked="{Binding Check, Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
                              HorizontalAlignment="Center"
                              VerticalAlignment="Center">
                    </CheckBox>
                </DataTemplate>
            </DataGridTemplateColumn.CellTemplate>
        </DataGridTemplateColumn>

    </DataGrid.Columns>
</DataGrid>

　ポイントは、Binding の際に UpdateSourceTrigger を設定してすること。
　"UpdateSourceTrigger=LostFocus" でも "UpdateSourceTrigger=PropertyChanged" でもどちらでもよいですが、適切なものを設定します。
　でないとデフォルトは "UpdateSourceTrigger=Explicit" 相当の動きとなってしまうようなので、"Mode=TwoWay" にしててもデータソースに更新されません。

　DataGrid の ComboBox に固定のリストを割り当てる例。
　ポイントは、DataGridComboBoxColumn には ComboBox (DataGridComboBoxColumn でない普通の ComboBox) にはある、Items プロパティがないので、直接要素が列記できなくて、Array あたりで括っておかないとならない点です。(面倒な…)

<DataGrid AutoGenerateColumns="False"
          ItemsSource="{Binding DataGridItems}" >
    <DataGrid.Columns>

        <DataGridComboBoxColumn SelectedValueBinding="{Binding Choice}">
            <DataGridComboBoxColumn.ItemsSource>
                <x:Array Type="{x:Type System:String}">
                    <System:String>あああ</System:String>
                    <System:String>いいい</System:String>
                    <System:String>ううう</System:String>
                </x:Array>
            </DataGridComboBoxColumn.ItemsSource>
        </DataGridComboBoxColumn>

        <DataGridCheckBoxColumn Binding="{Binding Check}" />

    </DataGrid.Columns>
</DataGrid>

　上記をテストするプログラムはたとえばこんな。

Class MainWindow 

    Public Property DataGridItems As New ObjectModel.ObservableCollection(Of DataGridItem)

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Me.DataContext = Me

        DataGridItems.Add(New DataGridItem)
        DataGridItems.Add(New DataGridItem)
    End Sub

    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        For Each x In Me.DataGridItems
            Debug.Print(String.Format("{0} {1}", x.Choice, x.Check))
        Next
    End Sub
End Class

Public Class DataGridItem
    Public Property Choice As String
    Public Property Check As Boolean

End Class

　あと、System.String を使用するために、clr-namespace:System;assembly=mscorlib を import しておきます。

<Window x:Class="MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:System="clr-namespace:System;assembly=mscorlib"
        Title="MainWindow"
        Height="350"
        Width="525">

　VB には BASIC の時代から連綿と語り継がれている命令がありまして、End 命令もその一つ。しかしこの End 命令を安易に使うとひどい目にあう場合があります。

　たとえば最近の言語では例外機構が装備されていて、Finally ブロックは必ず実行すると信じられています。しかし、End 命令を使用すると Finally ブロックは実行されません。

Module Module1
    Sub Main()
        Try
            Console.WriteLine("終了")
            End

        Finally
            Console.WriteLine("ここは通らない")

        End Try
    End Sub
End Module

　End 命令は .net 的には Environment.Exit(0) で、C言語でいう exit(0); と等価です。プログラムがその場で中断されてしまいます。なのでパッと見た目正常にプロセスが落ちたように見えますが、いろいろな処理が抜け落ちてしまっている可能性があります。
　特に「Finally で後処理をしているから大丈夫」という前提を持つとき、誰かが End を使用すると、その前提が覆ってしまいます。つまり、Finally への信頼が裏切られてしまいます。
　また同様に、GUI 系では、プロセス(?)の終了イベントとして、MyApplication_Shutdown (WinForms) や　Application_Exit (WPF) が用意されていますが、End を使用するとこのイベントが発生しません。この点も注意すべきポイントです。

　したがって、End 命令は安易に使うべきではありません。特に、プロセスが終了しないから End で終了させよう、というアプローチを行うと、後日死ぬ目を見ることがあるので注意です。

　ちなみに以下は End (Environment.Exit) を実行したときに通る箇所と通らない個所のまとめ。
　Finalizer は実行されますが、Dispose メソッドや Finally ブロックは実行されず、Thread も唐突に閉じられます。

Module Module1

    Sub Main()
        ' Newのみ
        Dim obj = New Class1

        ' ワーカースレッド起動
        Dim t = New System.Threading.Thread(AddressOf worker)
        t.Start()

        Try
            System.Threading.Thread.Sleep(1000)
            Console.WriteLine("終了")
            Environment.Exit(0) ' End　

        Finally
            Console.WriteLine("ここは通らない")

        End Try

    End Sub

    ' ワーカースレッド
    Sub worker()
        Try
            Console.WriteLine("スレッド実行中")
            ' 無限待ち
            System.Threading.Thread.Sleep(-1)

        Finally
            Console.WriteLine("ここは通らない")

        End Try

    End Sub
End Module

Class Class1
    Implements IDisposable

    ' ファイナライザー
    Protected Overrides Sub Finalize()
        Console.WriteLine("ここは通る")
    End Sub


#Region "IDisposable Support"
    ' IDisposable
    Protected Overridable Sub Dispose(disposing As Boolean)
        Console.WriteLine("ここは通らない")

    End Sub

    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

　「三菱、個人向け液晶ディスプレイ事業を終息」らしい。
　http://pc.watch.impress.co.jp/docs/news/20131205_626483.html

　ダイアモンドトロンは、自分自身 Nanao の 54T で使っていたし、友人にも勧めたりしてました。ちょっと感慨深いものがありますね。もっとも CRT の生産ははるか昔に終わっているわけではありますが。

　PC Watchの記事で振り返る三菱電機のディスプレイ
　http://pc.watch.impress.co.jp/docs/topic/feature/0131207_626649.html

　Windows 7 以降ではタスクバーアイコンにプログレス表示ができるようになりましたが、その実装例。

　XAML 側。ProgressState を Normal にすることで表示されるようになります。

<Window x:Class="MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="MainWindow"
        Height="350"
        Width="525">

    <Window.TaskbarItemInfo>
        <TaskbarItemInfo x:Name="TaskBarItemInfo1"
                         ProgressState="Normal"/>
    </Window.TaskbarItemInfo>

</Window>

　コードビハインド側。特に DoEvents 的な何かを入れなくても更新される模様。

For i = 0.1 To 1.0 Step 0.1
    Me.TaskBarItemInfo1.ProgressValue = i
    System.Threading.Thread.Sleep(1000)
Next

　右クリックするとその場所に表示されるポップアップメニューが欲しい場合、ContextMenu を実装することで実現できます。
　実装例は以下。

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525">

    <Window.Resources>
        <ContextMenu x:Key="Menu1" FontSize="32">
            <MenuItem Header="MenuItem1"
                      Click="MenuItem1_Click" />
            <MenuItem Header="MenuItem2">
                <MenuItem Header="MenuItem21"
                          Click="MenuItem21_Click" />
                <MenuItem Header="MenuItem22"
                          Click="MenuItem22_Click" />
            </MenuItem>
        </ContextMenu>
    </Window.Resources>

    <StackPanel>
        <Button Content="A"
                ContextMenu="{StaticResource Menu1}" />
        <Button Content="B"
                ContextMenu="{StaticResource Menu1}" />
        <Button Content="C"
                ContextMenu="{StaticResource Menu1}" />
    </StackPanel>

</Window>

　上記は、複数のコントロールで同じメニューを使う、というのを前提にしたので、ContextMenu の定義は Resources に定義しています。
　フォントやフォントサイズも変えられるようです。

　また、上記の定義で右クリックすると ContextMenu が表示されますが、プログラムによってメニューを表示したいという場合は、たとえば以下のコードで実現できます。（ContextMenu の IsOpen を True にする）

' ボタンの ContextMenu を経由して表示
Private Sub ButtonA_Click(sender As Object, e As RoutedEventArgs)
    Dim b = DirectCast(sender, Button)
    b.ContextMenu.IsOpen = True
End Sub


' 直接 Resources を参照して表示
Private Sub ButtonB_Click(sender As Object, e As RoutedEventArgs)
    Dim c = DirectCast(Me.Resources("Menu1"), ContextMenu)
    c.IsOpen = True
End Sub

　マウスをクリックした箇所の座標を取得する場合、以下のように記述すると、クリックした位置を取得することができます。
　（以下は右クリックを押した時の例)

Private Sub Window1_MouseRightButtonDown(sender As Object, e As MouseButtonEventArgs) _
        Handles Me.MouseRightButtonDown

    Dim clientPoint = e.GetPosition(Me)
    Dim screenPoint = Me.PointToScreen(clientPoint)

    Debug.WriteLine("Client領域の座標(相対座標) {0}", clientPoint)
    Debug.WriteLine("Screen領域の座標(絶対座標) {0}", screenPoint)

End Sub

　StackPanel で積んでいって、最後のコントロールに残っている領域すべてを割り当てたい場合、たとえば以下のように実装します。
　この例では、StackPanel だけでは無理そうなので DockPanel の力を借りています。

<DockPanel>
    <!-- StackPanelの部分 -->
    <StackPanel DockPanel.Dock="Top">
        <Button Content="AAAA" />
        <Button Content="AAAA" />
        <Button Content="AAAA" />
        <Button Content="AAAA" />
    </StackPanel>

    <!-- あまりの部分 -->
    <TextBox AcceptsReturn="True"
             HorizontalScrollBarVisibility="Auto"
             VerticalScrollBarVisibility="Auto"/>
</DockPanel>

　2013-12-8 追記

　「Grid ではダメなのか？」という指摘を受けたので Grid を使った例について記す。
　ポイントは、StackPanel 部分の RowDefinition を "Auto" に設定し、あまり側の RowDefinition を "*" で設定してる点。

<Grid>
    <Grid.RowDefinitions>
        <RowDefinition Height="Auto" />
        <RowDefinition Height="*" />
    </Grid.RowDefinitions>

    <!-- StackPanelの部分 -->
    <StackPanel>
        <Button Content="AAAA" />
        <Button Content="AAAA" />
        <Button Content="AAAA" />
        <Button Content="AAAA" />
    </StackPanel>

    <!-- あまりの部分 -->
    <TextBox Grid.Row="1"
             AcceptsReturn="True"
             HorizontalScrollBarVisibility="Auto"
             VerticalScrollBarVisibility="Auto"/>
</Grid>

　業務アプリにありがちな、シングルウインドウで画面展開していき、子画面を閉じると親画面が表示される系の実装例。いわゆるパンくずリスト。（まあ以下の実装はリスト表示ではないので、正確にはパンくずリストではないですが）

　具体的には、次の画面を .show した後に、次の画面の .Owner に親画面のインスタンスを突っ込んでおきます。
　その後、親画面は .Hide で非表示にします。

　子画面が閉じられたときは、.Owner を .show してやれば親画面の表示が戻ります。
　.Owner の Nothing を確認しているのは、ルートウインドウは親要素がセットされていないため。

Class MainWindow 

    Private Shared _count As Integer = 0

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        _count += 1
        Me.Title = CStr(_count)  ' いつ作った Window なのかを確認するための、デバッグ情報。
    End Sub

    ' 子画面を開く
    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        Dim f = New MainWindow
        f.Show()
        f.Owner = Me
        Me.Hide()
    End Sub

    ' 画面を閉じる
    Private Sub MainWindow_Closed(sender As Object, e As EventArgs) Handles Me.Closed
        If (Me.Owner Is Nothing) = False Then   ' ルートウインドウではないなら
            Me.Owner.Show()
        End If
    End Sub

End Class

　上記はテストプログラムなので、Title に生成した Windows 番号(_count) を表示して、いつ作成したかわかるようにしています。
　また、本来は複数のウインドウで呼び合いますが、枚数作るのは面倒だったので、再帰でサンプルを作っています。

　Enum の要素数、あるいは最大値が欲しい場合、以下のように書きます。
　また、要素数のほうはそのまま .Length メソッドで取得できますが、最大値のほうは Cast してやらないと .Max メソッドが使えません。

' 要素数を得る
Dim a = [Enum].GetValues(GetType(十干))
Console.WriteLine("要素数 = {0}", a.Length)

' 最大値を得る
Dim b = CType(a, Integer())
Console.WriteLine("最大値 = {0}", b.Max)

　対象の Enum

Enum 十干
    甲 = 0
    乙
    丙
    丁
    戊
    己
    庚
    辛
    壬
    癸
End Enum

　実行結果

要素数 = 10
最大値 = 9
続行するには何かキーを押してください . . .

　Shared (Static) なメンバー変数の初期化を、各メンバー変数の初期化子で行うのではなく、まとめてどこかで…という場合には、静的コンストラクタに書けばよいらしいです。

　たとえば以下のように書きます。
　ポイントは Shared Sub New() に処理を書くことと、Public などのスコープは指定しないことです。

Class Class1
    Public Shared Member1 As Integer

    Shared Sub New()
        Member1 = 100
    End Sub
End Class

　呼び出し側は以下。

Module Module1
    Sub Main()
        Console.WriteLine("{0}", Class1.Member1)
    End Sub
End Module

　結果。ちゃんとコンストラクタで定義した値が取得できます。

100
続行するには何かキーを押してください . . .

　ちなみに、初期化子にも値を設定していました…というケースは New 側が優先されます。(普通のインスタンスの場合と同じ）

　.net Framework 4 からなのか、ExpandoObject という、動的にメンバーが追加できる型ができたようです。

Dim person As Object = New Dynamic.ExpandoObject

person.ID = 1
person.Name = "Name"

Console.WriteLine(person.ID)
Console.WriteLine(person.Name)
Console.WriteLine("-----------")
Console.WriteLine(TypeName(person))
Console.WriteLine(TypeName(person.ID))
Console.WriteLine(TypeName(person.Name))

　結果

1
Name
-----------
ExpandoObject
Integer
String
続行するには何かキーを押してください . . .

　存在しないメンバーに代入すれば、宣言なしでメンバーができるってのは楽ですね。
　ただし、これを扱うには、Option Strict は Off にしておく必要があるのと、型推論は効かさないようにする必要があります。
　(Dim Dim person = New Dynamic.ExpandoObject、ではなく、Dim person As Object = New Dynamic.ExpandoObject、のように「As Object」を省略しないようにします）

　以下のようなクラスがあったとして。

' 親クラス
Public MustInherit Class SuperClass
    Private _superClassField As Integer = 1

    Private Function superClassMethod(arg As String) As String
        Return "Super " & arg
    End Function
End Class

' 子クラス
Public Class SubClass
    Inherits SuperClass

    Private _subClassField As Integer = 2

    Private Function subClassMethod(arg As String) As String
        Return "Sub " & arg
    End Function
End Class

　このサブクラス側の Private メンバーにアクセスするには以下のようにします。
　具体的には、ターゲットのクラスを GetType し InvokeMember でアクセスします。

Dim target = New SubClass
Dim t = GetType(SubClass)

Dim value1 = t.InvokeMember("_subClassField",
                               Reflection.BindingFlags.GetField Or
                               Reflection.BindingFlags.Instance Or
                               Reflection.BindingFlags.NonPublic,
                            Nothing,
                            target,
                            Nothing)
Console.WriteLine(value1)

Dim value2 = t.InvokeMember("subClassMethod",
                               Reflection.BindingFlags.InvokeMethod Or
                               Reflection.BindingFlags.Instance Or
                               Reflection.BindingFlags.NonPublic,
                            Nothing,
                            target,
                            {"Args"})
Console.WriteLine(value2)

　結果

2
Sub Args
続行するには何かキーを押してください . . .

　継承元の Private メンバーにアクセスしたい場合は、GetType するクラスを、アクセスしたいメンバーがいるクラス名にします。
　今回の例だと、親クラスを指定して GetType します。

Dim target = New SubClass
Dim t = GetType(SuperClass)

Dim value1 = t.InvokeMember("_superClassField",
                               Reflection.BindingFlags.GetField Or
                               Reflection.BindingFlags.Instance Or
                               Reflection.BindingFlags.NonPublic,
                            Nothing,
                            target,
                            Nothing)
Console.WriteLine(value1)

Dim value2 = t.InvokeMember("superClassMethod",
                               Reflection.BindingFlags.InvokeMethod Or
                               Reflection.BindingFlags.Instance Or
                               Reflection.BindingFlags.NonPublic,
                            Nothing,
                            target,
                            {"Args"})

Console.WriteLine(value2)

　結果

1
Super Args
続行するには何かキーを押してください . . .

　WPF の TextBox をマウスでクリックして選択した場合、クリックした箇所に近い文字間にキャレットが挿入されます。
　そうじゃなくて、IE の URL を入力するところのように、テキストを全選択したい…というケースの実装方法について。

　具体的には、以下のような流れで処理しています。

　コードビハインド側

Class MainWindow 

  Private Sub TextBox_PreviewMouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
    Dim t = CType(sender, TextBox)

    If (t.IsFocused = False) Then
      t.Focus()
      e.Handled = True

    End If

  End Sub

  Private Sub TextBox_GotFocus(sender As Object, e As RoutedEventArgs)
    Dim t = CType(sender, TextBox)

    t.SelectAll()

  End Sub

End Class

　XAML側

<Window ....
  <Window.Resources>
    <Style TargetType="TextBox">
      <EventSetter Event="PreviewMouseLeftButtonDown" Handler="TextBox_PreviewMouseLeftButtonDown"/>
      <EventSetter Event="GotFocus" Handler="TextBox_GotFocus"/>
    </Style>
    
  </Window.Resources>
  <StackPanel>
    <TextBox Text="AAAA"/>
    <TextBox Text="BBBB"/>
    <TextBox Text="CCCC"/>
    <TextBox Text="DDDD"/>
  </StackPanel>
</Window>

　なんでこんな処理になるかというと、デフォルトでは、以下の動きをしているようです。（予想／根拠なし）

　つまり、2. のフォーカスを取得した段階でテキストを全選択 (.SelectAll) しても、その後の 3. の処理で全選択が解除(=キャレットが設定)されてしまいます。

　このため、PreviewMouseLeftButtonDown イベントの段階でイベントチェーンを断ち切ることで、MouseLeftButtonDown イベントを抑止し、キャレットが移動することを阻止しています。
　阻止するのはそのテキストボックスが初めてフォーカスを得るとき(クリックしたときにフォーカスがない場合)のみです。でないと、マウスクリックでキャレットを移動させることそのものができなくなってしまいます。
　また、以後のイベントを抑止してしまうと、既定の TextBox に Focus を与える処理に届かなくなるので、イベントの抑止と同時にフォーカスを強制的に得るようにします。

　なお、PreviewMouseLeftButtonDown イベント(トンネル イベント)と MouseLeftButtonDown イベント(バブルイベント)の違いについては以下が詳しいです。

　http://msdn.microsoft.com/ja-jp/library/ms742806.aspx#how_event_processing_works

　参考) イベントの伝播
　

　Windows Forms だと Me.ControlBox = False 一発で消せるコントロールボックスですが、WPF だとそのようなプロパティは用意されておらず、結局のところ Win32API に頼る以外に方法がない模様です。

　ということで、その方法を列挙。

1. タイトルバー右側のコントロールボックス(最大化／最小化／閉じるボタン)と、タイトルバー左側のシステムメニューボタンの消去。

   Shared Sub DisableControlBox(w As Window)
       Const GWL_STYLE = -16
       Const WS_SYSMENU = &H80000
   
       Dim hwnd = (New System.Windows.Interop.WindowInteropHelper(w)).Handle
   
       Dim currentValue = GetWindowLong(hwnd, GWL_STYLE)
       Dim oldValue = SetWindowLong(hwnd, GWL_STYLE, currentValue And (Not WS_SYSMENU))
   End Sub
   

2. 最大化ボタンの無効化。

   Shared Sub DisableMaximizeBox(w As Window)
       Const GWL_STYLE = -16
       Const WS_MAXIMIZEBOX = &H10000
   
       Dim hwnd = (New System.Windows.Interop.WindowInteropHelper(w)).Handle
   
       Dim currentValue = GetWindowLong(hwnd, GWL_STYLE)
       Dim oldValue = SetWindowLong(hwnd, GWL_STYLE, currentValue And (Not WS_MAXIMIZEBOX))
   End Sub
   

3. 最小化ボタンの無効化。

   　最大化無効と最小化無効の両方を実行すると、ボタンそのものが消去されます。
   　Me.WindowStyle = Windows.WindowStyle.ToolWindow との違いは、システムメニューアイコンが残ることと、閉じるボタンが小さくならないことでしょうか。

   Shared Sub DisableMinimizeBOX(w As Window)
       Const GWL_STYLE = -16
       Const WS_MINIMIZEBOX = &H20000
   
       Dim hwnd = (New System.Windows.Interop.WindowInteropHelper(w)).Handle
   
       Dim currentValue = GetWindowLong(hwnd, GWL_STYLE)
       Dim oldValue = SetWindowLong(hwnd, GWL_STYLE, currentValue And (Not WS_MINIMIZEBOX))
   End Sub
   

4. 閉じるボタンの無効化。

   　閉じるボタンの無効化だけ、他と違って SetWindowLong ではなく EnableMenuItem で実現。

   Public Shared Sub DisableCloseBox(w As Window)
       Const SC_CLOSE = &HF060
       Const MF_BYCOMMAND = &H0
       Const MF_GRAYED = &H1
   
       Dim hwnd = (New System.Windows.Interop.WindowInteropHelper(w)).Handle
   
       Dim hMenu As IntPtr = GetSystemMenu(hwnd, False)
   
       If hMenu <> IntPtr.Zero Then
           EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND Or MF_GRAYED)
       End If
   End Sub
   

　あと、上記を実行するために必要な Declare 宣言は以下。

1. コントロールボックスの消去、最大化／最小化ボタンを無効にするときに必要な Declare 宣言。

   Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (
           ByVal hWnd As IntPtr, 
           ByVal nIndex As Integer) As Integer
   
   Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( 
           ByVal hWnd As IntPtr, 
           ByVal nIndex As Integer, 
           ByVal dwNewLong As Integer) As Integer
   

2. 閉じるボタンを無効にするときに必要な Declare 宣言。

   Private Declare Function GetSystemMenu Lib "user32" ( 
           ByVal hwnd As IntPtr,
           ByVal bRevert As Integer) As Long
   
   Private Declare Function EnableMenuItem Lib "user32" ( 
           ByVal hWnd As IntPtr, 
           ByVal uIDEnableItem As UInteger, 
           ByVal uEnable As UInteger) As Boolean
   

　あと、注意点としては、上記の方法で閉じるボタンを無効化／消去しただけでは、ALT+F4 を押すと Window は閉じてしまいます。
　このため、Window を閉じたくない場合は、Window の Closing イベントで e.Cancel = True で閉じなくするなどの対策が必要になります。

　しかし WPF・・・、このかゆいところに手が届かない感じは、早めになんとかしてほしいのではありますが（汗

　参考) Window の各部の名称

　キーボードでのコントロールの移動は、基本は TAB 押下で移動させるのが Windows のデザインのはずですが、Enter で移動させたい（あるいはさせていた）という場合があります。
　その場合は、以下の EnterThenNextFocus を作成して、これを KeyDown イベントで呼び出されるようにすることで実現できます。

　コードビハインド

Class MainWindow 

    Private Sub EnterThenNextFocus(sender As Object, e As KeyEventArgs)

        If e.Key = Key.Enter Then
            Dim u = DirectCast(sender, UIElement)
            u.MoveFocus(New TraversalRequest(FocusNavigationDirection.Next))

        End If
    End Sub
End Class

　XAML

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525">

    <Window.Resources>
        <Style TargetType="TextBox">
            <EventSetter Event="KeyDown" Handler="EnterThenNextFocus"/>
        </Style>
        <Style TargetType="ComboBox">
            <EventSetter Event="KeyDown" Handler="EnterThenNextFocus"/>
        </Style>
    </Window.Resources>

    <StackPanel>
        <TextBox TabIndex="1"/>
        <TextBox TabIndex="4"/>
        <ComboBox TabIndex="2"/>
        <TextBox TabIndex="3"/>
    </StackPanel>
</Window>

　テスト用のモックを作りたい時など、メソッドの内容をテスト用のものに差し替えたい場合があります。
　これを実現するために RealProxy を使用する方法があります。

　大前提として、以下の Import を追加しておきます。

Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Proxies
Imports System.Runtime.Remoting.Messaging

　まずターゲットとなるクラスを作成します。
　普段と異なるのは、MarshalByRefObject を継承しておく点です。

Public Class Class1
    Inherits MarshalByRefObject

    Public Function Read() As String
        Return "本物"
    End Function
End Class

　次に以下のプロキシークラスを作ります。
　ReturnMessage クラスが、メソッドの戻り値を作る部分です。
　今回は「偽物」を Return として戻す設定です。

Public Class Class1Proxy
    Inherits RealProxy

    Public Sub New()
        MyBase.New(GetType(Class1))
    End Sub

    Public Overrides Function Invoke(msg As IMessage) As IMessage
        Dim mm = CType(msg, IMethodMessage)

        Return New ReturnMessage("偽物!", Nothing, 0, mm.LogicalCallContext, mm)
    End Function
End Class

　これを以下の手順で呼びます。

Module Module1
    Sub Main()
        ' プロキシーを生成する
        Dim proxy = New Class1Proxy
        Dim p = proxy.GetTransparentProxy

        ' 作成されたプロキシーを、元のクラスにキャストする
        Dim a = CType(p, Class1)

        ' 呼んでみる
        Console.WriteLine("{0}", a.Read)
    End Sub
End Module

　しかしこのコードだと、呼ばれたメソッドが何であれ、必ず "偽物!" が戻ってしまいます。

　何のメソッドが呼ばれたかを確認するためには、前述 Class1Proxy.Invoke の mm.MethodBase.Name を使用することで可能です。
　本物のメソッドを呼びたい、という場合は、RemotingServices.ExecuteMessage を使用します。
　以上を踏まえると、Class1 のうち Read() のみを模擬で、他は本物のメソッド呼びたい場合、Class1Proxy は以下のように書けます。

Public Class Class1Proxy
    Inherits RealProxy

    Private _target As Class1

    Public Sub New(target As Class1)
        MyBase.New(GetType(Class1))

        ' 本物を呼び出す用のインスタンスを外部から受ける
        _target = target 
    End Sub

    Public Overrides Function Invoke(msg As IMessage) As IMessage
        Dim mm = CType(msg, IMethodMessage)

        ' メソッド名で分岐
        Select Case mm.MethodBase.Name
            Case "Read"
                ' 模擬で戻す
                Return New ReturnMessage("偽物!", Nothing, 0, mm.LogicalCallContext, mm)

            Case Else
                ' 本物を実行
                Return RemotingServices.ExecuteMessage(_target, mm)

        End Select
    End Function
End Class

　で、これでテスト用のモックが作れるかいうと…　ちょっと面倒な気がします。
　理由は以下。

　個人的には 4. が鬼門。テストのためにリリースコードを汚す、というのがどうも好きになれないので。
　リリースコードを汚す前提なら、テスト用の Interface を切ったほうがスマートかな、という気がしていたりします。

　たとえばこんなクラスがあったとして。

' 親クラス
Public MustInherit Class SuperClass
    Private Function SuperClassMethod() As String
        Return "Super"
    End Function
End Class

' 子クラス
Public Class SubClass
    Inherits SuperClass

    Private Function SubClassMethod() As String
        Return "Sub"
    End Function
End Class

　継承元クラスの Private を呼び出す場合、テストはこう書けます。

Imports Microsoft.VisualStudio.TestTools.UnitTesting

<TestMethod()> Public Sub UnitTest2()
    Dim target = New ClassLibrary1.SubClass

    ' 子クラス側アクセス
    Dim po = New PrivateObject(target)
    Dim retSub = po.Invoke("SubClassMethod")
    Assert.AreEqual(retSub, "Sub")

    ' 親クラス側アクセス
    Dim poSuper = New PrivateObject(target, New PrivateType(GetType(ClassLibrary1.SuperClass)))
    Dim retSuper = poSuper.Invoke("SuperClassMethod")
    Assert.AreEqual(retSuper, "Super")

End Sub

　ポイントは、親クラスのメソッドを呼びたい場合は、PrivateObject のコンストラクタ第二引数に、親クラスの型を指定した PrivateType のインスタンスを渡すところです。
　また、このインスタンス (poSuper) では、子クラス側のメソッドは呼べません。したがって子クラスのメソッドを呼びたい場合は、子クラスアクセス用のインスタンスを別に作る必要があります。

　VC++(VS2012) で以下のプログラムを、コマンドラインでコンパイルして実行。

#include <stdio.h>

void func() {
    int a[10];
    int i;

    printf("-----------");

    for (i=0; i<10; i++) {
       printf("%08xn",a[i]);  // 初期化前の値を表示

       a[i] = 0x1234;          // 初期化?
    }
}

int main() {
    func();  // 一回目
    func();  // 二回目
}

　コンパイルのコマンドはこう。

cl ConsoleApplication1.c

　結果はこんな。自動変数は初期化されていないのがわかる。

C>test
-----------
011937fb
00e0f708
01199118
00e0f784
011924a0
35abafe8
fffffffe
0119538c
01195457
011937fb
-----------
00001234
00001234
00001234
00001234
00001234
00001234
00001234
00001234
00001234
00001234

　次に、VS2012 の IDE 上で、「Win32 コンソールアプリケーション」で作成、コンパイルしてみる。ソースコードは以下。

#include "stdafx.h"

void func() {

    printf("-----------n");

    int a[10];
    for (int i=0; i<10; i++) {
       printf("%08xn",a[i]);  // 初期化前の値を表示

       a[i] = 0x1234;          // 初期化?
    }
}

int _tmain(int argc, _TCHAR* argv[])
{
    func();  // 一回目
    func();  // 二回目

	return 0;
}

　結果はこんな。

-----------
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
-----------
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc
cccccccc

　0xcc で初期化されている。(*1)

　おまけに C# でもやってみる。

using System;

namespace ConsoleApplication1
{
    class Program
    {
        static void func()
        {
            Console.WriteLine("-----------");

            int[] a = new int[10];

            for (int i = 0; i < 10; i++)
            {
                Console.WriteLine("{0}", a[i]);

                a[i] = 0x1234;
            }
        }

        static void Main(string[] args)
        {
            func();  // 一回目
            func();  // 二回目
        }
    }
}

　結果はこう。

-----------
0
0
0
0
0
0
0
0
0
0
-----------
0
0
0
0
0
0
0
0
0
0

　C# はつまらん…（何

(*1)
　これは、デバックモードで実行した結果です。
　デバックモードでは、コンパイルオプション /RTCs 相当が指定されていることに起因します。
　　http://msdn.microsoft.com/ja-jp/library/8wtf2dfz.aspx
　したがって、このオプションを外せば、C++ の場合でも上記 C言語と同様に自動変数は初期化されません。

　Enumerable.Repeat は 第一引数で得た値を、第二引数の指定数、繰り返し代入します。
　気を付けなくてはならないのは、第一引数の処理の実行は1回だけという点です。第一引数の処理が、第二引数の指定数だけ実行されるわけではない点です。
　したがって、第一引数が戻す型が参照型の場合、ひどい目にあう場合があります。

　コード

Module Module1
    Sub Main()
        Dim a() = Enumerable.Repeat(New Class1, 10).ToArray

        Console.WriteLine(String.Join("-", From x In a Select x.Value))

        a(0).Value = 1  ' 要素のうち1つしか変更していない(つもり)
        Console.WriteLine(String.Join("-", From x In a Select x.Value))
    End Sub
End Module

Class Class1
    Sub New()
        Console.WriteLine("New!")
    End Sub

    Public Value As Integer
End Class

　結果

New!                   ← "New!" は一回しか表示されない
0-0-0-0-0-0-0-0-0-0
1-1-1-1-1-1-1-1-1-1    ← 全要素が"1"に変更されたかのように見える
続行するには何かキーを押してください . . .

　ダイアログとかメッセージボックスとかはわりと認知されているのですが、よく使うあのコントロールの名前なんだっけ？的な話も少なくありません。どこかに一覧はないか…と思ったら、以下のデザインガイドにいろいろまとまっているようです。

• UX ガイド
  　http://msdn.microsoft.com/ja-JP/windows/desktop/aa511258
• ビジュアル インデックス
  　http://msdn.microsoft.com/library/windows/desktop/bb328626
• コントロール
  　http://msdn.microsoft.com/ja-JP/library/windows/desktop/aa511482.aspx
• 用語集
  　http://msdn.microsoft.com/library/windows/desktop/aa511441

　たとえば、テスト対象となる、こんなメソッドがあった場合。（ルート名前空間は "ClassLibrary1" であるとします)

Public Class Class1
    Private Function func1(source As Integer(), index As Integer) As Integer

        Return source(index)

    End Function
End Class

　テストはこう書けます。

Imports Microsoft.VisualStudio.TestTools.UnitTesting

<TestClass()> Public Class UnitTest1
    <TestMethod()> Public Sub TestMethod1()
        Dim source = New Integer() {100, 200, 300}

        Dim target = New ClassLibrary1.Class1

        Dim po As New PrivateObject(target)
        Dim result = po.Invoke("func1", {source, 2})

        Assert.AreEqual(result, 300, "テスト")
    End Sub
End Class

　Microsoft.VisualStudio.TestTools.UnitTesting 名前空間に、PrivateObject というクラスがあるようなので、それを使うと呼び出せるようです。
　リフレクションのラッパー的な感じなので、メソッド名を文字列で渡す必要がある（＝インテリセンスは効かない）のがいまひとつなところですが、リフレクションを生で呼び出すよりは、はるかに楽に書けます。

　WindowsRT 端末(ASUS TF-600T) でキーボードを装着した時、タッチパッドが使えるようになりますが、同時にタッチパッドへのタッピング操作も可能になってしまいます。
　これを抑止(=タッピング禁止)したい場合、以下でとりあえずは抑止できるようです。

キー
　HKEY_LOCAL_MACHINESOFTWARESynapticsSynTPDefaults

値の名前
　Gestures

値のデータ
　3 → 2 にする。

　Grid にオブジェクトを置いたとき、Grid 領域外にある図形が欠けることがあります。
　もちろん、Grid の外にはみ出た領域もそうですが、分割した領域からはみ出ても欠けます。

　たとえば、以下のような xaml を記述した場合。
　# Ellipse オブジェクトは、中央の領域(Grid.Column="1" Grid.Row="1")に置いています。

<Grid Width="300" Height="300">
    <Grid.RowDefinitions>
        <RowDefinition Height="*" />
        <RowDefinition Height="*" />
        <RowDefinition Height="*" />
    </Grid.RowDefinitions>
    <Grid.ColumnDefinitions>
        <ColumnDefinition Width="*" />
        <ColumnDefinition Width="*" />
        <ColumnDefinition Width="*" />
    </Grid.ColumnDefinitions>

    <Ellipse Grid.ColumnSpan="1" Grid.RowSpan="1"
             Grid.Column="1" Grid.Row="1"
             Height="300" Width="300"
             Margin="-100,-100,0,0"
             Fill="Red"/>
</Grid>

　すると、こんな感じに表示されます。
　上辺／左辺は領域を超えても表示されますが、下辺／右辺を超えた部分は非表示になります。（クリッピングされる。）

　それでは、上辺／左辺は領域を超えても必ず表示されるのか？、というと、それはそうでもないようで。

　たとえば、以下のような xaml を記述した場合。
　# Path オブジェクトは、中央右下の領域(Grid.Column="2" Grid.Row="2")に置いています。

<Grid>
    <Grid.RowDefinitions>
        <RowDefinition Height="*" />
        <RowDefinition Height="*" />
        <RowDefinition Height="*" />
        <RowDefinition Height="*" />
    </Grid.RowDefinitions>
    <Grid.ColumnDefinitions>
        <ColumnDefinition Width="*" />
        <ColumnDefinition Width="*" />
        <ColumnDefinition Width="*" />
        <ColumnDefinition Width="*" />
    </Grid.ColumnDefinitions>

    <Path Grid.Column="2" Grid.Row="2"
          Data="M0,0 m0,-50 l50,86.6 -100,0 z" Stroke="Red" Fill="Red"/>
</Grid>

　Path の図形そのものがマイナスの座標を持っているせいなのか

　上辺／左辺を超えても、表示され続けますが…

　一度、右辺、下辺の境界を図形が超えると、境界外が一気に消去されます。（上辺/左辺側も含めて）

　要するにオブジェクトが境界外にはみ出る場合は要注意ということで（汗
　対策的には、下辺／右辺側が領域外になるからまずいわけだから、Grid.RowSpan とかで領域を広げてやれば、とりあえずは回避できます。

　WPF アプリケーションの場合、Application.DoEvents() が標準では呼び出せない(*1)ので別の方法を検討する必要があります。
　具体的には、DoEvents したい箇所で、.Dispatcher.Invoke を DispatcherPriority.Render を指定して、空の処理を呼ぶだけでよいです。

Imports System.Windows.Threading
Imports System.ComponentModel

Class MainWindow
    Implements ComponentModel.INotifyPropertyChanged

    Public Property A As String      ' ← これを xaml 側で Binding する

    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)

        For i = 1 To 10
            ' 更新処理
            A = Now.ToString
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(""))
            ' DoEvents
            Me.Dispatcher.Invoke(DispatcherPriority.Render, Sub()
                                                                ' 処理はなし
                                                            End Sub)

            System.Threading.Thread.Sleep(1000)
        Next

    End Sub

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Me.DataContext = Me
    End Sub

　DoEvents よりもコード量が多いのでいまひとつな感じもありますが、DoEvents だとボタンクリックとかの処理が割り込んで疑似マルチスレッド状態になることを考えると、この方法は結構妥当な気がしています。

(*1)
　System.Windows.Forms を参照設定し、System.Windows.Forms.Application.DoEvents() を呼べばいける、という話もないわけではない…

　Linq で 列のデータを平均を求めた例。
　以下のコードの場合、左側一列目 10,20,51 の平均(=27)を計算し、それを列分繰り返す。

Sub Main()

    Dim table()() = {New Double() {10, 20, 30, 40},
                     New Double() {20, 40, 62, 74},
                     New Double() {51, 45, 25, 30}}

    Dim columnAverage =
        From column
          In Enumerable.Range(0, table(0).Length)
          Select
          (
              From row
                In Enumerable.Range(0, table.Length)
                Select table(row)(column)
          ).Average

    For Each n In columnAverage
        Console.WriteLine(n.ToString)
    Next

End Sub

　結果

27
35
39
48

　SQL の相関サブクエリーのような感じに…(汗
　Enumerable.Range 使ったりとか、table(0).Length 使ったりとか、なんかいまいちな気もしますが、とりあえずは集計できるということで…
　.Average を別のメソッド(.Sumとか)に変えれば他の集計もできたりとか。

　Excel VBA のコードをテキストに吐き出したりしたい場合があります。(バージョン管理に突っ込みたいときとか)
　しかし毎度手で Export するのは面倒なので VBA にやらせたい場合、たとえば以下のように書くと Export できます。

Sub CodeExport()

    ' 任意の WorkBook を指定 (ActiveWorkBook なり Workbooks.Open なり…)
    Dim w As Workbook
    Set w = ThisWorkbook

    ' Export
    Call w.VBProject.VBComponents("Module1").Export("C:Module1.bas")

End Sub

　上記はファイル名を個別指定の例ですが、Book内のモジュールを一気に Export したい場合は、VBComponents を for each で回して Name で名前が取れるのであとは良しなに…

Sub CodeList()

    ' 任意の WorkBook を指定 (ActiveWorkBook なり Workbooks.Open なり…)
    Dim w As Workbook
    Set w = ThisWorkbook

    ' 列挙
    For Each x In w.VBProject.VBComponents
        Debug.Print x.Name
    Next

End Sub

　逆に import したい場合は以下のようにします。
　import の場合、同名のモジュールがあると自動的にリネームされるので、先に削除してから import を行います。

Sub CodeReplace()

    ' 任意の WorkBook を指定 (ActiveWorkBook なり Workbooks.Open なり…)
    Dim w As Workbook
    Set w = ThisWorkbook

    ' 一旦削除
    Call w.VBProject.VBComponents.Remove( _
         w.VBProject.VBComponents("Module1"))

    ' その後 Import
    Call w.VBProject.VBComponents.Import("C:Module1.bas")

End Sub

　ただ、この方法は欠点があります。
　Sheet や Workbook のマクロはクラスモジュールとして import されます。そのため、本来(Sheet や Workbook のマクロ)の位置 に直接 import できません。
　これは Excel の仕様のようです。(手動での import でもそういう動作になります)

　また、上記のコードを動かすためには、セキュリティの設定を変更する必要があります。
　「ファイル」→「オプション」→「セキュリティ」→「セキュリティセンターの設定」とたどって、「VBA プロジェクト オブジェクト モデル へのアクセスを信頼する」にチェックを入れておきます。

　Application.Resources などの親側の Resource で x:key なしの TargetType 指定したスタイルを、Window.Resources などの子側で継承したい場合のやり方。

　その TargetType の型をそのまま継承すればよいようです。

<Window.Resources>
  <Style TargetType="DataGrid" BasedOn="{StaticResource {x:Type DataGrid}}">
    <Setter Property="IsReadOnly" Value="True"/>
  </Style>
</Window.Resources>

　たとえば、以下のような xaml を記述します。

<Window x:Class="MainWindow"
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="MainWindow" Height="200" Width="200">
  <Window.Resources>
    <Style TargetType="Button">
      <Setter Property="Background" Value="LightGreen"/>
    </Style>
  </Window.Resources>

  <StackPanel>
    <Grid>
      <!-- 親要素(Window.Resources) の Style が反映される -->
      <Button Content="Button"/>
    </Grid>

    <Grid>
      <Grid.Resources>
        <!-- BasedOn がないと  Window.Resources での設定が反映されない -->
        <Style TargetType="Button">
          <Setter Property="Foreground" Value="White"/>
        </Style>
      </Grid.Resources>
      <Button Content="Button"/>
    </Grid>

    <Grid>
      <Grid.Resources>
        <!-- BasedOn を付加すると親要素(Window.Resources) の Style が反映される -->
        <Style TargetType="Button" BasedOn="{StaticResource {x:Type Button}}">
          <Setter Property="Foreground" Value="White"/>
        </Style>
      </Grid.Resources>
      <Button Content="Button"/>
    </Grid>
  </StackPanel>
</Window>

　すると表示は以下のようになります。

　一番上の Button は Window.Resources の Style の通り背景色が緑で表示されます。
　しかし、その下の Button は Grid.Resources で文字色を設定したために、背景色がデフォル(灰色)に戻ってしまっています。
　一番下の Button は、BasedOn により親の Style を継承しているので、背景色は緑のまま、文字色を白にすることができています。

　VB.NETで空配列の生成したいときの記法。

' 一次元配列の例
Public Property s1 As String() = New String(10) {}
' 二次元配列の例
Public Property s2 As String(,) = New String(10, 15) {}

　http://ooltcloud.sakura.ne.jp/blog/200910/article_02012300.html との違いは、型を指定してみたところ。
　ローカル変数ではない場合、型推論が効かなくて、型指定がない場合には Object 型として評価されるようなので。

　ASLR(Address Space Layout Randomization) の実験をしてみた。

1. こんなコードを書く。

   #include "stdafx.h"
   
   int _tmain(int argc, _TCHAR* argv[])
   {
       char a;
       printf("%xn",(int)&a);
       return 0;
   }
   

2. デフォルトのままでコンパイル／実行すると、実行結果が実行の度に毎回変わる。

   

3. リンカーのオプションで「ランダム化されたベースアドレス」を「はい」から「いいえ」に変えてみる。
   
4. この設定でコンパイルして実行すると、実行結果は毎回同じになる。
   

　なるほどね…
　有効にしていれば、実行のたびにアドレスが変わるから、バッファーオーバーフローがあっても任意のコードへのジャンプが難しくなるわけか・・・

　php って XAMPP とかで頑張ってインストールしないと遊べないと思っていましたが、zip 展開してコマンドラインで実行ってできるんですね。
　以下、簡単にその手順をメモ。

1. php のダウンロード

   　ダウンロードはここから。
   　http://windows.php.net/download/
   　とりあえず、よくわかりませんが、「VC11 x86 Thread Safe」の「Zip」をダウンロードします。

2. インストール

   　適当なフォルダに zip を展開します。

3. コードを書く

   　で、とりあえず Hello World なコードを書きます。ファイル名は hello.php で保存。

   <?php
       echo "Hello world";
   ?>
   

4. 実行

   　コマンドラインで、

   php hello.php
   

   とすると、実行できます。

　[VB.NET] ワーカースレッドから コントロール(UI スレッド)へのアクセス その1 で、プラットホームごとで書き方が違うよ…＿|￣|○　ということでしたが、書き方を共通にする方法があります。

　以下のように書くことで、すべてのプラットホーム(Windows Forms / WPF / Windows Phone / Silverlight / WinRT)共通で記述できます。
　ポイントは Dispather を使わず、Task を使用し、TaskScheduler パラメータに UI スレッドの同期コンテキストを指定して実行するところです。

Class MainWindow  ' この行は各プラットホーム個別
    Private _syncContext = Threading.Tasks.TaskScheduler.FromCurrentSynchronizationContext

    Sub worker1()
        Dim t = New Threading.Tasks.Task( _
                Sub()
                    Button1.Content = Date.Now.ToString   ' Windows Forms の場合は Button1.Text
                End Sub)

        t.Start(_syncContext)
    End Sub

　ただし、上記を書くには、以下が最低限必須です。

　たとえばワーカースレッドを作って、ワーカースレッド上で重い処理を走らせ、その結果をコントロールに表示させようとします。

Private Sub Button1_Click(...
    Dim t = New Threading.Thread(AddressOf worker1)
    t.Start()
End Sub

Sub worker1()
    ' 重い処理(略)

    ' 重い処理の結果を書く
    Button1.Text = Now.ToString ' エラーになる
End Sub

　ところが、これはエラーになります。コントロールへのアクセスは UI スレッドからしかアクセスできないためです。

System.InvalidOperationException が発生しました。
有効ではないスレッド間の操作:
コントロールが作成されたスレッド以外のスレッドからコントロール 'Button1' がアクセスされました。

　これを回避するためには、ワーカースレッドから UI スレッドに処理をお願い（Invoke）する必要があります。

　ところが、この UI スレッドにお願いする方法が、使用するアプリケーションプラットホームによって書き方が異なります。
　以下列挙。

1. Windwos Forms の場合

   　Me.BeginInvoke、または Me.Invoke を使用します。
   　Control クラスのメソッドのようなので、Button.Invoke でも可能ですが、Me（=Form）でいいと思います。

   Sub worker1()
       Me.BeginInvoke( _
           Sub()
               Button1.Text = Date.Now.ToString
           End Sub)
   End Sub
   

2. WPF の場合

   　Application.Current.Dispatcher.BeginInvoke、または Application.Current.Dispatcher.Invoke を使用します。

   Sub worker1()
       Application.Current.Dispatcher.BeginInvoke( _
           Sub()
               Button1.Content = Date.Now.ToString
           End Sub)
   End Sub
   

3. Windows Phone（Silverlight系）の場合

   　Deployment.Current.Dispatcher.BeginInvoke を使います。 Silverlight 系は Invoke はないみたいですね。

   Sub worker1()
       Deployment.Current.Dispatcher.BeginInvoke( _
           Sub()
               Button1.Content = Date.Now.ToString
           End Sub)
   End Sub
   

4. WinRT（ストアアプリ系）の場合

   　Me.Dispatcher.RunAsync を使います。
   　"Dim dummy =" はコンパイラーの警告回避用です（汗

   Sub worker1()
       Dim dummy = Me.Dispatcher.RunAsync(Windows.UI.Core.CoreDispatcherPriority.Normal, _
                              Sub()
                                  Button1.Content = Date.Now.ToString
                              End Sub)
   End Sub
   

   　Invoke 相当の動作にするためには、"Dim dummy =" の部分を "Await" に変えるか、次の行に "Await dummy" を追加して待たせます。
   　以下は "Await dummy" を追加してみた例。（Sub のところの Async も忘れずに）

   Async Sub worker1()
       Dim dummy = Me.Dispatcher.RunAsync(Windows.UI.Core.CoreDispatcherPriority.Normal, _
                              Sub()
                                  Button1.Content = Date.Now.ToString
                              End Sub)
       Await dummy
   End Sub
   

   　また、ストアアプリではワーカースレッドの生成に Threading.Thread が使えないので、Threading.Tasks.Task で生成しています。

   Private Sub Button1_Click(...
       Dim t = New Threading.Tasks.Task(AddressOf worker1)
       t.Start()
   End Sub
   

　Invoke と BeginInvoke の動作の違いについて軽くまとめ。
　Button1 を押したあとに Button2 を押して、作成されるメッセージの違いをみます。

1. Invoke の場合。

   Public Class Form1
       Private _message As String
   
       Private Sub Button1_Click(...
           _message = "AAA"
   
           Me.Invoke(Sub()
                         _message &= "BBB"
                     End Sub)
   
           _message &= "CCC"
       End Sub
   
       Private Sub Button2_Click(...
           Console.WriteLine(_message)
       End Sub
   End Class
   

   　結果(作成されたメッセージ)

   AAABBBCCC
   

2. BeginInvoke の場合。

   Public Class Form1
       Private _message As String
   
       Private Sub Button1_Click(...
           _message = "AAA"
   
           Me.BeginInvoke(Sub()
                              _message &= "BBB"
                          End Sub)
   
           _message &= "CCC"
       End Sub
   
       Private Sub Button2_Click(...
           Console.WriteLine(_message)
       End Sub
   End Class
   

   　結果(作成されたメッセージ)

   AAACCCBBB
   

　WPF の DataGrid のヘッダーの調整に難儀したので、まとめがてらメモ。

　完成系のイメージは以下の通り。

　ところが、デフォルトの設定では、以下のように表示します。

　そこで、以下の設定をすることで、完成形のイメージを作りました。

<DataGrid ColumnHeaderHeight="40" Margin="10">

    <!-- 列ヘッダーのみ表示する(本来はDataGridタグ内の属性に記載の事) -->
    <DataGrid.HeadersVisibility>Column</DataGrid.HeadersVisibility>

    <DataGrid.Columns>
        <DataGridTextColumn Header="あああ" Width="3*" />
        <DataGridTextColumn Header="いいい&#xa;ううう" Width="5*" />
        <DataGridTextColumn Header="えええ" Width="5*"/>
    </DataGrid.Columns>

    <DataGrid.ColumnHeaderStyle>
        <Style TargetType="DataGridColumnHeader">

            <!-- ヘッダーの罫線を黒にする -->
            <Setter Property="BorderThickness" Value="0,0,1,1"/>
            <Setter Property="BorderBrush" Value="Black"/>

            <!-- ヘッダー文字をセンタリングする -->
            <Setter Property="HorizontalContentAlignment" Value="Stretch"/>
            <Setter Property="VerticalContentAlignment" Value="Center"/>
            <Setter Property="TextBlock.TextAlignment" Value="Center"/>
        </Style>
    </DataGrid.ColumnHeaderStyle>

    <DataGrid.Items>
        <!-- ここはフォーマット確認用のダミーなのでデタラメ -->
        <TextBox></TextBox>
        <TextBox></TextBox>
        <TextBox></TextBox>
    </DataGrid.Items>

</DataGrid>

　以下、設定のポイントを列挙します。

1. ヘッダーの罫線の色を変える

   　ColumnHeaderStyle の BorderBrush で色を、BorderThickness で線の太さを設定しました。
   　BorderThickness は四辺全部に線を引いてしまうと、線の太さが倍になって見えるので、右辺と下辺のみに線を入れました。（データ部の線の引き方とあわせた感じです）

   <DataGrid.ColumnHeaderStyle>
       <Style TargetType="DataGridColumnHeader">
           <!-- ヘッダーの罫線を黒にする -->
           <Setter Property="BorderThickness" Value="0,0,1,1"/>
           <Setter Property="BorderBrush" Value="Black"/>
   

2. センタリングする

   　ColumnHeaderStyle の HorizontalContentAlignment と TextBlock.TextAlignment で水平方向のセンタリングをします。片側だけ設定したのでは見た目は左寄せに見えるので、両方設定することが重要です。
   　VerticalContentAlignment はデフォルトが Center なので今回はケースでは必要ないです。上寄せとかにする場合はここを操作します。

   <DataGrid.ColumnHeaderStyle>
       <Style TargetType="DataGridColumnHeader">
           <!-- ヘッダー文字をセンタリングする -->
           <Setter Property="HorizontalContentAlignment" Value="Stretch"/>
           <Setter Property="VerticalContentAlignment" Value="Center"/>
           <Setter Property="TextBlock.TextAlignment" Value="Center"/>
   

3. 行ヘッダーを消す

   　行ヘッダーを設定しなくても表示はされてしまうので、HeadersVisibility に Column を設定することで、列ヘッダーのみを表示するように（行ヘッダーを表示しないように）します。
   　（以下は要素ではなく属性に設定する場合の記述例）

   <DataGrid HeadersVisibility="Column">
   

4. 複数行テキストの設定

   　複数行のテキストを属性値として指定する場合は、改行コード(
)を指定します。

   <DataGridTextColumn Header="いいい&#xa;ううう" />
   

5. 列幅の比率指定

   　列幅(DataGridTextColumn.Width)の指定に "*"(star) が使えます。

   <DataGridTextColumn Header="あああ" Width="3*" />
   

　バインディング時のフォーマッティングは StringFormat を使うことで対応できる模様。

　小数点の桁数を指定する場合。

<TextBlock Text="{Binding AAA,StringFormat=0.00}"/>

　時刻を指定する場合。

<TextBlock Text="{Binding AAA,StringFormat=HH:mm:ss}"/>

　"," がフォーマット文字列に含まれる場合は "" でエスケープしてやればよいようです。

<TextBlock Text="{Binding AAA,StringFormat=0,000.00}"/>

　参考:複合書式表現
　http://ooltcloud.sakura.ne.jp/blog/201005/article_03023842.html

　ViewModel で作成したクラスを ルート要素の Panel の DataContext にデータバインドする際の手順のまとめ。

1. ViewModel 用のクラスを作ります

   　ViewModel 用のクラスを作ります。 (以下では「MainWindowViewModel」が相当）

   Class MainWindow 
   End Class
   
   Class MainWindowViewModel
       Public Property AAAA As Integer = 100
       Public Property BBBB As String = "ABCD"
       Public Property CCCC As TestClass = New TestClass With {.Age = 18, .Name = "test"}
       Public Property DDDD As Double() = New Double(10) {}
   End Class
   
   Class TestClass
       Public Property Name As String
       Public Property Age As Integer
   End Class
   

2. ビルドします

   　XAML editor 側で MainWindowViewModel の内容が正しく評価されるようにするためにビルドします。
   　以後 ViewModel の変更を行うたびにリビルドします。

3. XAMLを編集します
   • xmlns:local="clr-namespace:WpfApplication1" を追記します
     （「WpfApplication1」 は自アプリケーション名です。）
   • Window.Resources に local:MainWindowViewModel のエントリーを追記します。
   • ルートパネルの DataContext 属性に"{StaticResource ViewModel}"を追記します。

   <Window x:Class="MainWindow"
       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
       xmlns:local="clr-namespace:WpfApplication1"
       Title="MainWindow" Height="100" Width="200">
   
   
       <Window.Resources>
           <local:MainWindowViewModel x:Key="ViewModel" />
       </Window.Resources>
   
   
       <Grid DataContext="{StaticResource ViewModel}">
           <Button Content="Button1" Margin="10" />
       </Grid>
   </Window>
   

4. バインディングを指定します

   　上記の準備を終えると、Button等のコントロールを選択し「~のデータバインドを作成」などを選択すると、ViewModelの情報が表示されるようになります。

   

5. 指定した後の例

   　上記4.のダイアログで実際に選択してみると、XAML が以下のように変更されます。

       <Grid DataContext="{StaticResource ViewModel}">
           <Button Content="{Binding CCCC.Name}" Margin="10" />
       </Grid>
   

　MVVM モデルで ViewModel から View を操作する場合は Messenger という仕組みを使う…らしいのですが、理解が難しかったので、自分なりにまとめなおしてみます。
　結論的には、以下の 2 の内容か、頑張っても 5 の内容で勝負であって、Messenger の実装はやりすぎという感じがします。まあ私に取り回す実力がないだけかもしれませんが（汗

1. まず「ViewModel から View を操作したいケース」とは何か

   　たとえば、WinForm とかで以下のようなコードを書きたいケースです。

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       MsgBox("Hello")
   End Sub
   

   　簡単ですね。

2. 上記を ViewModel から実行するとどうなるか

   　なにも考えなければ、以下で OK のはずです。

   Class MainWindow 
       Private _viewModel As ViewModel = New ViewModel
   
       Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
           ' 操作類は、viewModel 側のメソッドで実行させたいので、転送する
           _viewModel.ShowMsgBox()
       End Sub
   End Class
   
   
   Class ViewModel
       Public Sub ShowMsgBox()
           MsgBox("Hello")
       End Sub
   End Class
   

3. 疑問1:ViewModel から 直接 MsgBox を実行していいのか？

   　MVVM モデルではこれを嫌っているようです。予想される問題は以下の2つ。

   • ViewModel に UI(入力操作) が含まれていることで、単体テストが難しくなること。
   • MsgBox という命令自体が View そのものであること。

   　その他には「デザイナーとプログラマーの分業が難しい」とかありそうですが、とりあえず無視とします。

4. 疑問2:そもそも View(コードビハインド) に直接 MsgBox を書いてはだめなのか？

   　嫌われる理由としては、View にビジネスロジック(MVVM でいう ViewModel 部分 / MVC でいう Controller 部分) が混じってしまう、という点です。
   　# MsgBox 自体は View ですが「MsgBox を表示する」はビジネスロジックです。

5. ではどうするか？

   　たとえば、上記2.で書いたコードを以下のように書き換えます。

   Class MainWindow 
       Private WithEvents _viewModel As ViewModel = New ViewModel
   
       Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
           ' 操作類は、viewModel 側のメソッドで実行させたいので、転送する
           _viewModel.ShowMsgBox()
       End Sub
   
       Private Sub _viewModel_RequestShowMsgBox() Handles _viewModel.RequestShowMsgBox
           MsgBox("Hello")
       End Sub
   End Class
   
   
   Class ViewModel
       Public Event RequestShowMsgBox()
   
       Public Sub ShowMsgBox()
           ' MsgBoxの表示をお願いする。
           RaiseEvent RequestShowMsgBox()
       End Sub
   End Class
   

   　こうすることで、ViewModel から View のコードは排除することができます。
   　これで View のことは View側 (コードビハインド側) に集約できます。つまり、MsgBox を デザインがリッチなダイアログに変更したいといった場合も ViewModel は変更せず、View 側の変更だけで対応可能です。

   　また、ViewModel はユーザー入力から切り離されているので、直接単体テストすることが可能です。
   　今回の例では実装されていませんが、ユーザー入力の入力内容を ViewModel に戻しているケースも、ViewModel からのイベントを受けるテストスタブを作ることで、単体テストが可能です。

6. MVVM モデルにおける Messenger クラスとは
   　要するに、上記のような仕組みを用意するための、一連のクラス群です。
   　上記 5 では、イベントをコードビハインドに通知していますが、本家(?)のメッセンジャーはもうちょっと複雑です。
   　View 部分の処理 (今回のでは MsgBox 相当) をコマンドオブジェクトとしてラップし、それをコードビハインドではなく、直接 XAML に記載する手法のようです。

7. Messenger クラスを実装した場合はどうなるか

   　こんな感じ。
   　しかし、共通部品として隠蔽／再利用できるものがあるとしても、これだけのコードを書く必要があるというのはちょっと…（汗

   　コード部分

   Class MainWindow 
       Private _viewModel As ViewModel = New ViewModel
   
       Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
           Me.DataContext = _viewModel
       End Sub
   
       Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
           _viewModel.ShowMsgBox()
       End Sub
   End Class
   
   Class ViewModel
       Public Property RequestShowMsgBox As Messenger = New Messenger
   
       Public Sub ShowMsgBox()
           ' MsgBoxの表示をお願いする。
   
           Me.RequestShowMsgBox.Raise(
               New Message("Hello"),
               Sub(args)
                   MsgBox(args.Response, , "view操作後の処理")
               End Sub
           )
       End Sub
   End Class
   
   Class ConfirmAction
       ' 参照設定: C:Program Files (x86)Microsoft SDKsExpressionBlend.NETFrameworkv4.5LibrariesSystem.Windows.Interactivity.dll
       Inherits System.Windows.Interactivity.TriggerAction(Of DependencyObject)
   
       Protected Overrides Sub Invoke(parameter As Object)
           Dim args = CType(parameter, MessageEventArgs)
   
           MsgBox(args.Message.Body)
   
           args.Message.Response = "View操作後のReturn"
           args.Callback()(args.Message)
       End Sub
   End Class
   
   
   
   ' 
   ' 
   ' これより以下は、たぶん使いまわし(隠蔽)可能
   Class Message
       Public Property Body As Object
       Public Property Response As Object
   
       Public Sub New(body As Object)
           Me.Body = body
       End Sub
   End Class
   
   Class MessageEventArgs
       Inherits EventArgs
   
       Public Property Message As Message
       Public Property Callback As Action(Of Message)
   
       Public Sub New(message As Message, callback As Action(Of Message))
           Me.Message = message
           Me.Callback = callback
       End Sub
   End Class
   
   Class Messenger
       Public Event Raised As EventHandler(Of MessageEventArgs)
   
       Public Sub Raise(message As Message, callback As Action(Of Message))
           RaiseEvent Raised(Me, New MessageEventArgs(message, callback))
       End Sub
   End Class
   
   Class MessageTrigger
       ' 参照設定: C:Program Files (x86)Microsoft SDKsExpressionBlend.NETFrameworkv4.5LibrariesSystem.Windows.Interactivity.dll
       Inherits System.Windows.Interactivity.EventTrigger
   
       Protected Overrides Function GetEventName() As String
           Return "Raised"
       End Function
   End Class
   

   　XAML部分

   <Window x:Class="MainWindow"
       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
       xmlns:i="http://schemas.microsoft.com/expression/2010/interactivity"
       xmlns:local="clr-namespace:WpfApplication1"
       Title="MainWindow" Height="100" Width="300">
       <i:Interaction.Triggers>
           <local:MessageTrigger SourceObject="{Binding Path=RequestShowMsgBox}">
               <local:ConfirmAction />
           </local:MessageTrigger>
       </i:Interaction.Triggers>
   
       <Grid>
           <Button Content="Button" Click="Button_Click"/>
       </Grid>
   </Window>
   

　WPF 扱うにあたって MVVM パターンをお勉強しておこうか…と思ったものの、思いのほか難しく半ば挫折したのでメモ（汗

　元ネタはここ http://code.msdn.microsoft.com/windowsdesktop/MVVM-d8261534

　元サイトの内容は、いろいろ凝ってて（計算処理が選べたり、DelegateCommand 実装したり、ラムダ式あったり、 yield return あったり、Generics あったり…と）、MVVM に行きつくまでの障壁が結構高い。
　なので、超単純化してみました。単純化し過ぎて「これは MVVM じゃない」と言われると思うので「MVVM もどき」です（汗

• View（XAML）

  　特徴としては x:name 属性がないこと。
  　要するにコード側からは基本的にアクセスしない。

  <Window x:Class="MainWindow"
      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
      Title="MainWindow" Height="100" Width="400">
      <StackPanel>
          <StackPanel Orientation="Horizontal">
              <TextBox   Text="{Binding A}" Width="100"/>
              <TextBlock Text="+"/>
              <TextBox   Text="{Binding B}" Width="100"/>
              <TextBlock Text="=" />
              <TextBlock Text="{Binding C}" Width="100"/>
              <Button Content="計算" Click="CalcButton" Width="50" />
          </StackPanel>
      </StackPanel>
  </Window>
  

• View（コードビハインド）

  　MVVM ではコードビハインドは原則使用不可。
  　Click イベント類は、コマンドオブジェクトにして XAML から 直接 ViewModel へ転送するらしい。
  　…けど面倒なのでコードビハインドを使用（汗

  Class MainWindow
      ' ViewModel を New
      Private _viewModel As ViewModel = New ViewModel
  
      ' View の DataContext へ viewModel をバインド
      Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
          Me.DataContext = _viewModel
      End Sub
  
      ' 操作類は、viewModel 側のメソッドで実行させたいので、転送する。
      Private Sub CalcButton(sender As Object, e As RoutedEventArgs)
          _viewModel.Execute()
      End Sub
  
  End Class
  

• View-Model

  　View で表示するデータを置くところ。
  　View との結合は Binding で行い、直接コントロールは ViewModel からは操作しないようにする。
  　本来は、プロパティごとに PropertyChanged を発行する。そのために、ViewModelBase のような基底クラスを作ったりするようだが、今回の例では INotifyPropertyChanged を直接実装し、かつ、計算操作が行われたときに一括で更新するのみとした。

  Imports System.ComponentModel
  
  Public Class ViewModel
      Implements INotifyPropertyChanged
  
      Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) _
                                      Implements INotifyPropertyChanged.PropertyChanged
  
      ' View に渡すデータ
      Public Property A As Integer    ' 入力1 
      Public Property B As Integer    ' 入力2 
      Public Property C As Integer    ' 計算結果 
  
      ' 計算処理と View の更新
      Public Sub Execute()
          ' 計算
          C = Model.Calc(A, B)
          ' View を更新
          RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(""))
      End Sub
  
  End Class
  

• Model

  　計算処理本体。今回は Shared(Static) メソッド。
  　変哲もない、ただの足し算（汗

  Public Class Model
  
      Public Shared Function Calc(a As Integer, b As Integer) As Integer
          Return a + b
      End Function
  
  End Class
  

　相関サブクエリーといえば exists 述語ですが。
　この exists 述語。ぐぐっても、使用例が概ね複雑(=相関クエリー)で理解が難しかったりするので、メモがてらまとめ。

　exists とは 空集合(=∅)か、集合が存在するか(≠∅)を判定するための、関数らしきものです。

　たとえば、以下のように記述すると EMP 表の全レコード数を表示します。サブクエリーが1件データを戻すからです。

SQL> select count(*) from EMP
  2   where exists (select 1 from DUAL);

  COUNT(*)
----------
        14

　しかし、以下のように記述すると 0 を表示します。サブクエリーが1件もデータを戻さないから(=0件だから)です。

SQL> select count(*) from EMP
  2   where exists (select 1 from DUAL where DUMMY='A');

  COUNT(*)
----------
         0

　要するに、exists とは集合に対する「is not NULL」のようなもの、だと思えばよいです。

　exists は、非相関クエリーで使っても上記の通り結果は all or nothing にしかならないので、主に相関クエリーで使用されますが「exists = 相関クエリー」ではない点に注意です。

　「やっぱりピンとこない」という場合は、以下と等価だと思ってもらっても OK です。（論理的には。実行速度とかは別の話。）

select count(*) from EMP
 where (select count(*) from DUAL) <> 0;

  COUNT(*)
----------
        14

　ちなみに Oracle の DUAL 表とはこういう表。

SQL> select * from DUAL;

DUMMY
-----
X

　これまた Oracle 独特というわけではないですが。先の「Order by 句に Select 文」で相関サブクエリーが出てきたのでちょっと整理がてら。

　相関サブクエリーとは、サブクエリー(子クエリー)に親クエリーの列名が出てくるタイプのサブクエリーです。

　たとえばよくあるハマりどころとして。
　Group by でグループごとの最大値を得ようとしたとします。

SQL> select JOB, max(SAL)
  2    from EMP
  3   group by JOB;

JOB                  MAX(SAL)
------------------ ----------
CLERK                    1300
SALESMAN                 1600
PRESIDENT                5000
MANAGER                  2975
ANALYST                  3000

　ここまではいいのですが、「じゃあ誰が(どのレコードが)最大なんだ？」とか思って以下のように書いてもエラーです。

SQL> select JOB, max(SAL), ENAME
  2    from EMP
  3   group by JOB;
select JOB, max(SAL), ENAME
                      *
行1でエラーが発生しました。:
ORA-00979: GROUP BYの式ではありません。

　ここで登場するのが相関サブクエリーです。以下のように書くと目的が達成できます。

SQL> select JOB, SAL, ENAME
  2    from EMP a
  3   where SAL = (select max(SAL)
  4                  from EMP b
  5                 where a.JOB = b.JOB);

JOB                       SAL ENAME
------------------ ---------- --------------
SALESMAN                 1600 ALLEN
MANAGER                  2975 JONES
ANALYST                  3000 SCOTT
PRESIDENT                5000 KING
ANALYST                  3000 FORD
CLERK                    1300 MILLER

　サブクエリー側の条件(where 句)に親クエリーの列名が出てきています。こういうのを相関サブクエリーと呼ぶらしいです。
　また、今回の例だと、この where 句が Group by 句と同じ役割を担っています。
　(ANALYST が複数行取得されているのは、同額の人が複数いるからですね)

　ところでこの相関サブクエリー。手続き型言語(C#)で等価コードを書くとこんな感じ。

// 親クエリーのループ(from 句)
foreach (var a in EMP)
{
    // 子クエリーの select の結果 (子クエリーの戻り値)
    int maxSal = int.MinValue;

    // 子クエリーのループ(from 句)
    foreach (var b in EMP)
    {
        // 子クエリーの Where 句
        if (a.JOB == b.JOB) //← a.JOB と同じ内容のものが集計対象になる
        {
            // max集計関数 (子クエリーの select)
            if (maxSal < b.SAL) maxSal = b.SAL;
        }
    }

    //-------------------------------------------

    // 親クエリーの Where 句
    if (maxSal == a.SAL)
    {
        // 親クエリーの select 
        Console.WriteLine("{0},{1},{2}", a.JOB, a.SAL, a.ENAME);
    }
}

　わりと手続き型そんまんまです。スコープも含めて。(上記コードでは null とか無視ですが)
　なので、相関サブクエリーにぶち当たってわからなかったら、手続き型的に読み直して理解してみる、というのも手かもしれません。

　別に Oracle 独特な話ではないですが…
　某 SNS で 「Order By 句に Select 文が書けるのか？」という話題があったので調査。

　結論としては「書ける」

　たとえば以下のようなコードが書けます。

select * from EMP a 
 order by (
    select b.ENAME from EMP b
     where a.EMPNO = b.EMPNO  -- EMPNO は Primary Key
 );

　で、これは普通に書くと、以下と同じ意味です。

select * from EMP 
 order by ENAME

　ENAME 列でソートってことですね。

　なぜ同じになるかというと、Order by 句で指定するものが、実は "列名" ではなく、"列のデータそのもの" だから。
　要するに、Order by の "ENAME" は　実質的に "select ENAME from EMP" と同じ。
　もっとも、直接 Order by に "select ENAME from EMP" を書くと直積になってしまうので、where 句で絞っています。
　(直積以前に戻すデータはスカラーでないとダメですが）

　なので、"order by 列名" は "order by (Select ～)" の糖衣構文だと思ったほうがよいかもしれません。
　なぜならば、繰り返しになるけど Order by で渡っているものは、列名ではなく、ましてカラム番号でもなく、列のデータそのものだからです。

　だからたとえば以下のような記述をすると、EMPNo の末尾1桁でソート、とかができる。

select * from EMP a
  order by (
    select mod(EMPNO,10) -- 末尾1桁
      from EMP b
     where a.EMPNO = b.EMPNO
  );

　結果 (EMPNO の末尾1桁でソートされる)

    EMPNO ENAME
--------- ------------
     7900 JAMES
     7521 WARD
     7782 CLARK
     7902 FORD
     7934 MILLER
     7654 MARTIN
     7844 TURNER
     7566 JONES
     7876 ADAMS
     7698 BLAKE
     7788 SCOTT 

　また、以下のような書き方もできたりします。
　要するに、列名だろうと select だろうとなんだろうと、ソート対象になり得る列を生み出せればよいということですね。

select * from DEPT
  order by (
    case DEPTNO
      when 20 then 1
      when 10 then 2
      when 40 then 3
      when 30 then 4
    end
  );

　結果 (then ? の ? 順でソートされる)

 DEPTNO DNAME
------- ------------------
     20 RESEARCH
     10 ACCOUNTING
     40 OPERATIONS
     30 SALES

　もっとも、こんな書き方しなくても…というのは多分ごもっともな気がするので、多用するのは禁物かもしれません（汗

p.s.
　ところで当初、"order by (select n …"、の n がカラム番号なのかな？とか思って、

select * from EMP order by (select 2 from DUAL);

とか書いてテストしてみましたが…
　エラーにこそならないものの 2 列目でソートされないし、それどころかソートされている列が見当たらない…
　あたりまえですね。これだと、全行が "2" の列を作って、その列をソートして出力しようとしているだけなので、ソートされるわけがありませんよ…（汗 # もちろんエラーにもなりませんね＿|￣|○

　引き続き、回帰分析。
　プロットしたデータから、n次の関数の係数を求めます。
　y(),x() がプロットデータ、degree が関数の次数。
　行列の演算には、http://ooltcloud.sakura.ne.jp/blog/201307/article_22014635.html で作成したクラスを使用しています。

　例によってエラー処理はしてません。（たとえば、x() と y() の要素数が一致しているかとか確認してません）

Public Class Regression

    ''' <summary>
    ''' 係数の取得
    ''' </summary>
    Public Shared Function GetPolynomialCoefficients(y As Double(), x As Double(), degree As Integer) As Double()

        Dim Ymax = y.GetUpperBound(0)
        Dim Xmax = x.GetUpperBound(0)
        Dim N = degree

        ' 二次元配列に移し替え
        Dim matY(Ymax, 0) As Double
        For i = 0 To Ymax
            matY(i, 0) = y(i)
        Next

        ' 次数に応じた x() の行列を作成
        Dim matX(Xmax, N) As Double
        For i = 0 To Xmax
            For j = 0 To N
                matX(i, j) = x(i) ^ j
            Next
        Next

        ' 回帰分析
        Dim r = Analyze(matY, matX)

        Return r

    End Function

    ''' <summary>
    ''' 回帰分析
    ''' </summary>
    Public Shared Function Analyze(matY As Double(,), matX As Double(,)) As Double()

        Dim mat1 = Matrix.Transpose(matX)

        Dim mat2 = Matrix.Multiply(mat1, matX)
        Dim mat3 = Matrix.Multiply(mat1, matY)

        Dim mat4 = Matrix.Inverse(mat2)

        Dim mat5 = Matrix.Multiply(mat4, mat3)


        Dim N = mat5.GetUpperBound(0)
        Dim r(N) As Double

        For i = 0 To N
            r(i) = mat5(i, 0)
        Next

        Return r

    End Function

End Class

　使い方的には以下。

' プロットデータ
Dim x() As Double = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim y() As Double = {5, 8, 7, 8, 9, 11, 9, 11, 13, 12}

' 回帰分析 (プロットデータから2次式の各係数を求める)
Dim r = Regression.GetPolynomialCoefficients(y, x, 2)

' 結果
Console.WriteLine("{2}x^2 + {1}x + {0}", r(0), r(1), r(2))

　結果出力

-0.0189393939393945x^2 + 0.953787878787864x + 4.78333333333336

　ちょっと行列計算が入用になったので作成。
　Double の二次元配列の 左側添え字を行/右側添字を列と見立てて計算します。

　エラー処理なし、逆行列の計算では行列が正則であるかどうかのチェックとかもなし。
　使う予定がなかったので、スカラー積や和を求めるメソッドもありません（汗
　

Public Class Matrix

    ''' <summary>
    ''' 乗算
    ''' </summary>
    Public Shared Function Multiply(multiplicandMatrix As Double(,),
                                    multiplierMatrix As Double(,)) As Double(,)

        Dim matA = multiplicandMatrix
        Dim matB = multiplierMatrix

        ' 行数/列数確定
        Dim L = matA.GetUpperBound(0)
        Dim M = matA.GetUpperBound(1)
        If M <> matB.GetUpperBound(0) Then
            Throw New Exception("被乗数の列の個数と、乗数の行の個数が違います")
        End If
        Dim N = matB.GetUpperBound(1)

        ' 結果用
        Dim matR(L, N) As Double

        ' 乗算
        For i = 0 To L
            For j = 0 To N
                For k = 0 To M

                    matR(i, j) += matA(i, k) * matB(k, j)

                Next
            Next
        Next

        Return matR
    End Function

    ''' <summary>
    ''' 逆行列
    ''' </summary>
    Public Shared Function Inverse(regularMatrix As Double(,)) As Double(,)

        Dim matA = regularMatrix
        Dim N = matA.GetUpperBound(0)

        Dim matR = E(N + 1)

        For i = 0 To N

            Dim a = matA(i, i)

            ' 除算
            For j = 0 To N
                matA(i, j) /= a
                matR(i, j) /= a
            Next


            ' 掃出し
            For j = 0 To N
                If (j <> i) Then
                    Dim b = matA(j, i)

                    For k = 0 To N
                        matA(j, k) -= matA(i, k) * b
                        matR(j, k) -= matR(i, k) * b
                    Next
                End If
            Next
        Next

        Return matR
    End Function

    ''' <summary>
    ''' 単位行列
    ''' </summary>
    Public Shared Function E(degree As Integer) As Double(,)

        Dim N = degree - 1
        Dim matR(N, N) As Double

        For i = 0 To N
            matR(i, i) = 1
        Next

        Return matR
    End Function

    ''' <summary>
    ''' 転置行列
    ''' </summary>
    Public Shared Function Transpose(matA As Double(,)) As Double(,)

        Dim M = matA.GetUpperBound(0)
        Dim N = matA.GetUpperBound(1)

        Dim matR(N, M) As Double

        For i = 0 To M
            For j = 0 To N
                matR(j, i) = matA(i, j)
            Next
        Next

        Return matR
    End Function

End Class

　元記事はここ(http://ch3cooh.hatenablog.jp/entry/20130719/1374161266)。
　近日中に同じシチュエーションに遭遇しそうなので考えてみました。
　ただ、元記事の命題からは外れているかもしれません。とりあえず、
　　・画面右端から 20px
　　・テキストは 270°(-90°)回転
という条件でやってみました。

1. Alignment とマイナス Margin で無理やり調整

   　とりあえず、サンプルの構成から変えず、プロパティの調整だけでなんとかなるかを実験。
   　なんとかなった！、けどクソコードだな…（汗、という結果に。

   <Grid Background="{StaticResource ApplicationPageBackgroundThemeBrush}">
       <Grid Background="Red" HorizontalAlignment="Stretch"
             VerticalAlignment="Center" Margin="0,0,-1297,0"
             RenderTransformOrigin="0.5,0.5" >
           <TextBlock Foreground="Black" TextAlignment="Center" 
                      FontSize="24" 
                      Text="ここには可変長のテキストが入る" />
           <Grid.RenderTransform>
               <CompositeTransform Rotation="-90" />
           </Grid.RenderTransform>
       </Grid>
   </Grid>
   

   　編集画面例

   

2. Canvas で囲ってみた

   　無限長に可変する必要はないだろう、と勝手に考え、幅を 600px / 高さを 28px に固定。
   　回転する際、オブジェクト中央を中心に回転するわけなので、この回転軸が座標 (0,0) となるように Canvas.Top と Canvas.Left を設定。
   　そこから、Margin を使って、Canvas の左上ポイントと TextBox の左上ポイントが合致するように引き戻す。
   　あとは、それを Grid で囲って、Grid 側の Margin で 右 20px を設定。
   　・・・
   　一応それっぽくなったけど、設定多し。メンテ性悪そう。

   <Grid Background="{StaticResource ApplicationPageBackgroundThemeBrush}">
       <Grid Background="Red"
             VerticalAlignment="Center" HorizontalAlignment="Right"
             Margin="0,0,20,0">
   
           <Canvas Height="600" Width="28">
               <TextBlock Width="600" Height="28" 
                          Canvas.Left="-300" Canvas.Top="-14"
                          Margin="14,300,0,0"
                          RenderTransformOrigin="0.5,0.5"
                          TextAlignment="Center"
                          Text="ここには可変長のテキストが入る"
                          Foreground="Black"
                          FontSize="24">
                   <TextBlock.RenderTransform>
                           <RotateTransform Angle="-90" />
                   </TextBlock.RenderTransform>
               </TextBlock>
           </Canvas>
       </Grid>
   </Grid>
   

   　編集画面例

   

3. 270°回転表示用のパネルを別に用意する

   　そもそも、Visio や Excel のように回転したオブジェクトを配置しているのではなく、配置したオブジェクトを回転させるような振る舞いなのが、そもそも無理を生じているわけですよね…というのに気づきまして（汗
   　そういうことなら、とりあえず配置自身は回転前にやっておいて、配置がすんだらそのパネルごと回転させればいいんじゃね？というのが以下。
   　つまり、回転させないオブジェクトを配置するパネルと、270°回転させるオブジェクトを配置するパネルをそれぞれ作って、重ねて表示すればよいのではと。(Azure 色が 270°回転表示配置用パネル)
   　大げさだけど、これが一番シンプルで基本に忠実な気がする…（汗

   <Grid Background="{StaticResource ApplicationPageBackgroundThemeBrush}">
       <Grid Background="Azure"
             RenderTransformOrigin="0.5,0.5"
             Margin="660,250,-440,250">
   
           <Grid Background="Red"
                 HorizontalAlignment="Center" VerticalAlignment="Bottom"
                 Margin="0,0,0,20">
               <TextBlock Foreground="Black"
                      FontSize="24" 
                      Text="ここには可変長のテキストが入る"/>
           </Grid>
           <Grid.RenderTransform>
               <CompositeTransform Rotation="-90" />
           </Grid.RenderTransform>
       </Grid>
   </Grid>
   

   　編集画面例

   

　先(http://ooltcloud.sakura.ne.jp/blog/201307/article_15211613.html) のつづき。
　先の例では、グリッドパネルの表示エリア一杯に描画のグラフを表示したので、グラフの拡大縮小と、表示位置の移動を行ってみます。

　まず、描画エリアの Grid を ScrollViewer で囲みます。そして Grid に "View" という名前をつけます。

<ScrollViewer>
    <Grid x:Name="View">
        <Path x:Name="Graph" Data="" Stroke="Red" Stretch="Fill" />
    </Grid>
</ScrollViewer>

　拡大／縮小の指定をどうやって指示するかですが、今回は Slider を使用し ValueChanged イベントで値の変更を知ることとしました。また、拡大縮小の最小値は 0.1, 最大値を 1000 としました。

<Slider x:Name="Zoom" Value="1" Maximum="1000" Minimum="0.1"/>

　次に、ValueChanged イベントを書きます。

　Graph.Data プロパティ (Geometry クラス) の Bounds プロパティに、現在設定している Path の描画領域に関するデータが記録されています。今回は描画領域の高さがほしいので Height プロパティを参照します。
　Slider の Value 値が拡大率なので、前述 Height (=Path データの高さ) と sender.Value (=Slider の Value) を乗算し、その値を Grid の Height (=View.Height) に設定します。

Private Sub Zoom_ValueChanged(sender As Object ...
    View.Height = Graph.Data.Bounds.Height * sender.Value
End Sub

こうすると、スライダーで拡大縮小、スクロールバーで上下位置の移動が可能になります。

・スライダーを操作し拡大
　　
・さらに拡大
　　
・スクロールバーを操作し表示領域を変更
　　

　WPF の XAML で関数グラフを描いてみる実験。

　XAML で数式を設定すると勝手にグラフを描いてくれるような方法あるのでは？…と期待して調べたのですが、早々に断念（汗
　結局、古典と同じく直線近似で描くのが現実的ではないかという結論に。
　　# ベジェで描く方法もあるようですが、私の頭がついていきませんです…（汗

　描く方法として、Polyline と Path のどちらにしようかと思いましたが、今回は描画後に端点を動かすとかは考えないので Path で描くことにしました。

• XAML 側

  　Data プロパティはコードでセットするので空にしておきます。
  　描画したグラフは、Grid パネル全体に描画したいので、Path の Stretch は Fill にしておきます。

  <Grid>
    <Path x:Name="Graph" Data="" Stroke="Red" Stretch="Fill" />
  </Grid>
  

• コードビハインド(VB) 側

  　パスマークアップ文を構築します。
  　初回だけ M(移動)コマンドでポイントを移動させ、以後は L(線)コマンドで前回のポイントとの直線を引いていきます。
  　数学のグラフでは一般的に第一象限は右上ですが、Path で指定する座標系は第一象限が右下の領域なので、関数の結果 y は座標に変換する際に -y とします。
  　そうして作成したパスマークアップ文を、StreamGeometry.Parse メソッドによって Path の Data プロパティにセットします。

  Private Sub Draw()
  
      Dim xfrom As Decimal = 0D   ' 開始 x 座標
      Dim xto As Decimal = 10D    ' 終了 x 座標
  
      Dim pathData As String = ""
  
      ' 開始座標から終了座標までの範囲を 1000 分割して求める
      For x = xfrom To xto Step (xto - xfrom) / 1000D
  
          ' y = f(x) を求める 
          Dim y = Math.Sin(x)
  
          ' 区間の直線を描く
          If (x = xfrom) Then
              pathData &= String.Format("M{0},{1} ", x, -y)
          Else
              pathData &= String.Format("L{0},{1} ", x, -y)
          End If
  
      Next
  
      ' 描画
      Graph.Data = StreamGeometry.Parse(pathData)
  
  End Sub
  

• 実行結果
  

参考) パスマークアップ構文
　http://msdn.microsoft.com/ja-jp/library/ms752293.aspx

　「すごい広島 #7」に参加してきました。

　ところでこの勉強会、ATNDでは以下のように「すごい Haskell」本勉強会っぽい画像になっているが、Haskell なんぞほぼ関係なく、実態は自習勉強会なんである。

　しかし、この勉強会の 凶悪な すごいところは、Haskell 勉強会っぽいのに Haskell をやらないところではなく、GitHub の使用を強要されるところなんである。これは日頃 Git や GitHub、そして Markdown を使わない人(=私)にとっては苦痛以外の何物でもないのである。

　ということで、今回チュートリアルを聞いてきたので、以下まとめ。

－・－・－・－・－・－・－・－・－・－・－・－・－・－

1. GitHub アカウントを取る

   　割愛。しかしこれがないと始まらない。
   　ここは独力で頑張って取得しておくれ(汗

2. Issue を書く

   　「すごい広島」では、最初に Issue を書けということになっている。Issue とは本日やることですね。
   　以下はその手順です。

   1. まず「すごい広島」の GitHub ページに展開します。https://github.com/great-h/great-h.github.io
   2. 「Issues」ボタンを押します。
      
   3. 「New Issue」ボタンを押します。
      
   4. 「今日やること宣言」ラベルを押し、"今日のやること"を入力します。
      
   5. 「マイルストン」ボタンを押し、表示されるプルダウンから今日の日付を選択します。
      
   6. 必要ならコメントを書き、「Submit New Issue」ボタンを押します。
      
3. blog を書く

   　「すごい広島」では、今日の勉強会でやったことを blog に書け、ということになっています。
   　ので、自分の blog （あるいは Twitter とか）に今日したことを書きます。

4. 作成した blog へのリンクを、当日の events ページに追記します。

   　上記の Blog を「すごい広島」のページに晒すのが掟らしいです（ぉ
   　以下その手順。

   1. Issue ページで上記2.で作成した自分の Issue の番号を確認しておきます。
      
   2. トップページ https://github.com/great-h/great-h.github.io で「Branch」ボタンをドロップダウンし、作成するブランチ名を入力します。
      ブランチ名は「Issue番号-自分のID」で作成するとよいらしいです。
      すると青色の「Create Branch」ボタンが表示されるので、それをクリックします。
      
   3. すると、Branch の名前が、今作成したブランチ名になっていることを確認します。
      Branch ができていたら、_posts をクリックします。
      また、ブラウザを閉じたりしたあと、再び GitHub に戻ると、Branch は「master」に戻っているので、都度自分の Branch に選択しなおしてください。
      
   4. 次に、勉強会を実施した日付のイベントページをクリックします。
      
   5. 「Edit」ボタンを押します。
      
   6. 編集します。Markdown記法については割愛。他の人の記載に合わせて書けばよいです。
      あと重要な点としては、最終行にカーソルを持っていくと左端にいること。こうしないと、どつきまわされるらしいです(怖
      
   7. 編集が終了したら「Commit Changes」を押します。Extended Description の欄は任意でコメントを入れてください。
      
   8. 「great-h.github.io」をクリックして、トップページに戻ります。
      
   9. 「Compare & pull Request」を押します。
      
   10. Write 欄にコメントと、「#コメント番号(例だと #142)」を記入します。入力中、なにかがサジェストされたら ESC キーを押して消してください。
       コメントを書き終わると、「Send pull request」を押します。
       
5. Issue をクローズします

   　イベントページの編集と Pull Request が終了したら、Issue を Close します。

   1. 上記「2.Issue を書く」で書いた Issue を開き、「Close」を押します。
      

　こんなかんじです。

　「すごい広島 #2」に参加してきました。
　http://atnd.org/events/39927

　atnd をみると、「すごい Haskell」本に関連した何かかという感じですが、実際のところはもくもくでした。ルールは以下ようなことらしい。
　http://great-h.github.io/

　行ってみて Haskell 的な何かがあればそれでもよいし、なければ SQL Server 回りの調べものとかしたかったのでそれでいいやと思っていったのですが、SQL Server の参考書を持ち込むのを忘れて早々に撃沈（汗

　んでは、使ってるマシンの再セットアップなどを…と思ったけど、現地で AC を確保できなかったのでこれまた撃沈。次点で、TortoiseGit 的な…と思ったのですがなんとなく食指が動かず…

　途方に暮れたところで、(この直前にも GitHub のパスワード忘れて件でいろいろ途方に暮れてましたが）、ルールによればやったことを blog 記事を書けということだったので、とりあえず blog をみるとコメントスパムが 4000 件…　おいおい（汗

　てことで、これをまずは整理しますか、ということで、まずはスパムの削除をすることに。

　でもこれは、すぐに済む予定だったんですよ…　しかし結果としては終わりませんでした（汗

　コメントはデフォルトで 20件 ほど表示されていまして、そこで削除していけばいいんですが、20/4000 = 200回削除ボタンを押すのか？やってられねー、ってことで、だったら表示件数増やせばいいんじゃね？ってことで 表紙件数を 999 件に変更しました。この辺で今日の私の運が尽きた…

　コメントスパム 999件 表示させて削除をしようとしたら、こんなの出ました。

　URL が長いんですと。いまでも URL って2048 文字とかそういう制限あるんでしたっけ？とか思ったものの、まあいいやというこど 500件に変更。再度削除すると、こんどはこんなのが…

　なんでやねん…＿|￣|○

　ここから少しずつ件数を少なくして行って、エラーがでなくなる件数を探る戦いに…
　紆余曲折ありましたが、結果としては

といった感じで、結局デフォルト(20件前後)で削除しないと安定して削除できないという結果に…（汗

　なんでそんなことになっているんでしょ（汗

　そもそも、Capcha もどきのプラグイン入れているのにコメントスパムが通るという仕様ってどうよ。まあこのあたりの実装をちゃんと確認しろということなのでしょうが…（汗

　そんなことで、今日のところは、Nonce, Please! (http://www.yuriko.net/arc/2008/07/07/nonceplease100/) というプラグインをいれて様子を見るかということで、作業を終了しました。

　Windows のユーザーとパスワードの検証。
　以前、SecureString で怪しげなことを書いていますが、ユーザーとパスワードの検証だけであれば、PrincipalContext を使用することで検証できるようです。

1. 事前準備

   System.DirectoryServices.AccountManagement を参照設定し、import する。

2. ローカルアカウントの場合

   Dim p = New PrincipalContext(ContextType.Machine)
   MsgBox(p.ValidateCredentials("username", "password"))
   

3. ドメイン (Active Directory) アカウントの場合

   Dim p = New PrincipalContext(ContextType.Domain)
   MsgBox(p.ValidateCredentials("username", "password"))
   

　参加ドメインや自マシンに対する検証は上記で OK ですが、参加以外のドメインや他マシンのアカウントの検証を行う場合は、PrincipalContext コンストラクタの第二引数にコンピューター名等を指定します。

　Visual Studio 2005(*1) で Visual Source Safe 6.0 (以下VSS6) を使用していると文字化けすることがあります。
　たとえば時折、こんなダイアログが表示されたりします。

　対策としては、以下のようなことが言われているようです。

　この現象は、VSS6 が UTF-8 に対応していないことに起因します。
　ある条件が成立したとき、VS6S はソースコードをチェックインするとき、行末の「0D-0A(CR-LF)」を「0D 0D-0A(CR CR-LF)」と CR を一つ余分に記録してしまいます。

　メカニズムは以下のような感じです。

　例えば以下の文字があるとします。

あいう[改行]

　UTF-8 では以下のように記録されます。

E3-81-82   E3-81-84   E3-81-86   0D-0A

　ところが VSS6 はこのバイト列を Shift-JIS だと思って処理します。
　Shift-JISでは、第一バイトが 0x80～0xFF の場合は2バイト文字だと判断します。なので VSS6 は上記バイト列は以下のように見えます。

E3-81   82-E3   81-84   E3-81   86-0D   0A

　このため、最後の改行文字「0D-0A (CR-LF)」が泣き別れます。(0Dを第二バイトだと誤認識する)

　この結果、改行文字が「0A (LF)」だけであるように見えます。VSS6 はチェックインの際、これを自動的に補って「0D-0A (CR-LF)」にします。

E3-81   82-E3   81-84   E3-81   86-0D   0D-0A

　この VSS6 にチェックインしたソースコードを、Visual Studio がリロードすると前述のダイアログが表示されます。なぜならば VSS6 によって修正されたバイト列を UTF-8 としてみると、「0D 0D-0A (CR CR-LF)」と CR 単独の改行コードがあるように見えるからです。

E3-81-82   E3-81-84   E3-81-86   0D   0D-0A

　この段階で、上記ダイアログで「はい」を押すと、改行コードが標準化(=CR+LF)されるため以下のようになります。

E3-81-82   E3-81-84   E3-81-86   0D-0A   0D-0A

　この結果、空行が一行増えます。
　ちなみにここで、改行が無駄だからと改行を削除してしまう最初に戻ってしまうため、同じことを繰り返してしまいますので、それはしてはいけません。

　これは、行末尾にある連続したマルチバイト文字が奇数バイトの場合に発生します。具体的にはコメントなどで漢字が末尾にある場合に発生します。
　しかし、末尾が漢字であれば必ず発生するわけでしありません。発生しない場合は行末の連続したマルチバイト文字が偶数バイトである場合です。また、行末がシングルバイト文字の場合は発生しません。

　このようなことから、「末尾にスペースをいれておくと化けない」という対策になっていたりします。
　また、VSS6 で文字化けしたソースコードを一括で修正したい場合は、(OD OD-0A) を (20 0D-0A) に置き換えることで、文字化けを一掃できます。

　もっとも今更 VSS6 を使うな、という話もありますが…

　(*1) 別に Visual Studio 2005 でなくても 2008 でも 2010 でも再現します。たぶん…

　Windows 8(x64) に Visual Basic 6.0 の IDE をインストールしたときのメモ。
　VB6 の IDE はもうサポート切れしています (～2008/4/8) が、そうはいってもソースコードを覗く機会がないともいえないので、まあいれておくかということで。（汗
　なので本当に使い物になるかどうかは不明です。

　以下は今回の手順。
　ポイントのみ画面キャプチャしています。キャプチャしていない画面は成り行きで。

1. Setup.exe を実行すると「プログラムの互換性」ダイアログが表示されますが、「ヘルプを使用せずにプログラムを実行する」を選択し、突っ切ります。
   
2. 「Visual Basic 6.0 のセットアップ」を選択。
   
3. 再び「プログラムの互換性」ダイアログが表示されますが、同様に「ヘルプを使用せずにプログラムを実行する」を選択し、突っ切ります。
   
4. セットアップが開始されます。しかしここで10分前後待たされます。応答なしになりますが気にせず辛抱強く待ちます。
   
5. 「カスタム」を選択。
   
6. 「Visual Basic 6.0」以外の選択をすべて外します。
   　（どれかインストールできないモジュールがあるようなので、VB6本体以外は排除）
   
7. しかし、ディストリビューションウィザードは欲しかったので追加。
   
8. セットアップ中。ここは常識的な時間で推移します。
   
9. めでたく終了。
   
10. スタート画面にも登録されてます。(Web Publishing ウィザードは入れた覚えはなかったが…)
    
11. VB6 を起動すると、ちゃんと起動しますし、デバッグ実行もできました。
    しかし、この状態だと、描画にちょっと難があります。
    例えば、ボタンのサイズを変えようとすると変に描画が遅かったり、ボタンの位置を移動しようとすると表示が崩れたりします。
    
12. 描画の問題を解決するために、VB6.EXE に互換モードで動かすようにします。
    
13. 互換性を「WinXP + 管理者モード」に。
    
14. できあがり。（Window の枠が Win7っぽい)
    

　Windows 上の Oracle でパスワード認証ではなく OS 認証によるユーザーを作るには、以下のようにします。

create user "OPS$PCNAMEUSERNAME" identified by externally;
grant CONNECT to "OPS$PCNAMEUSERNAME"

　PCNAME というのはコンピューター名で、USERNAME は OS認証の対象としたい Windows のユーザー名です。
　OPS$ というのは OS 認証のための接頭辞で、デフォルトは OPS$ です。以下で確認できます。

show parameter OS_AUTHENT_PREFIX;

　注意点としては全て大文字で記述することです。コンピューター名やユーザー名に小文字が入っていたとしても大文字で書く必要があります。でないと認証してもらえません。
　また、OPS$USERNAME、も不可です。Linux 系はそれで OK かもしれませんが(未確認)、Windows ではコンピューター名が必要です。
更に、コンピューター名とユーザー名を で区切る必要があるため、必ずダブルクォーテーションでくくる必要があります。
　Oracle のユーザー名は 30 文字が上限なので、接頭辞～ユーザー名までが 30 文字で完結するようにする必要もあります。

　ユーザー名が "OPS$PCNAMEUSERNAME" なので、スキーマ名も当然 "OPS$PCNAMEUSERNAME" となります。したがって、スキーマ名を指定してオブジェクトを指定したい場合は、

select "OPS$PCNAMEUSERNAME".TABLE1

となります。かっこわり…（汗

　といった感じなので、OS 認証を使う場合は、接続用のユーザーとオブジェクトがあるスキーマは分け、接続用のユーザー(スキーマ)にはオブジェクトは置かないようにした方がよい気がしますね…

　ストアドアウトラインによる実行計画の固定のメモ。一応 10g までが対象。(11g からは SPM)

　例題として、現在、INDEX UNIQUE SCAN を行う以下の問い合わせがあったとします。

SQL> select * from emp where empno=999;

実行計画
---------------------------------------------------
Plan hash value: *********

----------------------------------------------
| Id  | Operation                   | Name   |
----------------------------------------------
|   0 | SELECT STATEMENT            |        |
|   1 |  TABLE ACCESS BY INDEX ROWID| EMP    |
|*  2 |   INDEX UNIQUE SCAN         | PK_EMP |
----------------------------------------------

Predicate Information (identified by operation id):
---------------------------------------------------

   2 - access("EMPNO"=999)

　この問い合わせの実行計画を INDEX UNIQUE SCAN ではなく、TABLE ACCESS FULL となるように変更したいとします。

　手順は以下。

1. ヒントなしのアウトラインを作成します。

   -- ヒントなしのアウトラインを作成
   create or replace outline NO_HINT
   ON
   select * from emp where empno=999;
   

2. TABLE ACCESS FULLとなるようヒントを指定した時のアウトラインを作成します。

   -- ヒント指定のアウトラインを作成
   create or replace outline SET_HINT
   ON
   select /*+ full(emp) */ * from emp where empno=999;
   

3. 双方のヒントを入れ替えます。(*1)

   -- ヒントの入れ替え
   update outln.ol$hints
      set ol_name = decode(ol_name,'SET_HINT','NO_HINT','NO_HINT','SET_HINT')
    where ol_name in ('SET_HINT','NO_HINT')
   ;
   commit;
   

4. ストアドアウトラインを有効にします。(*2)

   alter system set USE_STORED_OUTLINES=TRUE;
   

　このようにすると、ヒント句なしで問い合わせを実行しても、TABLE ACCESS FULL を選択するようになります。(*3)
　（実行計画レポートの note のところに ストアドアウトラインを使用しているという表示が出ます。）

SQL> select * from emp where empno=999;

実行計画
--------------------------------------------------
Plan hash value: *********

----------------------------------
| Id  | Operation         | Name | 
----------------------------------
|   0 | SELECT STATEMENT  |      | 
|*  1 |  TABLE ACCESS FULL| EMP  |
----------------------------------

Predicate Information (identified by operation id):
---------------------------------------------------

   1 - filter("EMPNO"=999)

Note
-----
   - outline "NO_HINT" used for this statement

posted in Oracle, データベース by ooltcloud | No Comments