- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
Public m_Values As Hashtable
Public Function GetSensorType(p_SensorType As SensorType) As SensorValue
For Each de As DictionaryEntry In m_Values
If CType(de.Key, SensorType) = p_SensorType Then
Return de.Value
End If
Next
Return Nothing
End Function
1024-- 24.10.2014 11:53 # +1
IlyaS, говнокод удачно запостился, всё хорошо.