0

クイズのようなものを作っています。質問のランダマイザーを作成しました。したがって、1 つの質問 (フォーム) がポップアップし、正しい答えをクリックすると、新しいフォームがポップアップし、ラベルとボタンが 1 つ表示されます。続行ボタンをクリックすると次の質問(フォーム)がポップアップするようにしましたが、前のフォームも閉じたいのですが、名前を付ける方法や何をすべきかわかりません。

Dim rn As New Random 
TextBox1.Text = rn.Next(1, 4) 

If TextBox1.Text = 1 Then
   Form4.Show() 
   Form4.Timer1.Start() 
End If 
If TextBox1.Text = 2 Then 
   Form7.Show() 
   Form7.Timer1.Start() 
End If 

If TextBox1.Text = 3 Then 
     Form8.Show() 
     Form8.Timer1.Start() 
End If 
If TextBox1.Text = 4 Then 
    Form12.Show() 
    Form12.Timer1.Start() 
End If
4

2 に答える 2

0

質問への参照を結果フォームに渡します。次に、次の質問を開く前に、前の質問で Close() メソッドを呼び出すことができます。

于 2013-10-29T16:09:16.210 に答える