VB.NETとVB6を混同しています。それらは互いに大幅に異なります。今後、オンラインで例、ドキュメント、ヘルプを探すときは、必ずVB6を指定して、正しい言語を扱っていることを確認してください。それらは本質的に2つの完全に異なる言語です。
VB6
VB6では、最初に関数を使用して乱数ジェネレーターをシードする必要がありRandomize
ます。次に、乱数を生成するには、次のRnd
関数を使用する必要があります。
Private Sub cmdjouer_Click(Index As Integer)
Randomize()
txt1.Text = Int((Rnd * 9) + 1)
txt2.Text = Int((Rnd * 9) + 1)
txt3.Text = Int((Rnd * 9) + 1)
End Sub
VB.NET
Math.Randomize
Smart Personal Objects Technology(SPOT)名前空間のメソッドです。それがあなたが実際に探しているものではないかと思います。System.Random
おそらく、次のようにクラスを使用したいだけです。
Private Sub cmdjouer_Click(sender As Object, e As EventArgs) Handles cmdjouer.Click
Dim r As New Random()
txt1.Text = r.Next(9).ToString()
txt2.Text = r.Next(9).ToString()
txt3.Text = r.Next(9).ToString()
End Sub
他の人が指摘しているように、テキストボックスの参照変数を数値(例txt1 = ...
)に設定する必要はありません。Text
テキストボックス のプロパティを設定する必要があります。
また、以下のコメントで指摘されているように、ボタンのイベント内でオブジェクトを呼び出しRandomize
たり作成したりしました。例を単純化するためにそうしましたが、実際には、それは悪い習慣になります。いずれの場合も、乱数ジェネレーターのシードは、理想的には1回だけ、通常はアプリケーションの起動時に発生する必要があります。ジェネレーターを毎回再シードすることにより、結果のランダム性が低下する可能性があります。New Random
Click