VB.net随机表格加载

Question

有谁知道是否存在某种代码来加载随机表单。就像button1被点击一样，form 2 form 3或者form 4将会打开。是否存在某种代码？

Answer 1

既然你只用几个形式简单的选择块将工作做好在这里工作：

Dim rnd As New Random(Date.Now.Millisecond) 
    Dim newform As New Form 
    Select Case rnd.Next(0, 3) 
     Case 0 
      newform = New Form2 
     Case 1 
      newform = New Form3 
     Case 2 
      newform = New Form4 
    End Select 
    newform.Show() 

Answer 2

生成一个介于2和4之间的随机数，然后按该名称加载表单;这是假定您的形式被命名为Form2，Form3和Form4：

Dim RandomClass As New Random() 
Dim RandomNumber As Integer 
RandomNumber = RandomClass.Next(1, 4) 

创建实际Form对象，你将需要对象（YourNamespace.Form2为例）的全名，如：

Dim myRandomFormType As Type = Type.GetType("YourNamespace.Form" & RandomNumber.ToString()) 
Dim myRandomFormObject As Object 
myRandomFormObject = Activator.CreateInstance(myRandomFormType) 

最后，你需要将对象转换为基类Form这样我们就可以表现出来，就像这样：

Dim myRandomForm As Form = CType(myRandomFormObject, Form) 
myRandomForm.Show()