条件によって開くフォームをかえるには？ (ID:120055)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 最初から型を渡しても良いかな。 Dim F As Form F = OpenForm(GetType(Form2)) Public Function OpenForm(ByVal FormType As Type) As Form OpenForm = DirectCast(FormType.GetConstructor(New Type() {}).Invoke(Nothing), Form) OpenForm.Show() End Function