.NET

[VB.NET]隠れたCOSTという話

Mr.T — Wed, 07 Oct 2009 11:23:00 GMT

Mr.Tです、こんにちは。

元ネタは、http://blogs.msdn.com/vbteam/archive/2009/10/06/hidden-costs-matt-gertz.aspx
# ほとんど、ネタに乗っかるだけの話なんで恐縮なんですけどね。

VB6.0以前でも云われてきた話じゃないかと思ってたんですが、ループなどで、こういう処理を書いたとします。

     Public MyList As List(Of String) = New List(Of String)
    Sub Main()
        Dim s As New System.Text.StringBuilder
        For i As Integer = 0 To MyList.Count
            s.Append(MyList(i))
        Next
    End Sub

このとき、MyList.Countは、ループのたびに評価される、というのが隠れたCostということみたいです。

で、ほんじゃどんだけ違うのだろうと、MSILコードを見るとこんな感じでした。

#Costがあるってなら、何か余計な処理&時間がかかる処理があるんだろうと思うので。

.method public static void Main() cil managed
{
.entrypoint
.custom instance void [mscorlib]System.STAThreadAttribute::.ctor() = ( 01 00 00 00 )
// コードサイズ       48 (0x30)
.maxstack 3
.locals init ([0] class [mscorlib]System.Text.StringBuilder s,
           [1] int32 i,
           [2] int32 VB$t_i4$L0)
IL_0000: newobj     instance void [mscorlib]System.Text.StringBuilder::.ctor()
IL_0005: stloc.0
IL_0006: ldc.i4.0
IL_0007: ldsfld     class [mscorlib]System.Collections.Generic.List`1<string> Sample.Module1::MyList
IL_000c: callvirt   instance int32 class [mscorlib]System.Collections.Generic.List`1<string>::get_Count()
IL_0011: stloc.2（※１）
IL_0012: stloc.1
IL_0013: br.s       IL_002b
IL_0015: ldloc.0
IL_0016: ldsfld     class [mscorlib]System.Collections.Generic.List`1<string> Sample.Module1::MyList
IL_001b: ldloc.1
IL_001c: callvirt   instance !0 class [mscorlib]System.Collections.Generic.List`1<string>::get_Item(int32)
IL_0021: callvirt   instance class [mscorlib]System.Text.StringBuilder [mscorlib]System.Text.StringBuilder::Append(string)
IL_0026: pop
IL_0027: ldloc.1
IL_0028: ldc.i4.1
IL_0029: add.ovf
IL_002a: stloc.1
IL_002b: ldloc.1
IL_002c: ldloc.2
IL_002d: ble.s      IL_0015
IL_002f: ret
} // end of method Module1::Main

MyList.Coutを事前に求めておいたパターンで同じようにやってみました。

    Public MyList As List(Of String) = New List(Of String)
    Sub Main()
        Dim s As New System.Text.StringBuilder
        Dim count As Integer = MyList.Count
        For i As Integer = 0 To count
            s.Append(MyList(i))
        Next
    End Sub

.method public static void Main() cil managed
{
.entrypoint
.custom instance void [mscorlib]System.STAThreadAttribute::.ctor() = ( 01 00 00 00 )
// コードサイズ       50 (0x32)
.maxstack 3
.locals init ([0] int32 count,
           [1] class [mscorlib]System.Text.StringBuilder s,
           [2] int32 i,
           [3] int32 VB$t_i4$L0)
IL_0000: newobj     instance void [mscorlib]System.Text.StringBuilder::.ctor()
IL_0005: stloc.1
IL_0006: ldsfld     class [mscorlib]System.Collections.Generic.List`1<string> Sample.Module1::MyList
IL_000b: callvirt   instance int32 class [mscorlib]System.Collections.Generic.List`1<string>::get_Count()
IL_0010: stloc.0（※２）
IL_0011: ldc.i4.0
IL_0012: ldloc.0
IL_0013: stloc.3
IL_0014: stloc.2
IL_0015: br.s       IL_002d
IL_0017: ldloc.1
IL_0018: ldsfld     class [mscorlib]System.Collections.Generic.List`1<string> Sample.Module1::MyList
IL_001d: ldloc.2
IL_001e: callvirt   instance !0 class [mscorlib]System.Collections.Generic.List`1<string>::get_Item(int32)
IL_0023: callvirt   instance class [mscorlib]System.Text.StringBuilder [mscorlib]System.Text.StringBuilder::Append(string)
IL_0028: pop
IL_0029: ldloc.2
IL_002a: ldc.i4.1
IL_002b: add.ovf
IL_002c: stloc.2
IL_002d: ldloc.2
IL_002e: ldloc.3
IL_002f: ble.s      IL_0017
IL_0031: ret
} // end of method Module1::Main

よくわからんのだけど、この※１と※２は、Countの戻り値を評価スタックとやらにPushしてるわけで、この値を比較対象と
してるんだと思ってるんですが、違うんですかね？

この時点では、もうどちらもint32の値として利用されているから、Costなんてなさそうな感じがします。

前段では、

IL_002d: ble.s IL_0015

後段では、

IL_002f: ble.s IL_0017

ここで、ループというか指定行に飛んでいくようになってます。つまり、これを見る限りは、Appendは毎回評価されている

けど、Countは毎回なんぞ評価されていないように見えます。

じゃあ、For Each使えばどうなのよ、ってことで、

    Public MyList As List(Of String) = New List(Of String)
    Sub Main()
        Dim s As New System.Text.StringBuilder
        For Each data As String In MyList
            s.Append(data)
        Next
    End Sub

.method public static void Main() cil managed
{
.entrypoint
.custom instance void [mscorlib]System.STAThreadAttribute::.ctor() = ( 01 00 00 00 )
// コードサイズ       61 (0x3d)
.maxstack 2
.locals init ([0] class [mscorlib]System.Text.StringBuilder s,
           [1] string data,
           [2] valuetype [mscorlib]System.Collections.Generic.List`1/Enumerator<string> VB$t_struct$L0)
IL_0000: newobj     instance void [mscorlib]System.Text.StringBuilder::.ctor()
IL_0005: stloc.0
.try
{
    IL_0006: ldsfld     class [mscorlib]System.Collections.Generic.List`1<string> Sample.Module1::MyList
    IL_000b: callvirt   instance valuetype [mscorlib]System.Collections.Generic.List`1/Enumerator<!0> class [mscorlib]System.Collections.Generic.List`1<string>::GetEnumerator()
    IL_0010: stloc.2
    IL_0011: br.s       IL_0023
    IL_0013: ldloca.s   VB$t_struct$L0
    IL_0015: call       instance !0 valuetype [mscorlib]System.Collections.Generic.List`1/Enumerator<string>::get_Current()
    IL_001a: stloc.1
    IL_001b: ldloc.0
    IL_001c: ldloc.1
    IL_001d: callvirt   instance class [mscorlib]System.Text.StringBuilder [mscorlib]System.Text.StringBuilder::Append(string)
    IL_0022: pop
    IL_0023: ldloca.s   VB$t_struct$L0
    IL_0025: call       instance bool valuetype [mscorlib]System.Collections.Generic.List`1/Enumerator<string>::MoveNext()
    IL_002a: brtrue.s   IL_0013
    IL_002c: leave.s    IL_003c
} // end .try
finally
{
    IL_002e: ldloca.s   VB$t_struct$L0
    IL_0030: constrained. valuetype [mscorlib]System.Collections.Generic.List`1/Enumerator<string>
    IL_0036: callvirt   instance void [mscorlib]System.IDisposable::Dispose()
    IL_003b: endfinally
} // end handler
IL_003c: ret
} // end of method Module1::Main

まあ、このヘンになってくると比較にもならん結果になるので、パスw

で、引用元の人は、こういうのは最悪だろって話をしてるんだけど、

    Public MyLameObjectHeader As MyLameObject = New MyLameObject
    Sub Main()
        Dim s As New System.Text.StringBuilder
        For i As Integer = 0 To MyLameObjectHeader.Count
            s.Append(MyLameObjectHeader.Item(i))
        Next
    End Sub

     Public Class MyLameObject
        Public data As String
        Public NextMLO As MyLameObject

        Public Sub Insert(ByVal mlo As MyLameObject)
            If NextMLO IsNot Nothing Then
                NextMLO = mlo
            Else
                mlo.NextMLO = NextMLO.NextMLO
                NextMLO.NextMLO = mlo
            End If
        End Sub

        Public Function Count() As Integer
            Dim ct As Integer = 0
            Dim current As MyLameObject = Me
            Do While current IsNot Nothing
                ct += 1
                current = current.NextMLO
            Loop
            Return ct
        End Function

        Public Function Item(ByVal index As Integer) As MyLameObject
            If index >= Count() OrElse index < 0 Then Return Nothing
            Dim current As MyLameObject = Me
            For i As Integer = 0 To index
                current = current.NextMLO
            Next
            Return current
        End Function
    End Class

MyLameObject.Countが毎回、ループで処理されるからひどいことになるよってことですな。せめてこうしろって話ですな。

(Mainの変更後）

    Public MyLameObjectHeader As MyLameObject = New MyLameObject
    Sub Main()
        Dim s As New System.Text.StringBuilder
        Dim c As Integer = MyLameObjectHeader.Count
        For i As Integer = 0 To c
            s.Append(MyLameObjectHeader.Item(i))
        Next
    End Sub

--Main部分変更前

.method public static void Main() cil managed
{
.entrypoint
.custom instance void [mscorlib]System.STAThreadAttribute::.ctor() = ( 01 00 00 00 )
// コードサイズ       48 (0x30)
.maxstack 3
.locals init ([0] class [mscorlib]System.Text.StringBuilder s,
           [1] int32 i,
           [2] int32 VB$t_i4$L0)
IL_0000: newobj     instance void [mscorlib]System.Text.StringBuilder::.ctor()
IL_0005: stloc.0
IL_0006: ldc.i4.0
IL_0007: ldsfld     class Sample.Module1/MyLameObject Sample.Module1::MyLameObjectHeader
IL_000c: callvirt   instance int32 Sample.Module1/MyLameObject::Count()
IL_0011: stloc.2
IL_0012: stloc.1
IL_0013: br.s       IL_002b
IL_0015: ldloc.0
IL_0016: ldsfld     class Sample.Module1/MyLameObject Sample.Module1::MyLameObjectHeader
IL_001b: ldloc.1
IL_001c: callvirt   instance class Sample.Module1/MyLameObject Sample.Module1/MyLameObject::Item(int32)
IL_0021: callvirt   instance class [mscorlib]System.Text.StringBuilder [mscorlib]System.Text.StringBuilder::Append(object)
IL_0026: pop
IL_0027: ldloc.1
IL_0028: ldc.i4.1
IL_0029: add.ovf
IL_002a: stloc.1
IL_002b: ldloc.1
IL_002c: ldloc.2
IL_002d: ble.s      IL_0015
IL_002f: ret
} // end of method Module1::Main

--Main部分変更後

.method public static void Main() cil managed
{
.entrypoint
.custom instance void [mscorlib]System.STAThreadAttribute::.ctor() = ( 01 00 00 00 )
// コードサイズ       50 (0x32)
.maxstack 3
.locals init ([0] int32 c,
           [1] class [mscorlib]System.Text.StringBuilder s,
           [2] int32 i,
           [3] int32 VB$t_i4$L0)
IL_0000: newobj     instance void [mscorlib]System.Text.StringBuilder::.ctor()
IL_0005: stloc.1
IL_0006: ldsfld     class Sample.Module1/MyLameObject Sample.Module1::MyLameObjectHeader
IL_000b: callvirt   instance int32 Sample.Module1/MyLameObject::Count()
IL_0010: stloc.0
IL_0011: ldc.i4.0
IL_0012: ldloc.0
IL_0013: stloc.3
IL_0014: stloc.2
IL_0015: br.s       IL_002d
IL_0017: ldloc.1
IL_0018: ldsfld     class Sample.Module1/MyLameObject Sample.Module1::MyLameObjectHeader
IL_001d: ldloc.2
IL_001e: callvirt   instance class Sample.Module1/MyLameObject Sample.Module1/MyLameObject::Item(int32)
IL_0023: callvirt   instance class [mscorlib]System.Text.StringBuilder [mscorlib]System.Text.StringBuilder::Append(object)
IL_0028: pop
IL_0029: ldloc.2
IL_002a: ldc.i4.1
IL_002b: add.ovf
IL_002c: stloc.2
IL_002d: ldloc.2
IL_002e: ldloc.3
IL_002f: ble.s      IL_0017
IL_0031: ret
} // end of method Module1::Main

クラス部分は変更してないから、同じだし。

それ以外だと、やっぱりContの部分なんですが・・・これって、やっぱりループごとに評価されているわけじゃないように
見えるんですが・・・

サルでもわかる説明とかないですかねw

SqlDataReaderのGetSchemeTableで、余計な列(フィールド)まで取ってくるときがある。

Mr.T — Wed, 11 Feb 2009 11:48:00 GMT

Mr.Tです、こんにちは。

#.NetFrameWork2.0　, SQLServer 2005での環境です。

ちなみに、これではないみたいです。
[BUG] SqlDataReader の GetSchemaTable() が誤った列名を返す　http://support.microsoft.com/kb/307512/ja

SQLServerからデータを取得して、それをDataTableにセットしたい...でも、フィールドの情報はいちいち指定したくない

という場合に、SqlDataReader.GetSchemaTableによって、テーブルのフィールド情報を取得し、そのフィールド名と

型情報をとってきて、自動的にDataTableへ落とし込む、なんてことをしてたりしますか？

今じゃ古いやり方なのかもしれませんけど、まあベタな方法ですよね。

#それとも、もう、やらないのかなぁ。

この流れでいうと、まずはDataTaleを用意して、そこにカラムを追加し、データを突っ込むことになりますが、

カラムを用意する時点で、どうもエラーになる。それは、例えば、こんなソース。

Dim targetSchemeDataReader As SqlDataReader = Nothing
Dim targetScheme As DataTable
targetSchemeDataReader = targetSQLCommand.ExecuteReader(CommandBehavior.KeyInfo)
targetScheme = targetSchemeDataReader.GetSchemaTable

Dim fieldNameIndex As Integer = targetScheme.Columns("ColumnName").Ordinal
Dim typeIndex As Integer = targetScheme.Columns("DataType").Ordinal
Dim isHiddenIndex As Integer = targetScheme.Columns("IsHidden").Ordinal

For Each iRow As System.Data.DataRow In targetScheme.Rows
targetDataTable.Columns.Add(iRow.Item(fieldNameIndex).ToString, _　←ここでエラー
Type.GetType(CType(iRow.Item(typeIndex), Type).FullName))
Next

デバッグしてみると、ストアドプロシジャから返された結果に対して、意図していないフィールドまで

返されていることがわかり、そのフィールドのカラム名がだぶっている様子。

#ダブったのは今回のケースではそうなっただけ

Ｓｅｌｅｃｔで返す予定になっていたのは、４つのフィールドであるのに、スキーマ情報として取得されたときには、8つのフィールド名

ということで、なぜそんなものまで返されるのか正直わけがわからなかった。

で、調べたところ似たような現象のお方がいた。

http://www.devnewsgroups.net/group/microsoft.public.dotnet.framework.adonet/topic53804.aspx

なんじゃ、英語でわからんのだけども、ロバートという人こんなこといってます。

When you specify the CommandBehavior.KeyInfo option, Sql Server will
automatically return you the columns in your original select along with the
necessary additional columns needed to uniquely identify the rows returned.

SQLComman.ExeteReader(CommandBehavior.KeyInfo)を使うと、SQLServerは、

行を一意に識別するため、自動的にキー項目を追加する、みたいな感じですね。

これ、どこがソース（情報源）になっているのかわかりませんが、そう考えると納得できます。

さらに、上記の返答のRessには、

IsHiddenという項目があること

取得元がViewであるなら、WITH VIEW_METADATAをつけるとええよ

とか云ってます。

とりあえず、そういうことであれば列情報に違いがあるんじゃないかと思い、比較してみたところ、

メタデータにIsHiddenという項目があることがわかりました。

これを比較すると、こちらがSelect ・・・と指定したフィールドに対しては、True,書いてないフィールドはFalseが

返ってきています。

そういうわけで、ソースをこんな風に変更。

Dim targetSchemeDataReader As SqlDataReader = Nothing
Dim targetScheme As DataTable
targetSchemeDataReader = targetSQLCommand.ExecuteReader(CommandBehavior.KeyInfo)
targetScheme = targetSchemeDataReader.GetSchemaTable

Dim fieldNameIndex As Integer = targetScheme.Columns("ColumnName").Ordinal
Dim typeIndex As Integer = targetScheme.Columns("DataType").Ordinal
Dim isHiddenIndex As Integer = targetScheme.Columns("IsHidden").Ordinal ←追加

For Each iRow As System.Data.DataRow In targetScheme.Rows
    If CBool(iRow.Item(isHiddenIndex)) = False Then　←追加
        targetDataTable.Columns.Add(iRow.Item(fieldNameIndex).ToString, _
                        Type.GetType(CType(iRow.Item(typeIndex), Type).FullName))

    End If　←追加
Next

めでたく、必要な情報のみ取得できました。

って、KeyInfo使えっていってるのは、MSDNサンプルにもあるのに、どういうことなんじゃ！

DataReader の GetSchemaTable メソッドと Visual Basic .NET を使用して列スキーマを取得する方法

http://support.microsoft.com/kb/310108/ja

HttpServerUtility.Executeではクエリパラメータが渡せる

Mr.T — Wed, 07 Jan 2009 15:59:00 GMT

Mr.Tです、こんにちは。

レガシーのASPで、IIS5.0を使っていると、Server.Executeでページ遷移をすることがよくありましたが、

実はURLにクエリ文字列が含められなくて、非常に困っていました。

たとえば、

Server.Execute("hogehoge.asp?UserCD='**'")

みたいなものですね。これは、エラーになります。

⇒IIS の Server.Execute パラメータにクエリ文字列を使用するとエラーが発生する：http://support.microsoft.com/kb/247420/ja

これは、仕様なのでどうしようもなかったのですね。

ところが、ASP.NETになってから、Server.ExecuteメソッドはHttpServerutilityクラスになってくれて、少なくともASP2.0では

Server.Execute("hogehoge.aspx?UserCD='**'")

がきちんと通るし、hogehoge.aspxでも、UserCDを取得することができました。

まあ、ASP.NETは別物なんだから、できるようになったといえばそれでオシマイなんですがねw

WindowsFormのユーザコントロールでは、内部でSize変更するとLocation値が変更されてしまう。

Mr.T — Fri, 01 Aug 2008 15:41:00 GMT

Mr.Tです、こんにちは。

WindowsFormって、こんなに面倒だったっけ？とか思いつつ、メモ。

当たり前といえば、当たり前なのかもしれないが、ユーザコントロールに適当なLabelをおいて、ユーザコントロールの大きさを

マウスでぐりぐり動かしてみると、わかる。

ラベル位置（0,0)の位置は、ユーザコントロール側からすると相対的な位置でしかない。

サイズを変更すると、貼り付けたラベルの位置は変わってしまう。

Anchor = none

Dock = none

AutoSize = false

の状態です。

たとえば、こんなの。水色の部分がユーザフォーム。

この端っこをマウスでぐりっと大きくする。

Labelの位置は動いてしまう。つまり、サイズ変更が、Lableの位置まで変更してしまう。

こんなことで時間をとってしまうなんて。

なんだか、違和感があるのは、私だけ？というか、WindowsFormを扱いが初心者並なのがバレバレですな。

VB.NETでXMLファイルの整合性とる（チェックする）

Mr.T — Tue, 08 Jul 2008 16:16:00 GMT

Mr.Tです、こんにちは。

そもそもやりたいことは、単純にいえば、XMLのチェックだ。動的に作成されたXMLが、きちんと生成規則にあっているかどうかを見たいのだが、

具体的にはxsdファイルで定義されいてる内容で目的のXMLデータをValidすることになる。

その際には、XMLSchemeSetクラスが必要。

で、Validするためのサンプルクラスは以下。

Imports System.Xml.Schema
Public Class XMLChecker

Private _targetXML As XElement
Public Property TargetXML() As XElement
    Get
        Return _targetXML
    End Get
    Set(ByVal value As XElement)
        _targetXML = value
    End Set
End Property

Private _validValue As Boolean = True
Private Sub ReadValid(ByVal sender As Object, ByVal e As Xml.Schema.ValidationEventArgs)
    _validValue = False
    'MessageBox.Show(e.Message)
End Sub

Private Sub XMLValid(ByVal sender As Object, ByVal e As ValidationEventArgs)
    _validValue = False
    'MessageBox.Show(e.Message)
End Sub

Public Function Valid(ByVal resourceName As String) As Boolean
    Dim myAssembly = System.Reflection.Assembly.GetExecutingAssembly
    Dim targetStream = myAssembly.GetManifestResourceStream(resourceName)

    If targetStream Is Nothing Then Return False
    Dim targetSheme = XmlSchema.Read(targetStream, AddressOf ReadValid)

    If _validValue = False Then Return False

    Dim targetShemeSet = New XmlSchemaSet
    targetShemeSet.Add(targetSheme)

    Dim targetDocument = New XDocument
    targetDocument.Add(_targetXML)

    targetDocument.Validate(targetShemeSet, AddressOf XMLValid)
    If _validValue = False Then Return False

    Return _validValue
End Function

ここまで至るには、結構な穴があったのだが、まずは列挙。

・実際のValid処理では、XDocumentインスタンスに対して、拡張メソッドのValidを使う。
　しかし、そのValidをインテリセンス上に出すには、きちんとImports System.XML.Shemaを書かないと、Validが表示されない。

　※Validは、拡張メソッドってことで、Extensions クラスのメンバになります。拡張メソッド、はじめて使ったよ。

・Validメソッドは、XDocumentに対して拡張されます。XElementとかには拡張されません。なので、Linqとかで使われるXElementをXDocumentに
変換しましょう。

・Validして、「おかしいよー」という場合のみ、Addressofで指定されたプロシジャに飛びます。Validした結果は、どこにも保存されないので、
自前でプロパティなどに保存すべし。

・XMLファイルからxsdファイルを生成できることを、とりこびとさんにわんくま大阪勉強会#20で教えてもらったはいいが、そこからStreamにするには
どうすりゃいいのかわかっていない。
　で、調べたら、アセンブリリソースにしてから、GetManifestResourceStreamを使えという内容を＠ITで発見。⇒ココ

※返答していたのがTecｈBankのかめたろさん、であることに後で気がついたw

で、やってみたらが、GetManifestResourceStreamの引数に、プロジェクト名.***.xsdとしてみたが、StreamはNothingのままで、また悩む。
ここも参考にしてみたりしたが、やはりだめ。なぜだろうと、思ったら、VBでいう「デフォルトの名前空間」をわざと空にしていた！

　これがデフォルトの名前空間の弊害か！？

　指定文字列を”***.xsd”とそのまま書いてみたら、あっさりOK。

こんなところで、XSDファイルの内容から、チェックできるようになったわけでした。　ファイルパスを指定するらもちょっと簡単にできる。
⇒XmlSchemaSetに、そのままファイルパスでAddできる。

自動生成されたXSDファイルは、きちんと見直す必要がありますから、そこも注意。

Equalsをオーバーライドする（VB.NET）

Mr.T — Thu, 05 Jun 2008 14:27:00 GMT

Mr.Tです、こんにちは。

HogeクラスのEaualsをオーバーライドする必要があったので、Memoです。

既定のEaualsは、クラスが参照型である場合は、参照先の比較になるので、クラス内部のフィールドとかは比較してくれません。

なので、自前で実装する必要があります。

まずは、前提条件をば。

複雑なクラスそのものを比較するなら、そのクラスのEqualsをオーバライドする必要があります。
更に、Equalsをオーバライドしたら、GetHashCodeメソッドもオーバーライドしないといけません。
EaualsがTrueとなる場合、GetHashCodeで返される値は同じものでなくてはなりません。
ただし、必要条件であって、十分条件ではない。
Nothingとの比較は必ずFalseを返さなくてはならない
例外をスローすることはない（ってスローしないように作れってことですね）

以下を前提にして、更にわからんところを埋める。

参照ではなく値で比較しなくてはならない場合は、

    Private Class testclassA
        Public valA As String = ""
        Public listB As List(Of testclassB) = New List(Of testclassB)
    End Class

    Private Class testclassB
        Public val1 As String = ""
    End Class

こんな感じのクラスで、valAとListBを比較しなくてはならないこと。当然testClassBの比較は、既定のEqualsを使うのではなく、val1を

比較するようにオーバーライドしなくてはならない。

更に、だ。

Equalsの引数に取るのは、Objectであることに注意。

Objectであるため、なんでも引数に取れる。とれるが、それが比較したいクラスではなく、まったく別のクラスであっても

コンパイルは通る。そして例外が発生したりする。使う側で同一のクラスであるかどうか、というのをあらかじめ知って

いる場合でないと使えない。（当然だが）

しかい、それでは困るので、タイプセーフ（？）となるように、Typeの比較を先におこなってしまうのがいいだろう。

    Private Class testclassA
        Public valA As String = ""
        Public listB As List(Of testclassB) = New List(Of testclassB)
    End Class

    Public Sub Test()

        Dim target = new testclassA

        Dim flg = target.Equlas(100) ⇒こんなのがかけてしまう！
    End Sub

結果、Objectが引数のケースと、自分自身のクラスを引数とする場合を二つ考えておく必要があるってことで、こんな風にする。

    Public Overloads Function Equals(ByVal obj As SubGroupData) As Boolean

        If obj Is Nothing Then Return False
        If Object.ReferenceEquals(Me, obj) = True Then Return True
        If Me.GetHashCode <> obj.GetHashCode Then Return False　（※１）

        '個別実装
        If (Me.SubGroupName <> obj.SubGroupName) Then Return False
        If (Me.SubGroupNo <> obj.SubGroupNo) Then Return False

        If Me.Count <> obj.Count Then Return False

        For i As Integer = 0 To Me.Count - 1
            If Me.Item(i).Equals(obj.Item(i)) = False Then Return False
        Next

        Return True
    End Function

    Public Overrides Function Equals(ByVal obj As Object) As Boolean
        If obj.GetType.Equals(Me.GetType) = False Then
            Return False
        Else
            Return Equals(CType(obj, SubGroupData))
        End If
    End Function

    Public Overrides Function GetHashCode() As Integer
        Dim subGroupNameHash As Integer = Me.SubGroupName.GetHashCode
        Dim subGroupNoHash As Integer = Me.SubGroupNo.GetHashCode

        Dim listHash As Integer = 0
        For Each sItem As InspectionItemData In _inspectionItemList
            listHash = listHash Xor sItem.GetHashCode
        Next

        Return listHash Xor subGroupNameHash Xor subGroupNoHash
    End Function

少々困ったのは、GetHashCodeの実装方法だ。

これについては、MSDNに書いてある、書いてあるという情報しか見つけられず、結局中に載っていたサンプルを参考に

各比較値のHashCodeをXorすることで、生成することにした。

めんどくせーーーー。

参考URL：

http://msdn.microsoft.com/ja-jp/library/336aedhh(vs.80).aspx

http://www.ailight.jp/blog/kazuk/articles/6293.aspx

※補足

今回の場合、Equals内部でGetHashCodeを利用しているが、それがループでHashCodeを作成している。
これが速度的なネックにはなりそうである。
そもそも、GetHashCodeの比較部分（※１）は、実際十分条件は満たすが、必要条件ではない。
つまり、このチェックをしなくても、その後のチェックできちんと判断はされる。

とすれば、後はこのGetHashCodeそのものにかかる時間と、すっとばしたときの時間との兼ね合いになるが
個別実装部分のチェックでもループを回すので、どちらに時間がかかるか、というのはすぐに理解できるだろう。

ということで、（※１）は「今回は」しなくていいわけですね。
もし、GetHashCodeがもっとすばやく取得できるなら実装しても問題はないのだろう。

Panelコントロールの中に動的にコントロールを追加していくと、Locationで指定した位置がずれる

Mr.T — Tue, 27 May 2008 16:50:00 GMT

Mr.Tです、こんにちは。

#.NETFramework2.0以降の場合です。

Windows.FormでPanelコントロールを利用する機会は非常に多いと思うのですが、その際、動的にコントロールを

追加するには、

targetPanel.controls.add(addingControl)

と書けばよいわけです。

その際に

targetPanel.AutoScroll=Trueであり
addingControl.Locationの値を設定したとする

すると、Panelを親として相対位置で、コントロールが配置されます。

この相対位置というのは注意が必要で、

ボタンクリックなどで動的にコントロールが追加され、スクロールバーが表示されて
追加後にスクロールバーで位置を動かす

これにより、それまで表示されていた内部コントロールは、スクロールされた分だけLocationの位置が変化してしまいます。

これを絶対位置とするためには、そのスクロール分を考慮して、LocationにPointを与えてやらなくてはなりません。

つまり、

Dim nextPoint as Piont = new Point(x,y)

addinControl.Location = nextPoint

ではなく、

Dim nextPoint as Piont = new Point(x,y)

~~nextPoint.offset(x-targetPanel.HorizontalScroll.Value,y-targetPanel.VerticalScroll.Value)~~

nextPoint.offset(-targetPanel.HorizontalScroll.Value,-targetPanel.VerticalScroll.Value)

addinControl.Location = nextPoint

としなくてはなりません。

#まったくのメモ

#2008-05-28 ソースに間違いがあったのを修正

VisualBasic 2008の新機能 IFが変わった

Mr.T — Thu, 13 Mar 2008 09:51:00 GMT

Mr.Tです、こんにちは。

いや、これはすごい

やってくれたよ、こんなのをサポートしたのね。

ネタ元：http://blogs.msdn.com/vbteam/archive/2008/03/11/if-operator-a-new-and-improved-iif-sophia-salim.aspx

（注意：以下は翻訳ではないですよ）

今までC#、C++などで使えていた3項演算子である（？）は、ショートサーキット評価による演算で、
かなり便利だなぁと思われていたものです。

それが、VBでも利用できるようになりました。すばらしい。

ショートサーキット評価ってのは、簡単にいえば、

True Or (変数A = 変数B)

という式があった場合、変数A=変数Bを評価しなくても、式の結果はTrueになりますから、

わざわざ変数A=変数Bを内部で評価しませんよ、というものです。

逆にいえば、ショートサーキットであれば、Trueパートだろうが、Flaseパートだろうが、「内部で評価されてしまう」

わけですね。

関数IIFだと、ショートサーキットではありません。

使い方は、こうです。

IF（判定式,Trueパート,Falseパート)

もしくは、

IF（Trueパート、Falseパート）

いや、すごいね、3項演算子から、判定式まで省略できるように進化してしまったよ！

#っていうか、ぶっちゃけそこまでいらねー

3項演算については、もうだいたいわかっている機能なんですが、2項演算になってしまったというか、

IF（Trueパート、Falseパート）

なによ、これ？

MSDNで検索。

http://msdn2.microsoft.com/en-gb/library/bb513985(ja-jp).aspx

Boolean 引数を省略するときは、1 番目の引数に参照型または null 許容型を指定する必要があります。1 番目の引数が Nothing と評価されると、2 番目の引数の値が返されます。それ以外のすべての場合は、1 番目の引数の値が返されます。次の例は、この評価がどのように動作するのかを示します。

つまり、判定する式と値が一体化してしまったような形ですね。判定対象はNothingになります。

注意するのが、1番目の引数が参照型もしくは、Null許容型でなくちゃならないってことでしょうか。

#使い道がわからん

ネタ元のコメントには、？が使いたいならC#を使えば？とか、かいてあったり、これイイヨ！とか、賛否両論

な感じですが、私は素直に喜べる機能じゃないかと思ってます。

VB.NETでForループで型推論をしたときのワナ

Mr.T(mrt@wankuma.com) — Thu, 27 Dec 2007 18:12:00 GMT

Mr.Tです、こんにちは。

巷で、祭りになってる(ｵｲ Forループのときの型推論についてです。

VB.NETだけの話で、C#では、絶対におきないんです。なぜって、Varって書くから。

Option Compare Binary
Option Strict On
Option Explicit On
Option Infer On
Module InferSample

    Sub Main()

        For i = 1 To 10
            Console.WriteLine("Mr.Tはコング！")
        Next

    End Sub

End Module

これが型推論が行われているパターン。

Option Compare Binary
Option Strict On
Option Explicit Off
Option Infer Off
Module InferSample

    Sub Main()

        For i = 1 To 10
            Console.WriteLine("Mr.Tはコング！")
        Next

    End Sub

End Module

これが、型推論がおこなわれていないパターン。

変数iは、上がintegerになります。下は、objectになります。

Main内はおんなじです。

ソース見ただけじゃ、わかりません。

ええ、Explicit Onがページ内に指定されていればいいです。指定されていなければ、そのページ内だけじゃわかりません。

こんなの使えん！

そういうわけで、VB.NETでForループじゃ、型推論絶対つかうな派です。

#ごめんなさい、こんな程度しか、まだついていけません。

カンマ区切りで出力

Mr.T(mrt@wankuma.com) — Sun, 28 Oct 2007 02:24:00 GMT

Mr.Tです、こんにちは。

http://blogs.wankuma.com/yaju/archive/2007/10/27/104542.aspx

いや、カンマ区切りであるなら、VB系で忘れちゃならないもんがあると思ひます。

例題のように１次元配列になってるんなら、

Dim TargetData() as String = {"1","2","3"}

System.Console.Write(Join(TargetData,","))

この一行で出てきます。

Joinの引数は、String配列、もしくはObject配列なので、Converterで変換かませばいいわけなんで、

それほど面倒にはならないと思います。