VB.net - 문자열로 Form 객체 반환 받기

문자열로 해당 문자열을 name으로 가지고 있는 FORM 객체를 반환해준다.

소스코드

1 2 3 4 5 6 7 8 9

Public Class ObjectFinder     Public Shared Function GetFormByName(ByVal formName As String) As Form             Dim assemblyName As String = _             [Assembly].GetEntryAssembly().GetName.Name.Replace(" ", "_")             Dim myType As Type = _                 Type.GetType(assemblyName & "." & formName)             Return CType(Activator.CreateInstance(myType), Form)     End Function End Class

사용예제 (Form1의 객체를 받아오기)

1 2	dim frmTEST as Form frmTEST = ObjectFinder.GetFormByName("Form1")