なぜVBは扱いが低いのか (200ﾚｽ)
上下前次1-新
15: 10 [sage] 2010/09/19(日) 01:04:51 ID:9fB8MUem(1/2) AAS
おっす！>>14
14(1): 名前は開発中のものです。 [sage] 2010/09/19(日) 00:16:04 ID:DdCJ+ie2(1) AAS
VBだからフォームに操作ボタンはりつけるのかと思ったら、
そこまで原始的じゃなかったかｗ
見てくれてうれしいぜ
終了判定いれてみた
Sub EndOfGame()
For i As Integer = 1 To 9
If Not (obPicsWin(i).Name = obPics(i).Name) Then
Label1.Text += ":No"
Exit Sub
End If
Next

Label1.Text += ":End"
End Sub

キモは配列に正解を入れておくとこだぜLOAD処理でやってる
これで最初のならびに達したかどうかがわかるぜ！
ReDim obPics(10), obPicsWin(10)
obPics(1) = PictureBox1
obPics(2) = PictureBox2
obPics(3) = PictureBox3
obPics(4) = PictureBox4
obPics(5) = PictureBox5
obPics(6) = PictureBox6
obPics(7) = PictureBox7
obPics(8) = PictureBox8
obPics(9) = PictureBox9

For i As Integer = 1 To 9
obPicsWin(i) = obPics(i)
Next
既にゲームぽいけどもっと進化させるぜ
上下前次1-新書関写板覧索設栞歴
あと 185 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.004s