VisualBasic2008でのツールの扱い方について

質問

VisualBasic2008でのツールの扱い方について

今、PCvs人間のじゃんけんプログラムを組んでいます。
グー・チョキ・パーそれぞれのPictureBoxを用意し、クリックイベントごとに人間の手の履歴を作成。

１：TextBoxを10個用意しています。
　　それをすべて"E"で初期化したいのですが、どうしたらよいでしょうか？

２：上で初期化したTextBoxに逐次値を入れたいです。
　　(ここでは人間がグーのPictureBoxをクリックしたとします。)

　　ユーザーから入力(イベント)を待ち、入力があれば順ずる値(G)をTextBox1に入れる。
　　(TextBox1="G")

　　続いて入力があれば(チョキが入力されたとします。)TextBox1の中身を
　　TextBox2にコピーしてTextBox1をT、TextBoxをGにする。
　　(他TextBoxも同様に１つずつ右シフトし、常にTextBox1に新規書き込み)

このようなことがしたいのですが、やり方がわかりません。
本も5冊ぐらい読んだのですが、そこまで踏み込んだ事は書かれていませんでした。
どうかよろしくお願いします。

回答No.3

noname#166246 · ベストアンサー

VB2008ならこんな感じかと。

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i As Integer = 1 To 10
Me.Controls("TextBox" & i).Text = "E"
Next
End Sub

Private Sub PictureBoxG_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBoxG.Click
TextShift()
TextBox1.Text = "G"
End Sub

Private Sub PictureBoxT_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBoxT.Click
TextShift()
TextBox1.Text = "T"
End Sub

Private Sub PictureBoxP_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBoxP.Click
TextShift()
TextBox1.Text = "P"
End Sub

Private Sub TextShift()
For i As Integer = 9 To 1 Step -1
Me.Controls("TextBox" & i + 1).Text = Me.Controls("TextBox" & i).Text
Next
End Sub

お礼

ご回答ありがとうございます！！完璧です！本当にありがとうございます♪

回答No.2

redfox63

TextBoxの配列変数を用意してやると楽になるかも

宣言エリアに
dim txArray() as TextBox
として

Form_loadイベントなどで

txArray = new TextBox(){ TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, _
　　　　　　　　　　　　　　TextBox6, TextBox7, TextBox8, TextBox9, TextBox10}
for each tx as TextBox in txArray
　　tx.Text = "E"
next

といったコードを追加します

メソッド1個追加します
Private Sub ShiftText()
　　for n = txArray.Length -2 to 0 Step -1
　　　　if txArray(n).Text <> "" then
　　　　　　txArray(n+1).Text = txArray(n).Text
　　　　end if
　　next
End Sub

PictureBox1のClickイベントに
ShftText()
txArray(0).Text = "G"
' TextBox1.Text = "G" 'でもいいですが
といった具合でしょう

同様に PictureBox2や3も 代入する文字列を変更するだけですよ

回答No.1

NMZ1985

１．TextBox.textで"E"を入れるようにすれば初期化できると思います。
　　TextBox i .text で　i = 1～10までループするようにすると楽ですね。

2.ユーザが入力するイベントの最初に
　　TextBox10.text = TextBox9 .text
とすれば9の内容が10に入りますね

　TextBox1="G"
　こう書いているのが、少し違和感を覚えます。

　参考URLのVB中学校は絵入りで詳しく解説してます。

参考URL：

http://homepage1.nifty.com/rucio/main/shokyu/jugyou9.htm