''' <summary>
  ''' 根据哈西表中的Value值来获得Key值
  ''' </summary>
  ''' <param name="value">value值</param>
  ''' <param name="pHash">哈西表</param>
  ''' <returns>key值的list</returns>
  ''' <remarks></remarks>
  Private Function GetHashKey(ByVal value As Object, ByVal pHash As Hashtable) As List(Of Object)
Dim objectList As New List(Of Object)
Dim pElementList As New List(Of IElement)
Dim pEnumerator As IDictionaryEnumerator = pHash.GetEnumerator
pEnumerator.Reset()
pEnumerator.MoveNext()
While 1
If value Is pEnumerator.Value Then
pElementList.Add(pEnumerator.Key)
objectList.Add(pEnumerator.Key)
End If
If Not pEnumerator.MoveNext() Then Exit While
End While
Return objectList
End Function