C# と VB.NET の質問掲示板

あ、Option InferをOffにしていると、Asが必須だが型名を記述できないという話でしょうか。
Option Infer Onであれば、型が明らかに推論できる部分についてはOption Strict OnであってもAsを記述しなくてよくなります。

Option Infer On
Option Strict On

' aの型は明らかにIEnumerable(Of 匿名型)なのでStrict OnであってもAs不要
Dim a = Enumerable.Range(0, 10).Select(Function (i) New With { Value = i })

Sub,Function内では可能です。

外の話でしょうか？
=> Option関係なくObject型になるので型情報から
プロパティメソッドにアクセスする必要があります。

サンプル

Public Class Form1

    Private a As Object = New With {.a = 1, .b = 2}

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim tpA = a.GetType()
        Dim a_a = CInt(tpA.GetProperty("a").GetValue(a, Nothing))
        Dim a_b = CInt(tpA.GetProperty("b").GetValue(a, Nothing))
        Console.WriteLine("{0} {1}", a_a, a_b)

        Dim b = New With {.a = 3, .b = 4}
        Console.WriteLine("{0} {1}", b.a, b.b)
    End Sub
End Class

後だしですいません。
VB2013　
Fw4.0 
VB
Option Strinct On
Option Infer On

Dapperを使用しようと試しています。

Dappeprが匿名クラスを返すのですが、その匿名クラスのプロパティを使用するところで
OptionStrictOnでは遅延バインディングをしようできませんとコンパイルエラーになります

　　　　Public Class MyUser
            Public Property Code As Integer
            Public Property Name As String
        End Class

        Public Shared Function CreateUser(id As String) As MyUser

            Dim sql As String = "SELECT ExCode, ExName FROM MYTABLE FROM ID = :id"
            Dim prms = New With {.id = 1}

            Dim user As MyUser = Nothing
            Using cnn As DbConnection = dbFactory.CreateConnection("接続文字列")
                cnn.Open()
                Try

                    Dim val = cnn.QuerySingleOrDefault(sql, prms)
                    If val IsNot Nothing Then
                        user = New MyUser
                        user.Code = funcGotyaGotya(val.ExCode)　＜−−ここでOptionStrictOnでは遅延バインディングをしようできませんとコンパイルエラー
                        user.Name = funcKoneKone(val.ExName)　＜−−ここも
                    End If

                Finally
                    cnn.Close()
                End Try
            End Using
            Return user
        End Function

shuさま

>VBのOption Strict Off とC#のDynamic型はほぼ同じことなので
>それはC#でDynamic型を使わないと言っているのとほぼ同じことなのです。


例えばC#であれば以下のように書けます。
「user.Code = "123"」の部分は暗黙的型変換でコンパイルエラーになります。

OptionStrictOnのVBではかけません。
「user.Code = "123"」の部分は暗黙的型変換でコンパイルエラーになります。

Option Strict Offにすれば書けます。
「user.Code = "123"」の部分もコンパイルエラーになりません。（これは困ります）

C#のように暗黙的型変換はエラーになりつつ、Dynamicでは許してほしいのです。
====C#============================================================================
public class MyUser
{
    public int Code { get; set; }
    public string Name { get; set; }
}

private void Test()
{
    dynamic obj = CreateDynamicObject();
    MyUser user = new MyUser();
    user.Code = Convert.ToInt32(obj.Code.Replace("A", ""));
    user.Name = obj.Name.ToString();

    //user.Code = "123"; <--C#ではコンパイルエラー
}

private dynamic CreateDynamicObject()
{
    return new { Code = "A123", Name = 123 };
}
==================================================================================
魔界の仮面弁士さま

>操作用の拡張メソッドを用意しておいては如何でしょう。
>MsgBox( dynObj.Test ) の代わりに
>MsgBox( dynObj.GetProp("Test") ) と書く感じで。

ありがとうございます。
vbではdynamic型はobject型で扱う。→Object型は拡張メソッドが作れない。と思っていました。
トライしてみます。