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

VB.net随机表单加载

2 个答案: