|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
ｿｽ¥ｿｽｿｽｿｽﾌの難ｿｽeｿｽﾌ費ｿｽrｿｽｿｽsｿｽｿｽｿｽﾉは？
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽWｿｽｿｽｿｽｿｽ 2009/03/14(ｿｽy) 09:06:30
VB2008ｿｽﾅ、ｿｽ¥ｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽﾗ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽﾈ会ｿｽｿｽﾌようｿｽﾈ構ｿｽｿｽｿｽﾌゑｿｽ成ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
PrivateStructureStrucTest
DimData1AsString
DimData2AsInteger
DimData3AsBoolean
DimData4()AsString
EndStructure
ｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾌゑｿｽAｿｽﾈ会ｿｽｿｽﾌようｿｽﾉ暦ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
DimTest1asStrucTest
DimTest2asStrucTest
ｿｽiｿｽﾈ会ｿｽｿｽAｿｽlｿｽｿｽｿｽｿｽ黷ｼｿｽｿｽﾌ変撰ｿｽｿｽﾉセｿｽbｿｽgｿｽj
ｿｽｿｽｿｽﾌとゑｿｽｿｽAｿｽ¥ｿｽｿｽｿｽﾌ変撰ｿｽTest1ｿｽｿｽTest2ｿｽﾌ費ｿｽrｿｽｿｽsｿｽｿｽｿｽAｿｽｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾈ単ｿｽﾉ費ｿｽrｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ|ｿｽCｿｽｿｽｿｽgｿｽﾍ、
ｿｽEｿｽ¥ｿｽｿｽｿｽﾌの要ｿｽfData1ｿｽ`Data3ｿｽﾉつゑｿｽｿｽﾄは、ｿｽlｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽB
ｿｽEｿｽ¥ｿｽｿｽｿｽﾌの要ｿｽfData4ｿｽﾉつゑｿｽｿｽﾄは、ｿｽzｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽAｿｽｿｽｿｽﾂ各ｿｽzｿｽｿｽﾌ値ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌほどゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Hongliang 2009/03/14(ｿｽy) 17:42:34
IEquatable(OfStrucTest)ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽEqualsｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽ
>ｿｽEｿｽ¥ｿｽｿｽｿｽﾌの要ｿｽfData1ｿｽ`Data3ｿｽﾉつゑｿｽｿｽﾄは、ｿｽlｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽB
>ｿｽEｿｽ¥ｿｽｿｽｿｽﾌの要ｿｽfData4ｿｽﾉつゑｿｽｿｽﾄは、ｿｽzｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽAｿｽｿｽｿｽﾂ各ｿｽzｿｽｿｽﾌ値ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽB
ｿｽ判定しｿｽﾜゑｿｽｿｽB
ｿｽzｿｽｿｽvｿｽfｿｽﾌ費ｿｽrｿｽﾉは、SequenceEqualｿｽgｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽyｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。
//ｿｽｿｽｿｽｿｽﾈにｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌなゑｿｽ¥ｿｽｿｽｿｽﾌに鯉ｿｽｿｽｿｽｿｽﾄゑｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。ｿｽuｿｽlｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾍ気ｿｽﾅゑｿｽﾈゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/03/14(ｿｽy) 19:51:11
#ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍､ｿｽｿｽｿｽﾉ、Hongliangｿｽｿｽｿｽｿｽﾌ回答ゑｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽA
#ｿｽﾜ角ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾌまま難ｿｽｿｽeｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
----
ｿｽzｿｽｿｽｿｽﾜむ構ｿｽｿｽｿｽﾌ場合ｿｽAｿｽNｿｽｿｽｿｽXｿｽﾉゑｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
http://msdn.microsoft.com/ja-jp/library/ms229017.aspx
>ｿｽｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
>ｿｽﾈ単ｿｽﾉ費ｿｽrｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽuｿｽﾈ単ｿｽﾉ費ｿｽrｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾌを利用ｿｽｿｽｿｽ髑､ｿｽﾌ話ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽAｿｽ¥ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽKｿｽﾅの話ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽpｿｽｿｽｿｽ髑､ｿｽﾉとゑｿｽｿｽﾄ簡単ｿｽﾈのは、=ｿｽｿｽｿｽZｿｽqｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽuIfTest1=Test2Thenｿｽvｿｽﾅ費ｿｽrｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽｿｽB
SharedOperator=(ByValaAsStrucTest,ByValbAsStrucTest)AsBoolean
ｿｽ@If(a.Data1=b.Data1)AndAlso(a.Data2=b.Data2)AndAlso(a.Data3=b.Data3)Then
ｿｽ@ｿｽ@If(a.Data4IsNotNothing)AndAlso(b.Data4IsNotNothing)Then
ｿｽ@ｿｽ@ｿｽ@Returna.Data4.SequenceEqual(b.Data4)
ｿｽ@ｿｽ@Else
ｿｽ@ｿｽ@ｿｽ@Return(a.Data4IsNothing)AndAlso(b.Data4IsNothing)
ｿｽ@ｿｽ@EndIf
ｿｽ@Else
ｿｽ@ｿｽ@ReturnFalse
ｿｽ@EndIf
EndOperator
ｿｽｿｽ抜ゑｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽIEquatable(OfT)ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB
http://msdn.microsoft.com/ja-jp/library/ms229031.aspx
http://msdn.microsoft.com/ja-jp/library/ms131187.aspx
http://msdn.microsoft.com/ja-jp/library/ms131190.aspx
http://dobon.net/vb/dotnet/beginner/equals.html
ｿｽｿｽｿｽ驍｢ｿｽﾍ、ｿｽｿｽｿｽLｿｽﾌようｿｽﾉシｿｽｿｽｿｽAｿｽｿｽｿｽCｿｽUｿｽｿｽﾊゑｿｽｿｽﾄ費ｿｽrｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽpｿｽtｿｽHｿｽ[ｿｽ}ｿｽｿｽｿｽXｿｽﾌ点ｿｽﾅは暦ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽAｿｽVｿｽｿｽｿｽﾈｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽRｿｽ[ｿｽhｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽﾉ済むとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽiｿｽｿｽｿｽﾌ場合ｿｽAｿｽeｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽiｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾇ）
PrivateStructureStrucTest
ｿｽ@DimData1AsString
ｿｽ@DimData2AsInteger
ｿｽ@DimData3AsBoolean
ｿｽ@DimData4()AsString
ｿｽ@SharedOperator=(ByValaAsStrucTest,ByValbAsStrucTest)AsBoolean
ｿｽ@ｿｽ@ReturnBitConverter.ToString(a.ToBinary())=BitConverter.ToString(b.ToBinary())
ｿｽ@EndOperator
ｿｽ@SharedOperator<>(ByValaAsStrucTest,ByValbAsStrucTest)AsBoolean
ｿｽ@ｿｽ@ReturnBitConverter.ToString(a.ToBinary())<>BitConverter.ToString(b.ToBinary())
ｿｽ@EndOperator
ｿｽ@PrivateFunctionToBinary()AsByte()
ｿｽ@ｿｽ@DimbfAsNewBinaryFormatter()
ｿｽ@ｿｽ@UsingstmAsNewMemoryStream()
ｿｽ@ｿｽ@ｿｽ@bf.Serialize(stm,Me)
ｿｽ@ｿｽ@ｿｽ@stm.Position=0
ｿｽ@ｿｽ@ｿｽ@ReturnNewBinaryReader(stm).ReadBytes(stm.Length)
ｿｽ@ｿｽ@EndUsing
ｿｽ@EndFunction
EndStructure
ｿｽWｿｽｿｽｿｽｿｽ 2009/03/15(ｿｽｿｽ) 16:59:26
Hongliangｿｽｿｽｿｽﾜ、ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽﾜ、ｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽjｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽﾄは、ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾄのシｿｽｿｽｿｽAｿｽｿｽｿｽCｿｽUｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌを利用ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽAｿｽﾗ具ｿｽｿｽsｿｽｿｽｿｽﾌゑｿｽｿｽﾟゑｿｽｿｽAｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽAｿｽhｿｽoｿｽCｿｽXｿｽ頂ゑｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽEｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾌの暦ｿｽｿｽpｿｽﾍ、ｿｽ痰ｦｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽﾔの会ｿｽﾊ搾ｿｽｿｽﾚ（TextBoxｿｽｿｽCheckBoxｿｽEListBoxｿｽﾈど）ｿｽﾌ各ｿｽlｿｽﾆ、
ｿｽ@ｿｽｿｽｿｽ骼橸ｿｽ_ｿｽﾌ会ｿｽﾊ搾ｿｽｿｽﾚの各ｿｽlｿｽｿｽｿｽrｿｽｿｽｿｽﾄ、ｿｽﾇれかｿｽｿｽﾂでゑｿｽﾏ更ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽ驍ｱｿｽﾌにゑｿｽ
ｿｽ@ｿｽgｿｽpｿｽﾅゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾌゑｿｽｿｽﾟ、
ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾔｿｽｿｽｿｽﾊ擾ｿｽｿｽｿｽｿｽlｿｽｿｽ¥ｿｽｿｽｿｽﾌ変撰ｿｽ1ｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾌは変更ｿｽｿｽｿｽｿｽsｿｽｿｽﾈゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽ骼橸ｿｽ_ｿｽｿｽｿｽｿｽﾊの各ｿｽlｿｽｿｽ¥ｿｽｿｽｿｽﾌ変撰ｿｽ2ｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽｿｽﾌ構ｿｽｿｽｿｽﾌの値ｿｽﾍ別用ｿｽrｿｽﾅ使ｿｽpｿｽｿｽｿｽ驍ｪｿｽAｿｽｿｽﾊ擾ｿｽｿｽｿｽｿｽlｿｽiｿｽﾏ撰ｿｽ1ｿｽjｿｽﾆの費ｿｽrｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽ@ｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾌ場合ｿｽﾍ、ｿｽｿｽﾍゑｿｽNｿｽｿｽｿｽXｿｽﾉゑｿｽｿｽｿｽｿｽﾙゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽEｿｽﾐ介頂ｿｽｿｽｿｽｿｽｿｽTｿｽCｿｽgｿｽﾅ、ｿｽ¥ｿｽｿｽｿｽﾌにゑｿｽｿｽ驍ｩｿｽNｿｽｿｽｿｽXｿｽﾉゑｿｽｿｽ驍ｩｿｽﾌ記ｿｽｿｽｿｽﾌ抵ｿｽｿｽﾉ、ｿｽuｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽ驍ｱｿｽﾆとどのようｿｽﾈ関係ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽmｿｽFｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽﾇゑｿｽﾅみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽ@ｿｽﾗ具ｿｽｿｽsｿｽｿｽｿｽﾅよくｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽｿｽﾆは、ｿｽﾈ単ｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾎどのようｿｽﾈゑｿｽｿｽﾆなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽEｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽVｿｽｿｽｿｽAｿｽｿｽｿｽCｿｽUｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽﾅ、ｿｽ¥ｿｽｿｽｿｽﾌの宣言ｿｽﾌ前ｿｽｿｽ
ｿｽ@
ｿｽ@ｿｽｿｽｿｽｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾇのようｿｽﾈ趣ｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾌなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
