FindIndex���\�b�h���g�p���Č����L�[�ɑ��ẴC���f�b�N�X���擾
���邱�Ƃ��ł��܂����B�V���m���l���肪�Ƃ��������܂����B
Private Shared m_strFind As String = "345"�@�@�@'// �����R�[�h
Console.WriteLine("FindIndex(AddressOf EndsWithSaurus): {0}", _
m_SampleData.FindIndex(AddressOf EndsWithIndex))
Private Shared Function EndsWithIndex(ByVal s As SampleData) As Boolean
If s.ID = m_strFind Then
Return True
Else
Return False
End If
End Function
��No24170 (KG ����) �ɕԐM
> ��No24145 (Hiro ����) �ɕԐM
>>�����Q�l�ɂ����Ă��������Ă��܂��B
>>�Ǝ��N���X��p�ӂ��Ă��̃f�[�^��List�N���X�֒lj����Ďg�p���Ă���̂ł���
>>���̒lj����ăf�[�^���̂���L�[���w�肵�Č�����������@����������ĉ������B
>>���݂́AFor Loop �Ŕ�r���s���������s���Ă��܂��B
>
> �ʈĂł����ADictionary�N���X���g���Ă݂�Ƃ��B
>
> -------------------------------------------------
> Dim dic As New Dictionary(Of String,SampleData)
> Dim myD as New SampleData
> With myD
> ID = "345"
> Code = "GTHI"
> Value = 0
> End With
> dic.Add(myD.ID,myD)
> -------------------------------------------------
> ���Ƃ�Dictionary�N���X��TryGetValue���\�b�h�Ȃǂ��g���ł������ł����B
��L�̕��@���m�F���Ă݂����Ǝv���܂��B
���肪�Ƃ��������܂��B