Есть ли любой способ использовать новые динамические функции в 4,0 платформах как ExpandoObject
в VB.NET без установки Option Strict Off
? С C# Вы теряете безопасность типов только с переменными, которые Вы конкретно объявляете как dynamic
. Но с VB, единственный способ, которым я нашел для использования этих функций, со старым Option Strict Off
прием это было в VB.NET с начала. Без Строгой Опции все в файле загрязнено нечетким вводом как так:
Option Explicit On
Option Strict Off
Option Infer On
Partial Public Class ClassX
Public Sub TestDynamic()
Dim dyn As Object = New System.Dynamic.ExpandoObject()
Dim a As String = 1 ''# Ew!
Dim obj As Object = "999"
dyn.Str = a ''# a is a string, remember? Even though it has a number
''# dyn.Str = 1 : Type = System.String
Console.WriteLine("dyn.Str = {0} : Type = {1}", dyn.Str, dyn.Str.GetType().ToString())
dyn.Num = 123
''# dyn.Num = 123 : Type = System.Int32
Console.WriteLine("dyn.Num = {0} : Type = {1}", dyn.Num, dyn.Num.GetType().ToString())
dyn.Dbl = obj / 9
''# dyn.Dbl = 111 : Type = System.Double
Console.WriteLine("dyn.Dbl = {0} : Type = {1}", dyn.Dbl, dyn.Dbl.GetType().ToString())
dyn.Obj = obj
''# dyn.Obj = 999 : Type = System.String
Console.WriteLine("dyn.Obj = {0} : Type = {1}", dyn.Obj, dyn.Obj.GetType().ToString())
dyn.Dte = #5/5/1955#
''# dyn.Dte = 7/7/1977 12:00:00 AM : Type = System.DateTime
Console.WriteLine("dyn.Dte = {0} : Type = {1}", dyn.Dte, dyn.Dte.GetType().ToString())
AmICalled(dyn.Num)
AmICalled(dyn.Obj)
AmICalled(dyn.Str)
AmICalled(dyn.Dbl)
Try
AmICalled(dyn.Dte)
Catch
Console.WriteLine("Dates don't convert to ints I guess... but we don't know that 'till runtime")
End Try
Console.WriteLine(dyn.Num + dyn.Str) ' 124!?
Console.WriteLine(dyn.Num & dyn.Str) ' 1231!?
End Sub
Private Sub AmICalled(ByVal i As Integer)
Console.WriteLine("AmICalled was called with: " & i)
End Sub
End Class
Это действительно корректно? И, если так, как что лучший способ состоит в том, чтобы все еще использовать вещи ExpandoObject
и снизьте риск потери всей безопасности типов? Частичные классы? Или разве я не должен просто быть так взволнован по поводу безопасности типов в этом случае?
Похоже, вы не можете этого сделать, не отключив Option Strict. Я все же поищу еще кое-что.
Править
После изучения некоторой документации по ExpandoObject
выяснилось, что он используется в C # для COM и Office Interop. Традиционно в VB.NET для таких целей использовался объект
, и для этого требовалось отключить Option Strict.
Чтобы ответить на ваш вопрос, это означает, что вы можете использовать динамические типы в VB.NET, используя тип Object
вместо ExpandoObject
[если такой тип существует в VB.NET ], установите Option Infer On
и Option Strict On или Off .
Вы также можете рассмотреть возможность использования частичных классов для локализации кода, отличного от Option Strict, для определенных файлов.
Рекомендуемая литература
Нет. Это что-то вроде современного позднего связывания.
Я не пробовал, и это было бы не очень красиво, но вы должны использовать CallByName
.
Адаптация вашего примера
Partial Public Class ClassX
Public Sub TestDynamic()
Dim dyn As Object = New System.Dynamic.ExpandoObject()
Dim a As String = "1" ''# Option Strict is on
Dim obj As Object = "999"
''# dyn.Str = a
CallByName(dyn, "Str", CallType.Set, a)
Console.WriteLine("dyn.Str = {0} : Type = {1}",
CallByName(dyn, "Str", CallType.Get, a),
CallByName(dyn, "Str", CallType.Get, a).GetType().ToString()
)
''# etc etc... I can't face any more of that
Как я уже сказал, это некрасиво.