Поможите перевести код

[Roman Koff]

Можно ли перевести такой код на Vb?
Вопрос относится к T, например как перевести public static T XmlStr2Obj<T>(string xml)

Код: Выделить всё

public static T XmlStr2Obj<T>(string xml)
{
    if (xml == null) return default(T);
    if (xml == string.Empty) return (T)Activator.CreateInstance(typeof(T));
    StringReader reader = new StringReader(xml);
    XmlSerializer sr = new XmlSerializer(typeof(T)); //SerializerCache.GetSerializer(type);
    return (T)sr.Deserialize(reader);
}

[Atoman]

Код: Выделить всё

    Public Shared Function XmlStr2Obj(Of T)(ByVal xml As String) As T
        If xml Is Nothing Then
            Return Nothing
        End If
        If xml = String.Empty Then
            Return DirectCast(Activator.CreateInstance(GetType(T)), T)
        End If
        Dim reader As New System.IO.StringReader(xml)
        Dim sr As New XmlSerializer(GetType(T))
        'SerializerCache.GetSerializer(type);
        Return DirectCast(sr.Deserialize(reader), T)
    End Function

[Roman Koff]

Спасибо!!!

Еще вопрос в догонку, есть ли аналог конструкции lock?

Код: Выделить всё

private static Hashtable hash = new Hashtable();
public static XmlSerializer GetSerializer(Type type)   {
    XmlSerializer res = null;
    lock(hash)   {
        res = hash[type.FullName] as XmlSerializer;
        if(res == null)   {
            res = new XmlSerializer(type);
            hash[type.FullName] = res;
        }
    }
    return res;
}

[Atoman]

Код: Выделить всё

SyncLock hash
'...
End SyncLock