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

次のようなソリューションがあります。

Sol1 ┬ Prj1 ─ Class1
　　 └ Prj2 ┬ Class2
　　　　　　 └ (参照設定:Class1)

ここで、

Public Class2
    Private Sub sub1
        Dim myType As Type = Type.GetType("Class1")
        Dim cls1 As New Class1
    End Sub
End Class

というソースを書きました。
これを実行すると、cls1インスタンスは正常に生成されます。ところが、
myTypeにはNothingしか入りません。本当はClass1のタイプがセットされて
ほしいのですが…
なぜでしょう？

構成図で、１箇所誤りがありました。

Sol1 ┬ Prj1 ─ Class1
　　 └ Prj2 ┬ Class2
　　　　　　 │ (参照設定:Class1) ×
　　　　　　 └ (参照設定:Prj1)   ○

ご指摘ですが、

Dim myType As Type = Type.GetType("Prj1.Class1")

こういうことでしょうか？これも、結果は同じでした。
関係ないかもしれないんですが、

Dim asm As Reflection.Assembly = Reflection.Assembly.LoadFrom("Class1.exe のフルパス")

をプロシージャー冒頭に入れたんですが、変わりませんでした。（でもこれは、目的のクラスのある
プロジェクトが参照設定で参照されていれば、本来必要ないんですよね？）

■No36339 (魔界の仮面弁士 さん) に返信
> ■No36296 (tailer さん) に返信
>>Dim myType As Type = Type.GetType("Class1")
>>Dim cls1 As New Class1
> myType = GetType(Class1) にすれば済むような気がします。
> あるいは、myType = cls1.GetType() とか。

myType = GetType(Prj1.Class1)

と書くと、myTypeは取得できました。
ただ、このsub1は、もっというと

Public Class2
    Private Sub sub1(ByVal typeName As String)
        Dim myType As Type = Type.GetType(typeName)
        Dim anyInstance As Object = Activator.CreateInstance(myType)
    End Sub
End Class

という具合に、文字列で受け取った型名のクラスをインスタンス化する、という処理なんです。
なので、指定文字列から型名を取得したいのです。

> 
> 
>>myTypeにはNothingしか入りません。本当はClass1のタイプがセットされて
>>ほしいのですが…
> No36300 で Hongliang さんが書かれていますように、
> 　cls1.GetType().AssemblyQualifiedName
> に相当する文字列を指定した場合も駄目ですか?

はい、その文字列が、"Prj1.Class1"でした。

■No36344 (魔界の仮面弁士 さん) に返信
> ■No36341 (tailer さん) に返信
> 　'Class1 を調べた場合
> 　FullName = "Proj1.Class1"
> 　AssemblyQualifiedName = "Proj1.Class1, アセンブリ名" もしくは
> 　AssemblyQualifiedName = "Proj1.Class1, アセンブリ名, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null"
> 
> などになりませんでしたか?

はい、メッセージボックスでAssemblyQualifiedNameを見たところ
　
　"Proj1.Class1, Class1, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null"

といった表現になりました。完全名は、一番最初の "Proj1.Class1" ですよね？
これを使って Type.GetType したんです。