|
|
От: |
Peter Fleischer
|
www.informtoools.de |
| Дата: | 06.05.04 11:13 | ||
| Оценка: | |||
Dim FormName As String = TextBox1.Text
Dim asm As [Assembly] = [Assembly].GetExecutingAssembly()
Dim ty As Type = asm.GetType(asm.GetName.Name & "." & FormName)
Dim o As Object = System.Activator.CreateInstance(ty)
Dim mi As System.Reflection.MethodInfo = ty.GetMethod("Show")
mi.Invoke(o, Nothing)