vb.net - VB.net 随机表单加载

Question

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

Answer 1

生成 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()

Answer 2

由于您只使用几种形式，因此简单的选择块在这里可以很好地工作：

    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()