ＶＢ．ＮＥＴとして書き換え

コマンドボタンを押すたびに　ココ　という文字をテキストボックスに書く。


Private Sub Command1_Click()
Dim i As Integer
i = Int(Rnd * 4)
For c = 0 To 4
Text1(c).Text = ""
Next c


Text1(i).Text = "ココ"
End Sub

ＶＢ６ではこんなふうになると思います。
．ＮＥＴではどう書けばいいのでしょうか？

No.1 回答者： BlueRay 回答日時： 2003/05/15 17:25

.NETでは、コントロール配列が使用できないので以下のようにしてみました。

如何でしょうか。

Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
　　Dim t(4) As String
　　Dim i As Integer
　　Dim c As Integer

　　i = Int(Rnd() * 4)

　　For c = 0 To 4
　　　　If c = i Then
　　　　　　t(c) = "ココ"
　　　　Else
　　　　　　t(c) = ""
　　　　End If
　　Next

　　Text1.Text = t(0)
　　Text2.Text = t(1)
　　Text3.Text = t(2)
　　Text4.Text = t(3)
　　Text5.Text = t(4)
End Sub

この回答へのお礼

ご回答ありがとうございました。

やはりこうするしかないのでしょうか？

お礼日時：2003/05/17 00:18

No.2 ベストアンサー 回答者： BlueRay 回答日時： 2003/05/29 13:07

まだ締め切っていないようなので、別案です。

Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
　　Dim t(4) As TextBox
　　Dim i As Integer
　　Dim c As Integer

　　t(0) = Text1
　　t(1) = Text2
　　t(2) = Text3
　　t(3) = Text4
　　t(4) = Text5

　　i = Int(Rnd() * 4)

　　For c = 0 To 4
　　　　If c = i Then
　　　　　　t(c) = "ココ"
　　　　Else
　　　　　　t(c) = ""
　　　　End If
　　Next
End Sub

この回答へのお礼

２回もの回答ありがとうございます。

しかし不便になりましたね・・・

お礼日時：2003/06/06 00:22