Что такое typeof (Nullable<>)?

[Roman Koff]

Поможите, кто может перевести кос с C# на VB.NET. Не могу вкурить как перевести typeof (Nullable<>)?

Исходник:

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

private static Type GetPropertyType(Type propertyType)
        {
            Type type = propertyType;
            if (type.IsGenericType && (type.GetGenericTypeDefinition() == typeof (Nullable<>)))
                return Nullable.GetUnderlyingType(type);
            return type;
        }

Каменный цветок:

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

Shared Function GetPropertyType(ByVal pPropertyType As System.Type) As System.Type
   Dim _Type As System.Type = pPropertyType
   If (_Type.IsGenericType And (_Type.GetGenericTypeDefinition = Nullable)) Then
      Return Nullable.GetUnderlyingType(_Type)
   End If
   Return _Type
End Function

[MIT]

Такой вариант пойдет?

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

Dim type As Type = GetType(Integer?)
If type.Name = GetType(Nullable(Of )).Name Then MsgBox("OLOLOLOO!")

[Roman Koff]

Ппц. Ведь пробавал же ... ниработало ...
Спасибо, хоть смысл стал понятен, болеменее ...

[Roman Koff]

А еще в догоночку вопросик по VB.9, как это перевести?

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

private static IQueryable<Product> fakeProducts = new List<Product> {
      new Product { Name = "Football", Price = 25 },
      new Product { Name = "Surf board", Price = 179 },
      new Product { Name = "Running shoes", Price = 95 }
}.AsQueryable();

[MIT]

В строку записать не получилось, но вот так работает:

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

    Public Class Product
        Public name As String
        Public Price As Integer
    End Class

    Private Shared fakeProducts As IQueryable(Of Product)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim l As New List(Of Product)()
        With l
            .Add(New Product With {.name = "Football", .Price = 25})
            .Add(New Product With {.name = "Surf board", .Price = 179})
            .Add(New Product With {.name = "Running shoes", .Price = 95})
        End With
        fakeProducts = l.AsQueryable()
    End Sub

[Roman Koff]

Ну я в, принципе, так и решил ... Спасибо ...
Интересно, реализуют до конца такой синтаксис в VB10 ...
А то прийдетсо на C# переходить ...